glife/locations/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 ---------------------------------