glife/locations/orgazm

# orgazm
if $ARGS[0] = 'start':
	protect = 0
	vidageday -= 1
	frost = 0

	if tabletki <= 0 and prezik > 0 and prosta = 0:
		dynamic $prezik
		protect = 1
		if preziktype = 2:
			sexcontra = 7
			'You gave the guy a sabotaged condom and he put it on in silence.'
		else
			sexcontra = 3
			'You gave the guy a condom and he put it on in silence.'
		end
	elseif tabletki >= 0 and prezik > 0 and prosta > 0:
		dynamic $prezik
		protect = 1
		if preziktype = 2:
			sexcontra = 7
			'You gave the guy a sabotaged condom and he put it on in silence.'
		else
			sexcontra = 3
			'You gave the guy a condom and he put it on in silence.'
		end
	elseif tabletki <= 0 and prezik > 0:
		dynamic $prezik
		protect = 1
		if preziktype = 2:
			sexcontra = 7
			'You gave the guy a sabotaged condom and he put it on in silence.'
		else
			sexcontra = 3
			'You gave the guy a condom and he put it on in silence.'
		end
	end

	gs 'arousal', 'vaginal', arousal_minut

	if protect ! 1:
		!!unprotected sex
		finrand = rand(0, 1)

		if finrand = 0:
			!!inside
			gs 'cum_manage'
			'<<$boydesc>> groans and you feel each jet of sperm paint the walls of your womb with seed.'

			pcs_mood -= 15
			pcs_willpwr -= 15
			gs 'cuminsidereact'
		
		elseif finrand = 1:
			!!out
			if rand(0, 2) = 0:
				spafinloc = 1
				gs 'cum_manage'
				'<<$boydesc>> pulls out barely in time, splashing semen all over your pussy lips.'
			else
				if pose = 0:
					spafinloc = 14
					gs 'cum_manage'
					'<<$boydesc>> shouts, pulling out to finish on your stomach.'
				elseif pose = 1:
					spafinloc = 4
					gs 'cum_manage'
					'<<$boydesc>> shudders, pulling out just in time to paint your ass white with semen.'
				end
			end
		end
	elseif protect = 1:
		gs 'cum_manage'
		protect = 0
		if sexcontra = 4:
			'<<$boydesc>> groans and you feel heat building deep inside, and then a slimy feeling. You realize that the condom burst.'
		elseif sexcontra = 5:
			'<<$boydesc>> groans and you feel heat building deep inside. As he pulls out, you feel a ghostly sensation, as if he didn''t come all the way out. Looking down, you see his bare dick.'
		else
			'<<$boydesc>> groans and you feel heat building deep inside. You realize that he has filled the condom.'
		end
		gs 'cuminsidereact'
		sexcontra = 0
		
	end

	pose = 0
end

--- orgazm ---------------------------------