
ACTOR RLDemonBase : RLMonster
{
  Health 150
  GibHealth -65
  Radius 30
  Height 56
  Speed 10
  Mass 400
  
  PainChance 180
  
  DamageFactor "Wrangler", 3.0 // LegenDoom Damagetype
  
  SeeSound "demon/sight"
  AttackSound "demon/melee"
  PainSound "demon/pain"
  DeathSound "demon/death"
  ActiveSound "demon/active"
  
  +FLOORCLIP
  +BLOODSPLATTER
  
  Obituary "%o was bitten by a Demon."
  Species "RLDemon"
  Tag "Demon"
  
	//Guncaster extras
   
	//Resists & Weaknesses
	DamageFactor CloseCombat, 0.8
	DamageFactor Shoelaces, 0.8
 
	//Chance Effects
	PainChance Lightning, 96
	PainChance LightningBlue, 16
	PainChance Manuel, 180
	PainChance Fire, 180
  States
  {
  MeleeFriendlyCheck:
    "####" "#" 0 A_CheckFlag ("FRIENDLY", "MeleeSpecialAttackCheck")
    "####" "#" 0 A_CheckFlag ("FRIENDLY", "MeleeSpecialAttackCheck", AAPTR_TARGET)
    "####" "#" 0 A_JumpIf(CheckClass("Demon", AAPTR_TARGET, TRUE), "FriendlyTarget")
    "####" "#" 0 A_JumpIf(CheckClass("RLDemonBase", AAPTR_TARGET, TRUE), "FriendlyTarget")
    "####" "#" 0 A_JumpIf(1, "MeleeSpecialAttackCheck")
	Goto MeleeSpecialAttackCheck
//==============================================================================
//					--	GunCaster Compatibility Stuff  --
//==============================================================================	

			//Corpseblast
	CorpseBlastA:
		"####" "#" 0 A_SpawnItemEx("DemonBlast",0,0,0,0,0,0,0,SXF_TRANSFERPOINTERS)
		Stop
	CorpseBlastB:
		"####" "#" 0 A_SpawnItemEx("DemonBlast",0,0,0,0,0,0,0,SXF_TRANSFERPOINTERS)
		"####" "#" 0 A_TakeInventory("CorpseTrigger2",1)
		"####" "#" 0 A_JumpIf(1,"DeathEnd")
		Goto DeathEnd
	CorpseBlastC:
		"####" "#" 0 A_SpawnItemEx("DemonBlast",0,0,0,0,0,0,0,SXF_TRANSFERPOINTERS)
		"####" "#" 0 A_TakeInventory("CorpseTrigger2",1)
		"####" "#" 0 A_JumpIf(1,"XDeathEnd")
		Goto XDeathEnd
  }
}
