home *** CD-ROM | disk | FTP | other *** search
/ Level 2004 April / Level_2004-04_112_cda.bin / data1.cab / GameFiles / Modules / Deathmatch2.rvm / multiplayer.s < prev    next >
Encoding:
Text File  |  1999-08-02  |  29.0 KB  |  1,780 lines
  1. OBJECT "lv82door5"
  2. BEGIN
  3.     USE
  4.     BEGIN
  5.         CONTROL OFF
  6.         LOCKE.STOP
  7.         LOCKE.COMBAT OFF
  8.         LOCKE.GOTORELATIVEPOSITION THIS 60 0
  9.         LOCKE.FACEOBJECT THIS
  10.          STATE "OPENING"
  11.         WAIT 12
  12.         FADESCREENOUT
  13.         WAIT SCREENFADE
  14.         CONTROL ON
  15.         FADESCREENIN
  16.         LOCKE.POS 10043 11561 2 82
  17.         STATE "CLOSED"
  18.         STATE "CLOSED"
  19.     END
  20. END
  21. OBJECT "lv82door3"
  22. BEGIN
  23.     USE
  24.     BEGIN
  25.         CONTROL OFF
  26.         LOCKE.STOP
  27.         LOCKE.COMBAT OFF
  28.         LOCKE.GOTORELATIVEPOSITION THIS 60 0
  29.         LOCKE.FACEOBJECT THIS
  30.          STATE "OPENING"
  31.         WAIT 12
  32.         FADESCREENOUT
  33.         WAIT SCREENFADE
  34.         CONTROL ON
  35.         FADESCREENIN
  36.         LOCKE.POS 18259 18098 38 82
  37.         STATE "CLOSED"
  38.         STATE "CLOSED"
  39.     END
  40. END
  41. OBJECT "lv75outp2"
  42. BEGIN
  43.     USE
  44.     BEGIN
  45.         CONTROL OFF
  46.         LOCKE.STOP
  47.         LOCKE.COMBAT OFF
  48.         LOCKE.GOTORELATIVEPOSITION THIS 60 0
  49.         LOCKE.FACEOBJECT THIS
  50.          STATE "OPENING"
  51.         WAIT 12
  52.         FADESCREENOUT
  53.         WAIT SCREENFADE
  54.         CONTROL ON
  55.         FADESCREENIN
  56.         LOCKE.POS 21544 22360 272 75
  57.         STATE "CLOSED"
  58.         STATE "CLOSED"
  59.     END
  60. END
  61.  
  62. OBJECT "lv75inp2"
  63. BEGIN
  64.     USE
  65.     BEGIN
  66.         CONTROL OFF
  67.         LOCKE.STOP
  68.         LOCKE.COMBAT OFF
  69.         LOCKE.GOTORELATIVEPOSITION THIS 60 0
  70.         LOCKE.FACEOBJECT THIS
  71.          STATE "OPENING"
  72.         WAIT 12
  73.         FADESCREENOUT
  74.         WAIT SCREENFADE
  75.         CONTROL ON
  76.         FADESCREENIN
  77.         LOCKE.POS 12146 9420 320 75
  78.         STATE "CLOSED"
  79.         STATE "CLOSED"
  80.     END
  81. END
  82.  
  83.  
  84. OBJECT "lv75outp1"
  85. BEGIN
  86.     USE
  87.     BEGIN
  88.         CONTROL OFF
  89.         LOCKE.STOP
  90.         LOCKE.COMBAT OFF
  91.         LOCKE.GOTORELATIVEPOSITION THIS 60 0
  92.         LOCKE.FACEOBJECT THIS
  93.          STATE "OPENING"
  94.         WAIT 12
  95.         FADESCREENOUT
  96.         WAIT SCREENFADE
  97.         CONTROL ON
  98.         FADESCREENIN
  99.         LOCKE.POS 17854 17756 272 75
  100.         STATE "CLOSED"
  101.         STATE "CLOSED"
  102.     END
  103. END
  104.  
  105.  
  106. OBJECT "lv75inp1"
  107. BEGIN
  108.     USE
  109.     BEGIN
  110.         CONTROL OFF
  111.         LOCKE.STOP
  112.         LOCKE.COMBAT OFF
  113.         LOCKE.GOTORELATIVEPOSITION THIS 0 60
  114.         LOCKE.FACEOBJECT THIS
  115.          STATE "OPENING"
  116.         WAIT 12
  117.         FADESCREENOUT
  118.         WAIT SCREENFADE
  119.         CONTROL ON
  120.         FADESCREENIN
  121.         LOCKE.POS 10353 9681 322 75
  122.         STATE "CLOSED"
  123.         STATE "CLOSED"
  124.     END
  125. END
  126.  
  127.  
  128. OBJECT "lv75frdoor"
  129. BEGIN
  130.     USE
  131.     BEGIN
  132.         CONTROL OFF
  133.         LOCKE.STOP
  134.         LOCKE.COMBAT OFF
  135.         LOCKE.GOTORELATIVEPOSITION THIS 60 0
  136.         LOCKE.FACEOBJECT THIS
  137.          STATE "OPENING"
  138.         WAIT 12
  139.         FADESCREENOUT
  140.         WAIT SCREENFADE
  141.         CONTROL ON
  142.         FADESCREENIN
  143.         LOCKE.POS 13470 15606 89
  144.         STATE "CLOSED"
  145.         STATE "CLOSED"
  146.     END
  147. END
  148.  
  149. OBJECT "lv75indoor"
  150. BEGIN
  151.     USE
  152.     BEGIN
  153.         CONTROL OFF
  154.         LOCKE.STOP
  155.         LOCKE.COMBAT OFF
  156.         LOCKE.GOTORELATIVEPOSITION THIS 60 0
  157.         LOCKE.FACEOBJECT THIS
  158.          STATE "OPENING"
  159.         WAIT 12
  160.         FADESCREENOUT
  161.         WAIT SCREENFADE
  162.         CONTROL ON
  163.         FADESCREENIN
  164.         LOCKE.POS 10381 11151 145
  165.         STATE "CLOSED"
  166.         STATE "CLOSED"
  167.     END
  168. END
  169.  
  170. OBJECT "ROB3"
  171. BEGIN
  172.     CUBE 13051,8985,0 13210,9182,100
  173.     BEGIN
  174.         NOWAIT CONTROL OFF
  175.         player.STOP
  176.         Player.pivot 190
  177.         player.STOP
  178.         FADESCREENOUT
  179.         WAIT SCREENFADE
  180.         FADESCREENIN
  181.         player.POS 9864 10152 16 209
  182.         CONTROL ON
  183.     END
  184. END
  185.  
  186.  
  187.  
  188. OBJECT "RED3"
  189. BEGIN
  190.     CUBE 9833,10014,0 9923,10102,100
  191.     BEGIN
  192.         NOWAIT CONTROL OFF
  193.         player.STOP
  194.         Player.pivot 190
  195.         player.STOP
  196.         FADESCREENOUT
  197.         WAIT SCREENFADE
  198.         FADESCREENIN
  199.         player.POS 12934 9270 0 79
  200.         CONTROL ON
  201.     END
  202. END
  203.  
  204.  
  205. OBJECT "Red2"
  206. BEGIN
  207.     CUBE 15588,16350,0 15700,16400,100
  208.     BEGIN
  209.         NOWAIT CONTROL OFF
  210.         player.STOP
  211.         Player.pivot 190
  212.         player.STOP
  213.         FADESCREENOUT
  214.         WAIT SCREENFADE
  215.         FADESCREENIN
  216.         player.POS 11744 11888 74 79
  217.         CONTROL ON
  218.     END
  219. END
  220.  
  221. OBJECT "ROB2"
  222. BEGIN
  223.     CUBE 11740,12040,0 11783,12085,100
  224.     BEGIN
  225.         NOWAIT CONTROL OFF
  226.         player.STOP
  227.         Player.pivot 190
  228.         player.STOP
  229.         FADESCREENOUT
  230.         WAIT SCREENFADE
  231.          FADESCREENIN
  232.         player.POS 15670 16255 32 75
  233.         CONTROL ON
  234.     END
  235. END
  236.  
  237. OBJECT "ROB1"
  238. BEGIN
  239.     CUBE 7500,13718,0 7766,13818,100
  240.     BEGIN
  241.         NOWAIT CONTROL OFF
  242.         player.STOP
  243.         FADESCREENOUT
  244.         WAIT SCREENFADE
  245.          FADESCREENIN
  246.         player.POS 10655 8825 37 79
  247.         CONTROL ON
  248.     END
  249. END
  250.  
  251. OBJECT "THUAN1"
  252. BEGIN
  253.     CUBE 10500,8600,0 10800,8713,100
  254.     BEGIN
  255.         NOWAIT CONTROL OFF
  256.         player.STOP
  257.         FADESCREENOUT
  258.         WAIT SCREENFADE
  259.          FADESCREENIN
  260.         player.POS 7616 13648 48 206
  261.         CONTROL ON
  262.     END
  263. END
  264. OBJECT "Lv206d1"
  265. BEGIN
  266.     USE
  267.     BEGIN
  268.         CONTROL OFF
  269.         LOCKE.STOP
  270.         LOCKE.COMBAT OFF
  271.         LOCKE.GOTORELATIVEPOSITION THIS 60 0
  272.         LOCKE.FACEOBJECT THIS
  273.          STATE "OPENING"
  274.         WAIT 12
  275.         FADESCREENOUT
  276.         WAIT SCREENFADE
  277.         CONTROL ON
  278.         FADESCREENIN
  279.         LOCKE.POS 10078 9834 16 207
  280.         STATE "CLOSED"
  281.         STATE "CLOSED"
  282.     END
  283. END
  284.  
  285. OBJECT "Lv207d2"
  286. BEGIN
  287.     USE
  288.     BEGIN
  289.         CONTROL OFF
  290.         LOCKE.STOP
  291.         LOCKE.COMBAT OFF
  292.         LOCKE.GOTORELATIVEPOSITION THIS -60 0
  293.         LOCKE.FACEOBJECT THIS
  294.          STATE "OPENING"
  295.         WAIT 12
  296.         FADESCREENOUT
  297.         WAIT SCREENFADE
  298.         CONTROL ON
  299.         FADESCREENIN
  300.         LOCKE.POS 5440 13776 48 206
  301.         STATE "CLOSED"
  302.         STATE "CLOSED"
  303.     END
  304. END
  305.  
  306.  
  307.  
  308.  
  309. //    SHOPS
  310.  
  311. OBJECT "ELAHNI1"
  312. BEGIN
  313.     DIALOG
  314.     BEGIN
  315.         face 60
  316.         control off
  317.         player.stop
  318.         player.COMBAT OFF
  319.         nowait pivotobject player
  320.         player.pivotobject elahni1
  321.         SAY II22ELA00
  322.         SAY II22ELA01
  323.  
  324.         :start1
  325.  
  326.         buysellinit
  327.         buysellsalesperson elahni1
  328.         buysellnogolddialog II22ELA02
  329.         buysellpurchasedialog II22ELA03
  330.  
  331.         choice buy1 BSBUY2
  332.         choice sell1 BSSELL2
  333.         choice stop1 BSEXIT2
  334.         wait response
  335.  
  336.         :buy1
  337.     
  338.         player.SAY II22LOC01
  339.         player.SAY II22LOC02
  340.         buysellshoptype buy misc
  341.         BuySellAdd "Lesser Healing"
  342.         BuySellAdd "Lesser Mana"
  343.         BuySellAdd "Lesser Restoration"
  344.         BuySellAdd "Greater Healing"
  345.         BuySellAdd "Greater Mana"
  346.         BuySellAdd "Greater Restoration"
  347.         BuySellAdd "Enchanted Healing"
  348.         BuySellAdd "Enchanted Mana"
  349.         BuySellAdd "Enchanted Restoration"
  350.         BuySellAdd "Cure Poison"
  351.         buysellscreen
  352.         wait buysell
  353.         jump start1
  354.  
  355.         :sell1
  356.         buysellshoptype sell misc
  357.         BuySellAddbuyitem "Lesser Healing"
  358.         BuySellAddbuyitem "Lesser Mana"
  359.         BuySellAddbuyitem "Lesser Restoration"
  360.         BuySellAddbuyitem "Greater Healing"
  361.         BuySellAddbuyitem "Greater Mana"
  362.         BuySellAddbuyitem "Greater Restoration"
  363.         BuySellAddbuyitem "Enchanted Healing"
  364.         BuySellAddbuyitem "Enchanted Mana"
  365.         BuySellAddbuyitem "Enchanted Restoration"
  366.         BuySellAddbuyitem "Cure Poison"
  367.         buysellscreen
  368.         wait buysell
  369.         jump start1
  370.  
  371.         :stop1
  372.  
  373.         SAY II22ELA05
  374.         SAY II22ELA06
  375.         control on
  376.     END
  377. END
  378.  
  379.  
  380. OBJECT "HRUTHFORD1"
  381. BEGIN
  382.     DATA
  383.     BEGIN
  384.         NUMBER VALUE 0
  385.     END
  386.     DIALOG
  387.     BEGIN
  388.         control off
  389.         player.stop
  390.         player.COMBAT OFF
  391.         nowait pivotobject player
  392.         player.pivotobject hruthford1
  393.         SETPROTOVARIABLE VALUE = player.STAT STRN + 2
  394.         IF MISTSTATE < 4
  395.         BEGIN
  396.  
  397.         SAY II7HRU00
  398.         SAY II7HRU01
  399.  
  400.         :start1
  401.  
  402.         buysellinit
  403.         buysellsalesperson HRUTHFORD1
  404.         buysellnogolddialog II7HRU02
  405.         buysellpurchasedialog II7HRU03
  406.  
  407.         choice buy1 BSBUY2
  408.         choice sell1 BSSELL2
  409.         choice stop1 BSEXIT2
  410.         wait response
  411.  
  412.         :buy1
  413.         player.SAY II7LOC00
  414.         buysellshoptype buy MISC
  415.         buyselladd "Pouch"
  416.         buyselladd "Meat"
  417.         buyselladd "Fish"
  418.         buyselladd "Bread"
  419.         buyselladd "Apple"
  420.         buyselladd "Cheese"
  421.         buyselladd "Lockpicks"
  422.         BuySellAddCriteria "MINSTRENGTH" 1 VALUE
  423.         BuySellRemoveCriteria "EQSLOT" 0 0
  424.         BuySellRemoveCriteria "EQSLOT" 2 4
  425.         BuySellRemoveCriteria "EQSLOT" 7 10
  426.         BuySellAdd 25 "ARROW"
  427.         IF VALUE > 8 
  428.         BEGIN
  429.             BuySellAdd 25 "ICE ARROW"
  430.         END
  431.         IF VALUE > 13
  432.         BEGIN
  433.             BuySellAdd 25 "FIRE ARROW"
  434.         END
  435.         IF VALUE > 18
  436.         BEGIN
  437.             BuySellAdd 25 "POISON ARROW"
  438.         END
  439.         IF VALUE > 22
  440.         BEGIN
  441.             BuySellAdd 25 "MAGIC ARROW"
  442.         END
  443.         buysellscreen
  444.         wait buysell
  445.         jump start1
  446.  
  447.         :sell1
  448.         buysellshoptype sell MISC
  449.         buyselladdbuyitem "Pouch"
  450.         buyselladdbuyitem "Meat"
  451.         buyselladdbuyitem "Fish"
  452.         buyselladdbuyitem "Bread"
  453.         buyselladdbuyitem "Apple"
  454.         buyselladdbuyitem "Cheese"
  455.         buyselladdbuyitem "Lockpicks"
  456.         buyselladdbuycriteria "EQSLOT" 1 1
  457.         buyselladdbuycriteria "EQSLOT" 5 6
  458.         buysellscreen
  459.         wait buysell
  460.         jump start1
  461.  
  462.         :stop1
  463.  
  464.         SAY II7HRU05
  465.         SAY II7HRU06
  466.         SAY II7HRU07
  467.         SAY II7HRU08
  468.  
  469.         END
  470.         
  471.         IF MISTSTATE > 3
  472.         BEGIN
  473.         IF MISTSTATE < 7
  474.         BEGIN 
  475.  
  476.         SAY II18HRU00
  477.         SAY II18HRU01
  478.  
  479.         :start2
  480.  
  481.         buysellinit
  482.         buysellsalesperson HRUTHFORD1
  483.         buysellnogolddialog II18HRU02
  484.         buysellpurchasedialog II18HRU03
  485.  
  486.         choice buy2 BSBUY2
  487.         choice sell2 BSSELL2
  488.         choice stop2 BSEXIT2
  489.         wait response
  490.  
  491.         :buy2
  492.         player.SAY II18LOC00
  493.         NOWAIT player.SAY II18LOC01
  494.         buysellshoptype buy MISC
  495.         buyselladd "Pouch"
  496.         buyselladd "Meat"
  497.         buyselladd "Fish"
  498.         buyselladd "Bread"
  499.         buyselladd "Apple"
  500.         buyselladd "Cheese"
  501.         buyselladd "Lockpicks"
  502.         BuySellAddCriteria "MINSTRENGTH" 1 VALUE
  503.         BuySellRemoveCriteria "EQSLOT" 0 0
  504.         BuySellRemoveCriteria "EQSLOT" 2 4
  505.         BuySellRemoveCriteria "EQSLOT" 7 10
  506.         buysellscreen
  507.         wait buysell
  508.         jump start2
  509.  
  510.         :sell2
  511.         buysellshoptype sell MISC
  512.         buyselladdbuyitem "Pouch"
  513.         buyselladdbuyitem "Meat"
  514.         buyselladdbuyitem "Fish"
  515.         buyselladdbuyitem "Bread"
  516.         buyselladdbuyitem "Apple"
  517.         buyselladdbuyitem "Cheese"
  518.         buyselladdbuyitem "Lockpicks"
  519.         buyselladdbuycriteria "EQSLOT" 1 1
  520.         buyselladdbuycriteria "EQSLOT" 5 6
  521.         buysellscreen
  522.         wait buysell
  523.         jump start2
  524.  
  525.         :stop2
  526.  
  527.         SAY II18HRU05
  528.         SAY II18HRU06
  529.         SAY II18HRU07
  530.         SAY II18HRU08
  531.  
  532.         END
  533.         END
  534.  
  535.         IF MISTSTATE = 7
  536.         BEGIN
  537.         
  538.         SAY VIII7HRU00
  539.         
  540.         :start4
  541.  
  542.         buysellinit
  543.         buysellsalesperson HRUTHFORD1
  544.         buysellnogolddialog VIII7HRU01
  545.         buysellpurchasedialog VIII7HRU02
  546.  
  547.         choice buy4 BSBUY2
  548.         choice sell4 BSSELL2
  549.         choice stop4 BSEXIT2
  550.         wait response
  551.  
  552.         :buy4
  553.         player.SAY VIII7LOC00
  554.         buysellshoptype buy MISC
  555.         buyselladd "Pouch"
  556.         buyselladd "Meat"
  557.         buyselladd "Fish"
  558.         buyselladd "Bread"
  559.         buyselladd "Apple"
  560.         buyselladd "Cheese"
  561.         buyselladd "Lockpicks"
  562.         BuySellAddCriteria "MINSTRENGTH" 1 VALUE
  563.         BuySellRemoveCriteria "EQSLOT" 0 0
  564.         BuySellRemoveCriteria "EQSLOT" 2 4
  565.         BuySellRemoveCriteria "EQSLOT" 7 10
  566.         buysellscreen
  567.         wait buysell
  568.         jump start4
  569.  
  570.         :sell4
  571.         buysellshoptype sell MISC
  572.         buyselladdbuyitem "Pouch"
  573.         buyselladdbuyitem "Meat"
  574.         buyselladdbuyitem "Fish"
  575.         buyselladdbuyitem "Bread"
  576.         buyselladdbuyitem "Apple"
  577.         buyselladdbuyitem "Cheese"
  578.         buyselladdbuyitem "Lockpicks"
  579.         buyselladdbuycriteria "EQSLOT" 1 1
  580.         buyselladdbuycriteria "EQSLOT" 5 6
  581.         buysellscreen
  582.         wait buysell
  583.         jump start4
  584.  
  585.         :stop4
  586.  
  587.         SAY VIII7HRU04
  588.         SAY VIII7HRU05
  589.  
  590.         END
  591.         control on
  592.     END
  593.     ALWAYS
  594.     BEGIN
  595.         GOTO HRUWAY01
  596.         TRY SWEEP
  597.         TRY WALK
  598.         PIVOTOBJECT HRUWAY02
  599.         TRY WALK
  600.         GOTO HRUWAY02
  601.         TRY SWEEP
  602.         TRY WALK
  603.         PIVOTOBJECT HRUWAY03
  604.         TRY WALK
  605.         GOTO HRUWAY03
  606.         TRY SWEEP
  607.         TRY WALK
  608.         PIVOTOBJECT HRUWAY02
  609.         TRY WALK
  610.         GOTO HRUWAY02
  611.         TRY SWEEP
  612.         TRY WALK
  613.         PIVOTOBJECT HRUWAY01
  614.         TRY WALK
  615.     END
  616. END
  617.  
  618.  
  619. OBJECT "GINA1"
  620. BEGIN
  621.     DATA
  622.     BEGIN
  623.         number VALUE 0
  624.     END
  625.     DIALOG
  626.     BEGIN
  627.         control off
  628.         player.stop
  629.         player.COMBAT OFF
  630.         nowait pivotobject player
  631.         player.pivotobject GINA1
  632.         SETPROTOVARIABLE VALUE = player.STAT "STRN" + 2
  633.         IF MISTSTATE < 4
  634.         BEGIN
  635.  
  636.         SAY II9GIN00
  637.         SAY II9GIN01
  638.  
  639.         :start1
  640.  
  641.         buysellinit
  642.         buysellsalesperson GINA1
  643.         buysellnogolddialog II9GIN03
  644.         buysellpurchasedialog II9GIN04
  645.  
  646.         choice buy1 BSBUY2
  647.         choice sell1 BSSELL2
  648.         choice stop1 BSEXIT2
  649.         wait response
  650.  
  651.         :buy1
  652.         player.SAY II9LOC00
  653.         player.SAY II9LOC01
  654.         buysellshoptype buy WEAPON
  655.         BuySellAddCriteria "minstrength" 1 VALUE
  656.         BuySellAdd 25 "ARROW"
  657.         IF VALUE > 8 
  658.         BEGIN
  659.             BuySellAdd 25 "ICE ARROW"
  660.         END
  661.         IF VALUE > 13
  662.         BEGIN
  663.             BuySellAdd 25 "FIRE ARROW"
  664.         END
  665.         IF VALUE > 18
  666.         BEGIN
  667.             BuySellAdd 25 "POISON ARROW"
  668.         END
  669.         IF VALUE > 22
  670.         BEGIN
  671.             BuySellAdd 25 "MAGIC ARROW"
  672.         END
  673.         buysellscreen
  674.         wait buysell
  675.         jump start1
  676.  
  677.         :sell1
  678.         buysellshoptype sell WEAPON
  679.         buyselladdbuyitems
  680.         buysellscreen
  681.         wait buysell
  682.         jump start1
  683.  
  684.         :stop1
  685.  
  686.         SAY II9GIN06
  687.         SAY II9GIN07
  688.         SAY II9GIN08
  689.  
  690.         END
  691.         
  692.         IF MISTSTATE > 3
  693.         BEGIN
  694.         IF MISTSTATE < 5
  695.         BEGIN 
  696.  
  697.         SAY II20GIN00
  698.         SAY II20GIN01
  699.  
  700.         :start2
  701.  
  702.         buysellinit
  703.         buysellsalesperson GINA1
  704.         buysellnogolddialog II20GIN02
  705.         buysellpurchasedialog II20GIN03
  706.  
  707.         choice buy2 BSBUY2
  708.         choice sell2 BSSELL2
  709.         choice stop2 BSEXIT2
  710.         wait response
  711.  
  712.         :buy2
  713.         NOWAIT player.SAY II20LOC00
  714.         buysellshoptype buy WEAPON
  715.         BuySellAddCriteria "minstrength" 1 VALUE
  716.         BuySellAdd 25 "ARROW"
  717.         IF VALUE > 8 
  718.         BEGIN
  719.             BuySellAdd 25 "ICE ARROW"
  720.         END
  721.         IF VALUE > 13
  722.         BEGIN
  723.             BuySellAdd 25 "FIRE ARROW"
  724.         END
  725.         IF VALUE > 18
  726.         BEGIN
  727.             BuySellAdd 25 "POISON ARROW"
  728.         END
  729.         IF VALUE > 22
  730.         BEGIN
  731.             BuySellAdd 25 "MAGIC ARROW"
  732.         END
  733.         buysellscreen
  734.         wait buysell
  735.         jump start2
  736.  
  737.         :sell2
  738.         buysellshoptype sell WEAPON
  739.         buyselladdbuyitems
  740.         buysellscreen
  741.         wait buysell
  742.         jump start2
  743.  
  744.         :stop2
  745.  
  746.         SAY II20GIN05
  747.         SAY II20GIN07
  748.  
  749.         END
  750.         END
  751.  
  752.         IF MISTSTATE = 6
  753.         BEGIN
  754.         
  755.         SAY V4GIN00
  756.         SAY V4GIN01
  757.  
  758.         :start3
  759.  
  760.         buysellinit
  761.         buysellsalesperson GINA1
  762.         buysellnogolddialog V4GIN02
  763.         buysellpurchasedialog V4GIN03
  764.  
  765.         choice buy3 BSBUY2
  766.         choice sell3 BSSELL2
  767.         choice stop3 BSEXIT2
  768.         wait response
  769.  
  770.         :buy3
  771.         NOWAIT player.SAY V4LOC00
  772.         buysellshoptype buy weapon
  773.         BuySellAddCriteria "minstrength" 1 VALUE
  774.         BuySellAdd 25 "ARROW"
  775.         IF VALUE > 8 
  776.         BEGIN
  777.             BuySellAdd 25 "ICE ARROW"
  778.         END
  779.         IF VALUE > 13
  780.         BEGIN
  781.             BuySellAdd 25 "FIRE ARROW"
  782.         END
  783.         IF VALUE > 18
  784.         BEGIN
  785.             BuySellAdd 25 "POISON ARROW"
  786.         END
  787.         IF VALUE > 22
  788.         BEGIN
  789.             BuySellAdd 25 "MAGIC ARROW"
  790.         END
  791.         buysellscreen
  792.         wait buysell
  793.         jump start3
  794.  
  795.         :sell3
  796.         buysellshoptype sell WEAPON
  797.         buyselladdbuyitems
  798.         buysellscreen
  799.         wait buysell
  800.         jump start3
  801.  
  802.         :stop3
  803.  
  804.         SAY V4GIN05
  805.         SAY V4GIN06
  806.         SAY V4GIN07
  807.  
  808.         END
  809.  
  810.         IF MISTSTATE = 7
  811.         BEGIN
  812.         
  813.         SAY VIII5GIN00
  814.         SAY VIII5GIN01
  815.         
  816.         :start4
  817.  
  818.         buysellinit
  819.         buysellsalesperson GINA1
  820.         buysellnogolddialog VIII5GIN02
  821.         buysellpurchasedialog VIII5GIN03
  822.  
  823.         choice buy4 BSBUY2
  824.         choice sell4 BSSELL2
  825.         choice stop4 BSEXIT2
  826.         wait response
  827.  
  828.         :buy4
  829.         NOWAIT player.SAY VIII5LOC00
  830.         buysellshoptype buy WEAPON
  831.         BuySellAddCriteria "minstrength" 1 VALUE
  832.         BuySellAdd 25 "ARROW"
  833.         IF VALUE > 8 
  834.         BEGIN
  835.             BuySellAdd 25 "ICE ARROW"
  836.         END
  837.         IF VALUE > 13
  838.         BEGIN
  839.             BuySellAdd 25 "FIRE ARROW"
  840.         END
  841.         IF VALUE > 18
  842.         BEGIN
  843.             BuySellAdd 25 "POISON ARROW"
  844.         END
  845.         IF VALUE > 22
  846.         BEGIN
  847.             BuySellAdd 25 "MAGIC ARROW"
  848.         END
  849.         buysellscreen
  850.         wait buysell
  851.         jump start4
  852.  
  853.         :sell4
  854.         buysellshoptype sell WEAPON
  855.         buyselladdbuyitems
  856.         buysellscreen
  857.         wait buysell
  858.         jump start4
  859.  
  860.         :stop4
  861.  
  862.         SAY VIII5GIN05
  863.         SAY VIII5GIN06
  864.         SAY VIII5GIN07
  865.  
  866.         END
  867.         CONTROL ON
  868.     END
  869.     ALWAYS
  870.     BEGIN
  871.         GOTORELATIVEPOSITION GINAWAY1 0 0
  872.         WAIT 24
  873.         PIVOTOBJECT GINAWAY2
  874.         WAIT 24
  875.         GOTORELATIVEPOSITION GINAWAY2 0 0
  876.         WAIT 24
  877.         PIVOTOBJECT GINAWAY1
  878.         WAIT 24
  879.         GOTORELATIVEPOSITION GINAWAY1 0 0
  880.         WAIT 24
  881.         PIVOTOBJECT GINAWAY3
  882.         WAIT 24
  883.         GOTORELATIVEPOSITION GINAWAY3 0 0
  884.         WAIT 24
  885.         PIVOTOBJECT GINAWAY1
  886.         WAIT 24
  887.     END
  888. END
  889.  
  890.  
  891.  
  892. OBJECT "CRONUS1"
  893. BEGIN
  894.     DATA
  895.     BEGIN
  896.         number VALUE 0
  897.     END
  898.     DIALOG
  899.     BEGIN
  900.         control off
  901.         player.stop
  902.         player.COMBAT OFF
  903.         nowait pivotobject player
  904.         player.pivotobject cronus1
  905.         SETPROTOVARIABLE VALUE = player.STAT "STRN" + 2
  906.         IF MISTSTATE < 4
  907.         BEGIN
  908.  
  909.         SAY II8CRO00
  910.         SAY II8CRO01
  911.  
  912.         :start1
  913.  
  914.         buysellinit
  915.         buysellsalesperson cronus1
  916.         buysellnogolddialog II8CRO02
  917.         buysellpurchasedialog II8CRO03
  918.  
  919.         choice buy1 BSBUY2
  920.         choice sell1 BSSELL2
  921.         choice stop1 BSEXIT2
  922.         wait response
  923.  
  924.         :buy1
  925.         player.SAY II8LOC00
  926.         player.SAY II8LOC01
  927.         buysellshoptype buy armor
  928.         BuySellAddCriteria "minstrength" 1 VALUE
  929.         BuySellRemoveCriteria "EQSLOT" 1 1
  930.         BuySellRemoveCriteria "EQSLOT" 5 6
  931.         buysellscreen
  932.         wait buysell
  933.         jump start1
  934.  
  935.         :sell1
  936.         buysellshoptype sell armor
  937.         buyselladdbuyitems
  938.         buysellremovebuycriteria "EQSLOT" 1 1
  939.         buysellremovebuycriteria "EQSLOT" 5 6
  940.         buysellscreen
  941.         wait buysell
  942.         jump start1
  943.  
  944.         :stop1
  945.  
  946.         SAY II8CRO06
  947.         SAY II8CRO07
  948.  
  949.         END
  950.         
  951.         IF MISTSTATE > 3
  952.         BEGIN
  953.         IF MISTSTATE < 5
  954.         BEGIN 
  955.  
  956.         SAY II19CRO00
  957.         SAY II19CRO01
  958.  
  959.         :start2
  960.  
  961.         buysellinit
  962.         buysellsalesperson cronus1
  963.         buysellnogolddialog II19CRO02
  964.         buysellpurchasedialog II19CRO03
  965.  
  966.         choice buy2 BSBUY2
  967.         choice sell2 BSSELL2
  968.         choice stop2 BSEXIT2
  969.         wait response
  970.  
  971.         :buy2
  972.         player.SAY II19LOC00
  973.         NOWAIT player.SAY II19LOC01
  974.         buysellshoptype buy armor
  975.         BuySellAddCriteria "minstrength" 1 VALUE
  976.         BuySellRemoveCriteria "EQSLOT" 1 1
  977.         BuySellRemoveCriteria "EQSLOT" 5 6
  978.         buysellscreen
  979.         wait buysell
  980.         jump start2
  981.  
  982.         :sell2
  983.         buysellshoptype sell armor
  984.         buyselladdbuyitems
  985.         buysellremovebuycriteria "EQSLOT" 1 1
  986.         buysellremovebuycriteria "EQSLOT" 5 6
  987.         buysellscreen
  988.         wait buysell
  989.         jump start2
  990.  
  991.         :stop2
  992.  
  993.         SAY II19CRO06
  994.         SAY II19CRO07
  995.  
  996.         END
  997.         END
  998.  
  999.         IF MISTSTATE = 6
  1000.         BEGIN
  1001.         
  1002.         SAY V5CRO00
  1003.         SAY V5CRO01
  1004.  
  1005.         :start3
  1006.  
  1007.         buysellinit
  1008.         buysellsalesperson cronus1
  1009.         buysellnogolddialog V5CRO02
  1010.         buysellpurchasedialog V5CRO03
  1011.  
  1012.         choice buy3 BSBUY2
  1013.         choice sell3 BSSELL2
  1014.         choice stop3 BSEXIT2
  1015.         wait response
  1016.  
  1017.         :buy3
  1018.         player.SAY V5LOC00
  1019.         NOWAIT player.SAY V5LOC01
  1020.         buysellshoptype buy armor
  1021.         BuySellAddCriteria "minstrength" 1 VALUE
  1022.         BuySellRemoveCriteria "EQSLOT" 1 1
  1023.         BuySellRemoveCriteria "EQSLOT" 5 6
  1024.         buysellscreen
  1025.         wait buysell
  1026.         jump start3
  1027.  
  1028.         :sell3
  1029.         buysellshoptype sell armor
  1030.         buyselladdbuyitems
  1031.         buysellremovebuycriteria "EQSLOT" 1 1
  1032.         buysellremovebuycriteria "EQSLOT" 5 6
  1033.         buysellscreen
  1034.         wait buysell
  1035.         jump start3
  1036.  
  1037.         :stop3
  1038.  
  1039.         SAY V5CRO06
  1040.         SAY V5CRO07
  1041.  
  1042.         END
  1043.  
  1044.         IF MISTSTATE = 7
  1045.         BEGIN
  1046.         
  1047.         SAY VIII6CRO00
  1048.         player.SAY VIII6LOC00
  1049.         SAY VIII6CRO01
  1050.         SAY VIII6CRO02
  1051.  
  1052.  
  1053.         :start4
  1054.  
  1055.         buysellinit
  1056.         buysellsalesperson cronus1
  1057.         buysellnogolddialog VIII6CRO03
  1058.         buysellpurchasedialog VIII6CRO04
  1059.  
  1060.         choice buy4 BSBUY2
  1061.         choice sell4 BSSELL2
  1062.         choice stop4 BSEXIT2
  1063.         wait response
  1064.  
  1065.         :buy4
  1066.         player.SAY VIII6LOC01
  1067.         NOWAIT player.SAY VIII6LOC02
  1068.         buysellshoptype buy armor
  1069.         BuySellAddCriteria "minstrength" 1 VALUE
  1070.         BuySellRemoveCriteria "EQSLOT" 1 1
  1071.         BuySellRemoveCriteria "EQSLOT" 5 6
  1072.         buysellscreen
  1073.         wait buysell
  1074.         jump start4
  1075.  
  1076.         :sell4
  1077.         buysellshoptype sell armor
  1078.         buyselladdbuyitems
  1079.         buysellremovebuycriteria "EQSLOT" 1 1
  1080.         buysellremovebuycriteria "EQSLOT" 5 6
  1081.         buysellscreen
  1082.         wait buysell
  1083.         jump start4
  1084.  
  1085.         :stop4
  1086.  
  1087.         SAY VIII6CRO06
  1088.         SAY VIII6CRO07
  1089.  
  1090.         END
  1091.     CONTROL ON
  1092.     END
  1093.     ALWAYS
  1094.     BEGIN
  1095.         GOTORELATIVEPOSITION CRONUSWAY1 0 0
  1096.         WAIT 24
  1097.         WAIT 24
  1098.         WAIT 24
  1099.         WAIT 24
  1100.         PIVOTOBJECT CRONUSWAY2
  1101.         WAIT 12
  1102.         GOTORELATIVEPOSITION CRONUSWAY2 0 0
  1103.         WAIT 12
  1104.         PIVOT 190
  1105.         WAIT 24
  1106.         WAIT 24
  1107.         WAIT 24
  1108.         PIVOTOBJECT CRONUSWAY3
  1109.         WAIT 12
  1110.         GOTORELATIVEPOSITION CRONUSWAY3 0 0
  1111.         WAIT 12
  1112.         PIVOTOBJECT CRONUSWAY1
  1113.         WAIT 12
  1114.     END
  1115. END
  1116.  
  1117. OBJECT "LEVER1"
  1118. BEGIN
  1119.     USE
  1120.     BEGIN
  1121.         CONTROL OFF
  1122.         player.STOP
  1123.         player.COMBAT OFF
  1124.         player.gotorelativeposition this 30 0
  1125.         player.PIVOTOBJECT THIS
  1126.         NOWAIT OPERATE player
  1127.         player.TRY "wpulllever"
  1128.         FADESCREENOUT
  1129.         player.TOGGLE INVISIBLE
  1130.         WAIT SCREENFADE
  1131.         FADESCREENIN
  1132.         player.POS 5436 13776 48
  1133.         SET LEVERSTATE = 98
  1134.         TOGGLE PAUSE = 1
  1135.     END
  1136. END
  1137.  
  1138. OBJECT "LEVER1B"
  1139. BEGIN
  1140.     CUBE player 5400,13700,0 5500,13800,100
  1141.     BEGIN
  1142.         IF LEVERSTATE = 98
  1143.         BEGIN
  1144.             WAIT 24
  1145.             PLAY KEYS
  1146.             Lv206D1.stat LOCKED = 0
  1147.             WAIT 48
  1148.             FADESCREENOUT
  1149.             WAIT SCREENFADE
  1150.             player.TOGGLE INVISIBLE
  1151.             FADESCREENIN
  1152.             player.POS 4471 1661 432
  1153.             CONTROL ON
  1154.             SET LEVERSTATE = 0
  1155.         END
  1156.     END
  1157. END
  1158.  
  1159. OBJECT "LEVER2"
  1160. BEGIN
  1161.     USE
  1162.     BEGIN
  1163.         CONTROL OFF
  1164.         player.STOP
  1165.         player.COMBAT OFF
  1166.         player.gotorelativeposition this 30 0
  1167.         player.PIVOTOBJECT THIS
  1168.         NOWAIT OPERATE player
  1169.         player.TRY "wpulllever"
  1170.         FADESCREENOUT
  1171.         player.TOGGLE INVISIBLE
  1172.         WAIT SCREENFADE
  1173.         FADESCREENIN
  1174.         player.POS 4480 9040 16
  1175.         SET LEVERSTATE = 98
  1176.         TOGGLE PAUSE = 1
  1177.     END
  1178. END
  1179.  
  1180. OBJECT "LEVER2B"
  1181. BEGIN
  1182.     CUBE player 4400,9000,0 4500,9100,100
  1183.     BEGIN
  1184.         IF LEVERSTATE = 98
  1185.         BEGIN
  1186.             WAIT 24
  1187.             PLAY KEYS
  1188.             Lv207d5.stat LOCKED = 0
  1189.             WAIT 48
  1190.             FADESCREENOUT
  1191.             WAIT SCREENFADE
  1192.             player.TOGGLE INVISIBLE
  1193.             FADESCREENIN
  1194.             player.POS 8951 10061 144
  1195.             CONTROL ON
  1196.             SET LEVERSTATE = 0
  1197.         END
  1198.     END
  1199. END
  1200.  
  1201. OBJECT "LEVER3"
  1202. BEGIN
  1203.     USE
  1204.     BEGIN
  1205.         CONTROL OFF
  1206.         player.STOP
  1207.         player.COMBAT OFF
  1208.         player.gotorelativeposition this 30 0
  1209.         player.PIVOTOBJECT THIS
  1210.         NOWAIT OPERATE player
  1211.         player.TRY "wpulllever"
  1212.         FADESCREENOUT
  1213.         player.TOGGLE INVISIBLE
  1214.         WAIT SCREENFADE
  1215.         FADESCREENIN
  1216.         player.POS 10469 8651 144
  1217.         SET LEVERSTATE = 98
  1218.         TOGGLE PAUSE = 1
  1219.     END
  1220. END
  1221.  
  1222. OBJECT "LEVER3B"
  1223. BEGIN
  1224.     CUBE player 10400,8600,100 10500,8700,200
  1225.     BEGIN
  1226.         IF LEVERSTATE = 98
  1227.         BEGIN
  1228.             WAIT 24
  1229.             PLAY KEYS
  1230.             lv204d7.stat LOCKED = 0
  1231.             WAIT 48
  1232.             FADESCREENOUT
  1233.             WAIT SCREENFADE
  1234.             player.TOGGLE INVISIBLE
  1235.             FADESCREENIN
  1236.             player.POS 10112 9550 16
  1237.             CONTROL ON
  1238.             SET LEVERSTATE = 0
  1239.         END
  1240.     END
  1241. END
  1242.  
  1243. OBJECT "LEVER4"
  1244. BEGIN
  1245.     USE
  1246.     BEGIN
  1247.         CONTROL OFF
  1248.         player.STOP
  1249.         player.COMBAT OFF
  1250.         player.gotorelativeposition this 30 0
  1251.         player.PIVOTOBJECT THIS
  1252.         NOWAIT OPERATE player
  1253.         player.TRY "wpulllever"
  1254.         FADESCREENOUT
  1255.         player.TOGGLE INVISIBLE
  1256.         WAIT SCREENFADE
  1257.         FADESCREENIN
  1258.         player.POS 8457 13335 16
  1259.         SET LEVERSTATE = 98
  1260.         TOGGLE PAUSE = 1
  1261.     END
  1262. END
  1263.  
  1264. OBJECT "LEVER4B"
  1265. BEGIN
  1266.     CUBE player 8400,13300,0 8500,13400,100
  1267.     BEGIN
  1268.         IF LEVERSTATE = 98
  1269.         BEGIN
  1270.             WAIT 24
  1271.             PLAY KEYS
  1272.             caveend1.stat LOCKED = 0
  1273.             WAIT 48
  1274.             FADESCREENOUT
  1275.             WAIT SCREENFADE
  1276.             player.TOGGLE INVISIBLE
  1277.             FADESCREENIN
  1278.             player.POS 13472 12596 16
  1279.             CONTROL ON
  1280.             SET LEVERSTATE = 0
  1281.         END
  1282.     END
  1283. END
  1284.  
  1285. OBJECT "LEVER5"
  1286. BEGIN
  1287.     USE
  1288.     BEGIN
  1289.         CONTROL OFF
  1290.         player.STOP
  1291.         player.COMBAT OFF
  1292.         player.gotorelativeposition this 30 0
  1293.         player.PIVOTOBJECT THIS
  1294.         NOWAIT OPERATE player
  1295.         player.TRY "wpulllever"
  1296.         FADESCREENOUT
  1297.         player.TOGGLE INVISIBLE
  1298.         WAIT SCREENFADE
  1299.         FADESCREENIN
  1300.         player.POS 5436 13776 48
  1301.         SET LEVERSTATE = 98
  1302.         TOGGLE PAUSE = 1
  1303.     END
  1304. END
  1305.  
  1306. OBJECT "LEVER5B"
  1307. BEGIN
  1308.     CUBE player 5400,13700,0 5500,13800,100
  1309.     BEGIN
  1310.         IF LEVERSTATE = 98
  1311.         BEGIN
  1312.             WAIT 24
  1313.             PLAY KEYS
  1314.             Lv206D1.stat LOCKED = 0
  1315.             WAIT 48
  1316.             FADESCREENOUT
  1317.             WAIT SCREENFADE
  1318.             player.TOGGLE INVISIBLE
  1319.             FADESCREENIN
  1320.             player.POS 6272 2160 272
  1321.             CONTROL ON
  1322.             SET LEVERSTATE = 0
  1323.         END
  1324.     END
  1325. END
  1326.  
  1327. OBJECT "LEVER6"
  1328. BEGIN
  1329.     USE
  1330.     BEGIN
  1331.         CONTROL OFF
  1332.         player.STOP
  1333.         player.COMBAT OFF
  1334.         player.gotorelativeposition this 30 0
  1335.         player.PIVOTOBJECT THIS
  1336.         NOWAIT OPERATE player
  1337.         player.TRY "wpulllever"
  1338.         FADESCREENOUT
  1339.         player.TOGGLE INVISIBLE
  1340.         WAIT SCREENFADE
  1341.         FADESCREENIN
  1342.         player.POS 4480 9040 16
  1343.         SET LEVERSTATE = 98
  1344.         TOGGLE PAUSE = 1
  1345.     END
  1346. END
  1347.  
  1348. OBJECT "LEVER6B"
  1349. BEGIN
  1350.     CUBE player 4400,9000,0 4500,9100,100
  1351.     BEGIN
  1352.         IF LEVERSTATE = 98
  1353.         BEGIN
  1354.             WAIT 24
  1355.             PLAY KEYS
  1356.             Lv207d5.stat LOCKED = 0
  1357.             WAIT 48
  1358.             FADESCREENOUT
  1359.             WAIT SCREENFADE
  1360.             player.TOGGLE INVISIBLE
  1361.             FADESCREENIN
  1362.             player.POS 7158 12338 16
  1363.             CONTROL ON
  1364.             SET LEVERSTATE = 0
  1365.         END
  1366.     END
  1367. END
  1368.  
  1369. OBJECT "LEVER7"
  1370. BEGIN
  1371.     USE
  1372.     BEGIN
  1373.         CONTROL OFF
  1374.         player.STOP
  1375.         player.COMBAT OFF
  1376.         player.gotorelativeposition this 30 0
  1377.         player.PIVOTOBJECT THIS
  1378.         NOWAIT OPERATE player
  1379.         player.TRY "wpulllever"
  1380.         FADESCREENOUT
  1381.         player.TOGGLE INVISIBLE
  1382.         WAIT SCREENFADE
  1383.         FADESCREENIN
  1384.         player.POS 10469 8651 144
  1385.         SET LEVERSTATE = 98
  1386.         TOGGLE PAUSE = 1
  1387.     END
  1388. END
  1389.  
  1390. OBJECT "LEVER7B"
  1391. BEGIN
  1392.     CUBE player 10400,8600,100 10500,8700,200
  1393.     BEGIN
  1394.         IF LEVERSTATE = 98
  1395.         BEGIN
  1396.             WAIT 24
  1397.             PLAY KEYS
  1398.             lv204d7.stat LOCKED = 0
  1399.             WAIT 48
  1400.             FADESCREENOUT
  1401.             WAIT SCREENFADE
  1402.             player.TOGGLE INVISIBLE
  1403.             FADESCREENIN
  1404.             player.POS 10864 8144 16
  1405.             CONTROL ON
  1406.             SET LEVERSTATE = 0
  1407.         END
  1408.     END
  1409. END
  1410.  
  1411. OBJECT "LEVER8"
  1412. BEGIN
  1413.     USE
  1414.     BEGIN
  1415.         CONTROL OFF
  1416.         player.STOP
  1417.         player.COMBAT OFF
  1418.         player.gotorelativeposition this 30 0
  1419.         player.PIVOTOBJECT THIS
  1420.         NOWAIT OPERATE player
  1421.         player.TRY "wpulllever"
  1422.         FADESCREENOUT
  1423.         player.TOGGLE INVISIBLE
  1424.         WAIT SCREENFADE
  1425.         FADESCREENIN
  1426.         player.POS 8457 13335 16
  1427.         SET LEVERSTATE = 98
  1428.         TOGGLE PAUSE = 1
  1429.     END
  1430. END
  1431.  
  1432. OBJECT "LEVER8B"
  1433. BEGIN
  1434.     CUBE player 8400,13300,0 8500,13400,100
  1435.     BEGIN
  1436.         IF LEVERSTATE = 98
  1437.         BEGIN
  1438.             WAIT 24
  1439.             PLAY KEYS
  1440.             caveend1.stat LOCKED = 0
  1441.             WAIT 48
  1442.             FADESCREENOUT
  1443.             WAIT SCREENFADE
  1444.             player.TOGGLE INVISIBLE
  1445.             FADESCREENIN
  1446.             player.POS 11184 12928 16
  1447.             CONTROL ON
  1448.             SET LEVERSTATE = 0
  1449.         END
  1450.     END
  1451. END
  1452.  
  1453. OBJECT "LEVER9"
  1454. BEGIN
  1455.     USE
  1456.     BEGIN
  1457.         CONTROL OFF
  1458.         player.STOP
  1459.         player.COMBAT OFF
  1460.         player.gotorelativeposition this 30 0
  1461.         player.PIVOTOBJECT THIS
  1462.         NOWAIT OPERATE player
  1463.         player.TRY "wpulllever"
  1464.         FADESCREENOUT
  1465.         player.TOGGLE INVISIBLE
  1466.         WAIT SCREENFADE
  1467.         FADESCREENIN
  1468.         player.POS 5436 13776 48
  1469.         SET LEVERSTATE = 98
  1470.         TOGGLE PAUSE = 1
  1471.     END
  1472. END
  1473.  
  1474. OBJECT "LEVER9B"
  1475. BEGIN
  1476.     CUBE player 5400,13700,0 5500,13800,100
  1477.     BEGIN
  1478.         IF LEVERSTATE = 98
  1479.         BEGIN
  1480.             WAIT 24
  1481.             PLAY KEYS
  1482.             Lv206D1.stat LOCKED = 0
  1483.             WAIT 48
  1484.             FADESCREENOUT
  1485.             WAIT SCREENFADE
  1486.             player.TOGGLE INVISIBLE
  1487.             FADESCREENIN
  1488.             player.POS 9680 3904 192
  1489.             CONTROL ON
  1490.             SET LEVERSTATE = 0
  1491.         END
  1492.     END
  1493. END
  1494.  
  1495. OBJECT "LEVER10"
  1496. BEGIN
  1497.     USE
  1498.     BEGIN
  1499.         CONTROL OFF
  1500.         player.STOP
  1501.         player.COMBAT OFF
  1502.         player.gotorelativeposition this 30 0
  1503.         player.PIVOTOBJECT THIS
  1504.         NOWAIT OPERATE player
  1505.         player.TRY "wpulllever"
  1506.         FADESCREENOUT
  1507.         player.TOGGLE INVISIBLE
  1508.         WAIT SCREENFADE
  1509.         FADESCREENIN
  1510.         player.POS 4480 9040 16
  1511.         SET LEVERSTATE = 98
  1512.         TOGGLE PAUSE = 1
  1513.     END
  1514. END
  1515.  
  1516. OBJECT "LEVER10B"
  1517. BEGIN
  1518.     CUBE player 4400,9000,0 4500,9100,100
  1519.     BEGIN
  1520.         IF LEVERSTATE = 98
  1521.         BEGIN
  1522.             WAIT 24
  1523.             PLAY KEYS
  1524.             Lv207d5.stat LOCKED = 0
  1525.             WAIT 48
  1526.             FADESCREENOUT
  1527.             WAIT SCREENFADE
  1528.             player.TOGGLE INVISIBLE
  1529.             FADESCREENIN
  1530.             player.POS 4384 9616 16
  1531.             CONTROL ON
  1532.             SET LEVERSTATE = 0
  1533.         END
  1534.     END
  1535. END
  1536.  
  1537. OBJECT "LEVER11"
  1538. BEGIN
  1539.     USE
  1540.     BEGIN
  1541.         CONTROL OFF
  1542.         player.STOP
  1543.         player.COMBAT OFF
  1544.         player.gotorelativeposition this 30 0
  1545.         player.PIVOTOBJECT THIS
  1546.         NOWAIT OPERATE player
  1547.         player.TRY "wpulllever"
  1548.         FADESCREENOUT
  1549.         player.TOGGLE INVISIBLE
  1550.         WAIT SCREENFADE
  1551.         FADESCREENIN
  1552.         player.POS 10469 8651 144
  1553.         SET LEVERSTATE = 98
  1554.         TOGGLE PAUSE = 1
  1555.     END
  1556. END
  1557.  
  1558. OBJECT "LEVER11B"
  1559. BEGIN
  1560.     CUBE player 10400,8600,100 10500,8700,200
  1561.     BEGIN
  1562.         IF LEVERSTATE = 98
  1563.         BEGIN
  1564.             WAIT 24
  1565.             PLAY KEYS
  1566.             lv204d7.stat LOCKED = 0
  1567.             WAIT 48
  1568.             FADESCREENOUT
  1569.             WAIT SCREENFADE
  1570.             player.TOGGLE INVISIBLE
  1571.             FADESCREENIN
  1572.             player.POS 10333 8651 16
  1573.             CONTROL ON
  1574.             SET LEVERSTATE = 0
  1575.         END
  1576.     END
  1577. END
  1578.  
  1579. OBJECT "LEVER12"
  1580. BEGIN
  1581.     USE
  1582.     BEGIN
  1583.         CONTROL OFF
  1584.         player.STOP
  1585.         player.COMBAT OFF
  1586.         player.gotorelativeposition this 30 0
  1587.         player.PIVOTOBJECT THIS
  1588.         NOWAIT OPERATE player
  1589.         player.TRY "wpulllever"
  1590.         FADESCREENOUT
  1591.         player.TOGGLE INVISIBLE
  1592.         WAIT SCREENFADE
  1593.         FADESCREENIN
  1594.         player.POS 8457 13335 16
  1595.         SET LEVERSTATE = 98
  1596.         TOGGLE PAUSE = 1
  1597.     END
  1598. END
  1599.  
  1600. OBJECT "LEVER12B"
  1601. BEGIN
  1602.     CUBE player 8400,13300,0 8500,13400,100
  1603.     BEGIN
  1604.         IF LEVERSTATE = 98
  1605.         BEGIN
  1606.             WAIT 24
  1607.             PLAY KEYS
  1608.             caveend1.stat LOCKED = 0
  1609.             WAIT 48
  1610.             FADESCREENOUT
  1611.             WAIT SCREENFADE
  1612.             player.TOGGLE INVISIBLE
  1613.             FADESCREENIN
  1614.             player.POS 11008 13024 16
  1615.             CONTROL ON
  1616.             SET LEVERSTATE = 0
  1617.         END
  1618.     END
  1619. END
  1620.  
  1621. OBJECT "lever13"
  1622. BEGIN
  1623.     USE
  1624.     BEGIN
  1625.         CONTROL OFF
  1626.         player.STOP
  1627.         player.COMBAT OFF
  1628.         player.gotorelativeposition this 30 0
  1629.         player.PIVOTOBJECT THIS
  1630.         NOWAIT OPERATE player
  1631.         player.TRY "wpulllever"
  1632.         FADESCREENOUT
  1633.         player.TOGGLE INVISIBLE
  1634.         WAIT SCREENFADE
  1635.         FADESCREENIN
  1636.         player.POS 11055 11155 16
  1637.         SET SABUSTATE = 98
  1638.         TOGGLE PAUSE = 1
  1639.     END
  1640. END
  1641.  
  1642. OBJECT "lever13b"
  1643. BEGIN
  1644.     CUBE player 11000,11100,0 11100,11200,100
  1645.     BEGIN
  1646.         IF SABUSTATE = 98
  1647.         BEGIN
  1648.             WAIT 24
  1649.             PLAY KEYS
  1650.             bossgate.stat LOCKED = 0
  1651.             WAIT 48
  1652.             FADESCREENOUT
  1653.             WAIT SCREENFADE
  1654.             player.TOGGLE INVISIBLE
  1655.             FADESCREENIN
  1656.             player.POS 111263 15039 17
  1657.             CONTROL ON
  1658.             SET SABUSTATE = 0
  1659.         END
  1660.     END
  1661. END
  1662.  
  1663.  
  1664. OBJECT "LHEALGEN"
  1665. BEGIN
  1666.     ALWAYS
  1667.     BEGIN
  1668.         IF LHEALGEN.GETITEMAMOUNT "LESSER HEALING" = 0
  1669.         BEGIN
  1670.             LHEALGEN.ADDINV "LESSER HEALING"
  1671.         END
  1672.         WAIT 240
  1673.     END
  1674. END
  1675.  
  1676. OBJECT "LMANAGEN"
  1677. BEGIN
  1678.     ALWAYS
  1679.     BEGIN
  1680.         IF LMANAGEN.GETITEMAMOUNT "LESSER MANA" = 0
  1681.         BEGIN
  1682.             LMANAGEN.ADDINV "LESSER MANA"
  1683.         END
  1684.         WAIT 240
  1685.     END
  1686. END
  1687.  
  1688.  
  1689. OBJECT "LRESTGEN"
  1690. BEGIN
  1691.     ALWAYS
  1692.     BEGIN
  1693.         IF LRESTGEN.GETITEMAMOUNT "LESSER RESTORATION" = 0
  1694.         BEGIN
  1695.             LRESTGEN.ADDINV "LESSER RESTORATION"
  1696.         END
  1697.         WAIT 240
  1698.     END
  1699. END
  1700.  
  1701.  
  1702. OBJECT "GHEALGEN"
  1703. BEGIN
  1704.     ALWAYS
  1705.     BEGIN
  1706.         IF GHEALGEN.GETITEMAMOUNT "GREATER HEALING" = 0
  1707.         BEGIN
  1708.             GHEALGEN.ADDINV "GREATER HEALING"
  1709.         END
  1710.         WAIT 240
  1711.     END
  1712. END
  1713.  
  1714.  
  1715. OBJECT "GMANAGEN"
  1716. BEGIN
  1717.     ALWAYS
  1718.     BEGIN
  1719.         IF GMANAGEN.GETITEMAMOUNT "GREATER MANA" = 0
  1720.         BEGIN
  1721.             GMANAGEN.ADDINV "GREATER MANA"
  1722.         END
  1723.         WAIT 240
  1724.     END
  1725. END
  1726.  
  1727.  
  1728. OBJECT "GRESTGEN"
  1729. BEGIN
  1730.     ALWAYS
  1731.     BEGIN
  1732.         IF GRESTGEN.GETITEMAMOUNT "GREATER RESTORATION" = 0
  1733.         BEGIN
  1734.             GRESTGEN.ADDINV "GREATER RESTORATION"
  1735.         END
  1736.         WAIT 240
  1737.     END
  1738. END
  1739.  
  1740.  
  1741. OBJECT "EHEALGEN"
  1742. BEGIN
  1743.     ALWAYS
  1744.     BEGIN
  1745.         IF EHEALGEN.GETITEMAMOUNT "ENCHANTED HEALING" = 0
  1746.         BEGIN
  1747.             EHEALGEN.ADDINV "ENCHANTED HEALING"
  1748.         END
  1749.         WAIT 240
  1750.     END
  1751. END
  1752.  
  1753.  
  1754. OBJECT "EMANAGEN"
  1755. BEGIN
  1756.     ALWAYS
  1757.     BEGIN
  1758.         IF EMANAGEN.GETITEMAMOUNT "ENCHANTED MANA" = 0
  1759.         BEGIN
  1760.             EMANAGEN.ADDINV "ENCHANTED MANA"
  1761.         END
  1762.         WAIT 240
  1763.     END
  1764. END
  1765.  
  1766.  
  1767. OBJECT "ERESTGEN"
  1768. BEGIN
  1769.     ALWAYS
  1770.     BEGIN
  1771.         IF ERESTGEN.GETITEMAMOUNT "ENCHANTED RESTORATION" = 0
  1772.         BEGIN
  1773.             ERESTGEN.ADDINV "ENCHANTED RESTORATION"
  1774.         END
  1775.         WAIT 240
  1776.     END
  1777. END
  1778.  
  1779.  
  1780.