home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / multi / truck / demo / quarexc.tcs < prev    next >
Encoding:
Text File  |  1996-06-12  |  5.6 KB  |  1 lines
  1. QuarExc{EnterSection{Loading(1);Activate(331,0);Activate(360,1);SetFlagIf(Yes=1,If=(Get(503,21)==1););$1$Unload(503);Set(100,1200,7,7500);Set(100,1201,7,1);Set(100,1202,7,4);Set(100,2000+300,7,1123);Set(100,2000+301,7,299);Set(100,2000+302,7,400000);Wave+(ID=170,Parent=500,WavFlags=2,File="music\14.wav",Intr(Started(Loading(0););););Load(170);Start(170,3);Hide(501);Movie+(ID=10453,Parent=500,Loop=2,MFEvery=1,MFLoop=1);Region+(ID=10401,Parent=500,Dim=(640,380),Cursor=3,Spot(1,2,((0,0),(640,380))),Intr(Action(ParamID=1;GoBack(););););Hide(10401);ImageShow+(ID=150,Parent=500,Dim=(640,380),Loop=1,Data=((500,7,4),(501,Import=(100,4000+403)),(502,7,362),(503,7,361),(600,50,"picts\exc_c.pic"),(601,50,"picts\exc_l.pic"),(602,50,"picts\exc_f.pic"),(603,50,"picts\exc_b.pic"),(800,7,10402),(801,7,10403),(802,7,10404),(803,7,10405),(1000,50,"gray\exc_cg.pic"),(1001,50,"gray\exc_lg.pic"),(1002,50,"gray\exc_fg.pic"),(1003,50,"gray\exc_bg.pic"),(2000,7,170),(3000,7,1),(3001,50,".."),(3002,50,".."),(3003,50,".."),(3004,50,".."),(5000,7,0),(5001,50,".."),(6000,50,".."),(6001,10,(0,0)),(6002,7,0),(7000,7,0),(8001,50,"..")),Intr(Catch(Message(150,10016,-1,-1);Stop(10421);Set(150,2000,7,170);Start(170);Effect(When=2,Info=(16,0),ID=500,Flags=3);Dispose(10434);SetFlagIf(Yes=1,No=2,If=(Get(150,501)==1););$1$Set(100,1500,7,2);$2$Set(100,1500,7,0););Catch(Message(150,10023,-1,0);&Reset(10450,10453,10455,10431,10432,10433);SetFlagIf(Yes=1,If=(Inform(1)!=8););$1$Break();Image+(ID=10434,Parent=500,File=(File=Get(150,999+Get(150,201));););Load(10434);Effect(When=2,ID=500,Flags=3);Update(500);Hide(10434););Catch(Message(150,10023,-1,1);&Reset(10450,10453,10455,10431,10432,10433);SetFlagIf(Yes=1,If=(Inform(1)!=8););$1$Break();Image+(ID=10434,Parent=500,File=(File=Get(150,999+Get(150,202));););Load(10434);Effect(When=2,ID=500,Flags=3);Update(500);Hide(10434););););Disable(10401);Update(301);SetFlagIf(Yes=1,If=(Get(150,501)==1););$1$Set(100,1500,7,2);Image+(ID=10431,Parent=500,Style=0x20);Image+(ID=10432,Parent=500,Style=0x20);Image+(ID=10433,Parent=500,Flash=500,Style=0x20);Wave+(ID=10421,Parent=500,WavFlags=2);Region+(ID=10402,Parent=500,Dim=(640,380),Cursor=-2,Spot(2,2,((407,329),(59,44)),6),Spot(3,2,((359,36),(107,232)),4),Spot(4,1,((0,7),(57,9),(90,112),(0,148)),11),Spot(5,1,((5,161),(62,137),(62,170),(27,176)),11),Spot(6,1,((114,32),(159,33),(167,62),(161,83),(166,131),(132,140),(107,44)),11),Data=((100004,10,(500,2011)),(100005,10,(500,2011)),(100006,10,(500,2011))),Intr(Action(ParamID=2;Stop(Get(150,2000));SetFlagIf(Yes=1,No=2,If=(Get(150,2000)==170););$1$Change(10421,(1,50,"effects\exc_e1.wav"););$1$Set(150,2000,7,10421);$2$Set(150,2000,7,170);Start(Get(150,2000)););Action(ParamID=3;Set(150,6000,50,"movies\animat\exc_is1.mov");Set(150,6001,10,(330,0));PlayScript(60,"ShowAnim"););););Region+(ID=10403,Parent=500,Dim=(640,380),Cursor=-2,Spot(2,2,((112,208),(115,50)),9),Spot(3,2,((295,147),(313,98)),4),Spot(4,2,((212,268),(312,64)),9),Spot(6,1,((1,214),(31,217),(68,248),(74,275),(69,318),(1,318)),11),Data=((100006,10,(500,2011))),Intr(Action(ParamID=2;Set(150,3001,50,"info\quarry\exc_t4.pic");PlayScript(200,"ShowText"););Action(ParamID=3;Set(150,6000,50,"movies\animat\exc_is3.mov");PlayScript(60,"ShowAnim"););Action(ParamID=4;Set(150,3000,7,2);Set(150,3001,50,"info\quarry\exc_1t3.pic");Set(150,3002,50,"info\quarry\exc_2t3.pic");PlayScript(200,"ShowText"););););Region+(ID=10404,Parent=500,Dim=(640,380),Cursor=-2,Spot(1,2,((241,15),(58,170)),7),Spot(2,2,((306,56),(109,76)),10),Spot(3,2,((306,142),(108,119)),4),Spot(4,2,((448,147),(61,53)),7),Spot(5,2,((424,202),(46,78)),9),Spot(6,2,((342,287),(217,57)),5),Intr(Action(ParamID=1;Set(150,3001,50,"photos\exc_p2.pic");PlayScript(200,"ShowP400"););Action(ParamID=2;Set(100,500,50,"movies\video\exc_v2.mov");PlayScript(200,"ShowVideo"););Action(ParamID=3;Set(150,6000,50,"movies\animat\exc_is2.mov");PlayScript(60,"ShowAnim"););Action(ParamID=4;Set(150,3001,50,"photos\exc_p1.pic");PlayScript(200,"ShowP400"););Action(ParamID=5;Set(150,3001,50,"info\quarry\exc_t1.pic");PlayScript(200,"ShowText"););Action(ParamID=6;Set(100,500,50,"movies\cartoon\09.mov");PlayScript(200,"ShowCartoon"););););Region+(ID=10405,Parent=500,Dim=(640,380),Cursor=-2,Spot(1,2,((179,175),(127,46)),10),Spot(2,2,((196,227),(117,50)),9),Spot(4,2,((351,85),(67,76)),10),Spot(5,1,((513,62),(542,69),(548,71),(580,67),(603,75),(603,94),(621,97),(635,115),(630,144),(528,169),(471,146),(473,164),(457,157),(455,137),(438,133),(465,102),(484,105),(503,65)),11),Spot(6,1,((1,57),(9,57),(16,42),(47,38),(78,63),(121,63),(172,83),(184,118),(155,123),(142,112),(130,130),(99,134),(79,113),(71,122),(31,127),(24,152),(1,156)),11),Spot(7,1,((185,17),(234,20),(242,10),(278,12),(317,6),(358,8),(324,19),(353,19),(353,24),(334,39),(316,82),(272,80),(244,86),(227,97),(213,93),(201,75),(205,57),(225,48),(182,31)),11),Data=((100005,10,(500,2011)),(100006,10,(500,2011)),(100007,10,(500,2011))),Intr(Action(ParamID=1;Set(100,500,50,"movies\video\exc_v3.mov");PlayScript(200,"ShowVideo"););Action(ParamID=2;Set(150,3001,50,"info\quarry\exc_t2.pic");PlayScript(200,"ShowText"););Action(ParamID=4;Set(100,500,50,"movies\cartoon\06.mov");PlayScript(200,"ShowCartoon"););););Load(150);&Update(500,300);AddLabel(ID=90000,Repeat=1,Every=5000,Action(Loading(0);););};ShowSection{Start(Get(150,2000));Enable(150);Disable(10401);Activate(360,1);Update(300);};HideSection{&Stop(10453,10421);&Reset(10453,10431,10432,10433);Disable(150);Enable(10401);Disable(360);Update(300);};LeaveSection{DelLabel(90000);Show(501);Effect(ID=500,Flags=2);Set(100,4000+403,7,Get(150,501));&Dispose(150,170,10401,10453,10421,10431,10432,10433);Activate(360,0);Set(100,1500,7,0);};};