home *** CD-ROM | disk | FTP | other *** search
/ PC World Multimedia Live! 1997 June / Multimedia Live (PC World)(June 1997 - Volume 2.12).ISO / titles / demospin / spacebar / wld / zzademo.wld < prev   
Encoding:
Text File  |  1997-01-29  |  9.0 KB  |  255 lines
  1. START_WLD = ZAP_WLD
  2. DISKID=1
  3. DISKAUDIO=$SBARDIR\GENERAL\CHADIS1.WAV
  4.  
  5. //    ID     X  Y  FileName
  6. CURSOR 0  = 15 15 $SBARDIR\ZZAZZL\CURSORS\NOT.BMP
  7. CURSOR 1  = 13  1 $SBARDIR\ZZAZZL\CURSORS\ZZAZZL.BMP
  8. CURSOR 2  =  9  9 $SBARDIR\ZZAZZL\CURSORS\ZOOM.BMP
  9. CURSOR 5  = 16  1 $SBARDIR\ZZAZZL\CURSORS\LINK.BMP
  10. CURSOR 6  = 15 15 $SBARDIR\ZZAZZL\CURSORS\WAIT.BMP
  11. CURSOR 10 =  0  0 $SBARDIR\ZZAZZL\CURSORS\EXIT.BMP
  12. CURSOR 14 =  0 14 $SBARDIR\ZZAZZL\CURSORS\LEFT.BMP
  13. CURSOR 15 = 15  0 $SBARDIR\ZZAZZL\CURSORS\UPARROW.BMP
  14. CURSOR 16 = 31 15 $SBARDIR\ZZAZZL\CURSORS\RIGHT.BMP
  15. CURSOR 17 = 15 31 $SBARDIR\ZZAZZL\CURSORS\DOWN.BMP
  16. CURSOR 18 = 16  1 $SBARDIR\ZZAZZL\CURSORS\HUMAN.BMP
  17. CURSOR 19 = 15 15 $SBARDIR\ZZAZZL\CURSORS\BARNOT.BMP
  18. CURSOR 20 = 15 15 $SBARDIR\ZZAZZL\CURSORS\BEXIT.BMP
  19. // Demo: added link cursor for text back to bar -- bar 01-27-97
  20. CURSOR 24 = 27  1 $SBARDIR\BAR\CURSORS\LINK.BMP
  21. // Wield cursors -- None needed for Demo -- bar 01-27-97
  22.  
  23. VAR Z_CURLOC = ZAP
  24. VAR EGGLOC = ZAP            // Egg starts in Great Hall
  25. VAR EGGROLL = ZZZ            // Which room to roll the egg to
  26. // Demo: removed useless variables. -- bar 01-27-97
  27. // For Zzazzl telepathic messages
  28. VAR ZZATEL = FALSE                // don't start until chat done
  29. VAR TELEPATH = 1                // if it's time to play a message
  30. VAR MESSAGE = 0                    // Which message to play
  31. VAR NUMMESSAGES = 0                // Number of messages to play 1-to-n
  32. VAR TELCOUNT = 602                // Messages start after a couple of turns
  33.  
  34. VAR ZTURNCOUNT AS TIMER = 600
  35.  
  36. // jwl 11.18.96 PDA save state information
  37. VAR PDAMODE = NOMODE
  38. VAR PDAPOSITION = DOWN
  39. VAR PDAINCREMENT = 11
  40.  
  41. SDEV BPDA_WLD AS PDA {
  42.     SET BKG=$SBARDIR\ZZAZZL\PDA\ZPDA.BMP;
  43.     SET ARE=DEACTIVE[90,70,500,185]{
  44.         RUN COMMAND = DEACTIVATEPDA;
  45.     };
  46.     SET BUT=$SBARDIR\ZZAZZL\PDA\ZMAP.BMP    [121,233]+1^100%1;
  47.     SET BUT=$SBARDIR\ZZAZZL\PDA\ZSTASH.BMP    [170,233]+1^101%1;
  48.     SET BUT=$SBARDIR\ZZAZZL\PDA\ZZOOM.BMP    [223,233]+1^102 %1
  49.     {
  50.         // DEMO: Removed ability to zoom the PDA.
  51.         SET TXT = $SBARDIR\GENERAL\NOTINCL.TXT COLOR 2 AS CAPTION;
  52.     };
  53.     SET BUT=$SBARDIR\ZZAZZL\PDA\ZSYSTEM.BMP    [271,233]+1^103%1;
  54.     SET BUT=$SBARDIR\ZZAZZL\PDA\ZLOG.BMP    [323,234]+1^104%1;
  55.     SET CHR=$SBARDIR\ZZAZZL\PDA\ZWAND.SMK^WANDANIM LOOP 0[1,32];
  56.     SET TIME=$SBARDIR\ZZAZZL\PDA\ZTIME.BMP[413,188]^CLOCK+11 VALUE ZTURNCOUNT;
  57. }
  58.  
  59. SDEV BWIELD_WLD AS WIELD {
  60.     SET BKG=$SBARDIR\ZZAZZL\WIELD\ZZYOU.BMP;
  61.     SET ARE = [1,1,99,99] {
  62.         SET TXT =Soldier_714-Z-367 COLOR 2 SIZE 16 AS TITLE; //%%135
  63.         SET BMP=$SBARDIR\GENERAL\MENUS\WAIT.BMP {
  64.             RUN SND = $SBARDIR\GENERAL\WAIT.WAV; 
  65.             RUN COMMAND = UPDATE;
  66.         };
  67.         SET BMP=$SBARDIR\GENERAL\MENUS\SNAPOUT.BMP {
  68.             RUN LNK=$SBARDIR\WLD\BAR.WLD~~BDP_WLD~~SOLDIER_WLD AS CLOSEUP;
  69.         };
  70.     };
  71.     // DEMO: Removed interaction with the snacks.
  72.     // DEMO: Removed interaction with the plunger.
  73.     // DEMO: Removed itneraction with the pike.
  74.     // DEMO: Removed interaction with the spear.
  75.     // DEMO: Removed interaction with the fish.
  76.     // DEMO: Removed interaction with the hairball.
  77.     // DEMO: Removed interaction with the vent access card.
  78.     // DEMO: Removed interaction with the outdoor access card.
  79. }
  80.  
  81. SDEV EVT_WLD AS EVENT{
  82.     IF (ZZATEL == TRUE)
  83.         // At the end of a turn
  84.         IF (TELCOUNT < ZTURNCOUNT)
  85.             IF (NUMMESSAGES == 0)
  86.                 RUN EXPR = NUMMESSAGES( RANDOM % 5 );        // n is 5 to start
  87.                 RUN EXPR = NUMMESSAGES( NUMMESSAGES + 1 );    // 1 to 5 is the range
  88.             ENDIF
  89.             IF ( TELEPATH == 1 )
  90.                 RUN EXPR = MESSAGE( RANDOM % 7 );
  91.                 // DEMO: Reduced number of zzazzl messages to 1 through 10.
  92.                 IF (MESSAGE == 0)
  93.                     RUN SND=$SBARDIR\ZZAZZL\EVENTS\ZZTEL2.WAV AS MIX;
  94.                     RUN EXPR = NUMMESSAGES( NUMMESSAGES - 1 );    // decrement msg 
  95.                 ENDIF
  96.                 IF (MESSAGE == 1)
  97.                     RUN SND=$SBARDIR\ZZAZZL\EVENTS\ZZTEL3.WAV AS MIX;
  98.                     RUN EXPR = NUMMESSAGES( NUMMESSAGES - 1 );    // decrement msg 
  99.                 ENDIF
  100.                 IF (MESSAGE == 2)
  101.                     RUN SND=$SBARDIR\ZZAZZL\EVENTS\ZZTEL4.WAV AS MIX;
  102.                     RUN EXPR = NUMMESSAGES( NUMMESSAGES - 1 );    // decrement msg 
  103.                 ENDIF
  104.                 IF (MESSAGE == 3)
  105.                     RUN SND=$SBARDIR\ZZAZZL\EVENTS\ZZTEL5.WAV AS MIX;
  106.                     RUN EXPR = NUMMESSAGES( NUMMESSAGES - 1 );    // decrement msg 
  107.                 ENDIF
  108.                 IF (MESSAGE == 4)
  109.                     RUN SND=$SBARDIR\ZZAZZL\EVENTS\ZZTEL7.WAV AS MIX;
  110.                     RUN EXPR = NUMMESSAGES( NUMMESSAGES - 1 );    // decrement msg 
  111.                 ENDIF
  112.                 IF (MESSAGE == 5)
  113.                     RUN SND=$SBARDIR\ZZAZZL\EVENTS\ZZTEL10.WAV AS MIX;
  114.                     RUN EXPR = NUMMESSAGES( NUMMESSAGES - 1 );    // decrement msg 
  115.                 ENDIF
  116.                 IF (MESSAGE == 6)
  117.                     RUN SND=$SBARDIR\ZZAZZL\EVENTS\ZZTEL23.WAV AS MIX;
  118.                     RUN EXPR = NUMMESSAGES( NUMMESSAGES - 1 );    // decrement msg 
  119.                 ENDIF
  120.                 IF (NUMMESSAGES == 0)
  121.                     RUN EXPR = TELCOUNT( ZTURNCOUNT + 1 );
  122.                     // About 50% of the time
  123.                     RUN EXPR = TELEPATH( RANDOM % 2);
  124.                 ENDIF
  125.             ENDIF
  126.         ENDIF
  127.     ENDIF
  128.     // DEMO: Removed egg in river support.
  129.     // DEMO: Removed check to see if shuttle bay is flooded.
  130.     // DEMO: Removed check to see if the pool room is flooded.
  131.     // DEMO: Removed check to see if hairball has made it to the downstream pool room
  132.     // DEMO: Removed egg on tracks support.
  133. }
  134.  
  135. SDEV MAP_WLD AS BMP RECT[116,108,248,218]{
  136.     SET BKG = $SBARDIR\ZZAZZL\MAP\ZMAP.BMP;
  137.     // Soldier Icon locations
  138.     IF (Z_CURLOC == ZAP)                            
  139.         SET SPR=$SBARDIR\ZZAZZL\MAP\YOU.BMP[214,97] FRAMERATE 4 +2 %0;
  140.     ENDIF
  141.     // Egg Icon locations
  142.     IF (EGGLOC == ZAP)                            
  143.         SET SPR=$SBARDIR\ZZAZZL\MAP\EGG.BMP[203,97] FRAMERATE 4 +2 %0;
  144.     ENDIF
  145.     IF (EGGLOC == ZEB)                            
  146.         SET SPR=$SBARDIR\ZZAZZL\MAP\EGG.BMP[92,78] FRAMERATE 4 +2 %0;
  147.     ENDIF
  148.     // THE WIRE
  149.     SET SPR=$SBARDIR\ZZAZZL\PDA\ZSCREEN.BMP[227,0]+1 %0;
  150. }
  151.  
  152. SDEV INV_WLD AS INVWLD RECT [117,110,349,219] {
  153.     SET BKG=$SBARDIR\ZZAZZL\INV\INVBACK.BMP;
  154.     // DEMO: Removed interactions with the snacks.
  155.     // DEMO: Removed interactions with the plunger.
  156.     // DEMO: Removed interactions with the pike.
  157.     // DEMO: Removed interactions with the spear.
  158.     // DEMO: Removed interactions with the fish.
  159.     // DEMO: Removed interactions with the hairball.
  160.     // DEMO: Removed interactions with the vent access card.
  161.     // DEMO: Removed interactions with the outdoor access card.
  162. }
  163.  
  164. SDEV LOG_WLD AS LOG RECT[116,108,248,218]{
  165.     SET BKG = $SBARDIR\ZZAZZL\INV\INVBACK.BMP;
  166.     SET TXT = $SBARDIR\ZZAZZL\LOG\ZZALOG.TXT[0,0,200,100] SIZE 12 COLOR 7 AS TITLE ; //%%1300
  167. }
  168. //
  169. //    Great Hall
  170. //
  171. SDEV ZAP_WLD FILTER 8 {
  172.     SET BKG=$SBARDIR\ZZAZZL\PAN\ZAP.BMP;
  173.     RUN EXPR = Z_CURLOC(ZAP);
  174.     RUN EXPR = ZZATEL( TRUE );                // don't start until chat done
  175.  
  176.     // DEMO: Convert the link to the link to the mess hall to be
  177.     //       a link to the txt3_wld and back to the soldier closeup.
  178.     SET ARE=[824,256,938,338]%5{
  179.         RUN LNK = TXT3_WLD;
  180.     };
  181.     // Link to Tapestry closeup
  182.     SET LNK = ZACA_WLD[1220,200,1365,290]^TAPESTRY %2;
  183.  
  184.     // DEMO: Removed the interaction with the liftcall.
  185.     SET ARE = [1855,265,2015,340]^THRONE %1 {
  186.         SET TXT= throne COLOR 2 SIZE 16 AS TITLE; //%%1547
  187.         SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  188.             RUN SND=$SBARDIR\ZZAZZL\AUDIO\ZANDEXC1.WAV AS QUEUE *3;
  189.         };
  190.         SET BMP=$SBARDIR\GENERAL\MENUS\SITON.BMP{
  191.             RUN SND=$SBARDIR\ZZAZZL\AUDIO\ZANDSIC1.WAV AS QUEUE *3;
  192.         };
  193.         // DEMO: Removed lookbehind interaction
  194.         // DEMO: Removed plunge interaction
  195.     };
  196.     // DEMO: Removed interaction with the pike in the doors.
  197.     // DEMO: Removed interaction with the doors wooshing shut.
  198.     IF (EGGLOC == ZAP)
  199.         SET CHR = $SBARDIR\ZZAZZL\PANIMS\ZAEG2.SMK[806,326]^EGG %1 LOOP 0{ 
  200.             SET TXT= egg COLOR 2 SIZE 16 AS TITLE; //%%1653
  201.             SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  202.                 RUN SND=$SBARDIR\ZZAZZL\AUDIO\ZANAEXC1.WAV AS QUEUE *3;
  203.             };
  204.             SET BMP=$SBARDIR\GENERAL\MENUS\BREAK.BMP{
  205.                 RUN SND=$SBARDIR\ZZAZZL\AUDIO\ZANABRC1.WAV AS QUEUE *3;
  206.             };
  207.             // DEMO: Removed the smell interaction
  208.             // DEMO: Removed the plunge interaction
  209.             SET BMP=$SBARDIR\GENERAL\MENUS\ROLL.BMP{
  210.                 SET TXT=Roll_the_egg_to... COLOR 4 SIZE 16 AS TITLE; //%%1669
  211.                 SET TXT=Mess_Hall COLOR 4 SIZE 16 %1 { //%%1670
  212.                     RUN SND=$SBARDIR\ZZAZZL\CHAR\EGG\ZBEA.WAV AS MIX;
  213.                     RUN EXPR = EGG~~MODAL( 1 );
  214.                     RUN EXPR = EGG~~LOOP( 1 );
  215.                     RUN EXPR = EGGROLL( ZZZ );
  216.                     // DEMO: Don't transfer the egg to mess hall world.
  217.                     // DEMO: Don't remove the hallway from the mess hall
  218.                     RUN EXPR = EGGLOC( ZEB );
  219.                 };
  220.                 IF (ZAP_WLD CONTAINS ZETA)
  221.                     SET TXT=the_lift_shaft COLOR 4 SIZE 16 %1 { //%%1680
  222.                         RUN SND=$SBARDIR\ZZAZZL\AUDIO\ZANAROC2.WAV AS QUEUE *3;
  223.                     };
  224.                 ENDIF
  225.             };
  226.             SET BMP=$SBARDIR\GENERAL\MENUS\PICKUP.BMP {
  227.                 RUN SND=$SBARDIR\ZZAZZL\AUDIO\ZANATAC1.WAV AS QUEUE *3;
  228.             };
  229.         };
  230.     ENDIF
  231. }
  232.  
  233. //
  234. // Tapestry closeup
  235. //              
  236. SDEV ZACA_WLD FILTER 8 AS CLOSEUP {
  237.     SET BKG = $SBARDIR\ZZAZZL\CLOSEUP\ZACA\ZACA.BMP;
  238.     SET ARE = [75,70,420,310]^TAPESTRY %1 {
  239.         SET TXT= tapestry COLOR 2 SIZE 16 AS TITLE; //%%1697
  240.         SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  241.             RUN SND=$SBARDIR\ZZAZZL\AUDIO\ZANEEXC1.WAV AS QUEUE *3;
  242.         };
  243.         // DEMO: Removed the lookbehind interaction
  244.         // DEMO: Removed the plunge interaction
  245.         // DEMO: Removed the pickup interaction
  246.     };
  247. }
  248.  
  249. SDEV TXT3_WLD AS CHAT {
  250.     SET BKG=$SBARDIR\GENERAL\TEXT3.BMP;
  251.     SET ARE=[0,0,639,479] %24 {
  252.         RUN LNK=$SBARDIR\WLD\BAR.WLD~~BDP_WLD~~SOLDIER_WLD AS CLOSEUP;
  253.     };
  254. }
  255.