DRD Team

Code: Select all

actor ZSaber : Weapon
{
  Weapon.SelectionOrder 3700
  Weapon.Kickback 75
  +WEAPON.MELEEWEAPON
  +WEAPON.NOALERT
  +NOAUTOFIRE
  +NOEXTREMEDEATH
  activesound "rcpilot/zsaberactive"
  Obituary "%o was slashed open by %k's Beam Saber."
  States
  {
  Ready:
    ZSUP A 0 A_PlaySound("rcpilot/Zsaberactive")
    ZSUP A 1 Bright
    ZSUP B 1 Bright
    ZSUP C 1 Bright
    ZSID AB 1 Bright A_WeaponReady
    goto Ready+4
  Deselect:
    ZSUP C 0 A_PlaySound("rcpilot/Zsaberactive")
    ZSUP CBA 2 Bright 
    TNT1 A 1 A_Lower
    goto Deselect+4
  Select: 
    ZSUP A 0 A_PlaySound("rcpilot/Zsaberactive")
    ZSUP A 1 Bright
    ZSUP B 1 Bright
    ZSUP C 1 Bright
    goto Ready
  Fire:
    ZSFI AB 2 Bright
    TNT1 A 4
    ZSFI C 0 A_PlaySound("rcpilot/zsaber1")
    ZSFI C 2 Bright A_CustomPunch(35,0,0,"zsaberpuff")
    ZSFI D 2 Bright A_CustomPunch(35,0,0,"zsaberpuff")
    TNT1 B 7
    ZSFI E 1 BRIGHT
    TNT1 A 3
    ZSFI F 0 A_PlaySound("rcpilot/zsaber2")
    ZSFI F 1 Bright A_CustomPunch(35,0,0,"zsaberpuff")
    ZSFI G 1 Bright A_CustomPunch(35,0,0,"zsaberpuff")
    TNT1 A 5
    goto Ready+4
  }
}