/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")
  }
}