
actor PainElementalClass : PlayerPawn
{
	Speed 0.35
	Health 400
	Radius 31
	Height 56
	Mass 400
 	PainChance 128
	player.maxhealth 400
	player.soundclass "PainElementalClass"
	Player.DisplayName "PainElemental"

	Player.MorphWeapon "PainElementWeap"
	Player.WeaponSlot 1, PainElementWeap
	Player.JumpZ 0
    
	DamageFactor "MarineDamage", 1
	DamageFactor "MarineRLDamage", 1
	
    DamageFactor "ImpBallDamage", 0
    DamageFactor "CacoDamage", 0
    DamageFactor "SkelDamage", 0
    DamageFactor "FatsoDamage", 0
    DamageFactor "KnightDamage", 0
    DamageFactor "ArachDamage", 0
    DamageFactor "viledamage", 0
    DamageFactor "Control", 0
    DamageFactor "ZombiesDamage", 0
    DamageFactor "Slime", 0
  
    -PICKUP
    +NOSKIN
    +NOPAIN
	-FRIENDLY
    +NOTARGET
	 
	States
	{
	Spawn:
	    PAIN A 5
		Loop
	See:
	    PAIN A 0 A_Jump (240,2)
	    PAIN A 0 A_PlaySoundEx ("pain/active","body")
		PAIN AABBCC 3 
		Loop
	Missile:
		PAIN DEF 5 bright 
		Goto Spawn
	Death:
		PAIN H 8 bright A_GiveToTarget ("MarineExp",6) 
		PAIN I 8 bright A_PlaySoundEx ("pain/death","body")
		PAIN JKL 8 bright 
		PAIN M 8 bright A_PainDie 
		TNT1 A 1 A_HideThing
		TNT1 A -1
		stop
	}
  }
  

ACTOR PainElementWeap : Weapon
{ 
  weapon.kickback 30
  +WEAPON.NOALERT
  +Ammo_Optional
  +Alt_Ammo_Optional
  +WEAPON.DONTBOB
  +WEAPON.CHEATNOTWEAPON

  states
  {
  Spawn:
    PEWE A 0 Thing_Remove (0)
    Stop
  Select:
     PEWE A 1 A_Raise
     Goto Ready
  Ready:
     PEWE A 5 A_WeaponReady
     NULL A 0 A_JumpIfInventory ("Mskull",0,1)
     Loop
	 NULL A 0 HealThing(1)
	 goto ready 
  DeSelect:
     PEWE A 1 A_Lower
     Loop
  Fire:
     PEWE A 0 A_JumpIfCloser (120,"Melee")
	 PEWE ABC 4 A_SetBlend ("GOLD",0.40,25)
	 PEWE C 12 A_FireCustomMissile ("SoulProj",0,0,0,-20)
	 PEWE CBA 4
     Goto Ready 	
  Melee:
    PEWE A 4
	PEWE B 5 A_CustomPunch (8,0,1,"FBulletPuff")
    PEWE C 6
	goto Ready	 
  Altfire:
    PEWE A 5 ACS_ExecuteAlways (419,0,17) 
  	goto Ready	 
  }
}

actor SoulProj
{		
  radius 15
  height 38
  speed 20
  damage 8
  renderstyle SoulTrans
  seesound "skull/melee"
  DeathSound "skull/death"
  DamageType "ZombiesDamage"
  PROJECTILE
  +RANDOMIZE
  +DONTREFLECT
  +SKYEXPLODE
  states
  {
  Spawn:
    SKUL CD 4 BRIGHT
    loop
   Death:
    SKUL F 6 BRIGHT A_Explode (18,128,0,0)
    SKUL G 6 BRIGHT A_Scream
    SKUL H 6 BRIGHT
    SKUL I 6 BRIGHT A_NoBlocking
    SKUL J 6
    SKUL K 6
    Stop
  }
}


