home *** CD-ROM | disk | FTP | other *** search
/ Level 2004 April / Level_2004-04_112_cda.bin / data1.cab / GameFiles / Modules / Ahkuilon.rvm / dungeon.s < prev    next >
Encoding:
Text File  |  1999-10-07  |  22.8 KB  |  1,488 lines

  1.  
  2.  
  3. OBJECT "LV49BTEL1"
  4. BEGIN
  5.     CUBE PLAYER 3555,5095,600 3622,5166,700
  6.     BEGIN
  7.         IF JHAGATELSTATE < 1
  8.         BEGIN
  9.             NOWAIT CONTROL OFF
  10.             player.STOP
  11.             player.POS 4224 5126 606
  12.             CONTROL ON
  13.         END
  14.     END
  15. END
  16.  
  17.  
  18. OBJECT "LV48ENT"
  19. BEGIN
  20.     CUBE 7200,9600,170 7300,9700,200
  21.     BEGIN
  22.         NOWAIT CONTROL OFF
  23.         player.STOP
  24.         FADESCREENOUT
  25.         WAIT SCREENFADE
  26.          FADESCREENIN
  27.         player.POS 21174 8594 568 5
  28.         CONTROL ON
  29.     END
  30. END
  31.  
  32.  
  33. OBJECT "Jhagadummy"
  34. BEGIN
  35.     ALWAYS
  36.     BEGIN
  37.         WAIT 24
  38.  
  39.         IF JHAGA2.STAT HEALTH = 0
  40.         BEGIN
  41.             CONTROL OFF
  42.             LOCKE.STOP
  43.             SET JHAGATELSTATE = 0
  44.             WAIT 240
  45.             ADD TELEPORTER
  46.             FADESCREENOUT
  47.             WAIT SCREENFADE
  48.             FADESCREENIN
  49.             player.POS 10086 11660 16
  50.             CONTROL ON
  51.             TOGGLE PAUSE = 1
  52.         END
  53.     END
  54. END
  55.  
  56.  
  57. OBJECT "Jhaga2"
  58. BEGIN
  59.     CUBE PLAYER 3250,4880,600 3300,5390,700
  60.     BEGIN
  61.         SETCDVOLUME HALF
  62.         WAIT 1
  63.         CONTROL OFF
  64.         player.STOP
  65.         player.COMBAT OFF
  66.         PLAYER.GOTO 3088 5148
  67.         say VII13JHA00
  68.         Player.say VII13LOC00
  69.         say VII13JHA01 
  70.         say VII13JHA02
  71.         Player.say VII13LOC01
  72.         say VII13JHA03
  73.         say VII13JHA04
  74.         say VII13JHA05
  75.         say VII13JHA06
  76.         Player.say VII13LOC02
  77.         say VII13JHA07
  78.         Player.say VII13LOC03
  79.         wait 30
  80.         SET JHAGATELSTATE = 1
  81.         CONTROL ON    
  82.         stat aggressive = 1
  83.         SETCDVOLUME FULL
  84.         TOGGLE PAUSE = 1
  85.     END
  86. END
  87.  
  88.  
  89. OBJECT "NAKRA"
  90. BEGIN
  91.     CUBE PLAYER 9800,9800,240 10000,9994,400
  92.     BEGIN
  93.         CONTROL OFF
  94.         PLAYER.STOP
  95.         player.COMBAT OFF
  96.         SET MISTSTATE = 7
  97.         PLAYER.GOTO 9886 9843
  98.         PLAYER.TRY WALK
  99.         PLAYER.PIVOT 0
  100.         NOWAIT PLAYER.TRY ACQUIRE
  101.         NOWAIT ADDAT 9886 9843 322 NAKRNOTH
  102.         NOWAIT NAKRNOTH.FACE 120
  103.         WAIT 672
  104.         NOWAIT PLAYER.ADDINV "NAKRANOTH BOOTS"
  105.         NOWAIT PLAYER.ADDINV "NAKRANOTH LEG PLATE"
  106.         NOWAIT PLAYER.ADDINV "NAKRANOTH CHEST PLATE"
  107.         PLAYER.ADDINV "NAKRANOTH GAUNTLETS"
  108.         WAIT 24
  109.         WAIT 24
  110.         FADESCREENOUT
  111.         WAIT SCREENFADE
  112.         FADESCREENIN
  113.         player.POS 5826 24871 32 0
  114.         CONTROL ON
  115.         TOGGLE PAUSE = 1
  116.     END
  117. END
  118.  
  119.  
  120.  
  121. OBJECT "Lv45L5"
  122. BEGIN
  123.     USE
  124.     BEGIN
  125.         CONTROL OFF
  126.         player.STOP
  127.         player.COMBAT OFF
  128.  
  129.         player.GOTORELATIVEPOSITION THIS 20 40
  130.         
  131.         IF player.ISATRELATIVEPOSITION THIS 20 40 = 1
  132.         BEGIN
  133.             player.FACE 0
  134.             OPERATE player
  135.             player.TRY "WPUSHLEVER"
  136.         END
  137.         
  138.         ACTIVATE
  139.         WAIT 48
  140.  
  141.         SCROLLTO LV45D99
  142.         WAIT 48
  143.         PLAY KEYS
  144.         Lv45D98.stat LOCKED = 0
  145.         Lv45D99.stat LOCKED = 0
  146.         WAIT 48
  147.         SCROLLTO LOCKE
  148.         WAIT 48
  149.         CONTROL ON
  150.         TOGGLE PAUSE = 1
  151.     END
  152. END
  153.  
  154. OBJECT "Lv48Lev88"
  155. BEGIN
  156.     USE
  157.     BEGIN
  158.         CONTROL OFF
  159.         player.STOP
  160.         player.COMBAT OFF
  161.  
  162.         player.GOTORELATIVEPOSITION THIS 20 40
  163.         
  164.         IF player.ISATRELATIVEPOSITION THIS 20 40 = 1
  165.         BEGIN
  166.             player.FACE 0
  167.             OPERATE player
  168.             player.TRY "WPUSHLEVER"
  169.         END
  170.         
  171.         ACTIVATE
  172.         WAIT 48
  173.  
  174.         FADESCREENOUT
  175.         WAIT SCREENFADE
  176.         player.TOGGLE INVISIBLE
  177.  
  178.         NOWAIT player.POS 9735 9849 17
  179.         NOWAIT FADESCREENIN
  180.         NOWAIT SET SABUSTATE = 98
  181.         TOGGLE PAUSE = 1
  182.     END
  183. END
  184.  
  185. OBJECT "Lv48Lev88B"
  186. BEGIN
  187.     CUBE player 9700,9800,0 9800,9900,100
  188.     BEGIN
  189.         IF SABUSTATE = 98
  190.         BEGIN
  191.             WAIT 24
  192.             PLAY KEYS
  193.             Lv48D1.stat LOCKED = 0
  194.             WAIT 48
  195.             FADESCREENOUT
  196.             WAIT SCREENFADE
  197.             player.TOGGLE INVISIBLE
  198.             FADESCREENIN
  199.             player.POS 16545 19966 274
  200.             CONTROL ON
  201.             SET SABUSTATE = 0
  202.         END
  203.     END
  204. END
  205.  
  206. OBJECT "Lv48Lev6"
  207. BEGIN
  208.     USE
  209.     BEGIN
  210.         CONTROL OFF
  211.         player.STOP
  212.         player.COMBAT OFF
  213.  
  214.         player.GOTORELATIVEPOSITION THIS 20 40
  215.         
  216.         IF player.ISATRELATIVEPOSITION THIS 20 40 = 1
  217.         BEGIN
  218.             player.FACE 0
  219.             OPERATE player
  220.             player.TRY "WPUSHLEVER"
  221.         END
  222.         
  223.         ACTIVATE
  224.         WAIT 48
  225.  
  226.         FADESCREENOUT
  227.         WAIT SCREENFADE
  228.         player.TOGGLE INVISIBLE = 1
  229.  
  230.         NOWAIT player.POS 9664 8432 32
  231.         NOWAIT FADESCREENIN
  232.         NOWAIT SET SABUSTATE = 99
  233.         TOGGLE PAUSE = 1
  234.     END
  235. END
  236.  
  237. OBJECT "Lv48Lev6B"
  238. BEGIN
  239.     CUBE player 9600,8400,0 9700,8500,100
  240.     BEGIN
  241.         IF SABUSTATE = 99
  242.         BEGIN
  243.             WAIT 24
  244.             PLAY KEYS
  245.             Lv48D4.stat LOCKED = 0
  246.             WAIT 48
  247.             FADESCREENOUT
  248.             WAIT SCREENFADE
  249.             player.TOGGLE INVISIBLE
  250.             FADESCREENIN
  251.             player.POS 11738 9270 17
  252.             CONTROL ON
  253.             SET SABUSTATE = 0
  254.         END
  255.     END
  256. END
  257.  
  258. //    ****Jhaga & Sabu cutscene****
  259.  
  260. OBJECT "Jhaga1"
  261. BEGIN
  262.     CUBE player 7440,9520,0 7500,9800,250
  263.     BEGIN
  264.     SETCDVOLUME HALF
  265.     WAIT 1
  266.     control off
  267.     player.stop
  268.     player.combat off
  269.     FADESCREENOUT
  270.     wait screenfade
  271.     FADESCREENIN
  272.     centeron Jhaga1
  273.     wait 92
  274.     pivotobject sabucut
  275.     say VII1JHA00
  276.     Sabucut.pivotobject jhaga1
  277.     Sabucut.say VII1SAB00
  278.     say VII1JHA01
  279.     Sabucut.say VII1SAB01
  280.     say VII1JHA02 
  281.     say VII1JHA03    
  282.     say VII1JHA04
  283.     Sabucut.say VII1SAB02
  284.     say VII1JHA05
  285.     Sabucut.say VII1SAB03
  286.     NOWAIT pivot 200
  287.     SABUCUT.PIVOT 48
  288.     //SABUCUT.TRY WALK
  289.     NOWAIT Sabucut.goto 6990 8800
  290.     WAIT 24
  291.     FADESCREENOUT
  292.     wait screenfade
  293.     FADESCREENIN
  294.     centeron player
  295.     control on
  296.     SETCDVOLUME FULL
  297.     toggle pause=1
  298.     END
  299. END
  300.  
  301.  
  302. OBJECT "Chef1"
  303. BEGIN
  304.     DIALOG
  305.     BEGIN
  306.         SETCDVOLUME HALF
  307.         WAIT 1
  308.         CONTROL OFF
  309.         player.STOP
  310.         player.COMBAT OFF
  311.  
  312.         IF chefstate = 1
  313.         BEGIN
  314.             say VII5CHE09
  315.         END
  316.         IF chefstate = 0
  317.         BEGIN
  318.             say VII5CHE00
  319.             say VII5CHE01
  320.             player.say VII5LOC00
  321.             say VII5CHE02
  322.             player.say VII5LOC01
  323.             say VII5CHE03
  324.             player.say VII5LOC02  
  325.             say VII5CHE04
  326.  
  327.             :Start
  328.  
  329.                 Choice Place VII5LOC03
  330.                 Choice You VII5LOC04 
  331.                 wait response
  332.  
  333.             :You
  334.                 
  335.                 player.say VII5LOC04
  336.                 say VII5CHE05    
  337.                 jump Start 
  338.  
  339.             :Place
  340.                 
  341.                 player.say VII5LOC03
  342.                 say VII5CHE06
  343.                 player.say VII5LOC05
  344.                 say VII5CHE07
  345.                 player.say VII5LOC06
  346.                 say VII5CHE08
  347.                 player.say VII5LOC07
  348.                 say VII5CHE09
  349.                 SET chefstate = 1
  350.         END
  351.                 
  352.         CONTROL ON
  353.         SETCDVOLUME FULL
  354.     END    
  355. END
  356.  
  357.  
  358.  
  359. OBJECT "Torturer"
  360. BEGIN
  361.     DIALOG
  362.     BEGIN
  363.         SETCDVOLUME HALF
  364.         WAIT 1
  365.         CONTROL OFF
  366.         player.STOP
  367.         player.COMBAT OFF
  368.  
  369.         IF torturerstate = 1
  370.         BEGIN
  371.             say VII6TOR05
  372.         END
  373.         IF torturerstate = 0
  374.         BEGIN
  375.             :Start
  376.  
  377.                 Choice Sick VII6LOC00
  378.                 Choice Sadistic VII6LOC01
  379.                 wait response
  380.     
  381.                   :Sadistic
  382.         
  383.                 player.say VII6LOC01
  384.                 say VII6TOR00 
  385.                 jump Start
  386.  
  387.             :Sick
  388.         
  389.                 player.say VII6LOC00
  390.                 say VII6TOR01
  391.                 say VII6TOR02
  392.                 say VII6TOR03
  393.                 player.say VII6LOC02
  394.                 say VII6TOR04
  395.                 say VII6TOR05
  396.                 say VII6TOR06
  397.                 player.say VII6LOC03
  398.                 say VII6TOR07
  399.                 player.say VII6LOC04
  400.                 SET torturerstate = 1
  401.         END
  402.         CONTROL ON
  403.         SETCDVOLUME FULL
  404.     END
  405. END
  406.  
  407.  
  408. OBJECT "Wanet"
  409. BEGIN
  410.     DIALOG
  411.     BEGIN
  412.         SETCDVOLUME HALF
  413.         WAIT 1
  414.         CONTROL OFF
  415.         player.STOP
  416.         player.COMBAT OFF
  417.  
  418.         IF wanetstate = 1
  419.         BEGIN
  420.             say VII7WAN09
  421.             say VII7WAN10
  422.         END
  423.         IF wanetstate = 0
  424.         BEGIN
  425.             player.say VII7LOC00
  426.             say VII7WAN00
  427.             player.say VII7LOC01
  428.             player.say VII7LOC02
  429.             say VII7WAN01
  430.             say VII7WAN02
  431.  
  432.             :Start 
  433.  
  434.                 Choice Really VII7LOC03 
  435.                 Choice Destroy VII7LOC04
  436.                  wait response
  437.  
  438.             :Destroy
  439.                 
  440.                 player.say VII7LOC04
  441.                 say VII7WAN03
  442.                 jump Start
  443.  
  444.             :Really
  445.                 
  446.                 player.say VII7LOC03
  447.                 say VII7WAN05
  448.                 say VII7WAN06
  449.                 player.say VII7LOC05
  450.                 say VII7WAN07
  451.                 say VII7WAN08
  452.                 
  453.             :Finish
  454.             
  455.                 player.say VII7LOC06
  456.                 player.say VII7LOC07
  457.                 say VII7WAN09
  458.                 say VII7WAN10
  459.                 player.say VII7LOC08
  460.                 SET wanetstate = 1
  461.         END
  462.     
  463.         CONTROL ON
  464.         SETCDVOLUME FULL
  465.     END    
  466. END
  467.  
  468.  
  469.  
  470.  
  471. OBJECT "Mort"
  472. begin
  473.     CUBE player 9280,6368,0 9456,6544,144
  474.     BEGIN
  475.         SETCDVOLUME HALF
  476.         WAIT 1
  477.         control off
  478.         player.stop
  479.         player.COMBAT OFF
  480.         wait 48
  481.         player.say VII4LOC00
  482.         player.say VII4LOC01
  483.         wait 48
  484.         player.gotorelativeposition Lv45way01 0 0
  485.         player.gotorelativeposition Lv45way00 0 0
  486.         player.stop
  487.         wait 24
  488.         scrollto mort
  489.         wait 48
  490.         Urgg.say VII4URG00
  491.         Urgg.say VII4URG01
  492.         Slagg.say VII4SLA00
  493.         say VII4MOR00
  494.         Slagg.say VII4SLA01
  495.         say VII4MOR01
  496.         Slagg.say VII4SLA02
  497.         Slagg.say VII4SLA03
  498.         Slagg.say VII4SLA04
  499.         say VII4MOR02
  500.         Urgg.say VII4URG02
  501.         Slagg.say VII4SLA05
  502.         say VII4MOR03
  503.         Urgg.say VII4URG03
  504.         Slagg.say VII4SLA06
  505.         scrollto player
  506.         wait 48
  507.         player.face 100
  508.         player.say VII4LOC02
  509.         player.say VII4LOC03
  510.         Slagg.stat aggressive=1
  511.         Urgg.stat aggressive=1
  512.         stat aggressive=1
  513.         control on
  514.         SETCDVOLUME FULL
  515.         toggle pause=1
  516.     END 
  517. END
  518.  
  519.  
  520.  
  521. OBJECT "Horatio"
  522. begin
  523.     CUBE player 6928,6448,144 7216,5776,0
  524.     BEGIN
  525.         SETCDVOLUME HALF
  526.         WAIT 1
  527.         control off
  528.         player.stop
  529.         player.COMBAT OFF
  530.         player.goto 7024 6064 
  531.         player.pivot 190
  532.         wait 24
  533.         scrollto Horatio
  534.         wait 36
  535.         say VII3HOR00
  536.         player.say VII3LOC00
  537.         say VII3HOR01
  538.         say VII3HOR02
  539.         
  540.         :Start
  541.  
  542.         Choice Who VII3LOC01
  543.         Choice Answer VII3LOC02    
  544.         wait response
  545.  
  546.         :Answer
  547.         
  548.         player.say VII3LOC02
  549.         say VII3HOR04
  550.         jump Finish
  551.  
  552.             :Who
  553.         
  554.         player.say VII3LOC01     
  555.         say VII3HOR03
  556.         jump Finish
  557.  
  558.              :Finish
  559.         
  560.         player.say VII3LOC03
  561.         wait 5
  562.         player.say VII3LOC04
  563.         say VII3HOR05
  564.         say VII3HOR06    
  565.         say VII3HOR07
  566.         say VII3HOR08
  567.         say VII3HOR09
  568.         say VII3HOR10
  569.         say VII3HOR11
  570.         say VII3HOR12
  571.         PLAYER.ADDINV "WOLFSBANE PENDANT"
  572.         wait 24
  573.         toggle invisible=1
  574.         nowait teleporter.delete
  575.         scrollto player
  576.         player.say VII3LOC05
  577.         player.say VII3LOC06
  578.         control on
  579.         SETCDVOLUME FULL
  580.         toggle pause=1  
  581.     END    
  582. END
  583.  
  584.  
  585. //  player MEETS SABU
  586.  
  587. OBJECT "Sabu1"
  588. begin
  589.     CUBE player 8200,9540,0 8333,9666,100
  590.     BEGIN
  591.     SETCDVOLUME HALF
  592.     WAIT 1
  593.     control off
  594.     player.stop
  595.     player.COMBAT OFF
  596.     nowait player.gotorelativeposition sabu1 100 0
  597.     scrollto sabu1
  598.     wait 48
  599.     centeron Sabu1
  600.     player.pivotobject sabu1
  601.     say VII2SAB00
  602.     say VII2SAB01
  603.     say VII2SAB02
  604.     player.say VII2LOC00
  605.     say VII2SAB03
  606.     player.say VII2LOC01
  607.     say VII2SAB04
  608.     say VII2SAB05
  609.     say VII2SAB06
  610.     
  611.     :Start
  612.     
  613.         Choice Ahkuilon VII2LOC02
  614.         Choice Die VII2LOC03
  615.         wait response
  616.  
  617.     :Ahkuilon
  618.     
  619.         player.say VII2LOC02
  620.         say VII2SAB07
  621.         say VII2SAB08
  622.         jump DIEDIE 
  623.  
  624.     :Die
  625.         player.say VII2LOC03 
  626.         say VII2SAB09
  627.         
  628.     :DIEDIE
  629.     
  630.         player.say VII2LOC04
  631.         player.say VII2LOC05
  632.         say VII2SAB10
  633.         say VII2SAB11
  634.         state  9
  635.         state 11
  636.         wait 12
  637.         add teleporter
  638.         wait 12 
  639.         FADECHARACTEROUT SABU1
  640.         wait 24
  641.         SABU1.TOGGLE INVISIBLE
  642.         scrollto player
  643.         wait 24
  644.         SABU1.POS 7888 9840 0
  645.         centeron player
  646.         player.PIVOT 100
  647.         player.say VII2LOC06
  648.         teleporter.delete
  649.         control on
  650.         SETCDVOLUME FULL
  651.         toggle pause=1
  652.       END
  653. END
  654.  
  655.  
  656. //Sabu script, crossroads room
  657.  
  658. OBJECT "Sabu3"
  659. begin
  660.     CUBE player 8500,7400,0 8700,7462,100 
  661.     BEGIN
  662.         SETCDVOLUME HALF
  663.         WAIT 1
  664.         control off
  665.         player.stop
  666.         player.COMBAT OFF
  667.         SCROLLTO SABU3
  668.         WAIT 24
  669.         CENTERON SABU3
  670.         player.pivotobject sabu3
  671.         TRY WALK
  672.         GOTORELATIVEPOSITION Lv45d5 30 0
  673.         WAIT 12
  674.         LV45D5.STATE "OPENING"
  675.         LV45D5.STATE "OPEN"
  676.         WAIT 12
  677.         WAIT 12
  678.         PIVOTOBJECT player
  679.         WAIT 24
  680.         PIVOT 190
  681.         WAIT 12
  682.         GOTORELATIVEPOSITION Lv45d5 -30 0
  683.         FADECHARACTEROUT SABU3
  684.         WAIT 24
  685.         TOGGLE INVISIBLE = 1
  686.         LV45D5.STATE "CLOSING"
  687.         Lv45D5.stat LOCKED=1
  688.         WAIT 24
  689.         SCROLLTO player
  690.         WAIT 24
  691.         POS 8096 6976 16
  692.         LV45D5.STATE "CLOSED"
  693.         LV45D5.STATE "CLOSED"
  694.         control on
  695.         SETCDVOLUME FULL
  696.         toggle pause=1
  697.     END
  698. END
  699.  
  700.  
  701. //Sabu script, monster trap room
  702.  
  703. OBJECT "Sabu4"
  704. begin
  705.  
  706.   CUBE player 7312,7600,0 7216,7696,144
  707.   BEGIN
  708.     SETCDVOLUME HALF
  709.     WAIT 1
  710.     control off
  711.     player.stop
  712.     player.COMBAT OFF
  713.     wait 48
  714.     scrollto Sabu4
  715.     wait 24
  716.     centeron Sabu4
  717.     wait 12
  718.     pivotobject Lv45L11
  719.     wait 24
  720.     state "pushlever"
  721.     wait 12
  722.     Lv45L11.state "opening"
  723.     wait 24
  724.     goto 7088 7872
  725.     pivot 60
  726.     wait 48
  727.     state 9
  728.     state 11
  729.     add teleporter
  730.     wait 24
  731.     FADECHARACTEROUT SABU4
  732.     wait 24
  733.     
  734.     scrollto Kantha3
  735.     wait 48
  736.     SABU4.TOGGLE INVISIBLE = 1
  737.     SABU4.POS 6720 7808 0
  738.  
  739.     Lv45D7.STATE "OPENING"
  740.     wait 24
  741.     Kantha3.goto 7072 7973    
  742.     wait 48
  743.     scrollto Kantha4
  744.     wait 48
  745.     Lv45D8.STATE "OPENING"
  746.     wait 24
  747.     Kantha4.goto 7072 7688
  748.     wait 48
  749.  
  750.     scrollto player
  751.     wait 48
  752.     teleporter.delete
  753.     Kantha3.stat aggressive=1
  754.     Kantha4.stat aggressive=1
  755.     control on
  756.     SETCDVOLUME FULL
  757.     toggle pause=1
  758.     END
  759. END
  760.  
  761. //Sabu script, Escape of Sabu
  762.  
  763. OBJECT "Sabu5"
  764. begin
  765.     CUBE player 7357,8600,0 7410,8800,144
  766.     BEGIN
  767.         SETCDVOLUME HALF
  768.         WAIT 1
  769.         control off
  770.         player.stop
  771.         player.COMBAT OFF
  772.         scrollto sabu5
  773.         wait 48
  774.         centeron sabu5
  775.         PIVOTOBJECT player
  776.         say VII2SAB12
  777.         say VII2SAB13
  778.         say VII2SAB14
  779.         state 12
  780.         state 13
  781.         state 14
  782.         nowait add redfont
  783.         redfont.move 0 0 100
  784.         wait 24
  785.         redfont.delete
  786.         say VII2SAB15
  787.         say VII2SAB16
  788.         player.goto 7231 8667
  789.         wait 24
  790.         player.say VII2LOC07
  791.         Say VII2SAB17
  792.         say VII2SAB18
  793.         say VII2SAB19  
  794.         state 9
  795.         state 10
  796.         state 11
  797.         add teleporter
  798.         wait 24
  799.         FADECHARACTEROUT SABU5
  800.         wait 48
  801.         SABU5.TOGGLE INVISIBLE = 1
  802.         SABU5.POS 7376 8912 0    
  803.         teleporter.delete
  804.         scrollto player
  805.         player.pivot 100
  806.         player.say VII2LOC08
  807.         control on
  808.         SETCDVOLUME FULL
  809.         toggle pause=1
  810.     END
  811. END
  812.  
  813.  
  814. OBJECT "Sabu6"
  815. BEGIN
  816.     CUBE player 10000,9306,100 10016,9322,200      
  817.     BEGIN
  818.         IF SABUSTATE = 1
  819.         BEGIN
  820.             control off
  821.             player.stop
  822.             player.FACE 128
  823.             player.delinv "Poisoned Dagger"
  824.             player.addinv "DUMMY DAGGER"
  825.             player.EQUIP "DUMMY DAGGER"
  826.             WAIT 48
  827.             WAIT 48
  828.             WAIT 48
  829.             player.gotorelativeposition sabu6 0 -40
  830.             player.pivot 128
  831.             player.try combat
  832.             WAIT 48
  833.             player.try thrust
  834.             state 7
  835.             try dead        
  836.             wait 24
  837.             FADECHARACTEROUT SABU6
  838.             WAIT 24
  839.             SABU6.TOGGLE INVISIBLE
  840.             SABU6.POS 9792 9136 0
  841.             player.try walk
  842.             player.DELINV "DUMMY DAGGER"
  843.             player.addinv "Poisoned Dagger"
  844.             control on
  845.             LV46KAN1.STAT AGGRESSIVE = 1
  846.             LV46KAN2.STAT AGGRESSIVE = 1
  847.             SET SABUKILLSTATE = 1
  848.             FADECHARACTEROUT SABU6
  849.             TOGGLE PAUSE = 1
  850.         END
  851.     END
  852.     CUBE player 9850,9570,0 10150,9700,100
  853.     BEGIN
  854.         IF SABUSTATE = 0
  855.         BEGIN
  856.             SETCDVOLUME HALF
  857.             WAIT 1
  858.             control off
  859.             player.stop
  860.             player.COMBAT OFF
  861.             SET SABUSTATE = 1
  862.             player.PIVOTOBJECT SABU6
  863.             WAIT 24        
  864.             scrollto 10001 9535 144
  865.             wait 24
  866.             centeron 10001 9535 144
  867.             wait 24
  868.             say VII9SAB00
  869.             say VII9SAB01
  870.             Wait 48
  871.  
  872.         :Start 
  873.  
  874.             Choice Blood VII9LOC00
  875.             Choice Cause VII9LOC01
  876.             Choice Head VII9LOC02
  877.             wait response
  878.  
  879.         :Blood
  880.     
  881.             player.say VII9LOC00
  882.             jump Finish
  883.  
  884.         :Cause
  885.     
  886.             player.say VII9LOC01
  887.             jump Finish
  888.  
  889.         :Head
  890.     
  891.             player.say VII9LOC02
  892.         
  893.         :Finish
  894.     
  895.             wait 24
  896.             say VII9SAB02
  897.             say VII9SAB03
  898.             say VII9SAB04
  899.             WAIT 24
  900.             state 9
  901.             state 10
  902.             state 11
  903.             NOWAIT ADDAT 10001 9458 144 redfont
  904.             REDFONT.MOVE 0 0 100
  905.             WAIT 48
  906.             REDFONT.DELETE
  907.             SCROLLTO player
  908.             WAIT 24
  909.             CENTERON player
  910.             WAIT 24
  911.             ADD teleporter
  912.             FADECHARACTEROUT player
  913.             WAIT 24
  914.             TELEPORTER.DELETE
  915.             WAIT 24 
  916.             FADESCREENOUT
  917.             WAIT SCREENFADE
  918.             FADESCREENIN
  919.             player.pos 7031 10300 16
  920.             FADECHARACTERIN player
  921.             CONTROL ON
  922.             SETCDVOLUME FULL
  923.         END
  924.     END
  925. END
  926.  
  927.  
  928. OBJECT "Shegra"
  929. BEGIN
  930.     DIALOG
  931.     BEGIN
  932.         SETCDVOLUME HALF
  933.         WAIT 1
  934.         CONTROL OFF
  935.         player.STOP
  936.         player.COMBAT OFF
  937.  
  938.         IF shegrastate = 1
  939.             BEGIN
  940.                 player.pivot 100
  941.                 player.say VII11LOC17
  942.             END
  943.         IF shegrastate = 0
  944.             BEGIN
  945.                 player.gotorelativeposition Shegra1 -32 14 
  946.                 nowait pivotobject player
  947.                 player.pivotobject Shegra1
  948.                 say VII11SHE00
  949.                 say VII11SHE01
  950.                 player.say VII11LOC00
  951.                 say VII11SHE02
  952.     
  953.                 :Start
  954.  
  955.                 Choice Hell VII11LOC01
  956.                 Choice Human VII11LOC02
  957.                 Choice Good VII11LOC03
  958.                 wait response
  959.  
  960.                 :Good
  961.                 
  962.                 player.say VII11LOC03
  963.                 say VII11SHE03
  964.                 jump Start
  965.  
  966.                 :Hell
  967.                 
  968.                 player.say VII11LOC01
  969.                 say VII11SHE04
  970.                 jump Start
  971.  
  972.                 :Human
  973.                 
  974.                 player.say VII11LOC02
  975.                 say VII11SHE05
  976.                 player.say VII11LOC04
  977.                 player.say VII11LOC05
  978.                 say VII11SHE06
  979.                 player.say VII11LOC06
  980.                 player.say VII11LOC07
  981.                 say VII11SHE07
  982.                 player.say VII11LOC08
  983.                 say VII11SHE08
  984.                 say VII11SHE09
  985.                 player.say VII11LOC09
  986.                 say VII11SHE10
  987.             
  988.                 :Start2
  989.  
  990.                 Choice Oh VII11LOC10
  991.                 Choice Hear VII11LOC11
  992.                 wait response
  993.  
  994.                 :Hear
  995.                 
  996.                 player.say VII11LOC11
  997.                 jump Finito
  998.  
  999.                 :Oh
  1000.                 
  1001.                 player.say VII11LOC10 
  1002.                 
  1003.                 :Finito
  1004.                 
  1005.                 say VII11SHE11
  1006.                 player.say VII11LOC12
  1007.                 say VII11SHE12
  1008.                 player.say VII11LOC13
  1009.                 say VII11SHE13
  1010.  
  1011.                 :Start3
  1012.  
  1013.                 Choice Fine VII11LOC14
  1014.                 Choice No VII11LOC15
  1015.                 wait response
  1016.  
  1017.                 :No
  1018.                 
  1019.                 player.say VII11LOC15
  1020.                 say VII11SHE14
  1021.                 jump Start3
  1022.  
  1023.                 :Fine
  1024.                 
  1025.                 player.say VII11LOC14
  1026.                 player.addinv "poisoned dagger"
  1027.                 give locke "entrance key"
  1028.                 wait 24
  1029.                 NOWAIT player.TRY BOWING
  1030.                 TRY KISS
  1031.                 say VII11SHE15
  1032.                 player.say VII11LOC16
  1033.                 say VII11SHE16
  1034.                 player.pivot 96
  1035.                 player.say VII11LOC17
  1036.                 SET shegrastate = 1
  1037.         END
  1038.         CONTROL ON
  1039.         SETCDVOLUME FULL
  1040.     END
  1041. END
  1042.  
  1043.  
  1044.  
  1045.  
  1046. OBJECT "Druhgslave1"
  1047. BEGIN
  1048.     DIALOG
  1049.     BEGIN
  1050.         SETCDVOLUME HALF
  1051.         WAIT 1
  1052.         CONTROL OFF
  1053.         player.STOP
  1054.         player.COMBAT OFF
  1055.  
  1056.         IF SABUKILLSTATE = 0
  1057.         BEGIN
  1058.             try walk
  1059.             player.say VII8LOC00
  1060.             say VII8DR100
  1061.             say VII8DR101
  1062.             player.say VII8LOC01
  1063.             say VII8DR102
  1064.             player.say VII8LOC02
  1065.             say VII8DR103
  1066.             face 10
  1067.             try pick
  1068.         END
  1069.         IF SABUKILLSTATE = 1
  1070.         BEGIN
  1071.             TRY WALK
  1072.             player.SAY VII12LOC06
  1073.             TRY CELEBRATE            
  1074.         END
  1075.         
  1076.         CONTROL ON
  1077.         SETCDVOLUME FULL
  1078.     END
  1079.     ALWAYS
  1080.     BEGIN
  1081.         IF SABUKILLSTATE = 0
  1082.         BEGIN
  1083.             TRY PICK
  1084.             WAIT 24
  1085.         END
  1086.         IF SABUKILLSTATE = 1
  1087.         BEGIN
  1088.             WAIT 24
  1089.             FACE 90
  1090.             TRY CELEBRATE
  1091.         END
  1092.     END
  1093. END
  1094.  
  1095.  
  1096. OBJECT "Druhgslave2"
  1097. BEGIN
  1098.     DIALOG
  1099.     BEGIN
  1100.         SETCDVOLUME HALF
  1101.         WAIT 1
  1102.         CONTROL OFF
  1103.         player.STOP
  1104.         player.COMBAT OFF
  1105.  
  1106.         IF SABUKILLSTATE = 0
  1107.         BEGIN
  1108.             try walk
  1109.             player.say VII8LOC03
  1110.             say VII8DR200
  1111.             player.say VII8LOC04
  1112.             say VII8DR201
  1113.             player.say VII8LOC05
  1114.             say VII8DR202
  1115.             say VII8DR203
  1116.             player.say VII8LOC06
  1117.             say VII8DR204
  1118.             player.say VII8LOC07
  1119.             say VII8DR205
  1120.             face 0
  1121.             try pick
  1122.         END
  1123.         IF SABUKILLSTATE = 1
  1124.         BEGIN
  1125.             IF DRUHGKEYSTATE = 1
  1126.             BEGIN
  1127.                 TRY WALK
  1128.                 player.SAY VII12LOC06
  1129.                 TRY CELEBRATE
  1130.             END
  1131.             IF DRUHGKEYSTATE = 0
  1132.             BEGIN
  1133.             TRY WALK
  1134.             SAY VII12DR100 
  1135.             SAY VII12DR101
  1136.     
  1137.             :START
  1138.         
  1139.             CHOICE HAGORO VII12LOC00
  1140.             CHOICE GETOUT VII12LOC01
  1141.             wait response
  1142.     
  1143.             :GETOUT
  1144.             
  1145.             player.SAY VII12LOC01
  1146.             SAY VII12DR102
  1147.             player.SAY VII12LOC02
  1148.             player.SAY VII12LOC03
  1149.             SAY VII12DR103
  1150.             JUMP START
  1151.  
  1152.             :HAGORO
  1153.  
  1154.             player.SAY VII12LOC00
  1155.             SAY VII12DR104
  1156.             player.SAY VII12LOC04
  1157.             SAY VII12DR105
  1158.             player.SAY VII12LOC05
  1159.             SAY VII12DR106
  1160.             SAY VII12DR200
  1161.             SAY VII12DR201
  1162.             ADDINV "GUARDROOM KEY"
  1163.             player.SAY VII12LOC06
  1164.             TRY CELEBRATE
  1165.             SET DRUHGKEYSTATE = 1
  1166.             END
  1167.         END
  1168.         
  1169.         CONTROL ON
  1170.         SETCDVOLUME FULL
  1171.     END
  1172.     ALWAYS
  1173.     BEGIN
  1174.         IF SABUKILLSTATE = 0
  1175.         BEGIN
  1176.             TRY PICK
  1177.             WAIT 24
  1178.         END
  1179.         IF SABUKILLSTATE = 1
  1180.         BEGIN
  1181.             FACE 140
  1182.             WAIT 24
  1183.             TRY CELEBRATE
  1184.         END
  1185.     END
  1186. END
  1187.  
  1188.  
  1189. OBJECT "Druhgslave3"
  1190. BEGIN
  1191.     DIALOG
  1192.     BEGIN
  1193.         SETCDVOLUME HALF
  1194.         WAIT 1
  1195.         CONTROL OFF
  1196.         player.STOP
  1197.         player.COMBAT OFF
  1198.  
  1199.         IF SABUKILLSTATE = 0
  1200.         BEGIN
  1201.             try walk
  1202.             player.say VII8LOC08
  1203.             say VII8DR300
  1204.  
  1205.             :Start
  1206.          
  1207.             Choice GetOut VII8LOC09
  1208.             Choice Help VII8LOC10
  1209.             Choice Thinking VII8LOC11
  1210.             wait response
  1211.  
  1212.             :GetOut
  1213.             
  1214.             player.say VII8LOC09
  1215.             say VII8DR301
  1216.             player.say VII8LOC12
  1217.             say VII8DR302
  1218.             player.say VII8LOC13
  1219.             jump Start
  1220.  
  1221.             :Help
  1222.             
  1223.             player.say VII8LOC10
  1224.             say VII8DR303
  1225.             jump Start
  1226.  
  1227.             :Thinking
  1228.         
  1229.             player.say VII8LOC11
  1230.             face 10
  1231.             try pick
  1232.         END
  1233.         IF SABUKILLSTATE = 1
  1234.         BEGIN
  1235.             IF DRUHGKEYSTATE = 1
  1236.             BEGIN
  1237.                 TRY WALK
  1238.                 player.SAY VII12LOC06
  1239.                 TRY CELEBRATE
  1240.             END
  1241.             IF DRUHGKEYSTATE = 0
  1242.             BEGIN
  1243.             TRY WALK
  1244.             SAY VII12DR100 
  1245.             SAY VII12DR101
  1246.     
  1247.             :START2
  1248.         
  1249.             CHOICE HAGORO VII12LOC00
  1250.             CHOICE GETOUT2 VII12LOC01
  1251.             wait response
  1252.     
  1253.             :GETOUT2
  1254.             
  1255.             player.SAY VII12LOC01
  1256.             SAY VII12DR102
  1257.             player.SAY VII12LOC02
  1258.             player.SAY VII12LOC03
  1259.             SAY VII12DR103
  1260.             JUMP START2
  1261.  
  1262.             :HAGORO
  1263.  
  1264.             player.SAY VII12LOC00
  1265.             SAY VII12DR104
  1266.             player.SAY VII12LOC04
  1267.             SAY VII12DR105
  1268.             player.SAY VII12LOC05
  1269.             SAY VII12DR106
  1270.             SAY VII12DR200
  1271.             SAY VII12DR201
  1272.             ADDINV "GUARDROOM KEY"
  1273.             player.SAY VII12LOC06
  1274.             TRY CELEBRATE
  1275.             SET DRUHGKEYSTATE = 1
  1276.             END
  1277.         END
  1278.         
  1279.         CONTROL ON
  1280.         SETCDVOLUME FULL
  1281.  
  1282.     END
  1283.     ALWAYS
  1284.     BEGIN
  1285.         IF SABUKILLSTATE = 0
  1286.         BEGIN
  1287.             TRY PICK
  1288.             WAIT 24
  1289.         END
  1290.         IF SABUKILLSTATE = 1
  1291.         BEGIN
  1292.             FACE 90
  1293.             WAIT 24
  1294.             TRY CELEBRATE
  1295.         END
  1296.     END
  1297. END
  1298.  
  1299.  
  1300. OBJECT "Slave1"
  1301. BEGIN
  1302.     DIALOG
  1303.     BEGIN    
  1304.         SETCDVOLUME HALF
  1305.         WAIT 1
  1306.         CONTROL OFF
  1307.         player.STOP
  1308.         player.COMBAT OFF
  1309.  
  1310.         IF SABUKILLSTATE = 0
  1311.         BEGIN
  1312.             try walk
  1313.             say VII8DR100
  1314.             face 0
  1315.             try pick
  1316.         END
  1317.         IF SABUKILLSTATE = 1
  1318.         BEGIN
  1319.             TRY WALK
  1320.             player.SAY VII12LOC06
  1321.             TRY CELEBRATE
  1322.         END
  1323.         CONTROL ON
  1324.         SETCDVOLUME FULL
  1325.  
  1326.     END
  1327.     ALWAYS
  1328.     BEGIN
  1329.         IF SABUKILLSTATE = 0
  1330.         BEGIN
  1331.             TRY PICK
  1332.             WAIT 24
  1333.         END
  1334.         IF SABUKILLSTATE = 1
  1335.         BEGIN
  1336.             FACE 120
  1337.             WAIT 24
  1338.             TRY CELEBRATE
  1339.         END
  1340.     END
  1341. END
  1342.  
  1343. OBJECT "Slave2"
  1344. BEGIN
  1345.     DIALOG
  1346.     BEGIN
  1347.         SETCDVOLUME HALF
  1348.         WAIT 1
  1349.         CONTROL ON
  1350.         player.STOP
  1351.         player.COMBAT OFF
  1352.  
  1353.         IF SABUKILLSTATE = 0
  1354.         BEGIN
  1355.             try walk
  1356.             say VII8DR102
  1357.             face 245
  1358.             try pick
  1359.         END
  1360.         IF SABUKILLSTATE = 1
  1361.         BEGIN
  1362.             IF DRUHGKEYSTATE = 1
  1363.             BEGIN
  1364.                 TRY WALK
  1365.                 player.SAY VII12LOC06
  1366.                 TRY CELEBRATE
  1367.             END
  1368.             IF DRUHGKEYSTATE = 0
  1369.             BEGIN
  1370.             TRY WALK
  1371.             SAY VII12DR100 
  1372.             SAY VII12DR101
  1373.     
  1374.             :START
  1375.         
  1376.             CHOICE HAGORO VII12LOC00
  1377.             CHOICE GETOUT VII12LOC01
  1378.             wait response
  1379.     
  1380.             :GETOUT
  1381.             
  1382.             player.SAY VII12LOC01
  1383.             SAY VII12DR102
  1384.             player.SAY VII12LOC02
  1385.             player.SAY VII12LOC03
  1386.             SAY VII12DR103
  1387.             JUMP START
  1388.  
  1389.             :HAGORO
  1390.  
  1391.             player.SAY VII12LOC00
  1392.             SAY VII12DR104
  1393.             player.SAY VII12LOC04
  1394.             SAY VII12DR105
  1395.             player.SAY VII12LOC05
  1396.             SAY VII12DR106
  1397.             SAY VII12DR200
  1398.             SAY VII12DR201
  1399.             ADDINV "GUARDROOM KEY"
  1400.             player.SAY VII12LOC06
  1401.             TRY CELEBRATE
  1402.             SET DRUHGKEYSTATE = 1
  1403.             END
  1404.         END
  1405.         CONTROL ON
  1406.         SETCDVOLUME FULL
  1407.     END
  1408.     ALWAYS
  1409.     BEGIN
  1410.         IF SABUKILLSTATE = 0
  1411.         BEGIN
  1412.             face 0
  1413.             TRY PICK
  1414.             WAIT 24
  1415.         END
  1416.         IF SABUKILLSTATE = 1
  1417.         BEGIN
  1418.             FACE 140
  1419.             WAIT 24
  1420.             TRY CELEBRATE
  1421.         END
  1422.     END
  1423. END
  1424.  
  1425.  
  1426.  
  1427. OBJECT "ANDRIA2"
  1428. BEGIN
  1429.     CUBE player 10000,11450,0 10120,11700,60
  1430.     BEGIN
  1431.         IF ANDREASTATE = 3
  1432.         BEGIN
  1433.             CONTROL OFF
  1434.             player.STOP
  1435.             player.COMBAT OFF
  1436.             WAIT 48
  1437.             player.SAY VII15LOC02
  1438.             SET ANDREASTATE = 4
  1439.             CONTROL ON
  1440.         END
  1441.         IF ANDREASTATE < 3
  1442.         BEGIN
  1443.             CONTROL OFF
  1444.             player.STOP
  1445.             player.COMBAT OFF
  1446.             WAIT 48
  1447.             player.GOTO 10083 11580
  1448.             WAIT 24
  1449.             FADESCREENOUT
  1450.             WAIT SCREENFADE
  1451.             FADESCREENIN
  1452.             player.POS 10083 11580 16 47
  1453.             CONTROL ON
  1454.         END
  1455.     END
  1456. END
  1457.  
  1458. OBJECT "ANDRIA3"
  1459. BEGIN
  1460.     CUBE player 10000,11500,0 10120,11600,60
  1461.     BEGIN
  1462.         CONTROL OFF
  1463.         player.STOP
  1464.         player.COMBAT OFF
  1465.         WAIT 48
  1466.         NOWAIT TOGGLE INVISIBLE = 0
  1467.         FADECHARACTERIN ANDRIA3
  1468.         WAIT 48
  1469.         SAY VII15AND00
  1470.         player.SAY VII15LOC00
  1471.         WAIT 24
  1472.         SAY VII15AND01
  1473.         WAIT 24
  1474.         SAY VII15AND02
  1475.         player.SAY VII15LOC01
  1476.         NOWAIT player.GOTO 10083 11474
  1477.         FADECHARACTEROUT ANDRIA3
  1478.         SET ANDREASTATE = 3
  1479.         FADESCREENOUT
  1480.         WAIT SCREENFADE
  1481.         PLAY VII15AND03
  1482.         WAIT 92
  1483.         FADESCREENIN
  1484.         player.POS 10083 11474 32 49
  1485.     END
  1486. END
  1487.  
  1488.