glife/locations/podrsex

# podrsex

if $ARGS[0] = 'start':
	pcs_sweat += 10
	girl += 1
	guy += 1
	lesbian += 1
	picrand = rand(0, 1)
	xgt 'podrsex', 'var'
end

if $ARGS[0] = 'var':
	cla
	randhorny = rand(50,100)
	gs 'stat'
	if sub <= 0:
		if sexvar ! 1:
			act 'Suck his dick':gt 'podrsex', 'suck'
			act 'Let him fuck your pussy':gt 'podrsex', 'pussy'
			act 'Let him fuck your ass':gt 'podrsex', 'ass'
			act 'Watch him fuck the other girl':gt 'podrsex', 'voy'
		else
			act 'Suck him off':gt 'podrsex', 'suck'
			act 'Ask him to cum in your pussy':gt 'podrsex', 'pussy'
			act 'Ask him to cum in your ass':gt 'podrsex', 'ass'
			if pcs_dom > 10:act 'Make him cum in the other girl':gt 'podrsex', 'voy'
		end
	else
		podrand = rand(0,3)
		if podrand = 0:
			xgt 'podrsex', 'suck'
		elseif podrand = 1:
			xgt 'podrsex', 'pussy'
		elseif podrand = 2:
			xgt 'podrsex', 'ass'
		else
			xgt 'podrsex', 'voy'
		end
	end
end

if $ARGS[0] = 'suck':
	*clr
	sexvar -= 1
	if sexvar < 0: sexstart = 0
	gs 'dinsex2', 'stamina_npc'
	pos = 1

	if pdsxbj = 0:
		stat['bj'] += 1
		pdsxbj = 1
	end

	'<center><img <<$set_imgh>> src="images/locations/shared/sex/pod/minet<<picrand>>.jpg"></center>'
	'You look the other girl deep in the eyes while the two of you suck the man''s cock, touching her tongue with yours when you reach it around his shaft. Then the two of you take turns sucking him off enthusiastically, while the other licks his balls.'
	
	gs 'arousal', 'bj', 10, 'sub', 'group'
	gs 'stat'
	
	if pcs_horny >= (randhorny - pcs_exhibition):
		'You feel so horny in this situation, you''re very close to having a spontaneous orgasm with the guy''s cock still in your mouth. The other girl notices and gives you a sweet wink while she takes over, giving you some time to rub your clit furiously.'
	
		$orgasm_or = 'yes'
		gs 'arousal', 'masturbate', 5
		gs 'stat'
		
	end
	if sexvar = 1:'<br>The man groans that he will cum soon.'
	if sexvar > 0:xgt 'podrsex', 'var'
	if sexvar = 0:
		*clr
		'<br><center><img <<$set_imgh>> src="images/locations/shared/sex/pod/cum<<picrand>>.jpg"></center>'
		spafinloc = 12
		gs 'cum_manage'
		gs 'podrsex', 'end'
	end
end

if $ARGS[0] = 'pussy':
	*clr
	sexvar -= 1
	if sexvar < 0: sexstart = 0
	gs 'dinsex2', 'stamina_npc'
	pos = 2
	cumprecheck = 1
	gs 'cum_manage'
	
	if pdsxsex = 0:
		stat['vaginal'] += 1
		pdsxsex = 1
	end

	'<center><img <<$set_imgh>> src="images/locations/shared/sex/pod/uvag<<picrand>>.jpg"></center>'
	'The man eagerly penetrates your pussy, and begins to thrust his length inside you over and over bringing you pleasure.'
	
	gs 'arousal', 'vaginal', 10, 'sub', 'group'
	gs 'stat'
	
	if pcs_horny >= (randhorny - pcs_exhibition):
		'You feel so horny in this situation, you''re very close to having a spontaneous orgasm. You close your eyes and surrender yourself to the moment, reaching an explosive orgasm without ever touching yourself.'
	
		$orgasm_or = 'yes'
		gs 'stat'
	end
	if sexvar = 1:'<br>The man groans that he will cum soon.'
	if sexvar > 0:xgt 'podrsex', 'var'
	if sexvar = 0:
		gs 'cum_manage'
		gs 'podrsex', 'end'
	end
end

if $ARGS[0] = 'ass':
	*clr
	sexvar -= 1
	if sexvar < 0: sexstart = 0
	gs 'dinsex2', 'stamina_npc'
	pos = 3

	if pdsxanal = 0:
		stat['anal'] += 1
		pdsxanal = 1
	end

	'<center><img <<$set_imgh>> src="images/locations/shared/sex/pod/uanal<<picrand>>.jpg"></center>'
	'The man slowly works the tip of his cock inside your ass, and halts for a moment so you can get used to the sensation. Then he begins to thrust his length inside you, fucking you more and more intensely with less regard for your feelings and more for his own pleasure.'
	
	gs 'arousal', 'anal', 10, 'sub', 'group'
	gs 'stat'
	
	if pcs_horny >= (randhorny - pcs_exhibition):
		'You feel so horny in this situation, you''re very close to having a spontaneous orgasm. You close your eyes and surrender yourself to the moment, reaching an explosive orgasm without ever touching yourself.'
	
		$orgasm_or = 'yes'
		gs 'stat'
		
	end
	if sexvar = 1:'<br>The man groans that he will cum soon.'
	if sexvar > 0:xgt 'podrsex', 'var'
	if sexvar = 0:
		spafinloc = 3
		gs 'cum_manage'
		gs 'podrsex', 'end'
	end
end

if $ARGS[0] = 'voy':
	*clr
	sexvar -= 1
	if sexvar < 0: sexstart = 0
	gs 'dinsex2', 'stamina_npc'
	if pcs_horny >= (randhorny - pcs_exhibition):

		$orgasm_or = 'custom'
		$orgasm_txt = 'You have an orgasm.'
		gs 'stat'
		
	end
	if rand(0,1) = 0:
		pos = 4
		'<center><img <<$set_imgh>> src="images/locations/shared/sex/pod/vag<<picrand>>.jpg"></center>'
		'While the other girl is enjoying getting her pussy fucked, you find that she''ll do whatever you want her to do. She eagerly licks your pussy when you put it on her mouth, and lap up her sweet juices while the guy rams his cock inside her repeatedly.'
		
		gs 'arousal', 'cuni', 10, 'lesbian', 'dom', 'group'
		gs 'stat'
		
	else
		pos = 5
		'<center><img <<$set_imgh>> src="images/locations/shared/sex/pod/anal<<picrand>>.jpg"></center>'
		'While the other girl is enjoying getting her ass fucked, you find that she''ll do whatever you want her to do. She eagerly licks your pussy when you put it on her mouth, and lap up her sweet juices while the guy rams his cock inside her repeatedly.'
	
		gs 'arousal', 'cuni', 10, 'lesbian', 'dom', 'group'
		gs 'stat'
		
	end
	if sexvar = 1:'<br>The man groans that he will cum soon.'
	if sexvar > 0:xgt 'podrsex', 'var'
	if sexvar = 0:
		spafinloc = 12
		gs 'cum_manage'
		gs 'podrsex', 'end'
	end
end

if $ARGS[0] = 'end':
	cla
	pdsxbj = 0
	pdsxsex = 0
	pdsxanal = 0
	sexstart = 0

	if pos = 1:
		'The man''s cock erupts, shooting his load over your face and the other girl. The two of you giggle and lick his cock clean, kissing each other in the process.'
		gs 'arousal', 'kiss', 5, 'lesbian'
		gs 'arousal', 'end'
		gs 'stat'
		
	elseif pos = 2:
		'The man groans, pumping his seed deep inside your pussy.'
		tmp = func 'pregriskeval'
		if tmp = 0:
			'<br>"Oh, shit!" you think, when you feel his cock pumping his load deep inside you. Hopefully you won''t end up pregnant...'
			gs 'arousal', 'end'
			gs 'stat'
		
		elseif tmp > 0:
			'<br>You push against him when you feel his cock pumping his load deep inside you. Maybe you''ll end up pregnant...'
			gs 'arousal', 'end'
			gs 'stat'
		
		end
	elseif pos = 3:
		spafinloc = 3
		'The man groans, pumping his seed deep inside your ass.'
		gs 'arousal', 'end'
		gs 'stat'
		
	elseif pos = 4:
		'He groans, pumping her pussy full of cum.'
		tmp = func 'pregriskeval'
		if tmp > 0:
			'<br>It''s exciting to watch another woman being pumped full of sperm. Maybe''ll she end up pregnant with his bastard son... '
			gs 'arousal', 'end'
			gs 'stat'
		
		else
			'<br>It''s hot to see another woman being pumped full of cum, but You just hope she''s on the pill right now...'
			gs 'arousal', 'end'
			gs 'stat'
		
		end
	elseif pos = 5:
		'He groans, pumping her ass full of cum.'
		gs 'arousal', 'end'
		gs 'stat'
		
	end
	pos = 0
	gs 'stat'

	act 'Leave':
		if picrand = 26 or picrand = 27 or picrand = 29:gt 'office', 'work'
		if picrand >= 30 and picrand <= 32:gt 'down'
		if picrand = 19:gt 'tanhousezal'

		if kazsexdva = 1:
			kazsexdva = 0
			gt 'kazinosvid', '3'
		end

		gt $sexloc, 'start'
	end
end

--- podrsex ---------------------------------