# sex
if $ARGS[0] = 'start':
set picrand = RAND(0,1)
gs 'stat'
xgt 'sex','var'
set guy += 1
end

if $ARGS[0] = 'var':
cla
gs 'stat'
set textrand = RAND(1,4)
act 'Blow job': gt 'sex','minet'
if picrand ! 12 and picrand ! 28 and picrand ! 29 and picrand ! 30 and picrand ! 34 and picrand ! 35 and picrand ! 50 and picrand ! 55 and picrand ! 76 and picrand ! 81 and picrand ! 87: act 'Cooney': gt 'sex','kuni'
if picrand ! 31 and picrand ! 33 and picrand ! 36: act 'Spread her legs': gt 'sex','vag'
if picrand ! 15 and picrand ! 28 and picrand ! 29 and picrand ! 32: act 'Horsewoman': gt 'sex','nae'
act 'Doggy-Style': gt 'sex','rak'
if picrand ! 13 and picrand ! 36 and picrand ! 39 and picrand ! 75: act 'On the side': gt 'sex','bok'
if picrand ! 15 and picrand ! 16 and picrand ! 22 and picrand ! 17 and picrand ! 44 and picrand ! 51 and picrand ! 52 and picrand ! 61 and picrand ! 74 and picrand ! 77 and picrand ! 80: act 'In the ass': gt 'sex','anal'
if sexvar >= 3: act 'Finish.': gt 'sex','end'
end

if $ARGS[0] = 'minet':
cla
*clr
set horny += 10
if sxbj = 0:
	if svidboysex = 1: set bja += 1
	set bj += 1
	set sxbj = 1
	end
set minut += 10
set sexvar += 1
'<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 hand hard dick, 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 sexvar < 3: act 'More': xgt 'sex','var'
if sexvar >= 3: act 'Finish.': gt 'sex','end'
end

if $ARGS[0] = 'kuni':
cla
*clr
set horny += 10
if sxkuni = 0:
	set kuni += 1
	set sxkuni = 1
	end
set minut += 10
set sexvar += 1
'<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 sexvar < 3: act 'More': xgt 'sex','var'
if sexvar >= 3: act 'Finish.': gt 'sex','end'
end

if $ARGS[0] = 'vag':
cla
*clr
set horny += 10
if sxsex = 0:
	if svidboysex = 1: set sexa += 1
	set sex += 1
	set sxsex = 1
	end
set minut += 10
set sexvar += 1
'<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. 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 sexvar < 3: act 'More': xgt 'sex','var'
if sexvar >= 3: act 'Finish.': gt 'sex','end'
end

if $ARGS[0] = 'nae':
cla
*clr
set horny += 10
if sxsex = 0:
	if svidboysex = 1: set sexa += 1
	set sex += 1
	set sxsex = 1
	end
set minut += 10
set sexvar += 1
'<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 sexvar < 3: act 'More': xgt 'sex','var'
if sexvar >= 3: act 'Finish.': gt 'sex','end'
end

if $ARGS[0] = 'rak':
cla
*clr
set horny += 10
if sxsex = 0:
	if svidboysex = 1: set sexa += 1
	set sex += 1
	set sxsex = 1
	end
set minut += 10
set sexvar += 1
'<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 sexvar < 3: act 'More': xgt 'sex','var'
if sexvar >= 3: act 'Finish.': gt 'sex','end'
end

if $ARGS[0] = 'bok':
cla
*clr
set horny += 10
if sxsex = 0:
	if svidboysex = 1: set sexa += 1
	set sex += 1
	set sxsex = 1
	end
set minut += 10
set sexvar += 1
'<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 sexvar < 3: act 'More': xgt 'sex','var'
if sexvar >= 3: act 'Finish.': gt 'sex','end'
end

if $ARGS[0] = 'anal':
cla
*clr
set horny += 10
if sxanal = 0:
	if svidboysex = 1: set anala += 1
	set anal += 1
	set sxanal = 1
	end
set minut += 10
set sexvar += 1
'<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 sexvar < 3: act 'More': xgt 'sex','var'
if sexvar >= 3: act 'Finish.': gt 'sex','end'
end

if $ARGS[0] = 'end':
cla
*clr
set svidboysex = 0
if horny >= 80:
	set horny = 0
	set orgasm += 1
	end
set minut += 10
set sexvar = 0
set sxkuni = 0
set sxbj = 0
set sxsex = 0
set sxanal = 0
set cumlip += 1
'<center><img src="images\img\sex\cum<<picrand>>.jpg "></center>'
'You take it in your mouth and dildo suck rage until he cums.'
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: gt 'korr'
	if picrand >= 85 and picrand <= 86: gt 'down'
	if picrand = 87 or picrand = 90: gt 'kuhr'
	if picrand = 88: gt 'sitr'
	if picrand = 89: gt 'bed','start'
	if svidboykino = 1:
		set svidboykino = 0
		gt 'torgcentr'
		end
	if svidboypark = 1:
		set svidboypark = 0
		gt 'park','start'
		end
	if svidboypark1 = 1:
		set svidboypark1 = 0
		gt 'svidboy','parksvid21'
		end
	if svidboypark2 = 1:
		set svidboypark2 = 0
		gt 'svidboy','parksvid22'
		end
	if svidboykafe = 1:
		set svidboykafe = 0
		gt 'down'
		end
	gt $sexloc,'start'
	end
end
--- sex ---------------------------------