DECORATE.dec

actor DoomPlayerBackpack: DoomPlayer
{
    States
    {
      Death:
        PLAY H 0 ACS_ExecuteAlways(393)
        goto Super::Death

      XDeath:
        PLAY O 0 ACS_ExecuteAlways(393)
        goto Super::XDeath
    }
}

actor PickingUpDropPack: Inventory
{
    Inventory.MaxAmount 0x7FFFFFFF
    +UNDROPPABLE
}

actor DropPack
{
    +LOOKALLAROUND
    +NOTIMEFREEZE
    Radius 0
    Height 0

    States
    {
      Spawn:
        BPAK A 1 A_LookEx(LOF_NOSOUNDCHECK, 0, 28, 0, 360, "CheckPickup")
        loop

      CheckPickup:
        BPAK A 1 A_JumpIfCloser(32, "Pickup")
        goto Spawn

      Pickup:
        TNT1 A 0 A_JumpIf(ACS_ExecuteWithResult(393, 1) == 1, "PickupSuccess")
        goto PickupFail

      PickupFail:
        BPAK A 1
        goto Spawn

      PickupSuccess:
        TNT1 A 0 A_SetBlend("0,0,0",0,0)
        stop
    }
}