glife/locations/sexorg.qsrc

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

if $ARGS[0] = 'var':
	cla
	*clr
	sexvar += 1

	sexorgrand = rand(0, 6)
	if sexorgrand = 0:
		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/bowling/sex/minet<<picrand>>.jpg"></center>'
		'You and one of the girls switch back and forth 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
	elseif sexorgrand = 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
	elseif sexorgrand = 2:
		'<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 one of the guys'' cocks entering your moist cunt. His movements are fast and rough, and you''d cry out in ecstasy if it weren''t for the pussy you are busy licking.'

		gs 'arousal', 'vaginal', 10, 'sub', 'group', 'rough'
		gs 'arousal', 'cuni_give', 10, 'sub', 'group'
		minut -= 10
	elseif sexorgrand = 3:
		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/bowling/sex/anal<<picrand>>.jpg"></center>'
		'You watch one of the girls - you don''t even know her name - not breaking eye contact with her as she lowers herself onto one of the guys, 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
	elseif sexorgrand = 4:
		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/bowling/sex/uanal<<picrand>>.jpg"></center>'
		'You are not as well prepared as you thought you were, and it hurts a little as one of the guys 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 lean into the girl in front of you''s cunt and enjoy yourself.'

		gs 'arousal', 'anal', 10, 'sub', 'group', 'rough'
		gs 'arousal', 'cuni_give', 10, 'sub', 'group'
		minut -= 10
	elseif sexorgrand = 5:
		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/bowling/sex/udp<<picrand>>.jpg"></center>'
		'At first you are a little reluctant about being double penetrated - the two guys are both pretty well endowed, after all - but in the end, your curiosity and horniness wins 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
	else
		'<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
	end
	
	gs 'stat'
	act 'Continue the orgy':gt 'sexorg', 'var'
	if sexvar >= 3:act 'Let the guys finish.':gt 'sexorg', 'end'
end

if $ARGS[0] = 'end':
	cla
	*clr
	killvar 'sexvar'
	killvar 'sexorgrand'
	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>'
	'The guys 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 ---------------------------------