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