actor Machinegun : Weapon replaces Chaingun
{
Game Doom
Weapon.SelectionOrder 700
Weapon.AmmoUse 1
Weapon.AmmoGive 20
Weapon.AmmoType "Clip"
Inventory.PickupMessage "You got the chaingun"
Obituary "%o was mowed down by %k's chaingun."
AttackSound "DSPLT008"
States
{
Ready:
CHGN A 1 A_WeaponReady
Loop
Deselect:
CHGN A 1 A_Lower
Loop
Select:
CHGN A 1 A_Raise
Loop
Fire:
CHGN A 3
CHGN B 3
CHGN D 3
CHGN A 2
CHGN B 2
CHGN D 2
CHGN A 1
CHGN B 1
CHGN D 1
CHGN C 1 A_FireBullets(3,3,1,6,"BulletPuff",10)
CHGN C 0 A_GunFlash
CHGN D 1
CHGN D 0 A_ReFire
CHGN A 1
CHGN B 1
CHGN D 1
CHGN A 2
CHGN B 2
CHGN D 2
CHGN A 3
CHGN B 3
CHGN D 3
Goto Ready
Flash:
TNT1 A 5 Bright A_Light1
Goto LightDone
TNT1 A 5 Bright A_Light1
Goto LightDone
Spawn:
MGUN A -1
Stop
}
}

actor Landmine
{
Obituary "%o should have been more careful"
Radius 5
Height 5
Mass 1000000000
Speed 0
Scale 0.1
+NOBLOOD
-COUNTKILL
-SHOOTABLE
MONSTER
-SOLID
States
{
Spawn:
TRAP D 12 A_Look
Loop
Melee:
TNT1 A 0
Goto Death
See:
TRAP D 12 A_Chase
Loop
Death:
TNT1 A 1 A_SpawnItem("explosion",0,0,0)
Stop
}
}

actor Trap : Weapon
{
+NOAUTOFIRE
Inventory.PickupMessage "You got a mine!"
Inventory.PickupSound "misc/pickup"
Weapon.AmmoType "Minesammo"
Weapon.AmmoGive 0
scale 0.1
Weapon.AmmoUse 0
Weapon.AmmoType2 "Minesammo"
Weapon.AmmoGive2 1
Weapon.AmmoUse2 1
States
{
Spawn:
TRAP D -1
Loop
Ready:
TRAP A 1 A_WeaponReady
Goto Ready
Deselect:
TRAP A 1 A_Lower
loop
Select:
TRAP A 1 A_Raise
loop
Fire:
TRAP A 5 A_FireCustomMissile("LandmineLaid",0,1,0,0)
TRAP B 5
TRAP C 5 A_CheckReload
Goto Ready
}
}