glife/locations/podrsex

# podrsex
if $ARGS[0] = 'start':
	sweat += 1
	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 him':gt 'podrsex', 'suck'
			act 'Guy fucks your pussy':gt 'podrsex', 'pussy'
			act 'Guy fucks your ass':gt 'podrsex', 'ass'
			act 'Guy fucks her':gt 'podrsex', 'voy'
		else
			act 'Suck him off':gt 'podrsex', 'suck'
			act 'Cum in your pussy':gt 'podrsex', 'pussy'
			act 'Cum in your ass':gt 'podrsex', 'ass'
			if dom > 10:act 'Cum in her':gt 'podrsex', 'voy'
		end
	else
		act 'Continue':
			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
	minut += 10
	horny += 10
	sexvar -= 1
	dynamic $stamina_npc
	pos = 1

	if pdsxbj = 0:
		bj += 1
		pdsxbj = 1
	end

	'<center><img src="images/img/podrsex/minet<<picrand>>.jpg"></center>'
	'You two suck his cock, then take turns licking it with his dildo, touching tongues.'
	if horny >= (randhorny - 5*exhibi):
		horny = 0
		orgasm += 1
		'You have an orgasm.'
	end
	if sexvar = 1:'<br>He indicates that he will cum soon.'
	if sexvar > 0:xgt 'podrsex', 'var'
	if sexvar = 0:
		*clr
		'<br><center><img src="images/img/podrsex/cum<<picrand>>.jpg"></center>'
		spafinloc = 12
		gs 'cum_manage'
		gs 'podrsex', 'end'
	end
end

if $ARGS[0] = 'pussy':
	*clr
	minut += 10
	horny += 10
	sexvar -= 1
	dynamic $stamina_npc
	pos = 2
	cumprecheck = 1
	gs 'cum_manage'
	
	if pdsxsex = 0:
		sex += 1
		pdsxsex = 1
	end

	'<center><img src="images/img/podrsex/uvag<<picrand>>.jpg"></center>'
	'He comes into you, his cock moving inside your pussy bringing you pleasure, this time she did not lose too found something to do.'
	if horny >= (randhorny - 5*exhibi):
		horny = 0
		orgasm += 1
		'You have an orgasm.'
	end
	if sexvar = 1:'<br>He indicates 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
	minut += 10
	horny += 10
	sexvar -= 1
	dynamic $stamina_npc
	pos = 3

	if pdsxanal = 0:
		anal += 1
		pdsxanal = 1
	end

	'<center><img src="images/img/podrsex/uanal<<picrand>>.jpg"></center>'
	'When he enters you in the anus you hurt a little, but soon the pain goes away and its place is taken by a pleasant feeling, while his moving dildo in your ass it is not sitting idly by.'
	if horny >= (randhorny - 5*exhibi):
		horny = 0
		orgasm += 1
		'You have an orgasm.'
	end
	if sexvar = 1:'<br>He indicates 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
	minut += 10
	horny += 10
	sexvar -= 1
	dynamic $stamina_npc
	if horny >= (randhorny - 5*exhibi):
		horny = 0
		orgasm += 1
		'You have an orgasm.'
	end
	if rand(0,1) = 0:
		pos = 4
		'<center><img src="images/img/podrsex/vag<<picrand>>.jpg"></center>'
		'While she enjoys her pussy getting fucked, you also find yourself iteresnoe occupation.'
	else
		pos = 5
		'<center><img src="images/img/podrsex/anal<<picrand>>.jpg"></center>'
		'Do you like the sight of his cock in her ass and sweet until she yells trying to absorb all of it, too, you did not get lost.'
	end
	if sexvar = 1:'<br>He indicates 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:
		'He cums, spraying both of you with his semen. You girls start to licking each other clean, kissing in the process.'
	elseif pos = 2:
		if tabletki <= 0 and mesec <= 0 and knowpreg = 0:cuminside = 1
		'He groans, pumping his seed deep inside your pussy.'
	elseif pos = 3:
		spafinloc = 3
		'He groans, pumping his seed deep inside your ass.'
	elseif pos = 4:
		'He groans, pumping her pussy full of cum.'
	elseif pos = 5:
		'He groans, pumping her ass full of cum.'
	end
	if cuminside = 1:cuminside = 0 & '<br>"Oh, shit!" You think, realizing with horror that you can become pregnant.'
	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 kazsexdva = 1:
			kazsexdva = 0
			gt 'kazinosvid', '3'
		end

		gt $sexloc, 'start'
	end
end


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