ACTOR Satanic_ShroudWeapon : Fist
{
	+WEAPON.CHEATNOTWEAPON
	Tag "Shroud Magic"
	Weapon.BobStyle "Alpha"
	Weapon.BobSpeed 2.0
	States
	{
	Spawn:
		TNT1 A -1
		Stop
	Select:
		TNT1 A 0 A_JumpIfInventory("PWCIsOff",1,"DefXHair")
		TNT1 A 0 A_SetCrosshair(61)
		Goto SeleLoop
	DefXHair:
		TNT1 A 0 A_SetCrosshair(0)
	SeleLoop:
		TNT1 A 0 A_Raise
		SHMG A 1 A_Raise
		Loop
	Deselect:
		TNT1 A 0 A_Lower
		SHMG A 1 A_Lower
	Ready:
		TNT1 A 0 A_JumpIfInventory("PowerNecShroud",1,1)
		Goto EndPowerup
		SHMG A 1 A_WeaponReady(WRF_NOSWITCH)
		Loop
	Fire:
		TNT1 A 0 A_TakeInventory("PowerNecShroud")
		SHMG BCD 4 BRIGHT
		TNT1 A 0 A_SetBlend("FF 20 20",0.70,18)
		TNT1 A 0 A_SpawnItemEx("ShroudExplosion",0,0,0,0,0,0,0,SXF_NOCHECKPOSITION)
		SHMG E 24 BRIGHT
		SHMG FBS 4
	EndPowerup:
		TNT1 A 0 A_TakeInventory("Satanic_ShroudWeapon")
		TNT1 A 0 A_SelectWeapon("Satanic_MaledictoryEagle")
		Stop
	}
}

ACTOR ShroudExplosion	
{	
	Scale 1.5
	States
	{
	Spawn:
		TNT1 A 0
		MSP1 A 0 A_SpawnItem("Satanic_SmokeSpawner")
		MSP1 A 0 A_PlaySound("weapons/rocklx")
		MSP1 A 0 A_Explode(128,384,0,1,256)
		TNT1 A 0 Radius_Quake(5,15,0,5,0)
		MSP1 H 5 BRIGHT Light ("deadheadexplosion1")
		MSP1 A 0 A_SpawnItem("Satanic_SmokeSpawner")
		MSP1 I 5 BRIGHT Light ("deadheadexplosion2") 
		MSP1 A 0 A_SpawnItem("Satanic_SmokeSpawner")
		MSP1 J 5 BRIGHT Light ("deadheadexplosion3")
		MSP1 A 0 A_SpawnItem("Satanic_SmokeSpawner")
		MSP1 K 5 BRIGHT Light ("deadheadexplosion4")
		MSP1 A 0 A_SpawnItem("Satanic_SmokeSpawner")
		MSP1 L 5 BRIGHT Light ("deadheadexplosion5")
		MSP1 A 0 A_SpawnItem("Satanic_SmokeSpawner")
		MSP1 M 5 BRIGHT Light ("deadheadexplosion6")
		MSP1 A 0 A_SpawnItem("Satanic_SmokeSpawner")
		MSP1 N 5 BRIGHT Light ("deadheadexplosion7")
		MSP1 A 0 A_SpawnItem("Satanic_SmokeSpawner")
		MSP1 O 5 BRIGHT
		MSP1 A 0 A_SpawnItem("Satanic_SmokeSpawner")
		MSP1 P 5 Bright
		Stop
	}
}