В коде самого оружия есть 2 пункта Select и Deselect, думаю ты и так знаешь, что один пункт отвечает за то, что происходит при выборе оружия, а другой отвечает за то, что происходит при убирании данного оружия.

В пример я беру код простого шотгана. Пункты я отметил жирным.

ACTOR Shotgun : DoomWeapon 2001
{
Game Doom
SpawnID 27
Weapon.SelectionOrder 1300
Weapon.AmmoUse 1
Weapon.AmmoGive 8
Weapon.AmmoType "Shell"
Inventory.PickupMessage "$GOTSHOTGUN"
Obituary "$OB_MPSHOTGUN"
Tag "$TAG_SHOTGUN"
States
{
Ready:
SHTG A 1 A_WeaponReady
Loop
Deselect:
SHTG A 1 A_Lower
Loop
Select:
SHTG A 1 A_Raise
Loop
Fire:
SHTG A 3
SHTG A 7 A_FireShotgun
SHTG BC 5
SHTG D 4
SHTG CB 5
SHTG A 3
SHTG A 7 A_ReFire
Goto Ready
Flash:
SHTF A 4 Bright A_Light1
SHTF B 3 Bright A_Light2
Goto LightDone
Spawn:
SHOT A -1
Stop
}
}


Так вот, чтобы работало как в 1 способе, нужно создать инвенторию, которая не будет видна в списке(в баре)

actor ShotgunCheck : inventory
{
Inventory.MaxAmount 1
+INVENTORY.UNDROPPABLE
-INVENTORY.INVBAR
States
{
Spawn:
TNT1 A 1
Stop
}

}

Грубо говоря это инвентория пустая, т.е. создана тупо для чисел. Нам нужно чтобы у неё максимум вместительность была в 1 воизбежании ошибок.
Алгоритм собственно. У оружия в пункте Select нам нужно сделать так, чтобы этой инвентории давалась одна единица, большего нам и не надо.
Вот кусочек из шотгана
Select:
SHTG A 0 A_GiveInventory("ShotgunCheck", 1)
SHTG A 1 A_Raise
Goto Select+1
Goto Select+1 - почему не Loop? Потому что при выборе игра затупит и будет пытаться постоянно давать значение нашей инвентории. Собственно отличие того от Loop в том, что Loop повторяет всё до определённого момента, а Goto Срабатывает один раз и дальше код будет работать со второй строки(или с той, которую укажешь). Подобная фишка широко используется к примеру, если должен прозвучать звук выбора оружия(с Loop звук будет постоянно вопроизводиться заного до окончательного момента выбора).

И так теперь подробнее зачем мы это сделали, зачем собсна дали инвентории 1 единицу. Дали мы её для того, чтобы потом в скине можно было активировать к примеру другие спрайты.

Собсна что то типа примера с простым думоским скином:
Вот оригинал:
Нам тут нужны пункты, которые отвечают за стрельбу, хотьбу, просто стоячее положение и смерть(хоть при желании можно смерть оставить и оригинальной). Т.е. практически все пункты нам сейчас сделись.
ACTOR DoomPlayer : PlayerPawn
{
Speed 1
Health 100
Radius 16
Height 56
Mass 100
PainChance 255
Player.DisplayName "Marine"
Player.CrouchSprite "PLYC"
Player.StartItem "Pistol"
Player.StartItem "Fist"
Player.StartItem "Clip", 50
Player.WeaponSlot 1, Fist, Chainsaw
Player.WeaponSlot 2, Pistol
Player.WeaponSlot 3, Shotgun, SuperShotgun
Player.WeaponSlot 4, Chaingun
Player.WeaponSlot 5, RocketLauncher
Player.WeaponSlot 6, PlasmaRifle
Player.WeaponSlot 7, BFG9000

Player.ColorRange 112, 127
Player.Colorset 0, "Green", 0x70, 0x7F, 0x72
Player.Colorset 1, "Gray", 0x60, 0x6F, 0x62
Player.Colorset 2, "Brown", 0x40, 0x4F, 0x42
Player.Colorset 3, "Red", 0x20, 0x2F, 0x22
// Doom Legacy additions
Player.Colorset 4, "Light Gray", 0x58, 0x67, 0x5A
Player.Colorset 5, "Light Brown", 0x38, 0x47, 0x3A
Player.Colorset 6, "Light Red", 0xB0, 0xBF, 0xB2
Player.Colorset 7, "Light Blue", 0xC0, 0xCF, 0xC2

States
{
Spawn:
PLAY A -1
Loop
See:
PLAY ABCD 4
Loop
Missile:
PLAY E 12
Goto Spawn
Melee:
PLAY F 6 BRIGHT
Goto Missile
Pain:
PLAY G 4
PLAY G 4 A_Pain
Goto Spawn
Death:
PLAY H 0 A_PlayerSkinCheck("AltSkinDeath")
Death1:
PLAY H 10
PLAY I 10 A_PlayerScream
PLAY J 10 A_NoBlocking
PLAY KLM 10
PLAY N -1
Stop
XDeath:
PLAY O 0 A_PlayerSkinCheck("AltSkinXDeath")
XDeath1:
PLAY O 5
PLAY P 5 A_XScream
PLAY Q 5 A_NoBlocking
PLAY RSTUV 5
PLAY W -1
Stop
AltSkinDeath:
PLAY H 6
PLAY I 6 A_PlayerScream
PLAY JK 6
PLAY L 6 A_NoBlocking
PLAY MNO 6
PLAY P -1
Stop
AltSkinXDeath:
PLAY Q 5 A_PlayerScream
PLAY R 0 A_NoBlocking
PLAY R 5 A_SkullPop
PLAY STUVWX 5
PLAY Y -1
Stop
}
}

Чтоже делать то?(приходит на ум), ну дали мы инвентории значение и зачем? А дали мы для того, чтобы с помощью него проверять, какое оружие выбрано. Вот теперь подрихтованый код игрока, где рповеряется значение инвентории:

ACTOR DoomPlayer : PlayerPawn
{
Speed 1
Health 100
Radius 16
Height 56
Mass 100
PainChance 255
Player.DisplayName "Marine"
Player.CrouchSprite "PLYC"
Player.StartItem "Pistol"
Player.StartItem "Fist"
Player.StartItem "Clip", 50
Player.WeaponSlot 1, Fist, Chainsaw
Player.WeaponSlot 2, Pistol
Player.WeaponSlot 3, Shotgun, SuperShotgun
Player.WeaponSlot 4, Chaingun
Player.WeaponSlot 5, RocketLauncher
Player.WeaponSlot 6, PlasmaRifle
Player.WeaponSlot 7, BFG9000

Player.ColorRange 112, 127
Player.Colorset 0, "Green", 0x70, 0x7F, 0x72
Player.Colorset 1, "Gray", 0x60, 0x6F, 0x62
Player.Colorset 2, "Brown", 0x40, 0x4F, 0x42
Player.Colorset 3, "Red", 0x20, 0x2F, 0x22
// Doom Legacy additions
Player.Colorset 4, "Light Gray", 0x58, 0x67, 0x5A
Player.Colorset 5, "Light Brown", 0x38, 0x47, 0x3A
Player.Colorset 6, "Light Red", 0xB0, 0xBF, 0xB2
Player.Colorset 7, "Light Blue", 0xC0, 0xCF, 0xC2

States
{
Spawn:
PLAY A 0 A_JumpIfInventory("ShotgunCheck", 1, "Spawn2")
PLAY A -1
loop
Spawn2:
бла бла, тут код нашего особого скина.
loop
See:
PLAY A 0 A_JumpIfInventory("ShotgunCheck", 1, "See2")
PLAY ABCD 4
loop
See2:
бла бла, тут код нашего особого скина.
loop
Missile:
PLAY E 0 A_JumpIfInventory("ShotgunCheck", 1, "Missile2")
PLAY E 12
Goto Spawn
Missile2:
бла бла, тут код нашего особого скина.
Goto Spawn2
Melee:
PLAY F 0 A_JumpIfInventory("ShotgunCheck", 1, "Melee2")
PLAY F 6 BRIGHT
Goto Missile
Melee2:
бла бла, тут код нашего особого скина.
Goto Missile2
Pain:
PLAY G 0 A_JumpIfInventory("ShotgunCheck", 1, "Pain2")
PLAY G 4
PLAY G 4 A_Pain
Goto Spawn
Pain2:
бла бла, тут код нашего особого скина.
Goto Spawn2
Death:
PLAY H 0 A_JumpIfInventory("ShotgunCheck", 1, "Death2")
PLAY H 0 A_PlayerSkinCheck("AltSkinDeath")
Death1:
PLAY H 10
PLAY I 10 A_PlayerScream
PLAY J 10 A_NoBlocking
PLAY KLM 10
PLAY N -1
Stop
Death2:
бла бла, тут код нашего особого скина.
stop
XDeath:
PLAY O 0 A_JumpIfInventory("ShotgunCheck", 1, "XDeath2")
PLAY O 0 A_PlayerSkinCheck("AltSkinXDeath")
XDeath1:
PLAY O 5
PLAY P 5 A_XScream
PLAY Q 5 A_NoBlocking
PLAY RSTUV 5
PLAY W -1
Stop
AltSkinDeath:
PLAY H 6
PLAY I 6 A_PlayerScream
PLAY JK 6
PLAY L 6 A_NoBlocking
PLAY MNO 6
PLAY P -1
Stop
AltSkinXDeath:
PLAY Q 5 A_PlayerScream
PLAY R 0 A_NoBlocking
PLAY R 5 A_SkullPop
PLAY STUVWX 5
PLAY Y -1
Stop
XDeath2:
бла бла, тут код нашего особого скина.
stop
}
}

Как видно - тут везде проверки на то, какое значение в инвентории. Если у инвентории значение равно единице, то скин автоматически будет выглядеть по другому, игрок будет умирать с другими спрайтами и т.п.

И вот мы столкнулись с проблемой "оуууу щит, у него скин не меняется!". Собственно мы помним о том, что я говорил на счёт пункта Deselect у оружия. Там мы должны это значение у инвентории отнимать. Получается то, что в инвентории будет значение по умолчанию - нуль и собственно скин опять вернётся в прежнее состояние.
Вот вам кусочек кода Deselect шотгана:

Deselect:
SHTG A 0 A_TakeInventory(""ShotgunCheck", 1)
SHTG A 1 A_Raise
Goto Deselect+1
Собственно на этом можно и закончить, надеюсь эта небольшая информация была полезна кому нить на данном форуме)