ACS/Zscript help with mod

[JoeyTD]

I need help with setting up two HUD related stuff for my mod using ACS or Zscript to do it.

First one: A update to the HUD which allows for a 7 damage states instead of 5 damage states.

second one: adding the classic wolfenstein 3d red screen of death fill.

before anyone says "why not use the wolfenstein3D TC code? its open to the public."
Yes I know and I've tried using bits of its code to make what I need but it ended up making my mod not work right or making its feel like a carbon copy of that TC.

Offering to pay for the done work.

[Jarewill]

What kind of mod are you talking about? Gameplay mod or TC?
Could you show your current HUD code?

First one: SBARINFO's DrawMugShot and ZScript's GetMugShot can take the accuracy parameter, which is responsible for how many blood levels the face will show.

Second one: You could run a DEATH script that uses FadeTo function to make the screen red.

For example, here's the Doom's HUD with the modified face blood levels:

---

I am not aware of a way to modify existing HUDs with ZScript.
Trying to inherit from existing HUDs only made more problems for me, so I just copied the entire HUD code and modified it from there.
Line 79 is the function responsible for extra blood levels.

Code: Select all • Expand view

version "4.3"

class DoomStatusBar2 : BaseStatusBar
{
    HUDFont mHUDFont;
    HUDFont mIndexFont;
    HUDFont mAmountFont;
    InventoryBarState diparms;
    

    override void Init()
    {
        Super.Init();
        SetSize(32, 320, 200);

        // Create the font used for the fullscreen HUD
        Font fnt = "HUDFONT_DOOM";
        mHUDFont = HUDFont.Create(fnt, fnt.GetCharWidth("0"), Mono_CellLeft, 1, 1);
        fnt = "INDEXFONT_DOOM";
        mIndexFont = HUDFont.Create(fnt, fnt.GetCharWidth("0"), Mono_CellLeft);
        mAmountFont = HUDFont.Create("INDEXFONT");
        diparms = InventoryBarState.Create();
    }

    override void Draw (int state, double TicFrac)
    {
        Super.Draw (state, TicFrac);

        if (state == HUD_StatusBar)
        {
            BeginStatusBar();
            DrawMainBar (TicFrac);
        }
        else if (state == HUD_Fullscreen)
        {
            BeginHUD();
            DrawFullScreenStuff ();
        }
    }

    protected void DrawMainBar (double TicFrac)
    {
        DrawImage("STBAR", (0, 168), DI_ITEM_OFFSETS);
        DrawImage("STTPRCNT", (90, 171), DI_ITEM_OFFSETS);
        DrawImage("STTPRCNT", (221, 171), DI_ITEM_OFFSETS);
        
        Inventory a1 = GetCurrentAmmo();
        if (a1 != null) DrawString(mHUDFont, FormatNumber(a1.Amount, 3), (44, 171), DI_TEXT_ALIGN_RIGHT|DI_NOSHADOW);
        DrawString(mHUDFont, FormatNumber(CPlayer.health, 3), (90, 171), DI_TEXT_ALIGN_RIGHT|DI_NOSHADOW);
        DrawString(mHUDFont, FormatNumber(GetArmorAmount(), 3), (221, 171), DI_TEXT_ALIGN_RIGHT|DI_NOSHADOW);

        DrawBarKeys();
        DrawBarAmmo();
        
        if (deathmatch || teamplay)
        {
            DrawString(mHUDFont, FormatNumber(CPlayer.FragCount, 3), (138, 171), DI_TEXT_ALIGN_RIGHT);
        }
        else
        {
            DrawBarWeapons();
        }
        
        if (multiplayer)
        {
            DrawImage("STFBANY", (143, 168), DI_ITEM_OFFSETS|DI_TRANSLATABLE);
        }
        
        if (CPlayer.mo.InvSel != null && !Level.NoInventoryBar)
        {
            DrawInventoryIcon(CPlayer.mo.InvSel, (160, 198));
            if (CPlayer.mo.InvSel.Amount > 1)
            {
                DrawString(mAmountFont, FormatNumber(CPlayer.mo.InvSel.Amount), (175, 198-mIndexFont.mFont.GetHeight()), DI_TEXT_ALIGN_RIGHT, Font.CR_GOLD);
            }
        }
        else
        {
            DrawTexture(GetMugShot(7), (143, 168), DI_ITEM_OFFSETS); //This was the line in question for the Doom's HUD
        } //Replacing GetMugShot(5) with GetMugShot(7) is all that was needed to do
        if (isInventoryBarVisible())
        {
            DrawInventoryBar(diparms, (48, 169), 7, DI_ITEM_LEFT_TOP);
        }
        
    }
    
    protected virtual void DrawBarKeys()
    {
        bool locks[6];
        String image;
        for(int i = 0; i < 6; i++) locks[i] = CPlayer.mo.CheckKeys(i + 1, false, true);
        // key 1
        if (locks[1] && locks[4]) image = "STKEYS6";
        else if (locks[1]) image = "STKEYS0";
        else if (locks[4]) image = "STKEYS3";
        DrawImage(image, (239, 171), DI_ITEM_OFFSETS);
        // key 2
        if (locks[2] && locks[5]) image = "STKEYS7";
        else if (locks[2]) image = "STKEYS1";
        else if (locks[5]) image = "STKEYS4";
        else image = "";
        DrawImage(image, (239, 181), DI_ITEM_OFFSETS);
        // key 3
        if (locks[0] && locks[3]) image = "STKEYS8";
        else if (locks[0]) image = "STKEYS2";
        else if (locks[3]) image = "STKEYS5";
        else image = "";
        DrawImage(image, (239, 191), DI_ITEM_OFFSETS);
    }
    
    protected virtual void DrawBarAmmo()
    {
        int amt1, maxamt;
        [amt1, maxamt] = GetAmount("Clip");
        DrawString(mIndexFont, FormatNumber(amt1, 3), (288, 173), DI_TEXT_ALIGN_RIGHT);
        DrawString(mIndexFont, FormatNumber(maxamt, 3), (314, 173), DI_TEXT_ALIGN_RIGHT);
        
        [amt1, maxamt] = GetAmount("Shell");
        DrawString(mIndexFont, FormatNumber(amt1, 3), (288, 179), DI_TEXT_ALIGN_RIGHT);
        DrawString(mIndexFont, FormatNumber(maxamt, 3), (314, 179), DI_TEXT_ALIGN_RIGHT);
        
        [amt1, maxamt] = GetAmount("RocketAmmo");
        DrawString(mIndexFont, FormatNumber(amt1, 3), (288, 185), DI_TEXT_ALIGN_RIGHT);
        DrawString(mIndexFont, FormatNumber(maxamt, 3), (314, 185), DI_TEXT_ALIGN_RIGHT);
        
        [amt1, maxamt] = GetAmount("Cell");
        DrawString(mIndexFont, FormatNumber(amt1, 3), (288, 191), DI_TEXT_ALIGN_RIGHT);
        DrawString(mIndexFont, FormatNumber(maxamt, 3), (314, 191), DI_TEXT_ALIGN_RIGHT);
    }
    
    protected virtual void DrawBarWeapons()
    {
        DrawImage("STARMS", (104, 168), DI_ITEM_OFFSETS);
        DrawImage(CPlayer.HasWeaponsInSlot(2)? "STYSNUM2" : "STGNUM2", (111, 172), DI_ITEM_OFFSETS);
        DrawImage(CPlayer.HasWeaponsInSlot(3)? "STYSNUM3" : "STGNUM3", (123, 172), DI_ITEM_OFFSETS);
        DrawImage(CPlayer.HasWeaponsInSlot(4)? "STYSNUM4" : "STGNUM4", (135, 172), DI_ITEM_OFFSETS);
        DrawImage(CPlayer.HasWeaponsInSlot(5)? "STYSNUM5" : "STGNUM5", (111, 182), DI_ITEM_OFFSETS);
        DrawImage(CPlayer.HasWeaponsInSlot(6)? "STYSNUM6" : "STGNUM6", (123, 182), DI_ITEM_OFFSETS);
        DrawImage(CPlayer.HasWeaponsInSlot(7)? "STYSNUM7" : "STGNUM7", (135, 182), DI_ITEM_OFFSETS);
    }

    protected void DrawFullScreenStuff ()
    {
        Vector2 iconbox = (40, 20);
        // Draw health
        let berserk = CPlayer.mo.FindInventory("PowerStrength");
        DrawImage(berserk? "PSTRA0" : "MEDIA0", (20, -2));
        DrawString(mHUDFont, FormatNumber(CPlayer.health, 3), (44, -20));
        
        let armor = CPlayer.mo.FindInventory("BasicArmor");
        if (armor != null && armor.Amount > 0)
        {
            DrawInventoryIcon(armor, (20, -22));
            DrawString(mHUDFont, FormatNumber(armor.Amount, 3), (44, -40));
        }
        Inventory ammotype1, ammotype2;
        [ammotype1, ammotype2] = GetCurrentAmmo();
        int invY = -20;
        if (ammotype1 != null)
        {
            DrawInventoryIcon(ammotype1, (-14, -4));
            DrawString(mHUDFont, FormatNumber(ammotype1.Amount, 3), (-30, -20), DI_TEXT_ALIGN_RIGHT);
            invY -= 20;
        }
        if (ammotype2 != null && ammotype2 != ammotype1)
        {
            DrawInventoryIcon(ammotype2, (-14, invY + 17));
            DrawString(mHUDFont, FormatNumber(ammotype2.Amount, 3), (-30, invY), DI_TEXT_ALIGN_RIGHT);
            invY -= 20;
        }
        if (!isInventoryBarVisible() && !Level.NoInventoryBar && CPlayer.mo.InvSel != null)
        {
            DrawInventoryIcon(CPlayer.mo.InvSel, (-14, invY + 17));
            DrawString(mHUDFont, FormatNumber(CPlayer.mo.InvSel.Amount, 3), (-30, invY), DI_TEXT_ALIGN_RIGHT);
        }
        if (deathmatch)
        {
            DrawString(mHUDFont, FormatNumber(CPlayer.FragCount, 3), (-3, 1), DI_TEXT_ALIGN_RIGHT, Font.CR_GOLD);
        }
        
        DrawFullscreenKeys();
        
        if (isInventoryBarVisible())
        {
            DrawInventoryBar(diparms, (0, 0), 7, DI_SCREEN_CENTER_BOTTOM, HX_SHADOW);
        }
    }
    
    protected virtual void DrawFullscreenKeys()
    {
        // Draw the keys. This does not use a special draw function like SBARINFO because the specifics will be different for each mod
        // so it's easier to copy or reimplement the following piece of code instead of trying to write a complicated all-encompassing solution.
        Vector2 keypos = (-10, 2);
        int rowc = 0;
        double roww = 0;
        for(let i = CPlayer.mo.Inv; i != null; i = i.Inv)
        {
            if (i is "Key" && i.Icon.IsValid())
            {
                DrawTexture(i.Icon, keypos, DI_SCREEN_RIGHT_TOP|DI_ITEM_LEFT_TOP);
                Vector2 size = TexMan.GetScaledSize(i.Icon);
                keypos.Y += size.Y + 2;
                roww = max(roww, size.X);
                if (++rowc == 3)
                {
                    keypos.Y = 2;
                    keypos.X -= roww + 2;
                    roww = 0;
                    rowc = 0;
                }
            }
        }
    }
}
 

Then to use your custom ZScript HUD, you should put this in MAPINFO:

Code: Select all • Expand view

GameInfo
{
    StatusBarClass = "DoomStatusBar2"
}

And here's an ACS script that makes the screen turn red on death:

---

If it's for a gameplay mod, you should include #library at the top of your script, so it won't break with maps that use ACS.

Code: Select all • Expand view

#library "REDFADE" //Needed for gameplay mods
#include "zcommon.acs"

Script "DeathFace" DEATH
{
    Delay(35); //Wait one second
    FadeTo(255,0,0,1.0,2.0); //Change to red screen in 2 seconds
}