actor ArchViless_Sex : SexActor
{
	Radius 20
	Height 56
	ActiveSound "vile/death" // After sex
	PainSound   ""  // Too late
	Damage 1 // Monster has 1 sex scene
    Scale .85
	States
	{
	Spawn:
        VILE Q 7
		VILE R 7 A_PlaySound("") // moan
        VILE S 7
        VILE TUVWX 7 A_SpawnItemEx("PrettyHeart", random(-20, 20), random(-20, 20), 0, 0, 0, random(1, 4), 0, SXF_CLIENTSIDE | SXF_NOCHECKPOSITION, 64)
		VILE TUVWX 7 A_SpawnItemEx("PrettyHeart", random(-20, 20), random(-20, 20), 0, 0, 0, random(1, 4), 0, SXF_CLIENTSIDE | SXF_NOCHECKPOSITION, 64)
        VILE TUVWX 7 A_SpawnItemEx("PrettyHeart", random(-20, 20), random(-20, 20), 0, 0, 0, random(1, 4), 0, SXF_CLIENTSIDE | SXF_NOCHECKPOSITION, 64)
        VILE TUVWX 7 A_SpawnItemEx("PrettyHeart", random(-20, 20), random(-20, 20), 0, 0, 0, random(1, 4), 0, SXF_CLIENTSIDE | SXF_NOCHECKPOSITION, 64)
        VILE TUVWX 7 A_SpawnItemEx("PrettyHeart", random(-20, 20), random(-20, 20), 0, 0, 0, random(1, 4), 0, SXF_CLIENTSIDE | SXF_NOCHECKPOSITION, 64)
        VILE TUVWX 7 A_SpawnItemEx("PrettyHeart", random(-20, 20), random(-20, 20), 0, 0, 0, random(1, 4), 0, SXF_CLIENTSIDE | SXF_NOCHECKPOSITION, 64)
        VILE TUVWX 7 A_SpawnItemEx("PrettyHeart", random(-20, 20), random(-20, 20), 0, 0, 0, random(1, 4), 0, SXF_CLIENTSIDE | SXF_NOCHECKPOSITION, 64)
        VILE TUVWX 7 A_SpawnItemEx("PrettyHeart", random(-20, 20), random(-20, 20), 0, 0, 0, random(1, 4), 0, SXF_CLIENTSIDE | SXF_NOCHECKPOSITION, 64)
        VILE TUVWX 7 A_SpawnItemEx("PrettyHeart", random(-20, 20), random(-20, 20), 0, 0, 0, random(1, 4), 0, SXF_CLIENTSIDE | SXF_NOCHECKPOSITION, 64)
        VILE TUVWX 7 A_SpawnItemEx("PrettyHeart", random(-20, 20), random(-20, 20), 0, 0, 0, random(1, 4), 0, SXF_CLIENTSIDE | SXF_NOCHECKPOSITION, 64)
		goto TooLate
	Finish:
        VILE Y 7
		VILE Z -1
        stop

	// Vaginal
	SexScene_1_1: // Normal
		SXVA ABCDEFG 3
        TNT1 A 0 A_Jump(96, "SexScene_1_1")
        TNT1 A 0 A_PlaySound("helldame/titfuck")
		loop
	SexScene_1_2: // Fast
		SXVA ABCDEFG 2
        TNT1 A 0 A_Jump(96, "SexScene_1_2")
        TNT1 A 0 A_PlaySound("helldame/titfuck")
		loop
	SexScene_1_3: // Faster
		SXVA ABCDEFG 1
        TNT1 A 0 A_Jump(96, "SexScene_1_3")
        TNT1 A 0 A_PlaySound("helldame/titfuck")
		loop
	}
}
