glife-ko/locations/podrsex

# podrsex
if $ARGS[0] = 'start':
	cla
	*clr
	gs 'stat'
	minut += 30
	sweat += 1
	girl += 1
	guy += 1
	lesbian += 1
	picrand = rand(0, 1)
	gt 'podrsex', 'var'
end

if $ARGS[0] = 'var':
	podrsexrand = rand(0, 4)

	if podrsexrand = 0:
		cla
		*clr
		horny += 10
		sexvar += 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.'

		act 'More':gt 'podrsex', 'var'

		if sexvar >= 3:act 'Finish.':gt 'podrsex', 'end'

	elseif podrsexrand = 1:
		cla
		*clr
		horny += 10
		sexvar += 1
		'<center><img src="images/img/podrsex/vag<<picrand>>.jpg"></center>'
		'While she enjoys her pussy in a member, you also find yourself iteresnoe occupation.'

		act 'More':gt 'podrsex', 'var'

		if sexvar >= 3:act 'Finish.':gt 'podrsex', 'end'

	elseif podrsexrand = 2:
		cla
		*clr
		horny += 10
		sexvar += 1

		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.'

		act 'More':gt 'podrsex', 'var'

		if sexvar >= 3:act 'Finish.':gt 'podrsex', 'end'
	elseif podrsexrand = 3:
		cla
		*clr
		horny += 10
		sexvar += 1
		'<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.'

		act 'More':gt 'podrsex', 'var'

		if sexvar >= 3:act 'Finish.':gt 'podrsex', 'end'
	elseif podrsexrand = 4:
		cla
		*clr
		horny += 10
		sexvar += 1

		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.'

		act 'More':gt 'podrsex', 'var'

		if sexvar >= 3:act 'Finish.':gt 'podrsex', 'end'
	end
end

if $ARGS[0] = 'end':
	cla
	*clr
	pdsxbj = 0
	pdsxsex = 0
	pdsxanal = 0
	sexvar = 0
	cumlip = 1

	if horny >= 80:
		horny = 0
		orgasm += 1
	end

	'<center><img src="images/img/podrsex/cum<<picrand>>.jpg"></center>'
	'When he ends up spilling your semen, you licks it off with each other, exchanging kissing and finally swallow.'

	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 ---------------------------------