glife/locations/sexorg.qsrc

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

if $ARGS[0] = 'var':
	sexorgrand = rand(0, 6)

	if sexorgrand = 0:
		cla
		*clr
		sexvar += 1

		if orsxbj = 0:
			orsxbj = 1
		end

		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/bowling/sex/minet<<picrand>>.jpg"></center>'
		'The two of you switch back and forth between sucking one guy''s cock for a while, getting off on his moans of pleasure but never pushing him so far that he could actually cum. Every now and then, you both lick his head simultaneously, french kissing while your "victim" watches and enjoys.'

		gs 'arousal', 'bj', 10, 'sub', 'group'
		gs 'arousal', 'kiss', 10, 'sub', 'group'
		minut -= 10
		gs 'stat'
		
		act 'Continue the orgy':gt 'sexorg', 'var'

		if sexvar >= 3:act 'Let the guys finish.':gt 'sexorg', 'end'
	elseif sexorgrand = 1:
		cla
		*clr
		sexvar += 1
		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/bowling/sex/vag<<picrand>>.jpg"></center>'
		'You watch as one of the girls gets her pussy filled from behind by a big cock, listening to her loud moans and idly rubbing your own clit while you wait your turn.'

		gs 'arousal', 'masturbate', 10
		gs 'stat'
		
		act 'Continue the orgy':gt 'sexorg', 'var'

		if sexvar >= 3:act 'Let the guys finish.':gt 'sexorg', 'end'
	elseif sexorgrand = 2:
		cla
		*clr
		sexvar += 1

		if orsxsex = 0:
			orsxsex = 1
		end

		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/bowling/sex/uvag<<picrand>>.jpg"></center>'
		'You lie down on your back and almost instantly feel his cock entering your moist cunt. His movements are fast and rough and you''d cry out in ecstacy if it wasn''t for the pussy you were busy licking.'

		gs 'arousal', 'vaginal', 10, 'sub', 'group', 'rough'
		gs 'arousal', 'cuni_give', 10, 'sub', 'group'
		minut -= 10
		gs 'stat'
		
		act 'Continue the orgy':gt 'sexorg', 'var'

		if sexvar >= 3:act 'Let the guys finish.':gt 'sexorg', 'end'
	elseif sexorgrand = 3:
		cla
		*clr
		sexvar += 1
		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/bowling/sex/anal<<picrand>>.jpg"></center>'
		'You don''t break eye contact with her - you don''t even know their names - as she lowers herself onto him, impaling her tight ass on his hard dick. "You''d love to take my place, wouldn''t you?", she asks sweetly, then cries out as her partner loses patience and starts fucking her from below. You don''t have to answer - the fingers you have buried in your pussy as you watch tell her everything she needs to know.'

		gs 'arousal', 'masturbate', 10
		gs 'stat'
		
		act 'Continue the orgy':gt 'sexorg', 'var'

		if sexvar >= 3:act 'Let the guys finish.':gt 'sexorg', 'end'
	elseif sexorgrand = 4:
		cla
		*clr

		if orsxanal = 0:
			pdsxanal = 1
		end

		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/bowling/sex/uanal<<picrand>>.jpg"></center>'
		'You were not as well prepared as you thought you''d be and it hurts a little as he pushes past your sphincter, but soon the pain is forgotten and replaced by a pleasant sense of fullness... and that''s before he starts really fucking you. You mean into the girl''s cunt and enjoy yourself.'

		gs 'arousal', 'anal', 10, 'sub', 'group', 'rough'
		gs 'arousal', 'cuni_give', 10, 'sub', 'group'
		minut -= 10
		gs 'stat'
		
		act 'Continue the orgy':gt 'sexorg', 'var'

		if sexvar >= 3:act 'Let the guys finish.':gt 'sexorg', 'end'
	elseif sexorgrand = 5:
		cla
		*clr

		if orsxbj = 0:
			orsxbj = 1
		end

		if orsxsex = 0:
			orsxsex = 1
		end

		if orsxanal = 0:
			orsxanal = 1
		end

		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/bowling/sex/udp<<picrand>>.jpg"></center>'
		'At first you were a little reluctant about being double penetrated - the two guys were both pretty well endowed, after all - but in the end, your curiosity and horniness won over all concerns and you thoroughly enjoy the feeling of having both your nether holes filled at the same time.'

		gs 'arousal', 'vaginal', 10, 'sub', 'group', 'rough'
		gs 'arousal', 'anal', 10, 'sub', 'group', 'rough'
		gs 'arousal', 'cuni_give', 10, 'sub', 'group'
		minut -= 10
		gs 'stat'
		
		act 'Continue the orgy':gt 'sexorg', 'var'

		if sexvar >= 3:act 'Let the guys finish.':gt 'sexorg', 'end'
	elseif sexorgrand = 6:
		cla
		*clr
		sexvar += 1
		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/bowling/sex/dp<<picrand>>.jpg"></center>'
		'Her expression of bliss and loud utterances leave no doubt in your mind: Having her ass and pussy filled at the same time has sent this girl straight to heaven and while you watch on in jealousy, you have no other choice than to rub your clit and wait your turn.'

		gs 'arousal', 'masturbate', 10
		gs 'stat'
		
		act 'Continue the orgy':gt 'sexorg', 'var'

		if sexvar >= 3:act 'Let the guys finish.':gt 'sexorg', 'end'
	end
end

if $ARGS[0] = 'end':
	cla
	*clr
	orsxbj = 0
	orsxsex = 0
	orsxanal = 0
	sexvar = 0
	spafinloc = 12
	gs 'cum_manage'

	if pcs_horny >= 80:
		$orgasm_or = 'yes'
	end

	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/bowling/sex/cum<<picrand>>.jpg"></center>'
	'They put you and the other two girls on your knees in front of them and furiously stroke their dicks into your expectant mouths. You barely even taste the sperm, even though you catch a full spurt of it on your tongue - to you, it marks the end of a thrilling adventure. It''s not every day that you have an orgy in a bowling center.'

	gs 'arousal', 'end'
	gs 'stat'
	
	act 'That should about cover your debt - Leave':gt $sexloc, 'start'
end

--- sexorg ---------------------------------