How to View Hexen Scripts?

[Syfo-Dyas]

O.K., so I have loaded up HEXEN in DOOM Builder II to analyze and see what features I can bring over and use in my Odamex maps.

One item of interest that I've found does indeed work under Odamex when using HEXEN as a pWAD for DOOM2, is the rotating walls in the first stage of Hexen. If you walk through the door at the very start of the stage, turn around and press one of the walls to your left or right, they will rotate 180 degrees and start spitting fire balls in random directions.

I examined the Polys and it appears that this is all controlled by a script, but I do not see the script when I got into DOOM Builder's script editor.

So I'm wondering how I access the script so I can learn from it?

[Blue Shadow]

You might want to use Descript to de-compile the scripts.

[Syfo-Dyas]

You were correct, I did want to try that and didn't even know it. Thanks!

[Enjay]

I don't recall if you use DeePsea or not but, if you do, it can also decompile Hexen scripts. The result is pretty good. Here is map01 of Hexen:

---

Code: Select all

//               11 February 2013  10:24:49

// C:\Doom\HEXEN\HEXEN.WAD
// **************************************************************
// ACC script decompiler (c) 1995 Luc Cluitmans                 *
// DeePsea Port 9-16-2004 by Jack Vermeulen (v1.15)             *
// **************************************************************
#include "common.acs"

// BEHAVIOR 19 scripts, 11 strings

// ==================================================

// List of MAP variables:

int mapvar0;
int mapvar1;
int mapvar2;
int mapvar3;
int mapvar4;
int mapvar5;
int mapvar6;


//====================  script 1  ====================

script 1 (int arg0, int arg1, int arg2)  
{
    int var0;

    Floor_LowerInstant(arg0, 0, 16);
    thingsound(arg1, "GlassShatter", 127);
    delay(const:1);
    var0 = 20;
    while(var0 > 0)
    {
        var0--;
        Thing_ProjectileGravity(arg1, random(54, 63), random(0, 255), random(10, 40), random(5, 20));
        Thing_ProjectileGravity(arg2, random(54, 63), random(0, 255), random(10, 40), random(5, 20));
    }
}

//====================  script 2  ====================

script 2 (void)  
{
    if(mapvar0 == 0)
    {
        Polyobj_RotateRight(const:4, 8, 64);
        mapvar0 = 1;
    }
}

//====================  script 3  ====================

script 3 (void)  
{
    int var0;

    Polyobj_OR_RotateRight(const:6, 24, 128);
    delay(const:40);
    while(var0 < 18)
    {
        setlinetexture(1, SIDE_FRONT, TEXTURE_MIDDLE, "SPAWN09");
        delay(const:2);
        setlinetexture(1, SIDE_FRONT, TEXTURE_MIDDLE, "SPAWN10");
        Thing_ProjectileGravity(1, T_FIREBALL1, random(32, 96), random(160, 208), 0);
        thingsound(1, "FireDemonAttack", 127);
        delay(const:2);
        setlinetexture(1, SIDE_FRONT, TEXTURE_MIDDLE, "SPAWN08");
        delay(random(2, 8));
        var0++;
    }
    Polyobj_OR_RotateRight(const:6, 24, 128);
}

//====================  script 4  ====================

script 4 (void)  
{
    int var0;

    delay(const:8);
    while(var0 < 8)
    {
        Polyobj_OR_Move(var0+8, 16, 192, 64);
        delay(const:32);
        var0 += 2;
    }
}

//====================  script 5  ====================

script 5 (void)  
{
    if(gametype() == GAME_NET_DEATHMATCH)
    {
        Door_Open(const:90, 16);
    }
}

//====================  script 6  ====================

script 6 (void)  
{
    int var0;

    delay(const:8);
    while(var0 < 8)
    {
        Polyobj_OR_Move(var0+8, 16, 192, 64);
        delay(const:32);
        var0 += 2;
    }
    Door_Open(const:34, 8);
}

//====================  script 7  ====================

script 7 (void)  
{
    if(mapvar6 < 4)
    {
        Floor_MoveToValueTimes8(const:30, 64, 2, FALSE);
        delay(const:256);
        Floor_RaiseAndCrush(const:30, 32, 100);
        mapvar6++;
    }
}

//====================  script 8  ====================

script 8 (void)  
{
    if(mapvar1 == 0)
    {
        print(s:"THE DOOR IS LOCKED");
    }
}

//====================  script 9  ====================

script 9 (void)  
{
    Door_Open(const:18, 16);
    mapvar1 = 1;
}

//====================  script 10  ====================

script 10 (void)  
{
    Door_Open(const:14, 16);
    mapvar2 = 1;
}

//====================  script 11  ====================

script 11 (void)  
{
    if(mapvar2 == 0)
    {
        print(s:"THE DOOR IS LOCKED");
    }
}

//====================  script 12  ====================

script 12 (void)  
{
    int var0;
    int var1;

    mapvar3 = 1;
    while(var1 < 20)
    {
        while(var0 < 4)
        {
            Pillar_BuildAndCrush(40+var0, random(const:8, 32), 0, 20);
            tagwait(40+var0);
            Pillar_Open(40+var0, random(const:8, 32), 0, 0);
            var0++;
        }
        var0 = 0;
        var1++;
    }
}

//====================  script 13  ====================

script 13 (void)  
{
    if(mapvar3 == 1)
    {
        Thing_Remove(const:32);
    }
}

//====================  script 14  ====================

script 14 (void)  
{
    if(mapvar4 == 0)
    {
        Thing_Spawn(const:33, T_FIREGARGOYLE, 0);
        Thing_Spawn(const:34, T_ETTIN, 128);
        setlinetexture(2, SIDE_FRONT, TEXTURE_MIDDLE, "BLANK");
        setlinetexture(2, SIDE_BACK, TEXTURE_MIDDLE, "BLANK");
        setlineblocking(2, OFF);
        mapvar4 = 1;
    }
}

//====================  script 15  ====================

script 15 (void)  
{
    int var0;
    int var1;

    while(var1 < 20)
    {
        while(var0 < 8)
        {
            Polyobj_OR_Move(8+var0, 16, 64, 64);
            delay(const:32);
            var0 += 2;
        }
        var0 = 0;
        while(var0 < 8)
        {
            Polyobj_OR_Move(8+var0, 16, 192, 64);
            delay(const:32);
            var0 += 2;
        }
        var0 = 0;
        var1++;
    }
}

//====================  script 16  ====================

script 16 (void)  
{
    int var0;

    delay(const:64);
    while(var0 < 3)
    {
        Floor_LowerByValue(36+var0, 32, 184);
        delay(const:64);
        var0++;
    }
}

//====================  script 253  ====================

script 253 OPEN
{
    delay(random(3, 7)*100);
    thingsound(36, "Ambient6", 100);
    restart;
}

//====================  script 254  ====================

script 254 OPEN
{
    int var0;

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

//====================  script 255  ====================

script 255 OPEN
{
    int var0;

    delay(const:8400);
    var0 = random(const:0, 1);
    if(var0 == 1)
    {
        Thing_Spawn(255, T_ETTIN, 128);
    }
    var0 = random(const:0, 1);
    if(var0 == 1)
    {
        Thing_Spawn(254, T_ETTIN, 196);
    }
    var0 = random(const:0, 1);
    if(var0 == 1)
    {
        Thing_Spawn(253, T_ETTIN, 196);
    }
    var0 = random(const:0, 1);
    if(var0 == 1)
    {
        Thing_Spawn(252, T_ETTIN, 0);
    }
    restart;
}


// ==================================================
// Strings:

// [  0] 'GlassShatter'
// [  1] 'SPAWN09'
// [  2] 'SPAWN10'
// [  3] 'FireDemonAttack'
// [  4] 'SPAWN08'
// [  5] 'THE DOOR IS LOCKED'
// [  6] 'BLANK'
// [  7] 'Ambient6'
// [  8] 'Ambient1'
// [  9] 'Ambient10'
// [ 10] 'Ambient12'

The button for doing this is on the F6 scripts dialogue in the bottom left corner.

[Syfo-Dyas]

Thankx, yes I am a registered user, but find my self using it less and less every day.

For some reason, I ALWAYS generate map errors with DeepSea.

[GooberMan]

There's an even better way for doing that if you want to actually learn something rather than learn how to repeat something - and that's with a spot of reverse engineering.

Just break it down in to its components:

• Polyobject rotates 180 degrees
• Fireballs/projectiles spit out of the wall for a few seconds
• Polyobject rotates 180 degrees

From there, you can start Googling/searching the wiki for polyobject rotate functions and projectile spawning functions. Referring back to a master list of functions also lets you see things that you'd otherwise miss by analysing decompiled code. The way HeXen does things isn't necessarily the best way to do things these days, after all.

[Syfo-Dyas]

I'll keep tinkering, personally in regards to this line of thought and experimentation, I learn best by examples, but as I said, I'll keep tinkering. I thought I pretty well had everything duplicated but Odamex now crashes when I cross the trigger line.

If I can't figure it out I'll post my WAD and come back. Thanks!

[cocka]

Here they are:

scripts.7z

(36.03 KiB) Downloaded 378 times

[Syfo-Dyas]

WOW, thank you for saving me the additional handy work, you have all been very helpful and patient with me, thank you again!

[Syfo-Dyas]

Alright, in this script here:

setlinetexture(1, SIDE_FRONT, TEXTURE_MIDDLE, "SPAWN09");


What is SPAWN09 referring to? A texture? HEXEN does not have TEXTURE or PNAMES so I'm a little bit lost with this one, but I think that is what is causing my experiment to crash is a reference to a texture I do not have.

[Blue Shadow]

It's the texture to set. See [wiki]SetLineTexture[/wiki].

[cocka]

HEXEN does not have TEXTURE or PNAMES

Contrarily, it does have TEXTURE1, TEXTURE2 with texture POOT being the same as FOREST05. Every texture is included in hexen.wad.