MENU: @MENU: MainQuit Å QUITMenu: SlideshowsCeremonial murals Å slider ("muralshow")Art and sculpture Å slider ("sculptureshow")Pyramid of the Sun Å slider ("Sunshow")Temple of the Feathered Serpent Å slider ("serpentshow")Citadel Å slider("citshow")Moon Pyramid Å slider ("moonshow")Grand Tour Å slider ("TOTALSHOW")MENU: Export\SearchNote This PhotoÅphotolistExport Full Text Å FULLEXPORTExport This Page OnlyÅpageonlytextSearch CaptionsÅphotoreadySearch TextÅtextreadyCancel SearchÅprepsearchMenu: ControlAuto Slideshows off ÅtogglemodeCaptions on Å captionHot text off ÅhottextMusic on ÅmusicNarration on Å narrationSound louder Å set the soundlevel to the soundlevel + 2Sound softer Åset the soundlevel to the soundlevel -2
Script Channel Commands
--------------------
GO TO THE FRAMEgo to marker (1)mapit ("MISC7.pic")GO TO THE FRAMEREPEAT WITH X = 5 TO 20 SET THE CURSOR OF SPRITE X TO 3END REPEATPUPPETSPRITE 23, TRUESET THE CASTNUM OF SPRITE 23 TO THE CASTNUM OF SPRITE 1 + 105UPDATESTAGEIF THE MOUSEDOWN THEN GO TO MARKER (1)cursor 4GO TO THE FRAME + 1cursor -1cursor 4GO TO THE FRAME -1cursor -1PUPOFFMARKEXECcursor 4pupoffgo to the frame +1cursor -1PUPPETSPRITE 23, TRUESET THE CASTNUM OF SPRITE 23 TO THE CASTNUM OF SPRITE 1 + 105UPDATESTAGEIF THE MOUSEDOWN THEN GO TO MARKER (1)set the perframehook to roverGO TO MARKER (1)cursor 4pupoffgo to the frame -1cursor -1cursor 4REPEAT WITH X = 4 TO 21 SET THE CURSOR OF SPRITE X TO 0END REPEATPUPOFFmarkexeccursor -1CURSOR 4sound stop 1set the perframehook to 0GO TO FRAME "TOC" OF MOVIE "TOP"CURSOR -1mapit ("apt1.pic")GLOBAL WHICHPICTURECURSOR 4MARKITpupoffGO TO "CITY MAP"CURSOR -1PUPPETSPRITE 23, TRUESET THE CASTNUM OF SPRITE 23 TO THE CASTNUM OF SPRITE 1 + 105UPDATESTAGEsound playFile 1, "CITIES:SOUNDS:TEOTN"SET THE CONTROLLER OF CAST "MEX.MOV" TO 1set the perframehook to rovermapit ("SPAL.pic")mapit ("MISC5.pic")if the castnum of sprite 20 = the number of cast c72 THEN NOTHINGELSE CURSOR 4 captiondown PUPPETSPRITE 20, TRUE SET THE CASTNUM OF SPRITE 20 TO THE CASTNUM OF SPRITE 20 + 1 puppetTransition 14, 0, 40, 1 CURSOR -1end ifglobal reader, thefile, linenumber, searchswitchset linenumber to 0set searchswitch to trueentersearchPUPOFFmarkexecpupoffMARKEXECGLOBAL WHICHSLIDESHOWIF THE CASTNUM OF SPRITE 20 = THE NUMBER OF CAST "ART1..sm" THEN NOTHINGELSE cursor 4 PUPPETSPRITE 20, TRUE PUPPETSPRITE 10, TRUE SET THE CASTNUM OF SPRITE 20 TO THE NUMBER OF CAST "ART1..sm" SET WHICHSLIDESHOW TO "sculptureshow" SET THE INK OF SPRITE 10 TO 0 puppetTransition 11, 0, 40, puppetsprite 19, true set the castnum of sprite 19 to the castnum of sprite 20 + 209 updatestage cursor -1END IFentersearchglobal modeSET THE PERFRAMEHOOK TO ROVERset mode to falseSET THE VISIBILITY OF SPRITE 19 TO 0UPDATESTAGEPUPPETSPRITE 23, TRUESET THE CASTNUM OF SPRITE 23 TO THE CASTNUM OF SPRITE 1 + 106--UPDATESTAGEIF THE MOUSEDOWN THEN GO TO MARKER (1)GLOBAL WHICHSLIDESHOWIF THE CASTNUM OF SPRITE 20 = THE NUMBER OF CAST "SUN1..sm" THEN NOTHINGELSE cursor 4 PUPPETSPRITE 20, TRUE PUPPETSPRITE 10, TRUE SET THE CASTNUM OF SPRITE 20 TO THE NUMBER OF CAST "SUN1..sm" SET THE INK OF SPRITE 10 TO 0 SET WHICHSLIDESHOW TO "Sunshow" puppetTransition 11, 0, 40, puppetsprite 19, true set the castnum of sprite 19 to the castnum of sprite 20 + 209 updatestage cursor -1END IFmapit ("MISC1.pic")PUPPETSPRITE 23, TRUESET THE CASTNUM OF SPRITE 23 TO THE CASTNUM OF SPRITE 1 + 105UPDATESTAGE--IF THE MOUSEDOWN THEN GO TO MARKER (1)--go to marker (1)mapit ("serp2.PIC")PUPPETSPRITE 23, TRUESET THE CASTNUM OF SPRITE 23 TO THE CASTNUM OF SPRITE 1 + 106--UPDATESTAGE--IF THE MOUSEDOWN THEN GO TO MARKER (1)mapit ("MPLZ7.pic")--GO TO MARKER (1)mapit ("MPLZ5.pic")NOTHINGglobal WHICHSLIDESHOWif not (the ink of sprite 10 = 0) then nothingelseslider (WHICHSLIDESHOW)end ifIF THE CASTNUM OF SPRITE 20 = THE NUMBER OF CAST B38 THEN NOTHINGELSE CURSOR 4 captionup cursor -1 PUPPETSPRITE 20, TRUE SET THE CASTNUM OF SPRITE 20 TO THE CASTNUM OF SPRITE 20 - 1 puppetTransition 13, 0, 40,1 CURSOR -1END IFIF THE CASTNUM OF SPRITE 20 = THE NUMBER OF CAST "STOD3..sm" THEN NOTHINGELSE cursor 4 PUPPETSPRITE 20, TRUE SET THE CASTNUM OF SPRITE 20 TO THE NUMBER OF CAST "STOD3..sm" puppetTransition 11, 0, 40, puppetsprite 19, true set the castnum of sprite 19 to the castnum of sprite 20 + 209 updatestage cursor -1END IFcursor 4put THE CASTNUM OF SPRITE 20 + 104 into rpreLoadCast r cursor -1puppetTransition 09, 0, 20PUPPETSPRITE 22, TRUEPUPPETSPRITE 23, TRUESET THE CASTNUM OF SPRITE 22 TO THE CASTNUM OF SPRITE 20 + 104SET THE LOCH OF SPRITE 22 TO 320if THE VISIBILITY OF sprite 19 = 0 then UPDATESTAGEelse set the castnum of sprite 23 to the castnum of sprite 19 set the locH of sprite 23 to 100 SET THE VISIBILITY OF SPRITE 23 TO 1 updatestageend ifcursor 4set the locH of sprite 22 to -800set the locH of sprite 23 to -800puppetTransition 10, 0, 10CAPTIONCAPTIONcursor -1GLOBAL WHICHSLIDESHOWIF THE CASTNUM OF SPRITE 20 = THE NUMBER OF CAST "MOON1..sm" THEN NOTHINGELSE cursor 4 PUPPETSPRITE 20, TRUE PUPPETSPRITE 10, TRUE SET THE CASTNUM OF SPRITE 20 TO THE NUMBER OF CAST "MOON1..sm" SET THE INK OF SPRITE 10 TO 0 SET WHICHSLIDESHOW TO "moonshow" puppetTransition 11, 0, 40, puppetsprite 19, true set the castnum of sprite 19 to the castnum of sprite 20 + 209 updatestage cursor -1END IFGLOBAL WHICHSLIDESHOWIF THE CASTNUM OF SPRITE 20 = THE NUMBER OF CAST "CIT1..sm" THEN NOTHINGELSE cursor 4 PUPPETSPRITE 20, TRUE PUPPETSPRITE 10, TRUE SET THE CASTNUM OF SPRITE 20 TO THE NUMBER OF CAST "CIT1..sm" SET THE INK OF SPRITE 10 TO 0 SET WHICHSLIDESHOW TO "citshow" puppetTransition 11, 0, 40, puppetsprite 19, true set the castnum of sprite 19 to the castnum of sprite 20 + 209 updatestage cursor -1END IFGLOBAL WHICHSLIDESHOWIF THE CASTNUM OF SPRITE 20 = THE NUMBER OF CAST "SERP1..sm" THEN NOTHINGELSE cursor 4 PUPPETSPRITE 20, TRUE PUPPETSPRITE 10, TRUE SET THE CASTNUM OF SPRITE 20 TO THE NUMBER OF CAST "SERP1..sm" SET THE INK OF SPRITE 10 TO 0 SET WHICHSLIDESHOW TO "serpentshow" puppetTransition 11, 0, 40, puppetsprite 19, true set the castnum of sprite 19 to the castnum of sprite 20 + 209 updatestage cursor -1END IFGLOBAL WHICHSLIDESHOWIF THE CASTNUM OF SPRITE 20 = THE NUMBER OF CAST "MUR2..sm" THEN NOTHINGELSE cursor 4 PUPPETSPRITE 20, TRUE PUPPETSPRITE 10, TRUE SET THE CASTNUM OF SPRITE 20 TO THE NUMBER OF CAST "MUR2..sm" puppetTransition 11, 0, 40, set the ink of sprite 10 to 0 set WHICHSLIDESHOW to"muralshow" puppetsprite 19, true set the castnum of sprite 19 to the castnum of sprite 20 + 209 updatestage cursor -1END IFIF THE CASTNUM OF SPRITE 20 = THE NUMBER OF CAST "MISC1..sm" THEN NOTHINGELSE cursor 4 PUPPETSPRITE 20, TRUE PUPPETSPRITE 10, FALSE SET THE CASTNUM OF SPRITE 20 TO THE NUMBER OF CAST "MISC1..sm" puppetTransition 11, 0, 40, puppetsprite 19, true set the castnum of sprite 19 to the castnum of sprite 20 + 209 updatestage cursor -1END IFGLOBAL WHICHSLIDESHOWIF THE CASTNUM OF SPRITE 20 = THE NUMBER OF CAST "SUN3..sm" THEN NOTHINGELSE cursor 4 PUPPETSPRITE 20, TRUE PUPPETSPRITE 10, TRUE SET THE CASTNUM OF SPRITE 20 TO THE NUMBER OF CAST "SUN3..sm" SET THE INK OF SPRITE 10 TO 0 SET WHICHSLIDESHOW TO "Sunshow" puppetTransition 11, 0, 40, puppetsprite 19, true set the castnum of sprite 19 to the castnum of sprite 20 + 209 updatestage cursor -1END IFGLOBAL WHICHSLIDESHOWIF THE CASTNUM OF SPRITE 20 = THE NUMBER OF CAST "CIT3..sm" THEN NOTHINGELSE cursor 4 PUPPETSPRITE 20, TRUE PUPPETSPRITE 10, TRUE SET THE CASTNUM OF SPRITE 20 TO THE NUMBER OF CAST "CIT3..sm" SET THE INK OF SPRITE 10 TO 0 SET WHICHSLIDESHOW TO "citshow" puppetTransition 11, 0, 40, puppetsprite 19, true set the castnum of sprite 19 to the castnum of sprite 20 + 209 updatestage cursor -1END IFGLOBAL WHICHSLIDESHOWIF THE CASTNUM OF SPRITE 20 = THE NUMBER OF CAST "STOD3..sm" THEN NOTHINGELSE cursor 4 PUPPETSPRITE 20, TRUE PUPPETSPRITE 10, FALSE SET THE CASTNUM OF SPRITE 20 TO THE NUMBER OF CAST "STOD3..sm" SET THE INK OF SPRITE 10 TO 0 puppetTransition 11, 0, 40, puppetsprite 19, true set the castnum of sprite 19 to the castnum of sprite 20 + 209 updatestage cursor -1END IFGLOBAL WHICHSLIDESHOWIF THE CASTNUM OF SPRITE 20 = THE NUMBER OF CAST "MOON4..sm" THEN NOTHINGELSE cursor 4 PUPPETSPRITE 20, TRUE PUPPETSPRITE 10, TRUE SET THE CASTNUM OF SPRITE 20 TO THE NUMBER OF CAST "MOON4..sm" SET THE INK OF SPRITE 10 TO 0 SET WHICHSLIDESHOW TO "moonshow" puppetTransition 11, 0, 40, cursor -1END IFGLOBAL WHICHSLIDESHOWIF THE CASTNUM OF SPRITE 20 = THE NUMBER OF CAST "SERP2..sm" THEN NOTHINGELSE cursor 4 PUPPETSPRITE 20, TRUE PUPPETSPRITE 10, TRUE SET THE CASTNUM OF SPRITE 20 TO THE NUMBER OF CAST "SERP2..sm" SET THE INK OF SPRITE 10 TO 0 SET WHICHSLIDESHOW TO "serpentshow" puppetTransition 11, 0, 40, puppetsprite 19, true set the castnum of sprite 19 to the castnum of sprite 20 + 209 updatestage cursor -1END IFmapit ("CIT4.pic")mapit ("CIT1.pic")mapit ("STOD3.pic")SET THE LOCH OF SPRITE 22 TO 1200SET THE LOCH OF SPRITE 23 TO -100updatestagemapit ("SUN3.pic")mapit ("MOON4.pic")mapit ("CIT2.pic")GLOBAL WHICHSLIDESHOWIF THE CASTNUM OF SPRITE 20 = THE NUMBER OF CAST "SERP8..sm" THEN NOTHINGELSE cursor 4 PUPPETSPRITE 20, TRUE PUPPETSPRITE 10, TRUE SET THE CASTNUM OF SPRITE 20 TO THE NUMBER OF CAST "SERP8..sm" puppetTransition 11, 0, 40, set the ink of sprite 10 to 0 set WHICHSLIDESHOW TO "serpentshow" updatestage puppetsprite 19, true set the castnum of sprite 19 to the castnum of sprite 20 + 209 updatestage cursor -1END IFGLOBAL WHICHSLIDESHOWIF THE CASTNUM OF SPRITE 20 = THE NUMBER OF CAST "CIT4..sm" THEN NOTHINGELSE cursor 4 PUPPETSPRITE 20, TRUE PUPPETSPRITE 10, FALSE SET THE CASTNUM OF SPRITE 20 TO THE NUMBER OF CAST "CIT4..sm" SET THE INK OF SPRITE 10 TO 0 puppetTransition 11, 0, 40, puppetsprite 19, true set the castnum of sprite 19 to the castnum of sprite 20 + 209 updatestage cursor -1END IFGLOBAL WHICHSLIDESHOWIF THE CASTNUM OF SPRITE 20 = THE NUMBER OF CAST "APT1..sm" THEN NOTHINGELSE cursor 4 PUPPETSPRITE 20, TRUE PUPPETSPRITE 10, FALSE SET THE CASTNUM OF SPRITE 20 TO THE NUMBER OF CAST "APT1..sm" SET THE INK OF SPRITE 10 TO 0 puppetTransition 11, 0, 40, puppetsprite 19, true set the castnum of sprite 19 to the castnum of sprite 20 + 209 updatestage cursor -1END IFGLOBAL WHICHSLIDESHOWIF THE CASTNUM OF SPRITE 20 = THE NUMBER OF CAST "APT3..sm" THEN NOTHINGELSE cursor 4 PUPPETSPRITE 20, TRUE PUPPETSPRITE 10, FALSE SET THE CASTNUM OF SPRITE 20 TO THE NUMBER OF CAST "APT3..sm" SET THE INK OF SPRITE 10 TO 0 puppetTransition 11, 0, 40, puppetsprite 19, true set the castnum of sprite 19 to the castnum of sprite 20 + 209 updatestage cursor -1END IFGLOBAL WHICHSLIDESHOWIF THE CASTNUM OF SPRITE 20 = THE NUMBER OF CAST "SPAL..sm" THEN NOTHINGELSE cursor 4 PUPPETSPRITE 20, TRUE PUPPETSPRITE 10, FALSE SET THE CASTNUM OF SPRITE 20 TO THE NUMBER OF CAST "SPAL..sm" SET THE INK OF SPRITE 10 TO 0 puppetTransition 11, 0, 40, puppetsprite 19, true set the castnum of sprite 19 to the castnum of sprite 20 + 209 updatestage cursor -1END IFGLOBAL WHICHSLIDESHOWIF THE CASTNUM OF SPRITE 20 = THE NUMBER OF CAST "SUN2..sm" THEN NOTHINGELSE cursor 4 PUPPETSPRITE 20, TRUE PUPPETSPRITE 10, FALSE SET THE CASTNUM OF SPRITE 20 TO THE NUMBER OF CAST "SUN2..sm" SET THE INK OF SPRITE 10 TO 0 puppetTransition 11, 0, 40, puppetsprite 19, true set the castnum of sprite 19 to the castnum of sprite 20 + 209 updatestage cursor -1END IFGLOBAL WHICHSLIDESHOWIF THE CASTNUM OF SPRITE 20 = THE NUMBER OF CAST "BUTT3..sm" THEN NOTHINGELSE cursor 4 PUPPETSPRITE 20, TRUE PUPPETSPRITE 10, FALSE SET THE CASTNUM OF SPRITE 20 TO THE NUMBER OF CAST "BUTT3..sm" SET THE INK OF SPRITE 10 TO 0 puppetTransition 11, 0, 40, puppetsprite 19, true set the castnum of sprite 19 to the castnum of sprite 20 + 209 updatestage cursor -1END IFGLOBAL WHICHSLIDESHOWIF THE CASTNUM OF SPRITE 20 = THE NUMBER OF CAST "ART1..sm" THEN NOTHINGELSE cursor 4 PUPPETSPRITE 20, TRUE PUPPETSPRITE 10, FALSE SET THE CASTNUM OF SPRITE 20 TO THE NUMBER OF CAST "ART1..sm" SET THE INK OF SPRITE 10 TO 0 puppetTransition 11, 0, 40, puppetsprite 19, true set the castnum of sprite 19 to the castnum of sprite 20 + 209 updatestage cursor -1END IFGLOBAL WHICHSLIDESHOWIF THE CASTNUM OF SPRITE 20 = THE NUMBER OF CAST "MISC7..sm" THEN NOTHINGELSE cursor 4 PUPPETSPRITE 20, TRUE PUPPETSPRITE 10, FALSE SET THE CASTNUM OF SPRITE 20 TO THE NUMBER OF CAST "MISC7..sm" SET THE INK OF SPRITE 10 TO 0 puppetTransition 11, 0, 40, puppetsprite 19, true set the castnum of sprite 19 to the castnum of sprite 20 + 209 updatestage cursor -1END IFGLOBAL WHICHSLIDESHOWIF THE CASTNUM OF SPRITE 20 = THE NUMBER OF CAST "MPLZ3..sm" THEN NOTHINGELSE cursor 4 PUPPETSPRITE 20, TRUE PUPPETSPRITE 10, FALSE SET THE CASTNUM OF SPRITE 20 TO THE NUMBER OF CAST "MPLZ3..sm" SET THE INK OF SPRITE 10 TO 0 puppetTransition 11, 0, 40, puppetsprite 19, true set the castnum of sprite 19 to the castnum of sprite 20 + 209 updatestage cursor -1END IF