glife/locations/sex

# sex
if $ARGS[0] = 'start':
	sexstart = 1
	sexvar = rand(3,6)
	guy += 1
	dynamic $stamina_npc
	'<center><img src="images/img/sex/kiss.jpg"></center>'
	'After some kissing it is time to move on to the next stage.'
	gs 'stat'
	picrand = rand(0, 1)
	xgt 'sex', 'var'
end

if $ARGS[0] = 'var':
	cla
	gs 'stat'
	textrand = rand(1, 4)
	dynamic $BanSexType
	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 'Blow job':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':
	cla
	*clr
	horny += 10
	minut += 10
	sexvar -= 1
	dynamic $stamina_npc
	pos = 1

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

	'<center><img src="images/img/sex/minet<<picrand>>.jpg"></center>'

	if textrand = 1:'You took a member of the hand, drew off the skin, licked his lips and sucked in her mouth naked penis. You vigorously sucking dick her soft wet lips, tongue played with him, played with a bridle. He, smiling blissfully, not take his eyes from you sucking his cock. He shivered and moaned'
	if textrand = 2:'You knelt down and took his hand in this great and gentle trunk. Then slowly started to work hand gently leading him to my insatiable lips, and now he was drowned in your mouth.'
	if textrand = 3:'Your tongue walked around the trunk from the testicles to the head end. Your hot lips captured his tender head and your mouth slid down the barrel of his penis. Your palm was a continuation of her mouth and tightly cover the remainder of the phallus. You then accelerated pace, then slowed, then your sponge filled elasticity, it becomes extremely soft.'
	if textrand = 4:'Taking his hard dick in your hand, you sent it to your hot mouth. Then introducing it at all, to the very throat, then caressing one head, you stared at him, stretching his pleasure, your hands caressing guy''s body.'
	if horny >= 80:
		horny = 0
		orgasm += 1
		'You have an orgasm.'
	end
	if sexvar = 1:'<br>He indicates that he will cum soon.'
	if sexvar > 0:xgt 'sex', 'var'
	if sexvar = 0:gs 'sex', 'end'
end

if $ARGS[0] = 'kuni':
	cla
	*clr
	horny += 10
	minut += 10
	sexvar -= 1
	dynamic $stamina_npc
	pos = 2

	if sxkuni = 0:
		kuni += 1
		sxkuni = 1
	end

	'<center><img src="images/img/sex/kuni<<picrand>>.jpg"></center>'

	if textrand = 1:'Man holds his tongue over your thighs, crotch and kisses down to the vagina, his tongue slides over your crotch then caressing the clitoris is getting inside.'
	if textrand = 2:'You felt like tongue deep in your pussy wielded, he got up there is that you ran like crazy. You had the feeling that he neglected, has not left any zakoulochki in vaey hot pussy. At the same time you are so run down that you thought that he''s choking. But it was not there, his tongue, not only get you deep in the pussy, but he still managed to lick and what you tried to run on the thighs'
	if textrand = 3:'He clung to your current hole. Nose rested against the clitoris, and a large and long tongue plunged inside, where he began to lick smazochki with stenochek vagina. Thank you so podmahivat that popped out of your tongue hole. Then he grabbed you buttocks and squeezed and stretched the entire length of the language, you become a fuck.'
	if textrand = 4:'His tongue gently began to lick pussy lips, the entrance to the womb hurt klitorok. "Oh, how cool!" - You thought. Gradually, more attention he paid to your clitoris. His tongue as easy fast moth fluttering over it.'
	if horny >= 80:
		horny = 0
		orgasm += 1
		'You have an orgasm.'
	end
	if sexvar = 1:'<br>He indicates that he will cum soon.'
	if sexvar > 0:xgt 'sex', 'var'
	if sexvar = 0:gs 'sex', 'end'
end

if $ARGS[0] = 'vag':
	cla
	*clr
	if sexstart = 0:sexstart = 1 & sexvar = rand(3,7)
	horny += 10
	minut += 10
	sexvar -= 1
	dynamic $stamina_npc
	pos = 3

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

		sex += 1
		sxsex = 1
	end

	'<center><img src="images/img/sex/vag<<picrand>>.jpg"></center>'
	
	if textrand = 1:'He slowly and deeply entered into you. You lay relaxing. Enjoy your body it can easily read on his face. He literally melted, moaning, dissolving into your bosom. How is it, after all it was cool!'
	if textrand = 2:'Hard cock hard and deeply entered into your bosom. Peel it bullying and tender moist but hard head so nicely slid, rubbed on wet cunt'
	if textrand = 3:'Going through the entire depth, he has not stopped, and began to move back, smearing the entire length of the accumulated moisture. Fearing completely out of caves so desired, it stalled at half the length, and a higher rate again began to sink into the abyss beckoning. Movements became more intense and deeper.'
	if textrand = 4:'Your pisya squelched and slurp you fidgeting and twirling his ass okamenevschem banana, more intense and more aggressive peck their bottomless hole.'
	if horny >= 80:
		horny = 0
		orgasm += 1
		'You have an orgasm.'
	end
	if sexvar = 1:'<br>He indicates 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] = 'nae':
	cla
	*clr
	if sexstart = 0:sexstart = 1 & sexvar = rand(3,7)
	horny += 10
	minut += 10
	sexvar -= 1
	dynamic $stamina_npc
	pos = 4

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

		sex += 1
		sxsex = 1
	end

	'<center><img src="images/img/sex/nae<<picrand>>.jpg"></center>'

	if textrand = 1:'He slowly and deeply entered into you. You lay relaxing. Enjoy your body it can easily read on his face. He literally melted, moaning, dissolving into your bosom. How is it, after all it was cool!'
	if textrand = 2:'Hard cock hard and deeply entered into your bosom. Peel it bullying and tender moist but hard head so nicely slid, rubbed on wet cunt'
	if textrand = 3:'Going through the entire depth, he has not stopped, and began to move back, smearing the entire length of the accumulated moisture. Fearing completely out of caves so desired, it stalled at half the length, and a higher rate again began to sink into the abyss beckoning. Movements became more intense and deeper. His hips splashed on your thighs.'
	if textrand = 4:'Your pisya squelched and slurp you fidgeting and twirling his ass okamenevschem banana, more intense and more aggressive peck their bottomless hole.'
	if horny >= 80:
		horny = 0
		orgasm += 1
		'You have an orgasm.'
	end
	if sexvar = 1:'<br>He indicates 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] = 'rak':
	cla
	*clr
	if sexstart = 0:sexstart = 1 & sexvar = rand(3,7)
	horny += 10
	minut += 10
	sexvar -= 1
	dynamic $stamina_npc
	pos = 5

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

	'<center><img src="images/img/sex/rak<<picrand>>.jpg"></center>'

	if textrand = 1:'He slowly and deeply entered into you. You lay relaxing. Enjoy your body it can easily read on his face. He literally melted, moaning, dissolving into your bosom. How is it, after all it was cool!'
	if textrand = 2:'Hard cock hard and deeply entered into your bosom. Peel it bullying and tender moist but hard head so nicely slid, rubbed on wet cunt'
	if textrand = 3:'Going through the entire depth, he has not stopped, and began to move back, smearing the entire length of the accumulated moisture. Fearing completely out of caves so desired, it stalled at half the length, and a higher rate again began to sink into the abyss beckoning. Movements became more intense and deeper. His hips splashed on your thighs.'
	if textrand = 4:'Your pisya squelched and slurp you fidgeting and twirling his ass okamenevschem banana, more intense and more aggressive peck their bottomless hole.'
	if horny >= 80:
		horny = 0
		orgasm += 1
		'You have an orgasm.'
	end
	if sexvar = 1:'<br>He indicates 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] = 'bok':
	cla
	*clr
	if sexstart = 0:sexstart = 1 & sexvar = rand(3,7)
	horny += 10
	minut += 10
	sexvar -= 1
	dynamic $stamina_npc
	pos = 6

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

		sex += 1
		sxsex = 1
	end

	'<center><img src="images/img/sex/bok<<picrand>>.jpg"></center>'
	
	if textrand = 1:'He slowly and deeply entered into you. You lay relaxing. Enjoy your body it can easily read on his face. He literally melted, moaning, dissolving into your bosom. How is it, after all it was cool!'
	if textrand = 2:'Hard cock hard and deeply entered into your bosom. Peel it bullying and tender moist but hard head so nicely slid, rubbed on wet cunt'
	if textrand = 3:'Going through the entire depth, he has not stopped, and began to move back, smearing the entire length of the accumulated moisture. Fearing completely out of caves so desired, it stalled at half the length, and a higher rate again began to sink into the abyss beckoning. Movements became more intense and deeper. His hips splashed on your thighs.'
	if textrand = 4:'Your pisya squelched and slurp you fidgeting and twirling his ass okamenevschem banana, more intense and more aggressive peck their bottomless hole.'
	if horny >= 80:
		horny = 0
		orgasm += 1
		'You have an orgasm.'
	end
	if sexvar = 1:'<br>He indicates 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':
	cla
	*clr
	if sexstart = 0:sexstart = 1 & sexvar = rand(3,7) 
	horny += 10
	minut += 10
	sexvar -= 1
	dynamic $stamina_npc
	pos = 7

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

		anal += 1
		sxanal = 1
	end

	'<center><img src="images/img/sex/anal<<picrand>>.jpg"></center>'

	if textrand = 1:'You Spreading buttocks inviting him into her ass, the guy did not hesitate and threw her dildo in your point, you squealed with every jolt, and it is only whet and he moves faster with each thrust penetrating deeper into your anus, causing you to scream louder.'
	if textrand = 2:'Cock slowly but surely making his way into your ass. For he came to the full depth. Are you struggling compressed logging into your ass, and this cock seemed even more strained, thickens and grows in size. - Yes, that''s very cool! Do not let go! How do cool! - He groaned. His steely member strongly moved back and forth, bringing you pleasure.'
	if textrand = 3:'At the same moment, you felt something big and fat enters your narrow opening. You cried out in pain, but he is not paying attention to you, began to peck at the drop of a hat. Pain disappeared somewhere, and you began to receive a fabulous treat.'
	if textrand = 4:'You Spreading buttocks inviting him into her ass, the guy did not hesitate and threw her dildo in your point, you squealed with every jolt, and it is only whet and he moves faster with each thrust penetrating deeper into your anus, causing you to scream louder.'
	if horny >= 80:
		horny = 0
		orgasm += 1
		'You have an orgasm.'
	end
	if sexvar = 1:'<br>He indicates that he will cum soon.'
	if sexvar > 0:xgt 'sex', 'var'
	if sexvar = 0:gs 'sex', 'end'
end

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

	if pos < 3:
		spafinloc = 12
		'He groans, spraying his seed into your mouth.'
	elseif pos < 7:
		if tabletki <= 0 and mesec <= 0 and knowpreg = 0:cuminside = 1
		'He groans, spraying his seed deep inside your pussy.'
	else
		spafinloc = 3
		'He groans, spraying his seed deep inside your ass.'
	end
	gs 'cum_manage'
	if horny >= 80:
		horny = 0
		orgasm += 1
		'You have an orgasm.'
	end
	if cuminside = 1:
		cuminside = 0
		if knowpreg = 0 and thinkpreg = 0:
			if tabletkishot ! 0: '"I''m glad I got my birth control shot." you think to yourself.'
			if tabletkishot = 0 and pillcon > 2000: '"Good thing I''m on the pill." you think to yourself.'
			if tabletkishot = 0 and pillcon <=2000:'"Damn! I could get pregnant!" you think in horror.'
		else
			'You chuckle to yourself, "Well at least I cannot get more pregnant."'
		end
	end
	pos = 0
	gs 'stat'
	act 'Leave':
		if picrand >= 54 and picrand <= 73:gt 'office', 'work'
		if picrand >= 74 and picrand <= 76:gt 'vann', 'start'
		if picrand >= 77 and picrand <= 80:gt 'house'
		if picrand >= 81 and picrand <= 82:gt 'down'
		if picrand >= 83 and picrand <= 84:dynamic $brodila
		if picrand >= 85 and picrand <= 86:gt'down'
		if picrand = 87 or picrand = 90:dynamic $brodilk
		if picrand = 88:dynamic $brodils
		if picrand = 89:gt 'bed', 'start'

		if svidboykino = 1:
			svidboykino = 0
			gt 'torgcentr'
		end

		if svidboypark = 1:
			svidboypark = 0
			gt 'park', 'start'
		end

		if svidboypark1 = 1:
			svidboypark1 = 0
			gt 'svidboy', 'parksvid21'
		end

		if svidboypark2 = 1:
			svidboypark2 = 0
			gt 'svidboy', 'parksvid22'
		end

		if svidboykafe = 1:
			svidboykafe = 0
			gt 'down'
		end

		gt $sexloc, 'start'
	end
end

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