home *** CD-ROM | disk | FTP | other *** search
/ CD Review 67 / cdreview-67-1997.iso / player / large / wld / vildemo.wld < prev    next >
Text File  |  1997-01-28  |  13KB  |  403 lines
  1. // Vildroid flashback demo.
  2. START_WLD=DAP_WLD
  3. DISKID=1
  4. DISKAUDIO=$SBARDIR\GENERAL\CHADIS1.WAV
  5.  
  6. //    ID     X  Y  FileName
  7. CURSOR 0  = 15 15 $SBARDIR\VILDROID\CURSORS\NOT.BMP
  8. CURSOR 1  = 30  1 $SBARDIR\VILDROID\CURSORS\VILDROID.BMP
  9. CURSOR 2  =  9  9 $SBARDIR\VILDROID\CURSORS\ZOOM.BMP
  10. CURSOR 5  = 27  1 $SBARDIR\VILDROID\CURSORS\LINK.BMP
  11. CURSOR 6  = 15 15 $SBARDIR\VILDROID\CURSORS\WAIT.BMP
  12. CURSOR 10 =  0  0 $SBARDIR\VILDROID\CURSORS\EXIT.BMP
  13. CURSOR 14 =  0 14 $SBARDIR\VILDROID\CURSORS\LEFT.BMP
  14. CURSOR 15 = 15  0 $SBARDIR\VILDROID\CURSORS\UPARROW.BMP
  15. CURSOR 16 = 31 15 $SBARDIR\VILDROID\CURSORS\RIGHT.BMP
  16. CURSOR 17 = 15 31 $SBARDIR\VILDROID\CURSORS\DOWN.BMP
  17. CURSOR 19 = 15 15 $SBARDIR\VILDROID\CURSORS\BNOT.BMP
  18. CURSOR 20 = 15 15 $SBARDIR\VILDROID\CURSORS\BEXIT.BMP
  19. CURSOR 22 = 27  1 $SBARDIR\VILDROID\CURSORS\HUMAN.BMP
  20. CURSOR 24 = 27  1 $SBARDIR\BAR\CURSORS\LINK.BMP
  21.  
  22. // Wield Cursors
  23. CURSOR 23 =  2 19 $SBARDIR\VILDROID\WIELD\datd.bmp
  24. CURSOR 25 =  2 19 $SBARDIR\VILDROID\WIELD\ddtc.bmp
  25. CURSOR 37 =  3 20 $SBARDIR\VILDROID\WIELD\dhta.bmp
  26.  
  27. VAR TEMPBOOL = FALSE
  28. VAR TEMPBOOL2 = FALSE
  29. VAR TEMPVAR = 0
  30. // heads up display data
  31. VAR PRECIPITATION = 1
  32. VAR PRECDECIMAL = 846
  33. VAR PRECIPINIT = FALSE
  34. VAR DUST = 3
  35. VAR DUSTDECIMAL = 419
  36. VAR HUDON = 1
  37.  
  38. VAR CLOSEUPLOC = NONE        // GREEN, BLUE, and BLACK
  39.  
  40. VAR FIRSTDBP = TRUE
  41. VAR BENTER AS TIMER = 0
  42. VAR ENTERMOVIE = FALSE
  43. VAR PICTGREETDONE = FALSE
  44. VAR COMMENTGREETDONE = FALSE
  45. VAR SEENBWPHOTO = FALSE
  46. VAR SEENDISPLAY = FALSE
  47.  
  48. VAR    INCHAIR = FALSE
  49. VAR BLUEFOUND = FALSE
  50. VAR PLAYDROIDFOUND = FALSE 
  51. VAR HAIRGREETDONE = FALSE
  52. VAR HTLEVEL = 0
  53. // DEMO: Turn grafitti off.
  54. VAR DGRAFITTI = 0
  55.  
  56. VAR HADMANICURE = FALSE
  57. VAR HADLATHER = FALSE
  58.  
  59. VAR FIRSTDEP = TRUE
  60. VAR DCHIPID=0
  61. VAR DVOICEID=0
  62. VAR DRADIO=0
  63. VAR    DFIRSTLOOK = TRUE
  64. // for referee interaction
  65. VAR REFSTEP = 0                // How many steps have been completed
  66. VAR    ARGUEDONE = FALSE        // if argue phase is completed
  67. VAR FIRSTARGUE = FALSE        // if one argue in a row was selected
  68. VAR    CURSEDONE = FALSE
  69. VAR FIRSTCURSE = FALSE
  70. VAR    KICKDONE = FALSE
  71. VAR FIRSTKICK = FALSE
  72. VAR    BUMPDONE = FALSE
  73. VAR FIRSTBUMP = FALSE
  74. VAR    HITDONE = FALSE
  75. VAR FIRSTHIT = FALSE
  76. VAR    HITWITHDONE = FALSE
  77. VAR FIRSTHITWITH = FALSE
  78. VAR MATCHLOST = FALSE
  79.  
  80. VAR DGOTCHIP = FALSE
  81. VAR DWEARINGITEM = 0        // number of items he's wearing - for remove option
  82. VAR    DWEARINGGOGGLES = FALSE
  83. VAR    DWEARINGPLATE =  FALSE
  84. VAR    DWEARINGSTRIPS =  FALSE
  85. VAR    DWEARINGPADS =  FALSE
  86. VAR    DWEARINGSHORTS = FALSE
  87. VAR DWEARINGDONUT = FALSE
  88. VAR    DWEARINGBOOTS = FALSE
  89. VAR DHAVETUBA = FALSE
  90. VAR DHAVECLUB = FALSE
  91. VAR COACHCOUNT AS TIMER = 0
  92. VAR COACHTRIGGER = 30        // Starts as 30; changes to 10 after chip exam or coach
  93. VAR COACHMOVIE = FALSE        // if the coach movie has played once
  94. VAR DRULESREAD=FALSE
  95. VAR DEPCOUNTER AS TIMER = 0
  96. VAR DPINNUM = 1
  97. VAR VEEBLEMATCH = FALSE        // if we are in a place to hear the PA & radio
  98.  
  99. // DHP vars
  100. VAR PRESGREETDONE = FALSE
  101. VAR FIRSTDHP = TRUE
  102. VAR INITIATESHOW AS TIMER = 0
  103. VAR CHATWITHPRES = FALSE
  104. VAR BLACKCHIPIN = FALSE
  105. VAR STAGECOUNT AS TIMER = 0
  106. VAR PRESLEVEL = 0
  107. VAR RUNINTRO = 0
  108. VAR RUNADS = FALSE
  109. VAR ADCOUNTER = 1
  110.  
  111.  
  112. VAR DTURNCOUNT AS TIMER= 2400
  113. VAR PRECIPCOUNT = 1
  114. VAR CURLOC = DAP
  115. VAR LASTLOC = BET
  116.  
  117. // jwl 11.18.96 PDA save state information
  118. VAR PDAMODE = NOMODE
  119. VAR PDAPOSITION = DOWN
  120.  
  121. SDEV BPDA_WLD AS PDA{
  122.     SET BKG = $SBARDIR\VILDROID\PDA\DPDA.BMP;
  123.     SET CHR = $SBARDIR\VILDROID\PDA\DWAND.SMK^WANDANIM LOOP 0 [12,12];
  124.     SET ARE=DEACTIVE[130,50,530,210]{
  125.         RUN COMMAND = DEACTIVATEPDA;
  126.     };
  127.     SET BUT = $SBARDIR\VILDROID\PDA\DMAP.BMP[158,204] +1^100;
  128.     SET BUT = $SBARDIR\VILDROID\PDA\DSTASH.BMP[196,203] +1^101;
  129.     SET BUT = $SBARDIR\VILDROID\PDA\DZOOM.BMP[234,203] +2^102{
  130.         // DEMO: zoom brings up not included message -- bar 01-23-97
  131.         SET TXT = $SBARDIR\GENERAL\NOTINCL.TXT COLOR 2 AS CAPTION;
  132.     };
  133.     SET BUT = $SBARDIR\VILDROID\PDA\DSYSTEM.BMP[270,204]+1^103;
  134.     SET BUT = $SBARDIR\VILDROID\PDA\DLOG.BMP[308,204]+1^104;
  135.     SET TIME=$SBARDIR\VILDROID\PDA\DTIME.BMP[445,175]^CLOCK+11 VALUE DTURNCOUNT;
  136. }
  137.  
  138. SDEV BWIELD_WLD AS WIELD{
  139.     SET BKG=$SBARDIR\VILDROID\WIELD\VILYOU.BMP;
  140.  
  141.     SET ARE=YOU[0,0,100,100]{
  142.         SET TXT= Dirtkicker COLOR 2 SIZE 16 AS TITLE; //%%164
  143.         IF (BWIELD_WLD CONTAINS GREENCHIP)
  144.             SET BMP = $SBARDIR\GENERAL\MENUS\PUTIN.BMP{
  145.                 RUN COMMAND = REMOVEWIELD;
  146.                 RUN SND=$SBARDIR\VILDROID\AUDIO\OBJECTS\DDTCPIC1.WAV AS SYNC;
  147.                 RUN EXPR = DCHIPID( 1 );
  148.             };
  149.         ENDIF
  150.         SET BMP=$SBARDIR\GENERAL\MENUS\WAIT.BMP{
  151.             RUN SND = $SBARDIR\GENERAL\WAIT.WAV; 
  152.             RUN COMMAND = UPDATE;
  153.         };
  154.         SET BMP = $SBARDIR\GENERAL\MENUS\SNAPOUT.BMP{
  155.             RUN LNK = $SBARDIR\WLD\BAR.WLD~~BGP_WLD~~BETTAKER_WLD FADE 3;
  156.         };
  157.     };
  158.     HOLD BMP = $SBARDIR\VILDROID\INV\DATD.BMP^GREENCHIP #23{
  159.         SET TXT= green_chip COLOR 2 SIZE 16 AS TITLE; //%%331
  160.         SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  161.             RUN COMMAND = FLUSHQUEUE3;
  162.             RUN SND=$SBARDIR\VILDROID\AUDIO\OBJECTS\DATDEXC1.WAV AS QUEUE;
  163.             RUN MOVIE = $SBARDIR\VILDROID\OBJ\DATD.SMK AS EXAMINE;
  164.         };
  165.         IF NOT (CLOSEUPLOC == GREEN)
  166.             SET BMP = $SBARDIR\GENERAL\MENUS\READ.BMP{
  167.                 RUN COMMAND = REMOVEWIELD;
  168.                 IF (CURLOC == DAP)
  169.                     RUN LNK = DAP_WLD~~GREENWIELD_WLD~~GREENCHIP_WLD;
  170.                 ENDIF
  171.                 // DEMO: Can't get to DBP_WLD.
  172.                 // DEMO: Can't get to DDP_WLD.
  173.                 // DEMO: Can't get to DEP_WLD.
  174.                 // DEMO: Can't get to DFP_WLD.
  175.                 // DEMO: Can't get to DHP_WLD.
  176.             };
  177.         ENDIF
  178.         SET BMP=$SBARDIR\GENERAL\MENUS\STASH.BMP{
  179.             RUN COMMAND = TRANSFER OBJECT GREENCHIP FROM BWIELD_WLD TO INV_WLD;
  180.         };
  181.     };
  182.  
  183. }
  184.                               
  185. SDEV MAP_WLD AS BMP RECT[155,90,390,200]{
  186.     SET BKG = $SBARDIR\VILDROID\MAP\DMAP.BMP;
  187.     IF (CURLOC == DAP)
  188.         SET SPR = $SBARDIR\VILDROID\MAP\YOU.BMP[117,53]+2 FRAMERATE 4 %0;
  189.     ENDIF
  190.     IF (CURLOC == DBP)
  191.         SET SPR = $SBARDIR\VILDROID\MAP\YOU.BMP[137,98]+2 FRAMERATE 4 %0;
  192.     ENDIF
  193.     IF (CURLOC == DDP)
  194.         SET SPR = $SBARDIR\VILDROID\MAP\YOU.BMP[53,39]+2 FRAMERATE 4 %0;
  195.     ENDIF
  196. }
  197. SDEV LOG_WLD AS LOG RECT[155,90,390,200]{
  198.     SET BKG=$SBARDIR\VILDROID\LOG\VILLOG.BMP;
  199. }
  200.  
  201. SDEV INV_WLD AS INVWLD RECT[155,90,390,200]{
  202.     SET BKG = $SBARDIR\VILDROID\INV\INVBACK.BMP;
  203.     HOLD BMP = $SBARDIR\VILDROID\INV\DATD.BMP^GREENCHIP %1{
  204.         SET TXT = green_chip COLOR 2 SIZE 16 AS TITLE; //%%637
  205.         SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{                               
  206.             RUN COMMAND = FLUSHQUEUE;
  207.             RUN SND=$SBARDIR\VILDROID\AUDIO\OBJECTS\DATDEXC1.WAV AS QUEUE;
  208.             RUN MOVIE = $SBARDIR\VILDROID\OBJ\DATD.SMK AS EXAMINE;
  209.         };
  210.         IF NOT (CLOSEUPLOC == GREEN)
  211.             SET BMP = $SBARDIR\GENERAL\MENUS\READ.BMP{
  212.                 RUN LNK = GREENCHIP_WLD;
  213.             };
  214.         ENDIF
  215.         SET BMP=$SBARDIR\GENERAL\MENUS\PICKUP.BMP{
  216.             RUN COMMAND = TRANSFER OBJECT GREENCHIP FROM INV_WLD TO BWIELD_WLD;
  217.         };
  218.     };
  219. }
  220.  
  221. SDEV EVT_WLD AS EVENT {
  222. }
  223. // Village Green
  224. SDEV DAP_WLD FILTER 4{
  225.     SET BKG=$SBARDIR\VILDROID\PAN\DAP.BMP;
  226.     RUN EXPR = CURLOC( DAP );
  227.     RUN EXPR = CLOSEUPLOC( NONE );
  228.  
  229.     // Background sound
  230.     IF (GREENDAP~~PLAYING == 0)
  231.         RUN EXPR = GREENDAP~~VOLUME( 3 );
  232.         RUN SND = $SBARDIR\VILDROID\AUDIO\GREEN.WAV^GREENDAP AS MIX LOOP 0;
  233.     ENDIF
  234.  
  235.     // DEMO: Block exits from the village green.
  236.     SET LNK = TXT_WLD[1540,155,1770,300]%5 {
  237.         RUN COMMAND = REMOVEWIELD;
  238.     };    
  239.     SET LNK = TXT_WLD[835,130,1225,290]%5 {
  240.         RUN COMMAND = REMOVEWIELD;
  241.     };
  242.  
  243.     SET ARE = [210,355,530,510] %1 {
  244.         SET TXT = bench COLOR 2 SIZE 16 AS TITLE; //%%1916
  245.         SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  246.             SET TXT=$SBARDIR\VILDROID\OBJ\DANHEXAM.TXT COLOR 2 AS CAPTION; //%%1918
  247.         };
  248.         SET BMP=$SBARDIR\GENERAL\MENUS\SITON.BMP{
  249.             SET TXT=$SBARDIR\VILDROID\OBJ\DANHSTON.TXT COLOR 2 AS CAPTION; //%%1921
  250.         };
  251.     };
  252.     SET ARE = [760,340,1020,442] %1 {
  253.         SET TXT = bench COLOR 2 SIZE 16 AS TITLE; //%%1925
  254.         SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  255.             SET TXT=$SBARDIR\VILDROID\OBJ\DANHEXAM.TXT COLOR 2 AS CAPTION; //%%1927
  256.         };
  257.         SET BMP=$SBARDIR\GENERAL\MENUS\SITON.BMP{
  258.             SET TXT=$SBARDIR\VILDROID\OBJ\DANHSTON.TXT COLOR 2 AS CAPTION; //%%1930
  259.         };
  260.     };
  261.     SET ARE = [1800,343,2047,455] %1 {
  262.         SET TXT = bench COLOR 2 SIZE 16 AS TITLE; //%%1934
  263.         SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  264.             SET TXT=$SBARDIR\VILDROID\OBJ\DANHEXAM.TX