# cumreaction
if spdirtyc > 0 or spdirtyv > 0:
	grupNPC[numnpc] -= 10

	if GorSlut = 0:GorSlut = 1

	'<<$npcName[numnpc]>> looks at you "What is that? Is that sperm? Fuck you nasty slut, you could at least clean yourself afterwards."'

	if $loc = 'gschool_lunch':
		gs 'gschool_lessons', 'afternoon'
	else
		act 'Move away':gt $loc, $metka
	end

	exit
end

if spdirtyb > 0 and rand(0,30) = 0:
	grupNPC[numnpc] -= 10

	if GorSlut < 2:GorSlut = 2

	'<<$npcName[numnpc]>> looks at you, "What is that smell on your breath? Yuck It''s smells like sperm. Couldn''t you at least clean your mouth after sucking dicks."'

	if $loc = 'gschool_lunch':
		gs 'gschool_lessons', 'afternoon'
	else
		act 'Move away':gt $loc, $metka
	end

	exit
end

--- cumreaction ---------------------------------