Level 2004 April/Level_2004-04_112_cda.bin/data1.cab/GameFiles/Modules/Demo/master.s

Text File | 2004-03-19 | 18.4 KB | 1,127 lines

OBJECT "TownTel0"
BEGIN
    ACTIVATE
    BEGIN
        //    TELEPORTS TO KEEP INTERIOR
        IF TOWNTELSTATE = 0
        BEGIN
            NOWAIT CONTROL OFF
            player.STOP
            FADESCREENOUT
            WAIT SCREENFADE
             FADESCREENIN
            player.POS 13177 10747 314
            TOWNTEL0.SETFROMEXIT
            CONTROL ON
        END
        //    TELEPORTS TO ANCIENT TOWER
        IF TOWNTELSTATE = 1
        BEGIN
            NOWAIT CONTROL OFF
            player.STOP
            FADESCREENOUT
            WAIT SCREENFADE
             FADESCREENIN
            player.POS 10020 10470 40 3
            TOWNTEL1.SETFROMEXIT
            CONTROL ON
        END
        //    TELEPORTS TO CAVE LEVEL 1
        IF TOWNTELSTATE = 2
        BEGIN
            NOWAIT CONTROL OFF
            player.STOP
            FADESCREENOUT
            WAIT SCREENFADE
             FADESCREENIN
            player.POS 10368 10928 56 30
            TOWNTEL2.SETFROMEXIT
            CONTROL ON
        END
        //    TELEPORTS TO CAVE LEVEL 2
        IF TOWNTELSTATE = 3
        BEGIN
            NOWAIT CONTROL OFF
            player.STOP
            FADESCREENOUT
            WAIT SCREENFADE
             FADESCREENIN
            player.POS 8695 8425 533 32
            TOWNTEL3.SETFROMEXIT
            CONTROL ON
        END
        //    TELEPORTS TO CAVE LEVEL 4
        IF TOWNTELSTATE = 4
        BEGIN
            NOWAIT CONTROL OFF
            player.STOP
            FADESCREENOUT
            WAIT SCREENFADE
             FADESCREENIN
            player.POS 8042 10110 294 36
            TOWNTEL4.SETFROMEXIT
            CONTROL ON
        END
        //    TELEPORTS TO CAVE LEVEL 6
        IF TOWNTELSTATE = 5
        BEGIN
            NOWAIT CONTROL OFF
            player.STOP
            FADESCREENOUT
            WAIT SCREENFADE
             FADESCREENIN
            player.POS 10134 9190 104 37
            TOWNTEL5.SETFROMEXIT
            CONTROL ON
        END
        //    TELEPORTS TO LABYRINTH LEVEL 1
        IF TOWNTELSTATE = 6
        BEGIN
            NOWAIT CONTROL OFF
            player.STOP
            FADESCREENOUT
            WAIT SCREENFADE
             FADESCREENIN
            player.POS 10383 9522 456 51
            TOWNTEL6.SETFROMEXIT
            CONTROL ON
        END
        //    TELEPORTS TO LABYRINTH LEVEL 3
        IF TOWNTELSTATE = 7
        BEGIN
            NOWAIT CONTROL OFF
            player.STOP
            FADESCREENOUT
            WAIT SCREENFADE
             FADESCREENIN
            player.POS 10671 10002 456 53
            TOWNTEL7.SETFROMEXIT
            CONTROL ON
        END
        //    TELEPORTS TO LABYRINTH LEVEL 4
        IF TOWNTELSTATE = 14
        BEGIN
            NOWAIT CONTROL OFF
            player.STOP
            FADESCREENOUT
            WAIT SCREENFADE
             FADESCREENIN
            player.POS 12880 11392 160 54
            TOWNTEL14.SETFROMEXIT
            CONTROL ON
        END
        //    TELEPORTS TO LABYRINTH LEVEL 6
        IF TOWNTELSTATE = 8
        BEGIN
            NOWAIT CONTROL OFF
            player.STOP
            FADESCREENOUT
            WAIT SCREENFADE
             FADESCREENIN
            player.POS 10005 9911 744 56
            TOWNTEL8.SETFROMEXIT
            CONTROL ON
        END
        //    TELEPORTS TO LABYRINTH LEVEL 8
        IF TOWNTELSTATE = 9
        BEGIN
            NOWAIT CONTROL OFF
            player.STOP
            FADESCREENOUT
            WAIT SCREENFADE
             FADESCREENIN
            player.POS 10724 9622 40 58
            TOWNTEL9.SETFROMEXIT
            CONTROL ON
        END
        //    TELEPORTS TO DUNGEON LEVEL 1
        IF TOWNTELSTATE = 10
        BEGIN
            NOWAIT CONTROL OFF
            player.STOP
            FADESCREENOUT
            WAIT SCREENFADE
             FADESCREENIN
            player.POS 8645 10067 168 48
            TOWNTEL10.SETFROMEXIT
            CONTROL ON
        END
        //    TELEPORTS TO DUNGEON LEVEL 2
        IF TOWNTELSTATE = 11
        BEGIN
            NOWAIT CONTROL OFF
            player.STOP
            FADESCREENOUT
            WAIT SCREENFADE
             FADESCREENIN
            player.POS 10951 13017 40 43
            TOWNTEL11.SETFROMEXIT
            CONTROL ON
        END
        //    TELEPORTS TO DUNGEON LEVEL 3
        IF TOWNTELSTATE = 12
        BEGIN
            NOWAIT CONTROL OFF
            player.STOP
            FADESCREENOUT
            WAIT SCREENFADE
             FADESCREENIN
            player.POS 9903 10290 424 44
            TOWNTEL12.SETFROMEXIT
            CONTROL ON
        END
        //    TELEPORTS TO DUNGEON LEVEL 5
        IF TOWNTELSTATE = 13
        BEGIN
            NOWAIT CONTROL OFF
            player.STOP
            FADESCREENOUT
            WAIT SCREENFADE
             FADESCREENIN
            player.POS 7472 10208 40 46
            TOWNTEL11.SETFROMEXIT
            CONTROL ON
        END
    END
END

OBJECT "TOWNTEL1"
BEGIN
    ACTIVATE
    BEGIN
        NOWAIT CONTROL OFF
        player.STOP
        SET TOWNTELSTATE = 1
        TOWNTEL0.SETFROMEXIT
        FADESCREENOUT
        WAIT SCREENFADE
         FADESCREENIN
        player.POS 13177 10747 314 2
        CONTROL ON
    END
END

OBJECT "TOWNTEL2"
BEGIN
    ACTIVATE
    BEGIN
        NOWAIT CONTROL OFF
        player.STOP
        SET TOWNTELSTATE = 2
        TOWNTEL0.SETFROMEXIT
        FADESCREENOUT
        WAIT SCREENFADE
         FADESCREENIN
        player.POS 13177 10747 314 2
        CONTROL ON
    END
END

OBJECT "TOWNTEL3"
BEGIN
    ACTIVATE
    BEGIN
        NOWAIT CONTROL OFF
        player.STOP
        SET TOWNTELSTATE = 3
        TOWNTEL0.SETFROMEXIT
        FADESCREENOUT
        WAIT SCREENFADE
         FADESCREENIN
        player.POS 13177 10747 314 2
        CONTROL ON
    END
END

OBJECT "TOWNTEL4"
BEGIN
    ACTIVATE
    BEGIN
        NOWAIT CONTROL OFF
        player.STOP
        SET TOWNTELSTATE = 4
        TOWNTEL0.SETFROMEXIT
        FADESCREENOUT
        WAIT SCREENFADE
         FADESCREENIN
        player.POS 13177 10747 314 2
        CONTROL ON
    END
END

OBJECT "TOWNTEL5"
BEGIN
    ACTIVATE
    BEGIN
        NOWAIT CONTROL OFF
        player.STOP
        SET TOWNTELSTATE = 5
        TOWNTEL0.SETFROMEXIT
        FADESCREENOUT
        WAIT SCREENFADE
         FADESCREENIN
        player.POS 13177 10747 314 2
        CONTROL ON
    END
END

OBJECT "TOWNTEL6"
BEGIN
    ACTIVATE
    BEGIN
        NOWAIT CONTROL OFF
        player.STOP
        SET TOWNTELSTATE = 6
        TOWNTEL0.SETFROMEXIT
        FADESCREENOUT
        WAIT SCREENFADE
         FADESCREENIN
        player.POS 13177 10747 314 2
        CONTROL ON
    END
END

OBJECT "TOWNTEL7"
BEGIN
    ACTIVATE
    BEGIN
        NOWAIT CONTROL OFF
        player.STOP
        SET TOWNTELSTATE = 7
        TOWNTEL0.SETFROMEXIT
        FADESCREENOUT
        WAIT SCREENFADE
         FADESCREENIN
        player.POS 13177 10747 314 2
        CONTROL ON
    END
END

OBJECT "TOWNTEL8"
BEGIN
    ACTIVATE
    BEGIN
        NOWAIT CONTROL OFF
        player.STOP
        SET TOWNTELSTATE = 8
        TOWNTEL0.SETFROMEXIT
        FADESCREENOUT
        WAIT SCREENFADE
         FADESCREENIN
        player.POS 13177 10747 314 2
        CONTROL ON
    END
END

OBJECT "TOWNTEL9"
BEGIN
    ACTIVATE
    BEGIN
        NOWAIT CONTROL OFF
        player.STOP
        SET TOWNTELSTATE = 9
        TOWNTEL0.SETFROMEXIT
        FADESCREENOUT
        WAIT SCREENFADE
         FADESCREENIN
        player.POS 13177 10747 314 2
        CONTROL ON
    END
END

OBJECT "TOWNTEL10"
BEGIN
    ACTIVATE
    BEGIN
        NOWAIT CONTROL OFF
        player.STOP
        SET TOWNTELSTATE = 10
        TOWNTEL0.SETFROMEXIT
        FADESCREENOUT
        WAIT SCREENFADE
         FADESCREENIN
        player.POS 13177 10747 314 2
        CONTROL ON
    END
END

OBJECT "TOWNTEL11"
BEGIN
    ACTIVATE
    BEGIN
        NOWAIT CONTROL OFF
        player.STOP
        SET TOWNTELSTATE = 11
        TOWNTEL0.SETFROMEXIT
        FADESCREENOUT
        WAIT SCREENFADE
         FADESCREENIN
        player.POS 13177 10747 314 2
        CONTROL ON
    END
END

OBJECT "TOWNTEL12"
BEGIN
    ACTIVATE
    BEGIN
        NOWAIT CONTROL OFF
        player.STOP
        SET TOWNTELSTATE = 12
        TOWNTEL0.SETFROMEXIT
        FADESCREENOUT
        WAIT SCREENFADE
         FADESCREENIN
        player.POS 13177 10747 314 2
        CONTROL ON
    END
END

OBJECT "TOWNTEL13"
BEGIN
    ACTIVATE
    BEGIN
        NOWAIT CONTROL OFF
        player.STOP
        SET TOWNTELSTATE = 13
        TOWNTEL0.SETFROMEXIT
        FADESCREENOUT
        WAIT SCREENFADE
         FADESCREENIN
        player.POS 13177 10747 314 2
        CONTROL ON
    END
END

OBJECT "TOWNTEL14"
BEGIN
    ACTIVATE
    BEGIN
        NOWAIT CONTROL OFF
        player.STOP
        SET TOWNTELSTATE = 14
        TOWNTEL0.SETFROMEXIT
        FADESCREENOUT
        WAIT SCREENFADE
         FADESCREENIN
        player.POS 13177 10747 314 2
        CONTROL ON
    END
END


OBJECT "CAVDOOR1"
BEGIN
USE
     BEGIN
    CONTROL OFF
    IF THIS.ISOUTSIDE player = 1
         BEGIN
             player.GOTORELATIVEDISTANCE THIS 48 -32
             player.FACE 0
             NOWAIT OPERATE player
             NOWAIT player.TRY "WOPENDOOROUT"
        END
    ELSE
        BEGIN
             player.GOTORELATIVEDISTANCE THIS -52 32
             player.FACE 128
             NOWAIT OPERATE player
             NOWAIT player.TRY "WOPENDOORIN"
        END
    WAIT 24
    FADESCREENOUT
    WAIT SCREENFADE
    CONTROL ON
    FADESCREENIN
    ACTIVATE
    THIS.STATE "CLOSED"
    THIS.STATE "CLOSED"
    END
END

OBJECT "CAVDOOR2"
BEGIN
USE
     BEGIN
    CONTROL OFF
    IF THIS.ISOUTSIDE player = 1
         BEGIN
             player.GOTORELATIVEDISTANCE THIS -62 -32
             player.FACE 64
             NOWAIT OPERATE player
             NOWAIT player.TRY "WOPENDOORIN"
        END
    ELSE
        BEGIN
             player.GOTORELATIVEDISTANCE THIS 52 -100
             player.FACE 192
             NOWAIT OPERATE player
             NOWAIT player.TRY "WOPENDOOROUT"
        END
    WAIT 24
    FADESCREENOUT
    WAIT SCREENFADE
    CONTROL ON
    FADESCREENIN
    ACTIVATE
    THIS.STATE "CLOSED"
    THIS.STATE "CLOSED"
    END
END


OBJECT "PORTEW"
BEGIN
USE
     BEGIN
    CONTROL OFF
    IF THIS.ISOUTSIDE player = 1
         BEGIN
         player.GOTORELATIVEDISTANCE THIS 20 0
         player.FACE 0
         NOWAIT STATE "OPENING"
         NOWAIT player.TRY "WOPENPORT"
    END
    ELSE
        BEGIN
         player.GOTORELATIVEDISTANCE THIS -20 0
         player.FACE 128
         NOWAIT STATE "OPENING"
         NOWAIT player.TRY "WOPENPORT"
    END
    WAIT 24
    FADESCREENOUT
    WAIT SCREENFADE
    CONTROL ON
    FADESCREENIN
    ACTIVATE
    THIS.STATE "CLOSED"
    THIS.STATE "CLOSED"
    END
END

OBJECT "PORTNS"
BEGIN
USE
     BEGIN
    CONTROL OFF
    IF THIS.ISOUTSIDE player = 1
         BEGIN
         player.GOTORELATIVEDISTANCE THIS -20 -64
         player.FACE 64
         NOWAIT STATE "OPENING"
         NOWAIT player.TRY "WOPENPORT"
    END
    ELSE
        BEGIN
         player.GOTORELATIVEDISTANCE THIS -30 64
         player.FACE 192
         NOWAIT STATE "OPENING"
         NOWAIT player.TRY "WOPENPORT"
    END
    WAIT 24
    FADESCREENOUT
    WAIT SCREENFADE
    CONTROL ON
    FADESCREENIN
    ACTIVATE
    THIS.STATE "CLOSED"
    THIS.STATE "CLOSED"
    END
END

OBJECT "INPORTNS"
BEGIN
USE
     BEGIN
    CONTROL OFF
    IF THIS.ISOUTSIDE player = 0
         BEGIN
         player.GOTORELATIVEDISTANCE THIS -25 -64
        player.FACE 64
         NOWAIT STATE "OPENING"
         NOWAIT player.TRY "WOPENPORT"
        WAIT 48
        player.GOTORELATIVEDISTANCE THIS -30 64
        END
    ELSE
        BEGIN
         player.GOTORELATIVEDISTANCE THIS -25 64
        player.FACE 190
        NOWAIT STATE "OPENING"
         NOWAIT player.TRY "WOPENPORT"
        WAIT 48
        player.GOTORELATIVEDISTANCE THIS -45 -64
        END
    CONTROL ON
    STATE "CLOSING"
    STATE "CLOSED"
    STATE "CLOSED"
    END
END

OBJECT "INPORTEW"
BEGIN
    USE
     BEGIN
        CONTROL OFF
        IF THIS.ISOUTSIDE player = 1
         BEGIN
             player.GOTORELATIVEDISTANCE THIS 25 0
            player.FACE 0
             NOWAIT STATE "OPENING"
             NOWAIT player.TRY "WOPENPORT"
            WAIT 48
            player.GOTORELATIVEDISTANCE THIS -35 0
        END
        ELSE
        BEGIN
             player.GOTORELATIVEDISTANCE THIS -25 0
            player.FACE 120
             NOWAIT STATE "OPENING"
             NOWAIT player.TRY "WOPENPORT"
            WAIT 48
            player.GOTORELATIVEDISTANCE THIS 30 0
        END
    CONTROL ON
    STATE "CLOSING"
    STATE "CLOSED"
    STATE "CLOSED"
    END
END

OBJECT "InDoor1"
begin
    USE
    BEGIN
        CONTROL OFF
        player.COMBAT OFF
         IF THIS.ISOUTSIDE player = 1
         BEGIN
             player.GOTORELATIVEDISTANCE THIS 42 -32
             player.FACEOBJECT THIS 15
             OPERATE player
             NOWAIT player.TRY "WOPENDOOROUT"
            WAIT 24
            player.GOTORELATIVEDISTANCE THIS -35 20
             WAIT 24
            CONTROL ON
            THIS.STATE "CLOSINGOUT"
            THIS.STATE "CLOSED"
            THIS.STATE "CLOSED"
         END
         ELSE
         BEGIN
             player.GOTORELATIVEDISTANCE THIS -25 18
             player.FACEOBJECT THIS -32
             OPERATE player
             NOWAIT player.TRY "WOPENDOORIN"
            WAIT 24
            player.GOTORELATIVEDISTANCE THIS 40 -15
             WAIT 24
            CONTROL ON
            THIS.STATE "CLOSINGOUT"
            THIS.STATE "CLOSED"
            THIS.STATE "CLOSED"
        END
    END
END

OBJECT "DOOR1"
begin
    USE
    BEGIN
        CONTROL OFF
        player.COMBAT OFF
         IF THIS.ISOUTSIDE player = 1
             BEGIN
             IF THIS.STATE = 1
                 BEGIN
                 player.GOTORELATIVEDISTANCE THIS 42 -32
                 IF player.ISATRELATIVEDISTANCE THIS 42 -32 = 1
                     BEGIN
                     player.FACEOBJECT THIS 15
                     OPERATE player
                     NOWAIT player.TRY "WCLOSEDOOROUT"
                END
                 END
             ELSE
                 BEGIN
                 player.GOTORELATIVEDISTANCE THIS 42 -32
                 IF player.ISATRELATIVEDISTANCE THIS 42 -32 = 1
                     BEGIN
                     player.FACEOBJECT THIS 15
                     OPERATE player
                     NOWAIT player.TRY "WOPENDOOROUT"
                END
                 END
             END
         ELSE
             BEGIN
             IF THIS.STATE = 1
                 BEGIN
                 player.GOTORELATIVEDISTANCE THIS -25 18
                 IF player.ISATRELATIVEDISTANCE THIS -25 18 = 1
                     BEGIN
                     player.FACEOBJECT THIS -32
                     OPERATE player
                     NOWAIT player.TRY "WCLOSEDOORIN"
                    END
                 END
             ELSE
                 BEGIN
                 player.GOTORELATIVEDISTANCE THIS -25 18
                 IF player.ISATRELATIVEDISTANCE THIS -25 18 = 1
                     BEGIN
                     player.FACEOBJECT THIS -32
                     OPERATE player
                     NOWAIT player.TRY "WOPENDOORIN"
                    END
                 END
             END
        WAIT 24
        FADESCREENOUT
        WAIT SCREENFADE
         CONTROL ON
        FADESCREENIN
        ACTIVATE
        THIS.STATE "CLOSED"
        THIS.STATE "CLOSED"
    END
END

OBJECT "DOOR2"
begin


 USE

     BEGIN
        CONTROL OFF
         IF THIS.ISOUTSIDE player = 1
             BEGIN
             IF THIS.STATE = 1
                 BEGIN
                 player.GOTORELATIVEDISTANCE THIS 42 -32
                 IF player.ISATRELATIVEDISTANCE THIS 42 -32 = 1
                     BEGIN
                     player.FACEOBJECT THIS 15
                     OPERATE player
                     player.TRY "WCLOSEDOOROUT"
                     END
                 END
             ELSE
                 BEGIN
                 player.GOTORELATIVEDISTANCE THIS 42 -32
                 IF player.ISATRELATIVEDISTANCE THIS 42 -32 = 1
                     BEGIN
                     player.FACEOBJECT THIS 15
                     OPERATE player
                     player.TRY "WOPENDOOROUT"
                     END
                 END
             END
         ELSE
             BEGIN
             IF THIS.STATE = 1
                 BEGIN
                 player.GOTORELATIVEDISTANCE THIS -25 18
                 IF player.ISATRELATIVEDISTANCE THIS -25 18 = 1
                     BEGIN
                     player.FACEOBJECT THIS -32
                     OPERATE player
                     player.TRY "WCLOSEDOORIN"
                     END
                 END
             ELSE
                 BEGIN
                 player.GOTORELATIVEDISTANCE THIS -25 18
                 IF player.ISATRELATIVEDISTANCE THIS -25 18 = 1
                     BEGIN
                     player.FACEOBJECT THIS -32
                     OPERATE player
                     player.TRY "WOPENDOORIN"
                     END
                 END
             END
        WAIT 24
        FADESCREENOUT
        WAIT SCREENFADE
         CONTROL ON
        FADESCREENIN
        ACTIVATE
        THIS.STATE "CLOSED"
        THIS.STATE "CLOSED"
     END
END

OBJECT "PedOne"
BEGIN
    USE "Water Vial"
    BEGIN
        SET PEDONEVAR = 1
        STATE 1
        player.delinv "Water Vial"
    END
    USE "Acid Vial"
    BEGIN
        SET PEDONEVAR = 1
        STATE 1
        player.delinv "Acid Vial"
    END
    USE "Root Vial"
    BEGIN
        SET PEDONEVAR = 1
        STATE 1
        player.delinv "Root Vial"
    END
    USE "Blue Flower Vial"
    BEGIN
        SET PEDONEVAR = 1
        STATE 1
        player.delinv "Blue Flower Vial"
    END
    USE "Issathi Claw Vial"
    BEGIN
        SET PEDONEVAR = 1
        STATE 1
        player.delinv "Issathi Claw Vial"
    END
    USE "Bone Vial"
    BEGIN
        SET PEDONEVAR = 1
        STATE 1
        player.delinv "Bone Vial"
    END
    USE
    BEGIN
        IF PEDONEVAR = 0
        BEGIN
            STATE 0
        END
        ELSE
        BEGIN
            STATE 1
        END
    END
END

OBJECT "PedTwo"
BEGIN
    USE "Water Vial"
    BEGIN
        SET PEDTWO = 1
        STATE=1
        player.delinv "Water Vial"
        toggle pause=1
    END
    USE "Acid Vial"
    BEGIN
        SET PEDTWO = 1
        STATE=1
        player.delinv "Acid Vial"
        toggle pause=1
    END
    USE "Root Vial"
    BEGIN
        SET PEDTWO = 1
        STATE=1
        player.delinv "Root Vial"
        toggle pause=1
    END
    USE "Blue Flower Vial"
    BEGIN
        SET PEDTWO = 1
        STATE=1
        player.delinv "Blue Flower Vial"
        toggle pause=1
    END
    USE "Issathi Claw Vial"
    BEGIN
        SET PEDTWO = 1
        STATE=1
        player.delinv "Issathi Claw Vial"
        toggle pause=1
    END
    USE "Bone Vial"
    BEGIN
        SET PEDTWO = 1
        STATE=1
        player.delinv "Bone Vial"
        toggle pause=1
    END
    USE
    BEGIN
        IF PEDTWO=0
        BEGIN
            STATE 0
        END
        ELSE
        BEGIN
            STATE 1
        END
    END
END

OBJECT "PedThree"
BEGIN
    USE "Water Vial"
    BEGIN
        SET PEDTHREE = 1
        STATE=1
        player.delinv "Water Vial"
        toggle pause=1
    END
    USE "Acid Vial"
    BEGIN
        SET PEDTHREE = 1
        STATE=1
        player.delinv "Acid Vial"
        toggle pause=1
    END
    USE "Root Vial"
    BEGIN
        SET PEDTHREE = 1
        STATE=1
        player.delinv "Root Vial"
        toggle pause=1
    END
    USE "Blue Flower Vial"
    BEGIN
        SET PEDTHREE = 1
        STATE=1
        player.delinv "Blue Flower Vial"
        toggle pause=1
    END
    USE "Issathi Claw Vial"
    BEGIN
        SET PEDTHREE = 1
        STATE=1
        player.delinv "Issathi Claw Vial"
        toggle pause=1
    END
    USE "Bone Vial"
    BEGIN
        SET PEDTHREE = 1
        STATE=1
        player.delinv "Bone Vial"
        toggle pause=1
    END
    USE
    BEGIN
        IF PEDTHREE=0
        BEGIN
            STATE 0
        END
        ELSE
        BEGIN
            STATE 1
        END
    END
END

OBJECT "PedFour"
BEGIN
    USE "Water Vial"
    BEGIN
        SET PEDFOUR = 1
        STATE=1
        player.delinv "Water Vial"
        toggle pause=1
    END
    USE "Acid Vial"
    BEGIN
        SET PEDFOUR = 1
        STATE=1
        player.delinv "Acid Vial"
        toggle pause=1
    END
    USE "Root Vial"
    BEGIN
        SET PEDFOUR = 1
        STATE=1
        player.delinv "Root Vial"
        toggle pause=1
    END
    USE "Blue Flower Vial"
    BEGIN
        SET PEDFOUR = 1
        STATE=1
        player.delinv "Blue Flower Vial"
        toggle pause=1
    END
    USE "Issathi Claw Vial"
    BEGIN
        SET PEDFOUR = 1
        STATE=1
        player.delinv "Issathi Claw Vial"
        toggle pause=1
    END
    USE "Bone Vial"
    BEGIN
        SET PEDFOUR = 1
        STATE=1
        player.delinv "Bone Vial"
        toggle pause=1
    END
    USE
    BEGIN
        IF PEDFOUR=0
        BEGIN
            STATE 0
        END
        ELSE
        BEGIN
            STATE 1
        END
    END
END

OBJECT "PedFive"
BEGIN
    USE "Water Vial"
    BEGIN
        SET PEDFIVE = 1
        STATE=1
        player.delinv "Water Vial"
        toggle pause=1
    END
    USE "Acid Vial"
    BEGIN
        SET PEDFIVE = 1
        STATE=1
        player.delinv "Acid Vial"
        toggle pause=1
    END
    USE "Root Vial"
    BEGIN
        SET PEDFIVE = 1
        STATE=1
        player.delinv "Root Vial"
        toggle pause=1
    END
    USE "Blue Flower Vial"
    BEGIN
        SET PEDFIVE = 1
        STATE=1
        player.delinv "Blue Flower Vial"
        toggle pause=1
    END
    USE "Issathi Claw Vial"
    BEGIN
        SET PEDFIVE = 1
        STATE=1
        player.delinv "Issathi Claw Vial"
        toggle pause=1
    END
    USE "Bone Vial"
    BEGIN
        SET PEDFIVE = 1
        STATE=1
        player.delinv "Bone Vial"
        toggle pause=1
    END
    USE
    BEGIN
        IF PEDFIVE=0
        BEGIN
            STATE 0
        END
        ELSE
        BEGIN
            STATE 1
        END
    END
END

OBJECT "PedSix"
BEGIN
    USE "Water Vial"
    BEGIN
        SET PEDSIX = 1
        STATE=1
        player.delinv "Water Vial"
        toggle pause=1
    END
    USE "Acid Vial"
    BEGIN
        SET PEDSIX = 1
        STATE=1
        player.delinv "Acid Vial"
        toggle pause=1
    END
    USE "Root Vial"
    BEGIN
        SET PEDSIX = 1
        STATE=1
        player.delinv "Root Vial"
        toggle pause=1
    END
    USE "Blue Flower Vial"
    BEGIN
        SET PEDSIX = 1
        STATE=1
        player.delinv "Blue Flower Vial"
        toggle pause=1
    END
    USE "Issathi Claw Vial"
    BEGIN
        SET PEDSIX = 1
        STATE=1
        player.delinv "Issathi Claw Vial"
        toggle pause=1
    END
    USE "Bone Vial"
    BEGIN
        SET PEDSIX = 1
        STATE=1
        player.delinv "Bone Vial"
        toggle pause=1
    END
    USE
    BEGIN
        IF PEDSIX=0
        BEGIN
            STATE 0
        END
        ELSE
        BEGIN
            STATE 1
        END
    END
END

OBJECT "WarpRuin"
BEGIN
    ALWAYS
    BEGIN
    IF PedOne.state=1
        BEGIN
        IF PedTwo.state=1
            BEGIN
            IF PedThree.state=1
                BEGIN
                IF PedFour.state=1
                    BEGIN
                    IF PedFive.state=1
                        BEGIN
                        IF PedSix.state=1
                            BEGIN
                            barruin.delete
                            toggle invisible
                            toggle pause=1
                            END
                        END
                    END
                END
            END
        END
    END
END