/vr/ plz

ACTOR ChargedEnergy : Inventory
{
Inventory.MaxAmount 1
}


Actor WandOfEmbers : Weapon replaces Chainsaw
{
  Inventory.PickupSound "Misc/W_PkUp"
  Inventory.PickupMessage "Wand of Embers"
  Obituary "%o was burned by %k"
  Weapon.AmmoType "WandOfEmbersAmmo"
  Weapon.AmmoGive 20
  Weapon.AmmoUse 1
  Weapon.SisterWeapon "WandOfEmbers~Powered"
  +WEAPON.NOAUTOFIRE
  States
  {
  Spawn:
    WEMB A -1
    Loop
  Select:
    WEMB B 1 A_Raise
    Loop
  Deselect:
    WEMB B 1 A_Lower
    Loop
  Ready:
	WEMB A 0 A_JumpIfInventory("ChargedEnergy",1,"ReadyCharged")
  ReadyCharged:
	WEMB B 1 A_WeaponReady
  Uncharged:
    WEMB C 1
	WEMB D 1
	WEMB C 1
	WEMB D 1

  Fire:
    WEMB F 0 A_FireCustomMissile("WandOfEmbersBall", Random(-5, -3), 0, 0, 0, 0, Random(-2, 2))
    WEMB F 0 A_FireCustomMissile("WandOfEmbersBall", Random(5, 3), 0, 0, 0, 0, Random(-2, 2))
    WEMB F 0 A_FireCustomMissile("WandOfEmbersBall", Random(-3, 3), 0, 0, 0, 0, Random(3, 1))
    WEMB F 0 A_FireCustomMissile("WandOfEmbersBall", Random(-3, 3), 0, 0, 0, 0, Random(-3, -1))
    WEMB F 0 A_FireCustomMissile("WandOfEmbersBall", 0, 1, 0, 0, 0, 0)
    WEMB FG 5 Bright
    WEMB D 6
	WEMB B 1 A_TakeInventory("ChargedEnergy")
    Goto Ready

AltHold:
	WEBM C 1 Offset(-1,33)
	WEBM C 1 Offset(1,33)
	WEBM C 1 Offset(-2,34)
	WEBM C 1 Offset(2,34)
	WEBM C 1 Offset(3,35)
	WEBM C 1 Offset(-3,35)
	WEBM C 1 Offset(4,36)
	WEBM C 1 Offset(-4,36)
	WEMB C 1 A_GiveInventory("ChargedEnergy")
  }
}

Actor WandOfEmbers~Powered : WandOfEmbers
{
  Obituary "%o was melted by %k"
  Weapon.AmmoUse 1
  Weapon.SisterWeapon "WandOfEmbers"
  +Weapon.Powered_Up
  States
  {
  Fire:
    WEMB C 0 A_PlaySoundEx("Weapons/WandOfEmbers/Open", "SoundSlot6", 0)
    WEMB E 2 Bright
  Hold:
    WEMB E 0 A_PlayWeaponSound("Weapons/WandOfEmbers/Fire")
    WEMB F 0 A_FireCustomMissile("WandOfEmbersBall2", Random(-6, -4), 0, 0, 0, 0, Random(-2, 2))
    WEMB F 0 A_FireCustomMissile("WandOfEmbersBall2", Random(6, 4), 0, 0, 0, 0, Random(-2, 2))
    WEMB F 0 A_FireCustomMissile("WandOfEmbersBall2", Random(-5, 5), 0, 0, 0, 0, Random(2, 1))
    WEMB F 0 A_FireCustomMissile("WandOfEmbersBall2", Random(-5, 5), 0, 0, 0, 0, Random(-2, -1))
    WEMB F 0 A_FireCustomMissile("WandOfEmbersBall3", Random(-4, -2), 0, 0, 0, 0, Random(-2, 2))
    WEMB F 0 A_FireCustomMissile("WandOfEmbersBall3", Random(4, 2), 0, 0, 0, 0, Random(-2, 2))
    WEMB F 0 A_FireCustomMissile("WandOfEmbersBall3", Random(-3, 3), 0, 0, 0, 0, Random(4, 2))
    WEMB F 0 A_FireCustomMissile("WandOfEmbersBall3", Random(-3, 3), 0, 0, 0, 0, Random(-4, -2))
    WEMB F 0 A_FireCustomMissile("WandOfEmbersBall", Random(-5, -3), 0, 0, 0, 0, Random(-2, 2))
    WEMB F 0 A_FireCustomMissile("WandOfEmbersBall", Random(5, 3), 0, 0, 0, 0, Random(-2, 2))
    WEMB F 0 A_FireCustomMissile("WandOfEmbersBall", Random(-3, 3), 0, 0, 0, 0, Random(3, 1))
    WEMB F 0 A_FireCustomMissile("WandOfEmbersBall", Random(-3, 3), 0, 0, 0, 0, Random(-3, -1))
    WEMB F 0 A_FireCustomMissile("WandOfEmbersBall", 0, 1, 0, 0, 0, 0)
    WEMB FG 5 Bright
    WEMB D 6
    WEMB C 5 A_ReFire
    WEMB B 6
    Goto Ready
  }
}


Actor WandOfEmbersAmmo : Ammo
{
  Inventory.PickupMessage "Ember Ruby"
  Inventory.Amount 10
  Inventory.MaxAmount 100
  Ammo.BackpackAmount 10
  Ammo.BackpackMaxAmount 200
  Inventory.Icon "WEMAA0"
  States
  {
  Spawn:
    WEMA ABC 8 Bright
    Loop
  }
}

Actor WandOfEmbersHefty : WandOfEmbersAmmo
{
  Inventory.PickupMessage "Phoenix Ruby"
  Inventory.Amount 25
  States
  {
  Spawn:
    WEMA DEF 8 Bright
    Loop
  }
}

Actor WandOfEmbersBall
{
  Radius 4
  Height 4
  Speed 24
  Damage (2*Random(3, 5))
  DamageType Fire
  RenderStyle Add
  Alpha 0.75
  Scale 0.75
  Projectile
  -BloodSplatter
  +BloodlessImpact
  DeathSound "Weapons/WandOfEmbers/Hit1"
  Decal EmberWandScorch
  States
  {
  Spawn:
    WEMP AABBB 1 Bright A_SpawnItemEx("WandOfEmbersTrail", 0, 0, 0, 0, 0, 0, 0, 128)
    Loop
  Death:
    WEMP CDEFG 3 Bright
    Stop
  }
}

Actor WandOfEmbersBall2
{
  Radius 4
  Height 4
  Speed 20
  Damage (2*Random(2, 4))
  DamageType Fire
  RenderStyle Add
  Alpha 0.75
  Scale 0.75
  Projectile
  -BloodSplatter
  +BloodlessImpact
  DeathSound "Weapons/WandOfEmbers/Hit1"
  Decal EmberWandScorch
  States
  {
  Spawn:
    WEMP AABBB 1 Bright A_SpawnItemEx("WandOfEmbersTrail", 0, 0, 0, 0, 0, 0, 0, 128)
    Loop
  Death:
    WEMP CDEFG 3 Bright
    Stop
  }
}

Actor WandOfEmbersBall3
{
  Radius 4
  Height 4
  Speed 16
  Damage (Random(3, 5))
  DamageType Fire
  RenderStyle Add
  Alpha 0.75
  Scale 0.75
  Projectile
  -BloodSplatter
  +BloodlessImpact
  DeathSound "Weapons/WandOfEmbers/Hit1"
  Decal EmberWandScorch
  States
  {
  Spawn:
    WEMP AABBB 1 Bright A_SpawnItemEx("WandOfEmbersTrail", 0, 0, 0, 0, 0, 0, 0, 128)
    Loop
  Death:
    WEMP CDEFG 3 Bright
    Stop
  }
}

Actor WandOfEmbersTrail
{
  Radius 2
  Height 2
  Damage 0
  Scale 0.75
  Projectile
  -BloodSplatter
  +BloodlessImpact
  RenderStyle Add
  Alpha 0.5
  States
  {
  Spawn:
    TNT1 A 2
    WEMP HIJ 3 Bright
    Stop
  }
}