ACTOR Sepulchre : PlayerPawn
{ 
  Health 200
  Mass 700
  Scale 0.0845
  BloodColor "Black"
  BloodType "BulletPuff"
  Player.ScoreIcon "SEPPST"
  Player.SoundClass "Sepulchre"
  Player.DisplayName "Sepulchre"
  Player.StartItem "SepulchreWeapon", 1
  Player.StartItem "IsGhoul", 1
  DamageFactor "Divine", 0.6
  DamageFactor "KarStiglitz", 0.5
  DamageFactor "fire2", 0.8
  DamageFactor "AltFire2", 0.8
  DamageFactor "Proton", 1.3
  DamageFactor "Ghosttrap", 1.3
  DamageFactor "Ice", 1.4
  DamageFactor "Ice2", 1.4
  DamageFactor "AltIce2", 1.4
  DamageFactor "Melee", 2.0
  DamageFactor Melee, 2.0
  DamageFactor "SkarletVampiric", 2.0
  DamageFactor "LoWangVampiric", 2.0
  DamageFactor "DoomChainSaw", 2.0
  DamageFactor "ChexWarriorChainsaw", 2.0
  DamageFactor "MacheteRangAttackSlice", 2.0
  Damagefactor "Bluefire", 0.0
  Damagefactor "minion", 0.0
  Damagefactor "ZombieIce", 0.0
  Damagefactor "ZombiePoison", 0.0
  Damagefactor "ZombieSlaps", 0.0
  Damagefactor "Tenebra", 0.0
  Damagefactor "Judgement", 0.0
  Player.WeaponSlot 1, SepulchreWeapon
  Player.ForwardMove 0.87
  Player.SideMove 0.87
  Player.MaxHealth 200
  Painchance 256
  LimitedToTeam 1
  +NOSKIN
  +NOICEDEATH
  States
  {
 	Spawn:
		TNT1 A 0 A_Playsound("sepsee", CHAN_BODY, 1, 1, ATTN_NORM)
		SEPP A 1
		Goto Spawn
	See:
		SEPP A 0 A_JumpIfHealthLower(100,"INeedHealingSee")
	    SEPP A 3
		Goto Spawn
	INeedHealingSee:
		SEPP A 0 A_SpawnItemEx("GhoulINeedHealingTrail",random(-20,20),random(-20,20),0,0,0,10)
		SEPP A 0 A_SpawnItemEx("64GhoulINeedHealingTrail",random(-20,20),random(-20,20),0,0,0,10)
		SEPP A 3 
		Goto Spawn
	Missile:
		SEPP B 3
		SEPP C 3
		SEPP D 3
		SEPP DCBA 5
		Goto spawn
    Pain:
	    SEPP K 0 A_PlaySound("seppain",CHAN_AUTO)
	    SEPP KL 5
	    Goto Spawn
	Death:
	DeathAnim:
		TNT1 A 0 A_GiveToTarget("KillBeep",1)
		TNT1 A 0 A_SpawnItemEx("AdditionalGhoulDeathVFX")
		SEPP A 0 A_NoBlocking
		SEPP A 0 A_ChangeFlag ("TELESTOMP", 0)
		SEPP A 0 A_TakeInventory("KilledCount",999)
		SEPP A 0 A_GiveToTarget("KilledMe",1)
		SEPP A 0 A_GiveToTarget("KilledChoke",1)
		SEPP A 0 A_PlayerScream
		SEPP E 0 A_StopSound(CHAN_BODY)
	    SEPP E 0 Bright A_PlaySound("sepdeath",CHAN_BODY,1,0,ATTN_NONE)
		SEPP EFGHIJ 5 Bright
	    TNT1 A 2 Bright A_Custommissile("SepulchreDeathFire",10)
	    TNT1 A 0 Bright A_Custommissile("SepulchreDeathFire2",10)
	    SEPP Z -1
		Stop
	DeathAnimAlt:
		TNT1 A 0 A_GiveToTarget("KillIndicator",1)
		TNT1 A 0 A_SpawnItemEx("AdditionalGhoulDeathVFX")
		SEPP A 0 A_NoBlocking
		SEPP A 0 A_ChangeFlag ("TELESTOMP", 0)
		SEPP A 0 A_TakeInventory("KilledCount",999)
		SEPP A 0 A_GiveToTarget("KilledMe",1)
		SEPP A 0 A_GiveToTarget("KilledChoke",1)
		SEPP A 0 A_PlayerScream
		SEPP E 0 A_StopSound(CHAN_BODY)
	    SEPP E 0 Bright A_PlaySound("sepdeath",CHAN_BODY,1,0,ATTN_NONE)
		SEPP EFGHIJ 5 Bright
	    TNT1 A 2 Bright A_Custommissile("SepulchreDeathFire",10)
	    TNT1 A 0 Bright A_Custommissile("SepulchreDeathFire2",10)
	    SEPP Z -1
		Stop
	Pain.Vivi:
	SEPP A 0 A_SetPitch(pitch - 3.0)
	SEPP A 0 A_SetAngle(angle + (random(-50,50)/10))
	Goto Pain
	Pain.ViviMine:
	SEPP A 0 ThrustThingZ(0,70,0,0)
	Goto Pain
	Death.LoWangVampiric:
	TNT1 A 0 A_GiveToTarget("SWLoWangBloody",1)
	TNT1 A 0 A_JumpIfInventory("BloodCurseItem",1,"Death",AAPTR_TARGET)
	TNT1 A 0 A_GiveToTarget("Health",20)
	Goto Death
	Death.SkarletPistolDrain:
	TNT1 A 0 A_JumpIfInventory("BloodCurseItem",1,"Death",AAPTR_TARGET)
	TNT1 A 0 A_GiveToTarget("Health",50)
	Goto Death
	Death.SkarletVampiric:
	TNT1 A 0 A_JumpIfInventory("BloodCurseItem",1,"Death",AAPTR_TARGET)
	TNT1 A 0 A_GiveToTarget("Health",60)
	Goto Death
	Death.DoomChainSaw:
	TNT1 A 0 A_GiveToTarget("cell",50)
	TNT1 A 0 A_GiveToTarget("RocketAmmo",5)
	TNT1 A 0 A_GiveToTarget("clip1",50)
	TNT1 A 0 A_GiveToTarget("Shell",10)
	Goto Death
	Death.D64Pistol:
	TNT1 A 0 A_GiveToTarget("D64UnmakerUpgrades",1)
	TNT1 A 0 A_GiveToTarget("Cell",75)
	TNT1 A 0 A_GiveToTarget("D64KilledCount",1)
	Goto DeathAnimAlt
	Death.Plasma:
	TNT1 A 0 A_GiveToTarget("CyborgFuel",25)
	Goto DeathAnim
	Death.Telefrag:
	Goto Death.UnmakerLaser
	Pain.GwenPlasma2:
		TNT1 A 0 A_JumpIfInventory("GwenGoddessStack",100,"GwenGoddessDeath")
		SEPP Q 0 Setplayerproperty(0,0,4)
		SEPP Q 0 A_Pain
		SEPP K 20 Setplayerproperty(0,1,0)
		SEPP K 2 Setplayerproperty(0,0,0)
		Goto See
	GwenGoddessDeath:
		TNT1 A 0 A_Changeflag("shootable",true)
		TNT1 A 0 SetPlayerProperty(0,1,4)
		TNT1 A 0 A_SetTranslucent (1.0, 0)
		TNT1 A 0 A_SpawnItemEx("GwenTimeImplosionRing")
		TNT1 A 0 A_Playsound("Gwen/DivineExplosionSound",5,1,0,ATTN_NONE)
		SEPP K 24 SetPlayerProperty(0,1,4)
		TNT1 A 0 A_SpawnItemEx("GwenTimeExplosionRingDamageFX")
		TNT1 A 0 A_SpawnItemEx("GwenTimeExplosionRingDamage")
		TNT1 A 0 A_SpawnItemEx("GwenTimeExplosionRing")
		TNT1 A 0 A_SpawnItemEx("GwenTimeExplosionRingX")
		TNT1 A 0 A_SpawnItemEx("GwenThunderFX")
		TNT1 A 0 A_SpawnItemEx("GwenGoddessStateEXP")
		TNT1 AAAAAAAAAAAAAAAAAAAAAAAA 0 A_SpawnItemEx("GwenThunderFX_Spark2", 0, 0, 8, 0.01 * Random(-300, 300), 0.01 * Random(-300, 300), 0.01 * Random(0, 600), 0, 128, 0)
		TNT1 AAAAAAAAAAAAAAAAAAAAAAAA 0 A_SpawnItemEx("GwenThunderFX_Spark2", 0, 0, 8, 0.01 * Random(-300, 300), 0.01 * Random(-300, 300), 0.01 * Random(0, 600), 0, 128, 0)
		TNT1 AAAAAAAAAAAAAAAAAAAAAAAA 0 A_SpawnItemEx("GwenThunderFX_Spark2", 0, 0, 8, 0.01 * Random(-300, 300), 0.01 * Random(-300, 300), 0.01 * Random(0, 600), 0, 128, 0)
		TNT1 AAAAAAAAAAAAAAAAAAAAAAAA 0 A_SpawnItemEx("GwenThunderFX_Spark2", 0, 0, 8, 0.01 * Random(-300, 300), 0.01 * Random(-300, 300), 0.01 * Random(0, 600), 0, 128, 0)
		TNT1 AAAAAAAAAAAAAAAAAAAAAAAA 0 A_SpawnItemEx("GwenThunderFX_Spark2", 0, 0, 8, 0.01 * Random(-300, 300), 0.01 * Random(-300, 300), 0.01 * Random(0, 600), 0, 128, 0)
		TNT1 AAAAAAAAAAAAAAAAAAAAAAAA 0 A_SpawnItemEx("GwenThunderFX_Spark2", 0, 0, 8, 0.01 * Random(-300, 300), 0.01 * Random(-300, 300), 0.01 * Random(0, 600), 0, 128, 0)
		TNT1 AAAAAAAAAAAA 0 A_SpawnItemEx("KNThunderFX_Smoke", 0, 0, 0, 0.01 * Random(-125, 125), 0.01 * Random(-125, 125), 0.01 * Random(25, 245), 0, 128, 0)
		TNT1 AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 0 A_SpawnItemEx("GwenThunderFX_Spark", 0, 0, 8, 0.01 * Random(-300, 300), 0.01 * Random(-300, 300), 0.01 * Random(0, 600), 0, 128, 0)
		TNT1 AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 0 A_SpawnItemEx("GwenThunderFX_Spark", 0, 0, 8, 0.01 * Random(-300, 300), 0.01 * Random(-300, 300), 0.01 * Random(0, 600), 0, 128, 0)
		TNT1 A 0 DamageThing(100000)
		Goto Death
	Death.ChexWarrior:
		SEPP K 0 A_GiveToTarget("KillIndicator",1)
		SEPP K 0 A_StopSound(Chan_Weapon)
		SEPP K 0 A_NoBlocking
		SEPP K 0 A_ChangeFlag ("TELESTOMP", 0)
		SEPP K 0 A_StopSoundEx("Voice")
		SEPP K 0 A_StopSound(CHAN_6)
		SEPP K 0 A_TakeInventory("KilledCount",999)
		SEPP K 0 A_GiveToTarget("KilledMe",1)
		SEPP K 0 A_GiveToTarget("KilledChoke",1)
		SEPP K 0 A_SpawnItemEx("ChexCereal",0,0,32,random(2,3),momy,random(8,12),random(-180,180))
		SEPP K 0 A_GiveToTarget("ChexArmorBonus",25)
		SEPP K 0 A_GiveToTarget("ChexBoop",1)
		SEPP K 0 A_Stop
		SEPP K 0 A_NoGravity
		SEPP K 0 A_ChangeFlag("DONTGIB",1)
		SEPP K 0 A_PlaySoundEx("Teleport/Chex",7)
		SEPP K 3 A_SpawnItem("BigZorch")
		SEPP K 3 A_SetTranslucent(0.9,0)
		SEPP K 0 A_Scream
		SEPP K 3 A_SetTranslucent(0.8,0)
		SEPP K 0 A_NoBlocking
		SEPP K 3 A_SetTranslucent(0.7,0)
		SEPP K 3 A_SetTranslucent(0.6,0)
		SEPP K 3 A_SetTranslucent(0.5,0)
		SEPP K 3 A_SetTranslucent(0.4,0)
		SEPP K 3 A_SetTranslucent(0.3,0)
		SEPP K 3 A_SetTranslucent(0.2,0)
		SEPP K 3 A_SetTranslucent(0.1,0) 
		TNT1 A 1 A_SetTranslucent(1,0)
		TNT1 A -1
		Stop
	Death.CarolineDamage:
	NULL A 0 A_SpawnItemEx("CarolineHeart",0,0,32,random(2,3),momy,random(8,12),random(-180,180))
	Goto Death.UnmakerLaser
	Death.MapGibber:
		TNT1 A 0 A_PlaySound("car/hit",chan_auto)
	Death.MapGibber2:
	Death.UnmakerLaser:
    SEPP A 0 A_GiveToTarget("KillBeep",1)
    SEPP A 0 A_StopSound(CHAN_BODY)
	TNT1 A 0 A_SpawnItemEx("AdditionalGhoulDeathVFX")
	TNT1 A 0 A_TakeInventory("KilledCount",999)
	TNT1 A 0 A_GiveToTarget("KilledMe",1)
	TNT1 A 0 A_GiveToTarget("KilledChoke",1)
	TNT1 A 1
	TNT1 A 0 A_NoBlocking
	TNT1 A 0 A_Gravity
	TNT1 A 0 A_CustomMissile("ArchvileFirex3", 0,0,random(0,360), 2,0)
	TNT1 A 0 A_CustomMissile("ArchvileFirex3", 0,0,random(0,360), 2,0)
	TNT1 A 0 A_CustomMissile("ArchvileFirex3", 0,0,random(0,360), 2,0)
	TNT1 A 0 A_CustomMissile("ArchvileFirex3", 0,0,random(0,360), 2,0)
	TNT1 A 0 A_CustomMissile("ArchvileFirex3", 0,0,random(0,360), 2,0)
	NULL A 1 A_SpawnItemEx("SOULGIBBER", 0, 0, 0, 0, 0, 0, 0, 160, 0)
	NULL A -1
	Stop
	Death.MarineShotgun:
	SEPP A 0 A_GiveToTarget("grenadeammo",1)
	SEPP A 0 A_GiveToTarget("shell",3)
	SEPP A 0 A_GiveToTarget("clip1",20)
	Goto DeathAnim
	Death.Marinemachinegun:
	SEPP A 0 A_GiveToTarget("grenadeammo",1)
	SEPP A 0 A_GiveToTarget("shell",3)
	SEPP A 0 A_GiveToTarget("clip1",20)
	Goto Deathanim
	Death.Marinepistol:
	SEPP A 0 A_GiveToTarget("grenadeammo",1)
	SEPP A 0 A_GiveToTarget("shell",3)
	SEPP A 0 A_GiveToTarget("clip1",20)
	Goto Deathanim
	Death.Grenade:
		SEPP A 0 A_GiveToTarget("KilledG",1)
		Goto DeathAnim
	Death.CrapPlasma:
		SEPP A 0 A_GiveToTarget("Unlock9",1)
		Goto DeathAnim
	Death.Ice2:
		SEPP A 0 A_GiveToTarget("KilledIce2",1)
		Goto DeathAnim
	Death.Fire2:
		SEPP A 0 A_GiveToTarget("KilledFire2",1)
		Goto DeathAnim
	Death.Railgun:
		SEPP A 0 A_GiveToTarget("KilledLightning",1)
		Goto DeathAnim
	Death.GhostTrap:
		SEPP A 0 A_GiveToTarget("KilledG",1)
		Goto DeathAnim
	Death.AltFire2:
		SEPP A 0 A_GiveToTarget("KilledAltFire2",1)
		Goto Death.Fire2
	Death.AltIce2:
		SEPP A 0 A_GiveToTarget("KilledAltIce2",1)
		Goto Death.Ice2
	Death.AltGrenade:
		SEPP A 0 A_GiveToTarget("KilledAltG",1)
		Goto Death.Grenade
	Death.Fire3:
		SEPP A 0 A_GiveToTarget("KilledFire3",1)
		Goto DeathAnim
	Death.Ice3:
		SEPP A 0 A_GiveToTarget("KilledIce3",1)
		Goto DeathAnim
	Death.Grenade2:
		SEPP A 0 A_GiveToTarget("KilledG2",1)
		Goto DeathAnim
	Pain.Drainer:
		SEPP A 0 A_GiveToTarget("Health",10)
		Goto Pain
	Death.ChexWarriorPistol:
	Death.ChexWarriorChainsaw:
	Goto Death.ChexWarrior
	Death.RenegadeBullets:
	Death.RenegadeFire:
	Death.ArtilleryDamage:
		TNT1 A 0 A_GiveToTarget("RenegadeKillItem",1)
		Goto DeathAnimAlt
	Death.CalebDynamite:
		TNT1 A 0 A_GiveToTarget("KilledG",1)
	Death.CalebShotgun:
	Death.CalebRevolver:
		TNT1 A 0 A_GiveToTarget("Health",20)
		TNT1 A 0 A_SpawnItemEx("CalebHeart",0,0,32,random(2,3),momy,random(8,12),random(-180,180))
		TNT1 A 0 A_GiveToTarget("CalebHeartbeat",1)
		Goto DeathAnimAlt
	Pain.EngineerSaw:
	Pain.Ghosttrap:
	Pain.GBFire:
	Pain.Misty:
	Pain.GBSaw:
	Pain.GBString:
	Pain.GBNuke:
	Pain.Ice2:
	Pain.Ice:
	Pain.ElecStorm:
	Pain.AltFire2:
	Pain.AltIce2:
	Pain.Fire2:
	Pain.Doggo:
	Pain.LaraArrow:
	Pain.Wind2:
	Pain.Grenade:
	Pain.Grenade2:
	Pain.TemplarLightningRain:
	Pain.CarolineDamage:
	Pain.ChexWarrior:
	Pain.InariPlasma:
	Pain.Plasma:
	Pain.FlameProtect:
	Pain.DutchShotgun:
	Pain.KarenExplo:
	Pain.Sentinel:
	Pain.Divine:
	Pain.GwenPlasma3:
	Pain.MacheteSlicerino:
	Pain.AntiAirbolt:
	Pain.MechPewPews:
	Pain.RainbowNado:
		TNT1 A 0 ACS_NamedExecuteAlways("ChangeActivator",0)
		Goto Pain
	}
}


Actor SepulchreWeapon : Weapon
{
+WEAPON.MELEEWEAPON 
+WEAPON.DONTBOB
+INVENTORY.UNDROPPABLE
   Weapon.SelectionOrder 350
   Obituary "%o was flattened by %k's rocks."
   +WEAPON.NOAUTOAIM
   Inventory.icon "TNT1A0"
   Weapon.YAdjust 0
   States
   {
   Spawn:
      SEPW A 10
      Stop
   Ready:
      SEPW A 120 A_WeaponReady
      Loop
   Deselect:
	  SEPW A 1 A_Lower
      Loop
   Select:
      SEPW A 1 A_Raise
      Goto Select
   Fire:
     SEPW A 0 A_Recoil(30)
     SEPW A 0 A_PlaySound("groundp",CHAN_5,1)
	 SEPW A 3 offset (-10, 55)
	 SEPW A 0 A_FireCustomMissile("SepulchreRock4", 0, 1, 0, 0, 0, 0)
	 SEPW A 3 offset (-30, 95)
	 SEPW A 0 A_FireCustomMissile("SepulchreRock4", 0, 1, 0, 0, 0, 0)
	 SEPW A 3 offset (-40, 115)
	 SEPW A 0 A_FireCustomMissile("SepulchreRock4", 0, 1, 0, 0, 0, 0)
	 SEPW A 3 offset (-30, 95)
	 SEPW A 3 offset (-10, 55)
	 SEPW A 40
     goto Ready
	Altfire:
	SEPW A 0 A_PlaySound("sepfire",CHAN_5,1)
    SEPW A 1 A_FireCustomMissile("SepulchreProjectile",0,1,15,9,0,0)
    SEPW A 1 offset (-10, 55)
	SEPW A 1 offset (-30, 95)
	SEPW A 1 offset (-40, 115)
	SEPW A 1 offset (-30, 95)
	SEPW A 1 offset (-10, 55)
	SEPW A 30
	Goto Ready
   }
}

ACTOR SepulchreRock4
{
   Damage (14)
   Speed 40
   Radius 10
   Height 6
   Gravity 0.7	
   Scale 1
   PROJECTILE
   BounceSound "groundp"
   DeathSound "groundp"
   Obituary "%o was flattened by %k's rocks."
   PainType "HarvesterRock"
   -NOGRAVITY
   +DROPOFF	
   +CANBOUNCEWATER
   +DONTBLAST
   BounceType Hexen
   BounceCount 5 
   BounceFactor 1.2
   ReactionTime 22
   States
   {
   Spawn:   
      TALR ABCD 1 A_SpawnItemEx("SepulchreRock4Trail")
	  TNT1 A 0 A_CountDown
      Goto See
	See:
	  TALR ABCD 1 A_SpawnItemEx("SepulchreRock4Trail")
	  TNT1 A 0 A_CountDown
	  Loop
   Bounce:
      TNT1 A 0
   	  TNT1 A 0 ThrustThing(random(0,360), 5, 0, 0)
	  TALR A 1 A_SpawnItemEx ("SepulchreRock4Trail")
	  Goto See
   Death:
       TNT1 A 0 A_CustomMissile("SepulchreShockwave",0,0,0,2,0)
       TNT1 A 0 A_CustomMissile("SepulchreShockwave",0,0,40,2,0)
       TNT1 A 0 A_CustomMissile("SepulchreShockwave",0,0,80,2,0)
       TNT1 A 0 A_CustomMissile("SepulchreShockwave",0,0,-40,2,0)
       TNT1 A 0 A_CustomMissile("SepulchreShockwave",0,0,-80,2,0)
	   TNT1 AA 0 A_SpawnItemEx("SepulchreRock5",0,0,3,random(-1,1),random(-1,1),random(2,4),random(0,359),32)
	   TNT1 AAAA 0 A_SpawnItemEx("SepulchreRock6",0,0,3,random(-1,1),random(-1,1),random(2,4),random(0,359),32)
      Stop
   }
}

ACTOR SepulchreRock4Trail
{
  Radius 1
  Height 1
  Speed 0
  Damage 0
  Scale 1
  RenderStyle Add
  Alpha 1
  visibletoteam 0
  Projectile
  +RANDOMIZE
  	+NOGRAVITY
	+NOCLIP
  RenderStyle Add
  SeeSound ""
  DeathSound ""
  States
  {
  Spawn:
	TALR A 1 A_SetScale(0.5)
	TALR B 1 A_SetScale(0.4)
	TALR C 1 A_SetScale(0.3)
	TALR D 1 A_SetScale(0.2)
	TALR A 1 A_SetScale(0.1)
    Stop
  }
}

ACTOR SepulchreRock5
{
   Damage (10)
   Speed 40
   Radius 6
   Height 3
   Scale 1
   Gravity 0.6
   PROJECTILE
   -NOGRAVITY
   +DONTBLAST
   Obituary "%o was flattened by %k's rocks."
   DeathSound "groundp"
   States
   {
   Spawn:
      TALF ABCD 1	  
	  Loop
   Death:
      TALF ABCD 1
      TNT1 AAA 0 A_SpawnItemEx("SepulchreRock6",0,0,3,random(-1,1),random(-1,1),random(2,4),random(0,359),32)
      Stop
   }
}

ACTOR SepulchreRock6
{
   Speed 8
   Radius 2
   Height 2
   Scale 1
   Gravity 0.6
   PROJECTILE
   -NOGRAVITY
   +DONTBLAST
   States
   {
   Spawn:
      TALF ABCD 1	  
	  Loop
   Death:
      TNT1 A 0
      Stop
   }
}

ACTOR SepulchreShockwave
{
  Radius 15
  Height 6
  YScale 0.5
  XScale 1.5
  Speed 25
  Damage 0
  Projectile
  +RANDOMIZE
  RenderStyle "Translucent"
  Alpha 0.1
  SeeSound ""
  DeathSound ""
  States
  {
  Spawn:
    THKC A 4 Bright
	    THKC B 4 Bright
	THKC A 4 Bright A_ScaleVelocity(0.40)
		    THKC B 4 Bright
	    THKC A 4 Bright
	THKC B 4 Bright A_ScaleVelocity(0.20)
		THKC A 0 Bright A_SetTranslucent (0.04)
		    THKC A 4 Bright
	    THKC B 4 Bright
	THKC A 4 Bright A_ScaleVelocity(0.05)
		THKC A 0 Bright A_SetTranslucent (0.02)
			    THKC A 4 Bright
			    THKC B 4 Bright
	THKC A 4 Bright A_ScaleVelocity(0.02)
		THKC A 0 Bright A_SetTranslucent (0.005)
	THKC B 4 Bright
    Stop
  Death:
    THKC A 1 Bright
    Stop
  }
}

Actor SepulchreDeathFire
{
	- SOLID
	
	States
	{
	Spawn:
		TNT1 A 0
		TNT1 AAAAAAA 0 A_CustomMissile("SepulchreRock4",10,0,random(0,360),2,0)
		TNT1 AAA 0 A_CustomMissile("SepulchreRock4",10,0,random(0,360),2,0)
		Stop
	}
}

Actor SepulchreDeathFire2
	{
	- SOLID
	
	States
	{
	Spawn:
		TNT1 A 0
		TNT1 AAAAAAA 0 A_CustomMissile("SepulchreRock4",10,0,random(0,360),2,random(50,90))
		TNT1 AAA 0 A_CustomMissile("SepulchreRock4",10,0,random(0,360),2,random(50,90))
		Stop
	}
}

ACTOR SepulchreProjectile
{
  Radius 10
  Height 8
  Speed 200
  Damage (20)
  Scale 0.2
  Projectile
  +RANDOMIZE
  +HITTRACER
  +BRIGHT
  DeathSound "sephit"
  Obituary "%o made a fatal exchange with %k."
  DamageType "SwapCheck"
  States
  {
  Spawn:
    SEPX A 1 A_SpawnItemEx ("SepulchreProjectileTrail")
    Loop
  XDeath:
	TNT1 A 0 A_GiveToTarget("HitBeep",1)
	TNT1 A 0 A_JumpIfInventory("IsHuman",1,"Hit",AAPTR_TRACER)
	TNT1 A 1
	Goto Death
  Hit:
	TNT1 A 0 ACS_Execute(1032,0)
	TNT1 A 1
	Goto Death
  Death:
    SEPX AAAAA 3 A_Fadeout(0.2)
    Stop
  }
}

ACTOR SepulchreProjectileTrail
{
  Radius 1
  Height 1
  Speed 0
  Damage 0
  Scale 0.2
  RenderStyle Add
  Alpha 0.3
  visibletoteam 0
  Projectile
  +RANDOMIZE
  	+NOGRAVITY
	+NOCLIP
	+BRIGHT
  RenderStyle Add
  SeeSound ""
  DeathSound ""
  States
  {
  Spawn:
    SEPX A 5
	SEPX A 2 A_SetScale(0.1)
	SEPX A 2 A_SetScale(0.09)
	SEPX A 2 A_SetScale(0.08)
	SEPX A 2 A_SetScale(0.07)
	SEPX A 2 A_SetScale(0.06)
	SEPX A 2 A_SetScale(0.05)
	SEPX A 2 A_SetScale(0.04)
	SEPX A 2 A_SetScale(0.03)
	SEPX A 2 A_SetScale(0.02)
	SEPX A 2 A_SetScale(0.01)
    Stop
  }
}

ACTOR BobTheTestActor
{
  Health 900
  Radius 20
  Height 56
  Mass 100
  Speed 0
  PainChance 256
  Monster
  +FLOORCLIP
  States
  {
  Spawn:
    PLAY A 1
    Loop
  See:
    PLAY A 1
    Loop
  Pain.SwapCheck:
    TNT1 A 0 ACS_Execute(1032, 0)
    Goto Pain
  Pain:
    PLAY H 2  
    PLAY H 2 A_Pain 
    Goto See
  Death:
    TNT1 A -1
    Stop
  }
}