glife/locations/442_sexorg

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

if $ARGS[0] = 'var':
set sexorgrand = RAND(0,6)
if sexorgrand = 0:
	cla
	*clr
	set horny += 10
	if orsxbj = 0:
		set bj += 1
		set orsxbj = 1
		end
	set sexvar += 1
	'<center><img src="images\img\sexorg\minet<<picrand>>.jpg "></center>'
	'You two suck his cock, then take turns licking it with his dildo, touching tongues.'
	act 'More': gt 'sexorg','var'
	if sexvar >= 3: act 'Finish.': gt 'sexorg','end'
	end
if sexorgrand = 1:
	cla
	*clr
	set horny += 10
	set sexvar += 1
	'<center><img src="images\img\sexorg\vag<<picrand>>.jpg "></center>'
	'While she enjoys her pussy in a member, you also find yourself iteresnoe employment.'
	act 'More': gt 'sexorg','var'
	if sexvar >= 3: act 'Finish.': gt 'sexorg','end'
	end
if sexorgrand = 2:
	cla
	*clr
	set horny += 10
	if orsxsex = 0:
		set sex += 1
		set orsxsex = 1
		end
	set sexvar += 1
	'<center><img src="images\img\sexorg\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 'sexorg','var'
	if sexvar >= 3: act 'Finish.': gt 'sexorg','end'
	end
if sexorgrand = 3:
	cla
	*clr
	set horny += 10
	set sexvar += 1
	'<center><img src="images\img\sexorg\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 'sexorg','var'
	if sexvar >= 3: act 'Finish.': gt 'sexorg','end'
	end
if sexorgrand = 4:
	cla
	*clr
	set horny += 10
	if orsxanal = 0:
		set anal += 1
		set pdsxanal = 1
		end
	'<center><img src="images\img\sexorg\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 'sexorg','var'
	if sexvar >= 3: act 'Finish.': gt 'sexorg','end'
	end
if sexorgrand = 5:
	cla
	*clr
	set horny += 10
	if orsxbj = 0:
		set bj += 1
		set orsxbj = 1
		end
	if orsxsex = 0:
		set sex += 1
		set orsxsex = 1
		end
	if orsxanal = 0:
		set anal += 1
		set orsxanal = 1
		end
	'<center><img src="images\img\sexorg\udp<<picrand>>.jpg "></center>'
	'Two men enter into you and you moan with pleasure feeling both dildo move inside.'
	act 'More': gt 'sexorg','var'
	if sexvar >= 3: act 'Finish.': gt 'sexorg','end'
	end
if sexorgrand = 6:
	cla
	*clr
	set horny += 10
	set sexvar += 1
	'<center><img src="images\img\sexorg\dp<<picrand>>.jpg "></center>'
	'When they enter into it as a couple you get a little jealous seeing how she enjoys.'
	act 'More': gt 'sexorg','var'
	if sexvar >= 3: act 'Finish.': gt 'sexorg','end'
	end
end

if $ARGS[0] = 'end':
cla
*clr
set orsxbj = 0
set orsxsex = 0
set orsxanal = 0
set sexvar = 0
set cumlip = 1
if horny >= 80:
	set horny = 0
	set orgasm += 1
	end
'<center><img src="images\img\sexorg\cum<<picrand>>.jpg "></center>'
'They came, and you lick the cum off each other.'
act 'Leave':gt $sexloc,'start'
end
--- sexorg ---------------------------------