glife/locations/sex.qsrc

# sex

if $ARGS[0] = 'start':
	sexstart = 1
	sexvar = rand(3,6)
	guy += 1
	gs 'dinsex2', 'stamina_npc'
	'<center><img <<$set_imgh>> src="images/locations/shared/sex/sexrand/kiss.jpg"></center>'
	'You kiss for a while. It feels nice, but you want more!'
	gs 'stat'
	picrand = rand(0, 1)
	xgt 'sex', 'var'
end

if $ARGS[0] = 'var':
	cla
	gs 'stat'
	textrand = rand(1, 4)
	if SexTypeCheck = 0 and picrand > 1:
		SexTypeCheck = 1
		BlowBan = arrpos('BlowArray',picrand)
		CooneyBan = arrpos('CooneyArray',picrand)
		MissionBan = arrpos('MissionArray',picrand)
		CowgirlBan = arrpos('CowgirlArray',picrand)
		DoggyBan = arrpos('DoggyArray',picrand)
		SidewaysBan = arrpos('SidewaysArray',picrand)
		AnalBan = arrpos('AnalArray',picrand)
	end
	if BlowBan <= 0:act 'Give him a blowjob':gt 'sex', 'minet'
	if CooneyBan <= 0:act 'Cooney':gt 'sex', 'kuni'
	if MissionBan <= 0:act 'Missionary':gt 'sex', 'vag'
	if CowgirlBan <= 0:act 'Cowgirl':gt 'sex', 'nae'
	if DoggyBan <= 0:act 'Doggy style':gt 'sex', 'rak'
	if SidewaysBan <= 0:act 'Sideways':gt 'sex', 'bok'
	if AnalBan <= 0:act 'In the ass':gt 'sex', 'anal'
end

if $ARGS[0] = 'minet':
	cls
	sexvar -= 1
	gs 'dinsex2', 'stamina_npc'
	pos = 1

	if sxbj = 0:
		if svidboysex = 1:bja += 1
		sxbj = 1
	end

	'<center><img <<$set_imgh>> src="images/locations/shared/sex/sexrand/minet<<picrand>>.jpg"></center>'

	if textrand = 1:'You take his member in your hand and pull his foreskin back, exposing the shiny head underneath. Giving him a sweet smile, you close your lips around it and run your tongue over the tip. You then continue to suck his cock vigorously, teasing him with your tongue and fondling his balls with your fingers. He moans blissfully while you service him with your mouth, not taking his eyes off you.'
	if textrand = 2:'You kneel down and place your hand on his nearly fully erect trunk. You smile at him shyly and mutter, "That''s a nice cock you have there..." before closing your lips around the tip and sucking him off.'
	if textrand = 3:'You dart your tongue all over his shaft, licking him eagerly all the way from the tip of his cock to and including his testicles. Then your tender lips close around the well-engorged head, and you slowly take more and more of his length down your throat while you stroke the rest of his shaft that doesn''t fit in your mouth with your hand.'
	if textrand = 4:'You wrap your delicate fingers around his hard cock and guide it to your mouth, closing your lips around the tip. You try to take as much of his length down your throat as you can, gently caressing your own clit while you service him.'

	gs 'arousal', 'bj', 10
	gs 'stat'

	if sexvar < 0:sexvar = 0
	if sexvar = 1:'<br>The man groans that he will cum soon.'
	if sexvar > 0:xgt 'sex', 'var'
	if sexvar = 0:gs 'sex', 'end'
end

if $ARGS[0] = 'kuni':
	cls
	if BlowBan > 0 and MissionBan > 0 and CowgirlBan > 0 and DoggyBan > 0 and SidewaysBan > 0 and AnalBan > 0:
		!! If no other sex acts are usable, reduce sexvar by 1 here to avoid the game getting stuck
		sexvar -= 1
	else
		!! A man wouldn''t generally get closer to cumming from eating someone out, at least to the extent he
		!! would from a blowjob, vaginal, or anal, so only reduce sexvar if he''s already on the edge
		if sexvar = 1:sexvar = 0
	end

	gs 'dinsex2', 'stamina_npc'
	pos = 2

	'<center><img <<$set_imgh>> src="images/locations/shared/sex/sexrand/kuni<<picrand>>.jpg"></center>'

	if textrand = 1:'He places gentle kisses and licks all across your thighs, slowly working his way to your sweet slit. When he reaches it, he eagerly thrusts his tongue inside you as far it will go, lapping up your juices enthusiastically.'
	if textrand = 2:'He immediately thrusts his tongue deep inside your pussy and moves it around as much as he can. He''s completely ignoring your clitoris though, and the devious glint in his eyes makes you believe he''s doing that on purpose. You enthusiastically rub your groin against his face in an attempt to get yourself off.'
	if textrand = 3:'With his nose against your clitoris and his tongue plunged deep inside you, he licks you enthusiastically. Then he moves away from you and guides your ass to his mouth, eagerly licking your sphincter and trying to squeeze his tongue in. It feels heavenly, and you moan loudly while you thrust your hips against his face, encouraging him to go on.'
	if textrand = 4:'His tongue gently begins to lick your pussy lips. "Oh my!" you think to yourself, enjoying his touch more and more. When he pays more attention to your clitoris, you have to pull away from him for a moment... wow, that''s intense!'

	gs 'arousal', 'cuni', 10
	gs 'stat'

	if sexvar < 0:sexvar = 0
	if sexvar = 1:'<br>The man groans that he will cum soon.'
	if sexvar > 0:xgt 'sex', 'var'
	if sexvar = 0:gs 'sex', 'end'
end

if $ARGS[0] = 'vag' or $ARGS[0] = 'nae' or $ARGS[0] = 'rak' or $ARGS[0] = 'bok':
	cls
	if sexstart = 0:sexstart = 1 & sexvar = rand(3,7)
	sexvar -= 1
	gs 'dinsex2', 'stamina_npc'
	pos = 3

	if sxsex = 0:
		if svidboysex = 1:sexa += 1

		sxsex = 1
	end

	'<center><img <<$set_imgh>> src="images/locations/shared/sex/sexrand/<<$ARGS[0]>><<picrand>>.jpg"></center>'
	
	if textrand = 1:'He slowly penetrates you and keeps thrusting until most of his length is buried inside you. You eagerly kiss him when you see the look of ecstasy on his face and wrap your arms around him while he thrusts his hips against yours.'
	if textrand = 2:'His hard cock slides inside your wet cunt easily, and you feel the engorged head slowly part your insides when it goes deeper and deeper. You can''t help but rub your clit, while you encourage him to fuck you harder.'
	if textrand = 3:'He doesn''t stop until his cock bottoms out in you and then proceeds to fuck you with the entire length of his impressive shaft. His thrusts become more and more intense, and soon, the sound of his skin slapping against yours fills the room.'
	if textrand = 4:'Your wet pussy eagerly takes his cock in, and you hear some embarrassing sopping sounds when he proceeds to fuck your pussy enthusiastically. You must''ve wanted him pretty badly if you got this wet...'

	gs 'arousal', 'vaginal', 10
	gs 'stat'

	if sexvar < 0:sexvar = 0
	if sexvar = 1:'<br>The man groans that he will cum soon.'
	if sexvar > 0:cumprecheck = 1 & gs 'cum_manage' & xgt 'sex', 'var'
	if sexvar = 0:gs 'sex', 'end'
end


if $ARGS[0] = 'anal':
	cls
	if sexstart = 0:sexstart = 1 & sexvar = rand(3,7)
	sexvar -= 1
	gs 'dinsex2', 'stamina_npc'
	pos = 4

	if sxanal = 0:
		if svidboysex = 1:anala += 1

		sxanal = 1
	end

	'<center><img <<$set_imgh>> src="images/locations/shared/sex/sexrand/anal<<picrand>>.jpg"></center>'

	if textrand = 1:'You spread your buttocks enticingly, inviting the man to fuck your ass. He does not hesitate and guides his cock to your puckered sphincter, slowly penetrating you further and further. He''s a bit rough about it, making you squeal loudly with every thrust.'
	if textrand = 2:'His cock slowly but surely finds its way into your ass. After a while, he bottoms out in you, and you squeeze your ass around the base of his cock testily. The tightness of your sphincter around him makes his cock pulse even harder, and he groans, "Oh yea! Keep doing that! That feels great... don''t stop!"'
	if textrand = 3:'You feel something thick and hard press against your sphincter and enter it. You cry out in pain, but he pays no attention to you and begins to fuck you enthusiastically. Slowly, your whimpers become moans of pleasure, and despite the pain, you greatly enjoy him fucking your ass.'
	if textrand = 4:'You spread your buttocks enticingly, inviting the man to fuck your ass. He does not hesitate and guides his cock to your puckered sphincter, slowly penetrating you further and further. He''s a bit rough about it, making you squeal loudly with every thrust.'

	gs 'arousal', 'anal', 10
	gs 'stat'

	if sexvar < 0:sexvar = 0
	if sexvar = 1:'<br>The man groans that he will cum soon.'
	if sexvar > 0:xgt 'sex', 'var'
	if sexvar = 0:gs 'sex', 'end'
end

if $ARGS[0] = 'end':
	cla
	killvar 'sexstart'
	killvar 'sexvar'
	killvar 'sxbj'
	killvar 'sxsex'
	killvar 'sxanal'
	killvar 'SexTypeCheck'
	killvar 'BlowBan'
	killvar 'CooneyBan'
	killvar 'MissionBan'
	killvar 'CowgirlBan'
	killvar 'DoggyBan'
	killvar 'SidewaysBan'
	killvar 'AnalBan'
	killvar 'dick'

	if pos = 1:
		'He groans loudly, and you feel his hard cock erupting in your mouth. You swallow it obediently, figuring that is what he wants you to do.'
		gs 'cum_call', 'mouth_swallow', $boy, 1
	elseif pos = 2:
		'Stroking himself while he pleasures you, he groans loudly, spraying his seed on the floor. Some of it splatters against your feet as well.'
		gs 'cum_call', 'feet', $boy, 1
	elseif pos = 3:
		'He groans loudly, spraying his seed deep inside your pussy.'
		gs 'cum_call', '', $boy, 1
		gs 'cuminsidereact'
	else
		'He groans loudly, spraying his seed deep inside your ass.'
		gs 'cum_call', 'anus', $boy, 1
	end

	gs 'arousal', 'end'
	gs 'stat'
	act 'Leave':
		if picrand >= 54 and picrand <= 73: killvar 'picrand' & gt 'office', 'work'
		if picrand >= 74 and picrand <= 76: killvar 'picrand' & gt 'vann', 'start'
		if picrand >= 77 and picrand <= 80: killvar 'picrand' & gt 'nichApartment'
		if picrand >= 81 and picrand <= 82: killvar 'picrand' & gt 'city_center'
		if picrand >= 83 and picrand <= 84: killvar 'picrand' & dynamic $brodila
		if picrand >= 85 and picrand <= 86: killvar 'picrand' & gt'city_center'
		if picrand = 87 or picrand = 90: killvar 'picrand' & dynamic $brodilk
		if picrand = 88: killvar 'picrand' & dynamic $brodils
		if picrand = 89: killvar 'picrand' & gt 'bed', 'start'
		killvar 'picrand'
		if svidboysex = 1:
			killvar 'svidboysex'
			gt $svidboy_home, $svidboy_home_arg
		end
		if $sexloc = 'uni_dorm': gt 'uni_dorm', 'dorm_room'
		if $sexloc = 'city_nightclub': gt 'city_nightclub', 'private_rooms'

		gt $sexloc, 'start'
	end
	killvar 'pos'
	killvar 'textrand'
end

--- sex ---------------------------------