Level 2004 April/Level_2004-04_112_cda.bin/data1.cab/GameFiles/resources.rvr/master.s

Text File | 1999-09-10 | 15.9 KB | 926 lines

OBJECT "TownTel0"
BEGIN
    ACTIVATE
    BEGIN
        IF TOWNTELACTIVESTATE = 0
        BEGIN
            //    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 DUNGEON LEVEL 1
            IF TOWNTELSTATE = 6
            BEGIN
                NOWAIT CONTROL OFF
                player.STOP
                FADESCREENOUT
                WAIT SCREENFADE
                 FADESCREENIN
                player.POS 8645 10067 168 48
                TOWNTEL6.SETFROMEXIT
                CONTROL ON
            END
            //    TELEPORTS TO DUNGEON LEVEL 2
            IF TOWNTELSTATE = 7
            BEGIN
                NOWAIT CONTROL OFF
                player.STOP
                FADESCREENOUT
                WAIT SCREENFADE
                 FADESCREENIN
                player.POS 10951 13017 40 41
                TOWNTEL7.SETFROMEXIT
                CONTROL ON
            END
            //    TELEPORTS TO DUNGEON LEVEL 3
            IF TOWNTELSTATE = 8
            BEGIN
                NOWAIT CONTROL OFF
                player.STOP
                FADESCREENOUT
                WAIT SCREENFADE
                 FADESCREENIN
                player.POS 9903 10290 424 44
                TOWNTEL8.SETFROMEXIT
                CONTROL ON
            END
            //    TELEPORTS TO DUNGEON LEVEL 5
            IF TOWNTELSTATE = 9
            BEGIN
                NOWAIT CONTROL OFF
                player.STOP
                FADESCREENOUT
                WAIT SCREENFADE
                 FADESCREENIN
                player.POS 7472 10208 40 46
                TOWNTEL9.SETFROMEXIT
                CONTROL ON
            END
            //    TELEPORTS TO LABYRINTH LEVEL 1
            IF TOWNTELSTATE = 10
            BEGIN
                NOWAIT CONTROL OFF
                player.STOP
                FADESCREENOUT
                WAIT SCREENFADE
                 FADESCREENIN
                player.POS 10383 9522 456 51
                TOWNTEL10.SETFROMEXIT
                CONTROL ON
            END
            //    TELEPORTS TO LABYRINTH LEVEL 3
            IF TOWNTELSTATE = 11
            BEGIN
                NOWAIT CONTROL OFF
                player.STOP
                FADESCREENOUT
                WAIT SCREENFADE
                 FADESCREENIN
                player.POS 10671 10002 456 53
                TOWNTEL11.SETFROMEXIT
                CONTROL ON
            END
            //    TELEPORTS TO LABYRINTH LEVEL 4
            IF TOWNTELSTATE = 12
            BEGIN
                NOWAIT CONTROL OFF
                player.STOP
                FADESCREENOUT
                WAIT SCREENFADE
                 FADESCREENIN
                player.POS 12880 11392 160 54
                TOWNTEL12.SETFROMEXIT
                CONTROL ON
            END
            //    TELEPORTS TO LABYRINTH LEVEL 6
            IF TOWNTELSTATE = 13
            BEGIN
                NOWAIT CONTROL OFF
                player.STOP
                FADESCREENOUT
                WAIT SCREENFADE
                 FADESCREENIN
                player.POS 10005 9911 744 56
                TOWNTEL13.SETFROMEXIT
                CONTROL ON
            END
            //    TELEPORTS TO LABYRINTH LEVEL 8
            IF TOWNTELSTATE = 14
            BEGIN
                NOWAIT CONTROL OFF
                player.STOP
                FADESCREENOUT
                WAIT SCREENFADE
                 FADESCREENIN
                player.POS 10724 9622 40 58
                TOWNTEL14.SETFROMEXIT
                CONTROL ON
            END
        END
    END
    ALWAYS
    BEGIN
        SET TOWNTELACTIVESTATE = 0
        WAIT 10
    END
END

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

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

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

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

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

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

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

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

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

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

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

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

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

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


OBJECT "CAVDOOR1"
BEGIN
USE
     BEGIN
    CONTROL OFF
    PLAYER.STOP
    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
    PLAYER.STOP
    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
    player.COMBAT OFF
    PLAYER.STOP
    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
    player.COMBAT OFF
    PLAYER.STOP
    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
    player.COMBAT OFF
    PLAYER.STOP
    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
        player.COMBAT OFF
        PLAYER.STOP
        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
        PLAYER.STOP
         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
        PLAYER.STOP
         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
        player.COMBAT OFF
        PLAYER.STOP
         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