HexDD.wad - Map42 Scripts

//*****************************************************************************
//
// Decompiled ACS file: MAP42.ACS
// Built from obj file: MAP42.O
//
// Brought to you by DESCRIPT V1.40 (c) R.A.Coward 1996
//
//*****************************************************************************

#include "common.acs"


int mapvar0;
int mapvar1;
int mapvar2;
int mapvar3;
int mapvar4;
int mapvar5;
int mapvar6;
int mapvar7;
int mapvar8;
int mapvar9;
int mapvar10;
int mapvar11;
int mapvar12;
int mapvar13;
int mapvar14;
int mapvar15;
int mapvar16;
int mapvar17;
int mapvar18;

script 1 (void)
    {
    if (mapvar8 != 0)
        {
        Plat_DownWaitUpStay(const: 6, 16, 35);
        tagwait(const: 6);
        }
    }


script 2 (void)
    {
    if (mapvar9 != 0)
        {
        Plat_DownWaitUpStay(const: 7, 16, 35);
        }
    }


script 3 (void)
    {
    if (mapvar10 != 0)
        {
        Plat_DownWaitUpStay(const: 8, 16, 35);
        }
    }


script 4 (void)
    {
    mapvar0 = 1;
    ACS_Execute(const: 8, 0, 0, 0, 0);
    }


script 5 (void)
    {
    mapvar1 = 1;
    ACS_Execute(const: 8, 0, 0, 0, 0);
    }


script 6 (void)
    {
    mapvar2 = 1;
    ACS_Execute(const: 8, 0, 0, 0, 0);
    }


script 7 (void)
    {
    Door_Open(const: 20, 16);
    mapvar3 = 1;
    ACS_Execute(const: 8, 0, 0, 0, 0);
    }


script 8 (void)
    {
    if ((mapvar0 == 1) && (mapvar1 == 1))
        {
        mapvar9 = 1;
        }
    if ((mapvar2 == 1) && (mapvar3 == 1))
        {
        mapvar10 = 1;
        }
    if ((((mapvar0 == 1) && (mapvar1 == 1)) && (mapvar2 == 1)) && (mapvar3 == 1))
        {
        mapvar8 = 1;
        }
    if (((mapvar0 == 1) && (mapvar1 == 1)) && (mapvar4 == 0))
        {
        mapvar4 = 1;
        Polyobj_RotateLeft(11, 8, 64);
        }
    if (((mapvar0 == 1) && (mapvar3 == 1)) && (mapvar5 == 0))
        {
        mapvar5 = 1;
        Polyobj_RotateLeft(9, 8, 64);
        }
    if (((mapvar2 == 1) && (mapvar3 == 1)) && (mapvar6 == 0))
        {
        mapvar6 = 1;
        Polyobj_RotateLeft(5, 8, 64);
        }
    if (((mapvar1 == 1) && (mapvar2 == 1)) && (mapvar7 == 0))
        {
        mapvar7 = 1;
        Polyobj_RotateLeft(7, 8, 64);
        }
    }


script 9 (void)
    {
    Ceiling_LowerAndCrush(const: 9, 64, 100);
    sectorsound("BellRing", 127);
    delay(const: 35);
    Floor_LowerByValueTimes8(const: 11, 96, 14);
    mapvar16 = 1;
    }


script 10 (void)
    {
    mapvar16 = 2;
    delay(const: 210);
    Light_Fade(const: 10, 128, 350);
    Door_Open(const: 9, 4);
    ACS_Execute(const: 4, 0, 0, 0, 0);
    }


script 11 (void)
    {
    if (mapvar11 == 0)
        {
        Door_Close(const: 16, 64);
        delay(const: 15);
        Floor_LowerByValue(const: 14, 32, 112);
        delay(const: 15);
        Ceiling_RaiseByValue(const: 15, 32, 112);
        mapvar11 = 1;
        mapvar17 = 1;
        }
    }


script 12 (void)
    {
    mapvar12++;
    clearlinespecial();
    if (mapvar12 == 4)
        {
        Ceiling_MoveToValueTimes8(const: 16, 16, 32, FALSE);
        ACS_Execute(const: 5, 0, 0, 0, 0);
        mapvar17 = 2;
        }
    }


script 13 (void)
    {
    ACS_Execute(const: 6, 0, 0, 0, 0);
    Door_Open(const: 18, 32);
    Polyobj_Move(const: 1, 64, 128, 16);
    Polyobj_Move(const: 2, 64, 128, 40);
    Polyobj_Move(const: 3, 64, 128, 64);
    mapvar18 = 1;
    }


script 14 (void)
    {
    mapvar13++;
    clearlinespecial();
    if (mapvar13 == 3)
        {
        mapvar18 = 2;
        Polyobj_Move(const: 1, 8, 0, 16);
        Polyobj_Move(const: 2, 8, 0, 40);
        Polyobj_Move(const: 3, 8, 0, 64);
        }
    }


script 15 (void)
    {
    if (mapvar14 == 0)
        {
        mapvar14++;
        Floor_RaiseByValue(const: 25, 8, 128);
        tagwait(const: 25);
        setlinetexture(1, SIDE_FRONT, TEXTURE_MIDDLE, "TPORT1");
        setlinetexture(1, SIDE_BACK, TEXTURE_MIDDLE, "TPORT1");
        setlinetexture(2, SIDE_FRONT, TEXTURE_MIDDLE, "TPORTX");
        setlinetexture(2, SIDE_BACK, TEXTURE_MIDDLE, "TPORTX");
        Thing_Activate(const: 1);
        Thing_Spawn(const: 249, T_ITEMFLIGHT, 0);
        Light_RaiseByValue(const: 26, 48);
        setlinespecial(1, 74, 48, 0, 0, 0, 0);
        }
    }


script 16 (int aline0)
    {
    mapvar15++;
    setlinetexture(aline0, SIDE_FRONT, TEXTURE_MIDDLE, "PLANET1");
    if (mapvar15 == 4)
        {
        ACS_Execute(const: 15, 0, 0, 0, 0);
        }
    }


script 17 (int aline0)
    {
    setlinetexture(aline0, SIDE_FRONT, TEXTURE_MIDDLE, "PLANET1");
    ACS_Execute(const: 7, 41, 0, 0, 0);
    printbold(s: "NOW THAT'S ODD...");
    delay(const: 105);
    setlinespecial(6, 80, 21, 0, 0, 0, 0);
    Teleport_NewMap(const: 41, 0);
    }


script 18 (void)
    {
    if (mapvar16 == 1)
        {
        Door_Raise(const: 9, 64, 35);
        }
    }


script 19 (void)
    {
    if (mapvar17 == 1)
        {
        Door_Raise(const: 16, 64, 35);
        }
    }


script 20 (void)
    {
    if (mapvar18 == 1)
        {
        Teleport(const: 200);
        }
    }


script 21 (void)
    {
    Teleport_NewMap(const: 41, 0);
    }


script 100 OPEN
    {
    mapvar4 = 0;
    mapvar5 = 0;
    mapvar6 = 0;
    mapvar7 = 0;
    mapvar16 = 0;
    mapvar17 = 0;
    mapvar18 = 0;
    setlinespecial(3, 129, 5, 16, 3, 0, 0);
    setlinespecial(4, 129, 3, 16, 4, 0, 0);
    setlinespecial(5, 129, 4, 16, 5, 0, 0);
    setlinespecial(6, 129, 2, 17, 6, 0, 0);
    setlinespecial(7, 129, 6, 16, 7, 0, 0);
    terminate;
    }


script 200 OPEN
    {
    if (gametype() != GAME_NET_DEATHMATCH)
        {
        terminate;
        }
    mapvar8 = 1;
    mapvar9 = 1;
    mapvar10 = 1;
    delay(random(70, 105));
    Polyobj_RotateLeft(11, 8, 64);
    delay(random(70, 105));
    Ceiling_MoveToValueTimes8(const: 13, 16, 48, FALSE);
    delay(random(70, 105));
    Polyobj_RotateLeft(9, 8, 64);
    delay(random(70, 105));
    Polyobj_RotateLeft(7, 8, 64);
    delay(random(70, 105));
    Polyobj_RotateLeft(5, 8, 64);
    delay(random(70, 105));
    Door_Open(const: 21, 8);
    delay(random(70, 105));
    Door_Open(const: 22, 8);
    delay(random(70, 105));
    Door_Open(const: 23, 8);
    delay(random(70, 105));
    Door_Open(const: 24, 8);
    delay(random(700, 1500));
    ACS_Execute(const: 15, 0, 0, 0, 0);
    terminate;
    }


script 254 OPEN
    {
    int var0;

    delay(random(4, 7) * 100);
    var0 = random(1, 6);
    switch (var0)
        {
        case 1:
            {
            ambientsound("Ambient10", random(const: 30, 90));
            break;
            }
        case 2:
            {
            ambientsound("Ambient10", random(const: 80, 100));
            break;
            }
        case 3:
            {
            ambientsound("Ambient11", random(const: 50, 90));
            break;
            }
        case 4:
            {
            ambientsound("Ambient12", random(const: 50, 80));
            break;
            }
        case 5:
            {
            ambientsound("Ambient12", random(const: 50, 70));
            break;
            }
        case 6:
            {
            ambientsound("Ambient14", random(const: 50, 100));
            break;
            }
        }
    restart;
    }


script 255 OPEN
    {
    int var0;
    int var1;
    int thing2;

    if (gametype() != GAME_NET_COOPERATIVE)
        {
        delay(const: 4200);
        }
    delay(const: 4200);
    var1 = random(const: 1, 10);
    if (var1 < 7)
        {
        thing2 = T_ETTIN;
        }
    else if (((var1 == 7) || (var1 == 8)) || (var1 == 9))
        {
        thing2 = T_FIREGARGOYLE;
        }
    else if (var1 == 10)
        {
        thing2 = T_DEMON;
        }
    var0 = random(const: 0, 1);
    if (var0 == 1)
        {
        Thing_Spawn(255, thing2, 0);
        }
    var0 = random(const: 0, 1);
    if (var0 == 1)
        {
        Thing_Spawn(254, thing2, 0);
        }
    var0 = random(const: 0, 1);
    if (var0 == 1)
        {
        Thing_Spawn(253, thing2, 0);
        }
    var0 = random(const: 0, 1);
    if (var0 == 1)
        {
        Thing_Spawn(252, thing2, 0);
        }
    var0 = random(const: 0, 1);
    if (var0 == 1)
        {
        Thing_Spawn(251, thing2, 0);
        }
    var0 = random(const: 0, 1);
    if (var0 == 1)
        {
        Thing_Spawn(250, thing2, 0);
        }
    var0 = random(const: 0, 1);
    if (var0 == 1)
        {
        Thing_Spawn(241, T_WATERLURKER, 0);
        }
    restart;
    }


//*****************************************************************************