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

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

	if podrsexrand = 0:
		cla
		*clr
		set horny += 10

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

		set sexvar += 1
		'<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'

	end

	if podrsexrand = 1:
		cla
		*clr
		set horny += 10
		set 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'

	end

	if podrsexrand = 2:
		cla
		*clr
		set horny += 10

		if pdsxsex = 0:
			set sex += 1
			set pdsxsex = 1
		end

		set sexvar += 1
		'<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'
	end

	if podrsexrand = 3:
		cla
		*clr
		set horny += 10
		set 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'
	end

	if podrsexrand = 4:
		cla
		*clr
		set horny += 10

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

		set sexvar += 1
		'<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
	set pdsxbj = 0
	set pdsxsex = 0
	set pdsxanal = 0
	set sexvar = 0
	set cumlip = 1

	if horny >= 80:
		set horny = 0
		set 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:
			set kazsexdva = 0
			gt 'kazinosvid', '3'
		end

		gt $sexloc, 'start'
	end
end

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