home *** CD-ROM | disk | FTP | other *** search
/ The Space Bar - 1997 Spring / SPRING97.BIN / pc / spacebar / wld / saldemo.wld < prev    next >
Text File  |  1997-01-28  |  15KB  |  427 lines
  1. START_WLD = THUDCHAT_WLD
  2. DISKID=1
  3. DISKAUDIO=$SBARDIR\GENERAL\CHADIS1.WAV
  4.  
  5. //    ID     X  Y  FileName
  6. CURSOR 0  = 15 15 $SBARDIR\NEBLITZ\CURSORS\SALIV\NOT.BMP
  7. CURSOR 1  = 16  1 $SBARDIR\NEBLITZ\CURSORS\SALIV\SALIV.BMP
  8. CURSOR 2  =  9  9 $SBARDIR\NEBLITZ\CURSORS\SALIV\ZOOM.BMP
  9. CURSOR 5  = 16  1 $SBARDIR\NEBLITZ\CURSORS\SALIV\LINK.BMP
  10. CURSOR 6  = 15 15 $SBARDIR\NEBLITZ\CURSORS\SALIV\WAIT.BMP
  11. CURSOR 10 =  0  0 $SBARDIR\NEBLITZ\CURSORS\SALIV\EXIT.BMP
  12. CURSOR 14 =  0 14 $SBARDIR\NEBLITZ\CURSORS\SALIV\LEFT.BMP
  13. CURSOR 15 = 15  0 $SBARDIR\NEBLITZ\CURSORS\SALIV\UPARROW.BMP
  14. CURSOR 16 = 31 15 $SBARDIR\NEBLITZ\CURSORS\SALIV\RIGHT.BMP
  15. CURSOR 17 = 15 31 $SBARDIR\NEBLITZ\CURSORS\SALIV\DOWN.BMP
  16. CURSOR 19 = 15 15 $SBARDIR\NEBLITZ\CURSORS\SALIV\BNOT.BMP
  17. CURSOR 20 = 15 15 $SBARDIR\NEBLITZ\CURSORS\SALIV\BEXIT.BMP
  18. CURSOR 22 = 16  1 $SBARDIR\NEBLITZ\CURSORS\SALIV\HUMAN.BMP
  19. CURSOR 24 = 27  1 $SBARDIR\BAR\CURSORS\LINK.BMP
  20.  
  21. // Wield Cursors
  22. CURSOR 31 =  0  0 $SBARDIR\NEBLITZ\WIELD\nhta.bmp
  23. CURSOR 32 =  0  0 $SBARDIR\NEBLITZ\WIELD\nhtb.bmp
  24. CURSOR 33 =  0  0 $SBARDIR\NEBLITZ\WIELD\nhtc.bmp
  25. CURSOR 34 =  0  0 $SBARDIR\NEBLITZ\WIELD\nhtd.bmp
  26.  
  27. VAR BAZFIRE = FALSE
  28. VAR INIT=TRUE
  29. VAR CUPLOOK = FALSE
  30. VAR STURNCOUNT AS TIMER = 200
  31.  
  32. // jwl 11.18.96 PDA save state information
  33. VAR PDAMODE = NOMODE
  34. VAR PDAINCREMENT = 11
  35. VAR RADIOON = FALSE
  36. VAR PDAPOSITION = DOWN
  37.  
  38. SDEV BPDA_WLD AS PDA{
  39.     SET BKG = $SBARDIR\NEBLITZ\PDA\SALIV\OPDA.BMP;
  40.     SET ARE=DEACTIVE[0,0,514,238]{
  41.         RUN COMMAND = DEACTIVATEPDA;
  42.     };
  43.     SET BUT = $SBARDIR\NEBLITZ\PDA\SALIV\OMAP.BMP[116,187]+1^100;
  44.     SET BUT = $SBARDIR\NEBLITZ\PDA\SALIV\OSTASH.BMP[161,186]+1^101;
  45.     SET BUT = $SBARDIR\NEBLITZ\PDA\SALIV\OZOOM.BMP[208,186] +1^102{
  46.         // DEMO: zoom brings up not included message -- bar 01-23-97
  47.         SET TXT = $SBARDIR\GENERAL\NOTINCL.TXT COLOR 2 AS CAPTION;
  48.     };
  49.     SET BUT=$SBARDIR\NEBLITZ\PDA\SALIV\OSYSTEM.BMP[254,188]+1^103;
  50.     SET BUT = $SBARDIR\NEBLITZ\PDA\SALIV\OLOG.BMP[299,188]+1^104;
  51.     SET CHR=$SBARDIR\NEBLITZ\PDA\SALIV\OWAND.SMK^WANDANIM LOOP 0 [44,31];
  52.     SET TIME=$SBARDIR\NEBLITZ\PDA\SALIV\OTIME.BMP[410,140]^CLOCK+11 VALUE STURNCOUNT;
  53.     SET BMP = $SBARDIR\NEBLITZ\MAP\NHP.BMP[374,81];
  54. }
  55. SDEV MAP_WLD AS BMP RECT [114, 61, 346, 171]{
  56.     SET BKG = $SBARDIR\NEBLITZ\MAP\OMAP.BMP;
  57. }
  58. SDEV INV_WLD AS INVWLD RECT [114, 61, 346, 171]{
  59.     SET BKG = $SBARDIR\NEBLITZ\INV\INVBACK.BMP;
  60.     HOLD BMP = $SBARDIR\NEBLITZ\INV\NHTB.BMP^TOKEN{
  61.         SET TXT = little_metal_thing COLOR 2 SIZE 16 AS TITLE; //%%283
  62.         SET BMP = $SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  63.             RUN SND =  $SBARDIR\NEBLITZ\AUDIO\NHTBEXC1.wav  AS QUEUE;
  64.             RUN MOVIE = $SBARDIR\NEBLITZ\OBJ\NHTB.SMK AS EXAMINE;
  65.         };
  66.         SET BMP = $SBARDIR\GENERAL\MENUS\EAT.BMP{
  67.             RUN SND =  $SBARDIR\NEBLITZ\AUDIO\NHTAEAC1.wav  AS QUEUE;
  68.         };
  69.         SET BMP = $SBARDIR\GENERAL\MENUS\PICKUP.BMP{
  70.             RUN COMMAND = TRANSFER OBJECT TOKEN FROM INV_WLD TO BWIELD_WLD;
  71.         };
  72.     };
  73.     HOLD BMP = $SBARDIR\NEBLITZ\INV\NHTA.BMP^CUP{
  74.         SET TXT = cup COLOR 2 SIZE 16 AS TITLE; //%%296
  75.         SET BMP = $SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  76.             RUN SND =  $SBARDIR\NEBLITZ\AUDIO\NHTAEXC1.wav  AS QUEUE;
  77.             RUN MOVIE = $SBARDIR\NEBLITZ\OBJ\NHTA.SMK AS EXAMINE;
  78.         };
  79.         IF ( CUPLOOK == FALSE )
  80.             SET BMP = $SBARDIR\GENERAL\MENUS\LOOKIN.BMP{
  81.                 RUN LNK = NHP_WLD~~EXINCUP_WLD~~INCUP_WLD;
  82.             };
  83.         ENDIF
  84.         SET BMP = $SBARDIR\GENERAL\MENUS\EAT.BMP{
  85.             RUN SND =  $SBARDIR\NEBLITZ\AUDIO\NHTAEAC1.wav  AS QUEUE;
  86.         };
  87.         SET BMP = $SBARDIR\GENERAL\MENUS\PICKUP.BMP{
  88.             RUN COMMAND = TRANSFER OBJECT CUP FROM INV_WLD TO BWIELD_WLD;
  89.         };
  90.     };
  91.  
  92.     HOLD BMP = $SBARDIR\NEBLITZ\INV\NHTC.BMP^MACHINE{
  93.         SET TXT = blinking_machine COLOR 2 SIZE 16 AS TITLE; //%%319
  94.         SET BMP = $SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  95.             RUN SND =  $SBARDIR\NEBLITZ\AUDIO\NHTCEXC1.wav  AS QUEUE;
  96.             RUN MOVIE = $SBARDIR\NEBLITZ\OBJ\NHTC.SMK AS EXAMINE;
  97.         };
  98.         SET BMP = $SBARDIR\GENERAL\MENUS\EAT.BMP{
  99.             RUN SND =  $SBARDIR\NEBLITZ\AUDIO\NHTCEAC1.wav  AS QUEUE;
  100.         };
  101.         IF ( RADIOON == FALSE )
  102.             SET BMP = $SBARDIR\GENERAL\MENUS\ON.BMP{
  103.                 RUN EXPR = RADIOON ( TRUE );
  104.             };
  105.         ENDIF
  106.         IF ( RADIOON == TRUE )
  107.             SET BMP = $SBARDIR\GENERAL\MENUS\OFF.BMP{
  108.                 RUN EXPR = RADIOON ( FALSE );
  109.             };
  110.         ENDIF
  111.         SET BMP = $SBARDIR\GENERAL\MENUS\PICKUP.BMP{
  112.             RUN COMMAND = TRANSFER OBJECT MACHINE FROM INV_WLD TO BWIELD_WLD;
  113.         };
  114.     };
  115.  
  116.     HOLD BMP = $SBARDIR\NEBLITZ\INV\NHTD.BMP^BAZOOKA{
  117.         SET TXT = bazooka COLOR 2 SIZE 16 AS TITLE; //%%347
  118.         SET BMP = $SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  119.             RUN SND =  $SBARDIR\NEBLITZ\AUDIO\NHTDEXC1.wav  AS QUEUE;
  120.             RUN MOVIE = $SBARDIR\NEBLITZ\OBJ\NHTD.SMK AS EXAMINE;
  121.         };
  122.         SET BMP = $SBARDIR\GENERAL\MENUS\EAT.BMP{
  123.             RUN SND =  $SBARDIR\NEBLITZ\AUDIO\NHTAEAC1.wav  AS QUEUE;
  124.         };
  125.         SET BMP = $SBARDIR\GENERAL\MENUS\PICKUP.BMP    {
  126.             RUN COMMAND = TRANSFER OBJECT BAZOOKA FROM INV_WLD TO BWIELD_WLD;
  127.         };
  128.     };
  129. }
  130. SDEV LOG_WLD AS LOG RECT[115,61,350,171]{
  131.     SET BKG = $SBARDIR\NEBLITZ\LOG\SALLOG.BMP;
  132. }
  133. SDEV BWIELD_WLD AS WIELD{
  134.     BKG=$SBARDIR\NEBLITZ\WIELD\SALME.BMP;
  135.     SET ARE = YOU[0,0,100,100]{
  136.         SET TXT = Thud COLOR 2 SIZE 16 AS TITLE; //%%173
  137.         SET BMP=$SBARDIR\GENERAL\MENUS\WAIT.BMP{
  138.             RUN SND = $SBARDIR\GENERAL\WAIT.WAV; 
  139.             RUN COMMAND = UPDATE;
  140.         };
  141.         SET BMP = $SBARDIR\GENERAL\MENUS\SNAPOUT.BMP{
  142.             RUN LNK = $SBARDIR\WLD\BAR.WLD~~BDP_WLD~~FLEETHUD_WLD FADE 3;
  143.         };
  144.     };
  145.     HOLD BMP = $SBARDIR\NEBLITZ\WIELD\NHTB.BMP^TOKEN#32{
  146.         SET TXT = little_metal_thing COLOR 2 SIZE 16 AS TITLE; //%%185
  147.         SET BMP = $SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  148.             RUN SND =  $SBARDIR\NEBLITZ\AUDIO\NHTBEXC1.wav  AS QUEUE;
  149.             RUN MOVIE = $SBARDIR\NEBLITZ\OBJ\NHTB.SMK AS EXAMINE;
  150.         };
  151.         SET BMP = $SBARDIR\GENERAL\MENUS\EAT.BMP{
  152.             RUN SND =  $SBARDIR\NEBLITZ\AUDIO\NHTAEAC1.wav  AS QUEUE;
  153.         };
  154.         SET BMP = $SBARDIR\GENERAL\MENUS\STASH.BMP{
  155.             RUN COMMAND = TRANSFER OBJECT TOKEN FROM BWIELD_WLD TO INV_WLD;
  156.         };
  157.     };
  158.     HOLD BMP = $SBARDIR\NEBLITZ\WIELD\NHTA.BMP^CUP #31{
  159.         SET TXT = cup COLOR 2 SIZE 16 AS TITLE; //%%198
  160.         SET BMP = $SBARDIR\GENERAL\MENUS\EXAMINE.BMP {
  161.             RUN SND =  $SBARDIR\NEBLITZ\AUDIO\NHTAEXC1.wav  AS QUEUE;
  162.             RUN MOVIE = $SBARDIR\NEBLITZ\OBJ\NHTA.SMK AS EXAMINE;
  163.         };
  164.         IF ( CUPLOOK == FALSE )
  165.             SET BMP = $SBARDIR\GENERAL\MENUS\LOOKIN.BMP{
  166.                 RUN LNK = NHP_WLD~~EXINCUP_WLD~~INCUP_WLD;
  167.             };
  168.         ENDIF
  169.         SET BMP = $SBARDIR\GENERAL\MENUS\EAT.BMP{
  170.             RUN SND =  $SBARDIR\NEBLITZ\AUDIO\NHTAEAC1.wav  AS QUEUE;
  171.         };
  172.         SET BMP = $SBARDIR\GENERAL\MENUS\THROW.BMP{
  173.             RUN SND =  $SBARDIR\NEBLITZ\AUDIO\NHTATWC1.wav  AS QUEUE;
  174.         };
  175.         SET BMP = $SBARDIR\GENERAL\MENUS\STASH.BMP{
  176.             RUN COMMAND = TRANSFER OBJECT CUP FROM BWIELD_WLD TO INV_WLD;
  177.         };
  178.     };
  179.  
  180.     HOLD BMP = $SBARDIR\NEBLITZ\WIELD\NHTD.BMP^BAZOOKA #34 {
  181.         SET TXT = bazooka COLOR 2 SIZE 16 AS TITLE; //%%253
  182.         SET BMP = $SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  183.             RUN SND =  $SBARDIR\NEBLITZ\AUDIO\NHTDEXC1.wav  AS QUEUE;
  184.             RUN MOVIE = $SBARDIR\NEBLITZ\OBJ\NHTD.SMK AS EXAMINE;
  185.         };
  186.         SET BMP = $SBARDIR\GENERAL\MENUS\EAT.BMP {
  187.             RUN SND =  $SBARDIR\NEBLITZ\AUDIO\NHTAEAC1.wav  AS QUEUE;
  188.         };
  189.         SET BMP = $SBARDIR\GENERAL\MENUS\STASH.BMP{
  190.             RUN COMMAND = TRANSFER OBJECT BAZOOKA FROM BWIELD_WLD TO INV_WLD;
  191.         };
  192.     };
  193.     // DEMO: Removed interactions with blinking_machine.
  194. }
  195.  
  196. // Thud Chat
  197. SDEV THUDCHAT_WLD AS CHAT{
  198.     SET BKG = $SBARDIR\NEBLITZ\CHAR\THUD\CHBLACK.BMP;
  199.     // DEMO: Pull Thud's neutral loop from the bar asset area.
  200.     SET CHR = $SBARDIR\BAR\CHAR\THUD\TBNEUTR1.SMK^THUDMOVIE [80,10];
  201.  
  202.     SET ARE = [0,0,639,479]%19;
  203.  
  204.         SET AREA=[0,0,80,370]%20{
  205.         RUN EXPR = FINISHCHOICE( RANDOM % 5 );
  206.         IF (FINISHCHOICE == 0)
  207.             RUN SND = $SBARDIR\BAR\CHAR\FINISH\FINISH1.WAV AS WAITMIX;
  208.         ENDIF
  209.         IF (FINISHCHOICE == 1)
  210.             RUN SND = $SBARDIR\BAR\CHAR\FINISH\FINISH2.WAV AS WAITMIX;
  211.         ENDIF
  212.         IF (FINISHCHOICE == 2)
  213.             RUN SND = $SBARDIR\BAR\CHAR\FINISH\FINISH3.WAV AS WAITMIX;
  214.         ENDIF
  215.         IF (FINISHCHOICE == 3)
  216.             RUN SND = $SBARDIR\BAR\CHAR\FINISH\FINISH4.WAV AS WAITMIX;
  217.         ENDIF
  218.         IF (FINISHCHOICE == 4)
  219.             RUN SND = $SBARDIR\BAR\CHAR\FINISH\FINISH5.WAV AS WAITMIX;
  220.         ENDIF
  221.         RUN EXPR = LEVEL( 0 );
  222.         RUN LNK = $SBARDIR\WLD\BAR.WLD~~BDP_WLD~~FLEETHUD_WLD FADE 3;
  223.     };
  224.  
  225.     IF (OPENERDONE == FALSE)
  226.         //    Play opening sequence depending on flashback history
  227.         IF (SFLASHBACK == 0)
  228.             RUN MOVIE = $SBARDIR\NEBLITZ\CHAR\THUD\TBCHOP.SMK;
  229.             RUN EXPR = THUDMOVIE~~MODAL( 0 );
  230.             RUN EXPR = THUDMOVIE~~LOOP( -1 );
  231.             RUN EXPR = LEVEL( 1 );
  232.  
  233.             RUN COMMAND = INSERT OBJECT CH1L1A TO THUDCHAT_WLD;
  234.             RUN COMMAND = INSERT OBJECT CH1L1B TO THUDCHAT_WLD;
  235.             RUN COMMAND = INSERT OBJECT CH1L1C TO THUDCHAT_WLD;
  236.             RUN COMMAND = INSERT OBJECT CH1L1D TO THUDCHAT_WLD;
  237.             RUN EXPR = OPENERDONE( TRUE );
  238.         ENDIF
  239.     ELSE
  240.         IF ( LEVEL == 1 )
  241.             SET TXT = Commiserate[80,370,280,385] COLOR 7 %22 ^CH1L1A AS TITLE { //%%427
  242.                 RUN COMMAND = REMOVE OBJECT CH1L1A FROM THUDCHAT_WLD;
  243.                 RUN EXPR = THUDMOVIE~~MODAL( 1 );
  244.                 RUN EXPR = THUDMOVIE~~LOOP( 1 );
  245.                 RUN MOVIE = $SBARDIR\NEBLITZ\CHAR\THUD\TBCH1L1A.SMK;
  246.                 RUN EXPR = THUDMOVIE~~MODAL( 0 );
  247.                 RUN EXPR = THUDMOVIE~~LOOP( -1 );
  248.             };
  249.             SET TXT = Probe [80,390,400,405] COLOR 7 %22 ^CH1L1B AS TITLE { //%%435
  250.                 RUN COMMAND = REMOVE OBJECT CH1L1B FROM THUDCHAT_WLD;
  251.                 RUN EXPR = THUDMOVIE~~MODAL( 1 );
  252.                 RUN EXPR = THUDMOVIE~~LOOP( 1 );
  253.                 RUN MOVIE = $SBARDIR\NEBLITZ\CHAR\THUD\TBCH1L1B.SMK;
  254.                 RUN EXPR = THUDMOVIE~~MODAL( 0 );
  255.                 RUN EXPR = THUDMOVIE~~LOOP( -1 );
  256.  
  257.                 RUN EXPR = CHOICE( 3 );
  258. //                RUN COMMAND = INSERT OBJECT CH1L2A TO THUDCHAT_WLD;
  259. //                RUN COMMAND = INSERT OBJECT CH1L2B TO THUDCHAT_WLD;
  260. //                RUN COMMAND = INSERT OBJECT CH1L2C TO THUDCHAT_WLD;
  261. //                RUN COMMAND = INSERT OBJECT CH1L2D TO THUDCHAT_WLD;
  262.                 RUN EXPR = LEVEL( 2 );
  263.                 RUN COMMAND = REMOVE OBJECT CH1L1A FROM THUDCHAT_WLD;
  264.                 RUN COMMAND = PAINT;
  265.                 RUN COMMAND = STOPPAINT;
  266.                 RUN MOVIE = $SBARDIR\NEBLITZ\EVENTS\EVFLASH2.SMK[0,0];
  267.                 RUN LNK=NHP_WLD@[489,149];
  268.             };
  269.             // DEMO: Removed change the subject interaction.
  270.             // DEMO: Removed the finish interaction.
  271.         ENDIF
  272.     ENDIF
  273. }
  274. //
  275. //    Your Dwelling
  276. //
  277. SDEV NHP_WLD{
  278.     SET BKG = $SBARDIR\NEBLITZ\PAN\NHP.BMP;
  279.  
  280.     IF(INIT==TRUE)
  281.         RUN SND =  $SBARDIR\NEBLITZ\AUDIO\THGENHT1.wav  AS QUEUE;
  282.         RUN EXPR=INIT(FALSE);
  283.     ENDIF
  284.  
  285.     
  286.     HOLD CHR = $SBARDIR\NEBLITZ\PANIMS\NHNC2.SMK;
  287.  
  288.     // DEMO: Removed interactions with doll.
  289.     // DEMO: Removed interactions with wagon.
  290.     // DEMO: Removed interactions with toy rocket.
  291.     // DEMO: Removed interactions with lamp.
  292.     // DEMO: Removed interactions with bed.
  293.     // DEMO: Removed interactions with round_things.
  294.     // DEMO: Removed interactions with dresser.
  295.     // DEMO: Removed interactions with curtains.
  296.     // DEMO: Removed interactions with wallpaper.
  297.     
  298.     SET ARE = DOOR[555,205,660,360]%1{
  299.         SET TXT = door COLOR 2 SIZE 16 AS TITLE; //%%775
  300.         // DEMO: Removed examine interaction.
  301.         // DEMO: Removed knock interaction.
  302.         SET BMP=$SBARDIR\GENERAL\MENUS\EXIT.BMP{
  303.             RUN COMMAND = REMOVEWIELD;
  304.             RUN LNK = TXT_WLD;
  305.         };
  306.     };
  307.  
  308.     // DEMO: Removed interactions with fleebix.
  309.     SET BMP = $SBARDIR\NEBLITZ\OBJ\NHTA.BMP^CUP[336,384]{
  310.         SET TXT = cup COLOR 2 SIZE 16 AS TITLE; //%%816
  311.         SET BMP = $SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  312.             RUN SND =  $SBARDIR\NEBLITZ\AUDIO\NHTAEXC1.wav  AS QUEUE;
  313.             RUN MOVIE = $SBARDIR\NEBLITZ\OBJ\NHTA.SMK AS EXAMINE;
  314.         };
  315.         IF ( CUPLOOK == FALSE )
  316.             SET BMP = $SBARDIR\GENERAL\MENUS\LOOKIN.BMP{
  317.                 RUN LNK = NHP_WLD~~EXINCUP_WLD~~INCUP_WLD;
  318.             };
  319.         ENDIF
  320.         SET BMP = $SBARDIR\GENERAL\MENUS\EAT.BMP{
  321.             RUN SND =  $SBARDIR\NEBLITZ\AUDIO\NHTAEAC1.wav  AS QUEUE;
  322.         };
  323.         SET BMP = $SBARDIR\GENERAL\MENUS\PICKUP.BMP{
  324.             RUN COMMAND = TRANSFER OBJECT CUP FROM NHP_WLD TO BWIELD_WLD;
  325.         };
  326.         SET BMP = $SBARDIR\GENERAL\MENUS\STASH.BMP{
  327.             RUN COMMAND = TRANSFER OBJECT CUP FROM NHP_WLD TO INV_WLD;
  328.         };
  329.     };
  330.  
  331.     SET CHR = $SBARDIR\NEBLITZ\PANIMS\NHNC1.SMK^MACHINE%1{
  332.         SET TXT = blinking_machine COLOR 2 SIZE 16 AS TITLE; //%%838
  333.         SET BMP = $SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  334.             RUN SND =  $SBARDIR\NEBLITZ\AUDIO\NHTCEXC1.wav  AS QUEUE;
  335.             RUN MOVIE = $SBARDIR\NEBLITZ\OBJ\NHTC.SMK AS EXAMINE;
  336.         };
  337.         SET BMP = $SBARDIR\GENERAL\MENUS\EAT.BMP{
  338.             RUN SND =  $SBARDIR\NEBLITZ\AUDIO\NHTCEAC1.wav  AS QUEUE;
  339.         };
  340.         IF ( RADIOON == FALSE )
  341.             SET BMP = $SBARDIR\GENERAL\MENUS\ON.BMP{
  342.                 RUN EXPR = RADIOON ( TRUE );
  343.             };
  344.         ENDIF
  345.         IF ( RADIOON == TRUE )
  346.             SET BMP = $SBARDIR\GENERAL\MENUS\OFF.BMP{
  347.                 RUN EXPR = RADIOON ( FALSE );
  348.             };
  349.         ENDIF
  350.         // DEMO: Removed pickup interaction.
  351.         // DEMO: Removed stash interaction.
  352.     };
  353.  
  354.     HOLD CHR = $SBARDIR\NEBLITZ\PANIMS\NHNC2.SMK^HOLE;
  355.  
  356.     SET BMP = $SBARDIR\NEBLITZ\OBJ\NHTD.BMP^BAZOOKA[1529,348]{
  357.         SET TXT = bazooka COLOR 2 SIZE 16 AS TITLE; //%%867
  358.         SET BMP = $SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  359.             RUN SND =  $SBARDIR\NEBLITZ\AUDIO\NHTDEXC1.wav  AS QUEUE;
  360.             RUN MOVIE = $SBARDIR\NEBLITZ\OBJ\NHTD.SMK AS EXAMINE;
  361.         };
  362.         SET BMP = $SBARDIR\GENERAL\MENUS\EAT.BMP{
  363.             RUN SND =  $SBARDIR\NEBLITZ\AUDIO\NHTAEAC1.wav  AS QUEUE;
  364.         };
  365.         SET BMP = $SBARDIR\GENERAL\MENUS\PICKUP.BMP{
  366.             RUN COMMAND = TRANSFER OBJECT BAZOOKA FROM NHP_WLD TO BWIELD_WLD;
  367.         };
  368.         SET BMP = $SBARDIR\GENERAL\MENUS\STASH.BMP {
  369.             RUN COMMAND = TRANSFER OBJECT BAZOOKA FROM NHP_WLD TO INV_WLD;
  370.         };
  371.     };
  372. }
  373.  
  374. SDEV EVT_WLD AS EVENT{
  375.     IF ( RADIOON == FALSE )
  376.         RUN EXPR = RAD~~PLAYING ( 0 );
  377.     ENDIF
  378.     IF ( RADIOON == TRUE )
  379.         IF ( RAD~~PLAYING == 0 )
  380.             RUN SND = $SBARDIR\NEBLITZ\AUDIO\SALVRAD1.WAV^RAD LOOP 30000 AS MIX;
  381.         ENDIF
  382.     ENDIF
  383. }
  384.  
  385. SDEV EXINCUP_WLD AS CLOSEUP{
  386.     SET BKG = $SBARDIR\NEBLITZ\CLOSEUP\NHCA\NHCA.BMP;
  387.     RUN EXPR = CUPLOOK ( TRUE );
  388.     IF ( BWIELD_WLD CONTAINS CUP )
  389.         RUN COMMAND = TRANSFER OBJECT CUP FROM BWIELD_WLD TO INV_WLD;
  390.     ENDIF
  391.     IF ( BWIELD_WLD CONTAINS BAZOOKA )
  392.         RUN COMMAND = TRANSFER OBJECT BAZOOKA FROM BWIELD_WLD TO INV_WLD;
  393.     ENDIF
  394.     IF ( BWIELD_WLD CONTAINS MACHINE )
  395.         RUN COMMAND = TRANSFER OBJECT MACHINE FROM BWIELD_WLD TO INV_WLD;
  396.     ENDIF
  397.     RUN COMMAND = INSERT OBJECT TOKEN TO BWIELD_WLD;
  398.     RUN EXPR = SAWTOKEN(TRUE);
  399.     RUN LNK = NHP_WLD;
  400. }
  401.  
  402. SDEV INCUP_WLD AS CLOSEUP{
  403.     SET BKG = $SBARDIR\NEBLITZ\CLOSEUP\NHCA\NHCA.BMP;
  404.     RUN EXPR = CUPLOOK ( TRUE );
  405.     IF (BWIELD_WLD CONTAINS CUP)
  406.         RUN COMMAND = TRANSFER OBJECT CUP FROM BWIELD_WLD TO INV_WLD;
  407.     ENDIF
  408.     IF (BWIELD_WLD CONTAINS BAZOOKA)
  409.         RUN COMMAND = TRANSFER OBJECT BAZOOKA FROM BWIELD_WLD TO INV_WLD;
  410.     ENDIF
  411.     IF (BWIELD_WLD CONTAINS MACHINE)
  412.         RUN COMMAND = TRANSFER OBJECT MACHINE FROM BWIELD_WLD TO INV_WLD;
  413.     ENDIF
  414. //    SET ARE = [0,0,479,359]%1{
  415. //        RUN COMMAND = INSERT OBJECT TOKEN TO BWIELD_WLD;
  416. //        RUN EXPR = SAWTOKEN(TRUE);
  417. //        RUN LNK = NHP_WLD;
  418. //    };
  419. }
  420.  
  421. SDEV TXT_WLD AS CHAT {
  422.     SET BKG=$SBARDIR\GENERAL\TEXT3.BMP;
  423.     SET ARE = [0,0,640,480] %24 {
  424.         RUN LNK=$SBARDIR\WLD\BAR.WLD~~BDP_WLD~~FLEETHUD_WLD AS CLOSEUP;
  425.     };
  426. }
  427.