//--------Here Kyle Katarn Player------------//
Actor KyleKatarn : DoomPlayer 
{
    Player.StartItem "KylePistol"
    Player.StartItem "KyleFists"
	Player.StartItem "KyleThermalDetonators"
	Player.StartItem "KyleIMMines"
	Player.StartItem "EnergyUnits", 100
	Player.StartItem "StartShield"
	Player.StartItem "InventoryBattery", 100
	Player.StartItem "HeadLight"
	Player.SoundClass "KatarnKyle"
	Player.JumpZ 10
	Player.WeaponSlot 1, KyleFists
    Player.WeaponSlot 2, KylePistol
    Player.WeaponSlot 3, KyleBlasterRifle
    Player.WeaponSlot 4, KyleThermalDetonators 
    Player.WeaponSlot 5, KyleAutoGun
    Player.WeaponSlot 6, KyleFusionCutter
    Player.WeaponSlot 7, KyleIMMines
    Player.WeaponSlot 8, KyleMortarGun
    Player.WeaponSlot 9, KyleConcussionRifle
    Player.WeaponSlot 0, KyleAssaultCannon
	
	States
	{
	Spawn:
	    TNT1 A 0 A_JumpIfInventory("IceCleatsCheck", 1, "IceCleatsSpawn")
		PLAY A 1
		Loop
	    IceCleatsSpawn:
		TNT1 A 0 A_JumpIf(ACS_ExecuteWithResult(904,0,0,0) == 1, "IceCleatsSee") //That's state not correct work.
		PLAY A 1 A_ScaleVelocity(0.9) 
		Goto Spawn
	See:
	    TNT1 A 0 A_JumpIfInventory("IceCleatsCheck", 1, "IceCleatsSee")
        PLAY ABCD 4
		Goto Spawn
	IceCleatsSee:
		PLAY ABCD 4 A_ScaleVelocity(0.9) //A_JumpIf(ACS_ExecuteWithResult(904,0,0,0) == 0, "Spawn")
		Goto Spawn 
	Missile:
		PLAY E 6
		PLAY F 6 BRIGHT
		Goto Spawn
	Melee:
		PLAY E 6
		PLAY F 6 BRIGHT
		Goto Spawn	
	Pain:
	    TNT1 A 0 A_JumpIfInventory("BasicArmor", 1, "PowerPain")
		PLAY G 4 A_Pain
		Goto Spawn
	PowerPain:
	    TNT1 A 0 A_PlaySound("KylePainPower")
		TNT1 G 0 A_SetBlend("Green", 0.5, 20)
		PLAY G 4
		Goto Spawn
	UseMask:
	    TNT1 A 0 A_PlaySound("MaskWork", 6, 1.0, True)
		Goto See
	DoneMask:
	    TNT1 A 0 A_StopSound(6)
		Goto See
		Death:
		TNT1 A 0 A_TakeInventory("GasMaskCheck", 99)
		TNT1 A 0 A_TakeInventory("GogglesCheck", 99)
		TNT1 A 0 A_TakeInventory("HeadLightCheck", 99)
		TNT1 A 0 A_TakeInventory("IceCleatsCheck", 99)
		Goto Super::Death
		Xdeath:
		TNT1 A 0 A_TakeInventory("GasMaskCheck", 99)
		TNT1 A 0 A_TakeInventory("GogglesCheck", 99)
		TNT1 A 0 A_TakeInventory("HeadLightCheck", 99)
		TNT1 A 0 A_TakeInventory("IceCleatsCheck", 99)
		Goto Super::XDeath
		
     }
}


Actor HKyleKatarn : KyleKatarn replaces HereticPlayer { }	