actor HLostSoul_Sex : SexActor
{
	Radius 16
	Height 56
	Gravity 0.01
	ActiveSound "hsoul/finish" // After sex
	PainSound   "hsoul/faint"  // Too late
	Damage 1 // Monster has 1 sex scene
	States
	{
	Spawn:
        SKUL F 5 A_PlaySound("hsoul/moan")
		SKUL FFFFFF 5 A_SpawnItemEx("PrettyHeart", random(-20, 20), random(-20, 20), 0, 0, 0, random(1, 4), 0, SXF_CLIENTSIDE | SXF_NOCHECKPOSITION, 64)
		SKUL FFFFFF 5 A_SpawnItemEx("PrettyHeart", random(-20, 20), random(-20, 20), 0, 0, 0, random(1, 4), 0, SXF_CLIENTSIDE | SXF_NOCHECKPOSITION, 64)
		SKUL FFFFFF 5 A_SpawnItemEx("PrettyHeart", random(-20, 20), random(-20, 20), 0, 0, 0, random(1, 4), 0, SXF_CLIENTSIDE | SXF_NOCHECKPOSITION, 64)
		SKUL FFFFFF 5 A_SpawnItemEx("PrettyHeart", random(-20, 20), random(-20, 20), 0, 0, 0, random(1, 4), 0, SXF_CLIENTSIDE | SXF_NOCHECKPOSITION, 64)
		SKUL FFFFFF 5 A_SpawnItemEx("PrettyHeart", random(-20, 20), random(-20, 20), 0, 0, 0, random(1, 4), 0, SXF_CLIENTSIDE | SXF_NOCHECKPOSITION, 64)
		SKUL FFFFFF 5 A_SpawnItemEx("PrettyHeart", random(-20, 20), random(-20, 20), 0, 0, 0, random(1, 4), 0, SXF_CLIENTSIDE | SXF_NOCHECKPOSITION, 64)
		SKUL FFFFFF 5 A_SpawnItemEx("PrettyHeart", random(-20, 20), random(-20, 20), 0, 0, 0, random(1, 4), 0, SXF_CLIENTSIDE | SXF_NOCHECKPOSITION, 64)
		SKUL FFFFFF 5 A_SpawnItemEx("PrettyHeart", random(-20, 20), random(-20, 20), 0, 0, 0, random(1, 4), 0, SXF_CLIENTSIDE | SXF_NOCHECKPOSITION, 64)
		SKUL FFFFFF 5 A_SpawnItemEx("PrettyHeart", random(-20, 20), random(-20, 20), 0, 0, 0, random(1, 4), 0, SXF_CLIENTSIDE | SXF_NOCHECKPOSITION, 64)
		SKUL FFFFFF 5 A_SpawnItemEx("PrettyHeart", random(-20, 20), random(-20, 20), 0, 0, 0, random(1, 4), 0, SXF_CLIENTSIDE | SXF_NOCHECKPOSITION, 64)
		goto TooLate
	Finish:
        SKUL FGHIJKLMNOPQRSTU 6 bright
		stop
	Active:
		// Make sure the Lost Soul is on the ground
		TNT1 A 0 ACS_NamedExecuteAlways("MoveToGround", 0)
		goto Super::Active
	
	// Blowjob
	SexScene_1_1: // Normal
		TNT1 A 1 A_Jump(96, 2)
        TNT1 A 0 A_PlaySound("hsoul/blow")
		LSBJ ABCDEF 4
		loop
	SexScene_1_2: // Fast
		TNT1 A 1 A_Jump(96, 2)
        TNT1 A 0 A_PlaySound("hsoul/blow")
		LSBJ ABCDEF 3
		loop
	SexScene_1_3: // Faster
		TNT1 A 1 A_Jump(96, 2)
        TNT1 A 0 A_PlaySound("hsoul/blow")
		LSBJ ABCDEF 2
		loop
	}
}