glife/sugarcube/src/autogenerated/unsorted/dinSex.tw

:: dinSex
<<set $here = 'dinSex'>>
<<set $ARGS = $location_var[$here]>>
<<set $roll_3d = rand(1,3)>>
<<set $roll_2d = rand(1,2)>>
<<if getvar("$dick") <= 8>>
	<<if getvar("$roll_3d") == 1>>
		<<set $penis_desc = "laughably tiny prick">>

	<</if>>
	<<if getvar("$roll_3d") == 2>>
		<<set $penis_desc = "micropenis">>

	<</if>>
	<<if getvar("$roll_3d") == 3>>
		<<set $penis_desc = "erect light switch">>

	<</if>>
<<elseif getvar("$dick") <= 11>>
	<<if getvar("$roll_2d") == 1>>
		<<set $penis_desc = "short dick">>

	<</if>>
	<<if getvar("$roll_2d") == 2>>
		<<set $penis_desc = "little peeper">>

	<</if>>
<<elseif getvar("$dick") <= 14>>
	<<if getvar("$roll_3d") == 1>>
		<<set $penis_desc = "average dick">>

	<</if>>
	<<if getvar("$roll_3d") == 2>>
		<<set $penis_desc = "mid-sized penis">>

	<</if>>
	<<if getvar("$roll_3d") == 3>>
		<<set $penis_desc = "medium length cock">>

	<</if>>
<<elseif getvar("$dick") <= 17>>
	<<if getvar("$roll_2d") == 1>>
		<<set $penis_desc = "above average penis">>

	<</if>>
	<<if getvar("$roll_2d") == 2>>
		<<set $penis_desc = "somewhat long dick">>

	<</if>>
<<elseif getvar("$dick") <= 20>>
	<<if getvar("$roll_2d") == 1>>
		<<set $penis_desc = "long cock">>

	<</if>>
	<<if getvar("$roll_2d") == 2>>
		<<set $penis_desc = "perfect-length meatstick">>

	<</if>>
<<elseif getvar("$dick") <= 23>>
	<<if getvar("$roll_2d") == 1>>
		<<set $penis_desc = "elephant-trunk rod">>

	<</if>>
	<<if getvar("$roll_2d") == 2>>
		<<set $penis_desc = "worryingly long fuckpole">>

	<</if>>
<<elseif getvar("$dick") >= 24>>
	<<if getvar("$roll_3d") == 1>>
		<<set $penis_desc = "ridiculously long dick">>

	<</if>>
	<<if getvar("$roll_3d") == 2>>
		<<set $penis_desc = "frightening fuckspear">>

	<</if>>
	<<if getvar("$roll_3d") == 3>>
		<<set $penis_desc = "literal third leg">>

	<</if>>
<</if>>
<<set $penis_desc = $dick_girth + ', ' + $penis_desc>>
<<if $location_var[$here][0] == 'std_trigger'>>
	<<set $tipvenerarand = rand(0, 10)>>
	<<if getvar("$protect") == 1>>
		<<if rand(0, 1000) == 1000>>
			<<gs 'dinSex' 'disease_picker'>>

		<</if>>
	<<else>>
		<<if rand(0, 100) >= 80>>
			<<gs 'dinSex' 'disease_picker'>>

		<</if>>
	<</if>>
<</if>>
<<if $location_var[$here][0] == 'disease_picker'>>
	<<if getvar("$cheatHealth") == 0>>
		<<if getvar("$tipvenerarand") < 5>>
			<!-- !!candidiasis/thrush/yeast infection-->
			<<if rand(1, 100) > 85 and getvar("$KandidozOnce") == 0>>
				<<set $KandidozOnce = 1>>
				<<set $Kandidoz += 1>>
			<</if>>
		<<elseif getvar("$tipvenerarand") < 7>>
			<!-- !!gonorrhea/triper-->
			<<if rand(1, 100) > 95 and getvar("$TriperOnce") == 0>>
				<<set $TriperOnce = 1>>
				<<set $Triper += 1>>
				<<set $Venera += 1>>
			<</if>>
		<<elseif getvar("$tipvenerarand") == 7>>
			<!-- !!syphilis-->
			<<if rand(1, 100) > 95 and getvar("$SifacOnce") == 0>>
				<<set $SifacOnce = 1>>
				<<set $Sifilis += 1>>
				<<set $Venera += 1>>
			<</if>>
		<<elseif getvar("$tipvenerarand") == 8>>
			<!-- !!herpes-->
			<<if rand(1, 100) > 90 and getvar("$GerpesOnce") == 0>>
				<<set $GerpesOnce = 1>>
				<<set $Venera += 1>>
				<<set $Gerpes += 1>>
				<<set $GenHerpes = 1>>
			<</if>>
		<</if>>
	<</if>>
<</if>>
<<if $location_var[$here][0] == 'std_trigger_oral'>>
	<<set $tipvenerarand = rand(0, 10)>>
	<<if getvar("$protect") == 1>>
		<<if rand(0, 1000) == 1000>>
			<<gs 'dinSex' 'disease_picker_oral'>>

		<</if>>
	<<else>>
		<<if rand(0, 100) >= 80>>
			<<gs 'dinSex' 'disease_picker_oral'>>

		<</if>>
	<</if>>
<</if>>
<<if $location_var[$here][0] == 'disease_picker_oral'>>
	<<if getvar("$cheatHealth") == 0>>
		<<if getvar("$tipvenerarand") >= 5 and getvar("$tipvenerarand") < 7>>
			<<if rand(1, 100) > 95 and getvar("$TriperOnce") == 0>>
				<<set $TriperOnce = 1>>
				<<set $TriperOral += 1>>
				<<set $Venera += 1>>
				<<if rand(0,100) < 15>>
					<<set $TriperOralSigns = 1>>

				<</if>>
			<</if>>
		<<elseif getvar("$tipvenerarand") == 7>>
			<<if rand(0,1) == 1>>
				<!-- !!syphilis-->
				<<if rand(1, 100) > 95 and getvar("$SifacOnce") == 0>>
					<<set $SifacOnce = 1>>
					<<set $Sifilis += 1>>
					<<set $Venera += 1>>
				<</if>>
			<</if>>
		<<elseif getvar("$tipvenerarand") < 5>>
			<!-- !!candidiasis/thrush/yeast infection-->
			<<if rand(1, 100) > 85 and getvar("$KandidozOnce") == 0>>
				<<set $KandidozOnce = 1>>
				<<set $Kandidoz += 1>>
			<</if>>
		<<elseif getvar("$tipvenerarand") == 8>>
			<!-- !!herpes-->
			<<if rand(1, 100) > 90 and getvar("$GerpesOnce") == 0>>
				<<set $GerpesOnce = 1>>
				<<set $Venera += 1>>
				<<set $Gerpes += 1>>
				<<set $OrHerpes = 1>>
			<</if>>
		<</if>>
	<</if>>
<</if>>
<<if $location_var[$here][0] == 'wear_condom'>>
	<<set $protect = 0>>
	<<set $pc.visualAgeDaysInverse -= 1>>
	<<if $inventory.get("condom") > 0>>
		$inventory.get("condom")
		<<set $protect = 1>>
		<<if getvar("$preziktype") == 2>>
			<<set $sexcontra = 4>>
			<p>$boydesc takes your sabotaged condom and puts it on, not even noticing anything off.</p>
		<<else>>
			<<set $sexcontra = 3>>
			<p>$boydesc takes your condom and puts it on $xyr cock.</p>
		<</if>>
	<<else>>
		<<set $sexcontra = 0>>
	<</if>>
<</if>>
<!-- !! this procedure calls 'arousal','vaginal', so the rest of the parameters for arousal should be passed as parameters: call like gs 'dinsex','vaginal_sex',10,'rough','sub'-->
<<if $location_var[$here][0] == 'vaginal_sex'>>
	<!-- FAILED TO CONVERT
		frost = 0 &! the sex heats
	-----
		<<set $pc.frost = ERROR: FAILED TO CONVERT LITERAL: """0 &! the sex heats""">>

	-->
	<<warn "CONVERSION ERROR 55ac228abbfb566fb46e5f908d4eab82">>
	<<set $vaginal_tightness = 5 + $vgrdif + $vltdif - $pc.horny / 10>>
	<<set $arousal_modifier = 12 - $vaginal_tightness>>
	<<if getvar("$pc.pcs_vag") > 0>>
		<<set $temp_mens = iif(cycle <= 0,' and a bit of your period leaks from your vagina','')>>
		<<if getvar("$vaginal_tightness") >= 30>>
			<p>You let out a groan when $boydesc penetrates you. You are too tight to take $xyr just yet, $xe is tearing you apart!</p>
			<p>You gasp and scream while $xyr $penis_desc painfully stretches and tears your pussy$temp_mens.</p>
		<<elseif getvar("$vaginal_tightness") >= 20>>
			<p>You wince when $boydesc enters you, $xyr $penis_desc barely fitting$temp_mens.</p>
			<p>Despite your gasps and moans of pain, $boydesc enthusiastically pumps your pussy, mistaking the sounds you are making for enjoyment.</p>
		<<elseif getvar("$vaginal_tightness") >= 12>>
			<p>You bite your lip when $boydesc's $penis_desc penetrates your cunt, stretching you out a bit$temp_mens.</p>
			<p>It takes a moment but the discomfort fades away. Before you know it you are gyrating your hips to the rhythm of $boydesc pumping your now perfectly snug pussy.</p>
		<<elseif getvar("$vaginal_tightness") >= 2>>
			<p>You sigh deeply as you savor the feeling of a $penis_desc slowly entering your moist tunnel.</p>
			<p>Gradually getting into rhythm, you grind your ass against $boydesc's crotch and moan as $xe fucks your cunt$temp_mens.</p>
		<<elseif getvar("$vaginal_tightness") >= -3>>
			<p>$boydesc thrusts into you$temp_mens, $xyr $penis_desc rubbing against your inner walls, hitting just the right spot.</p>
			<p>Your moans are mixed with lewd, wet slapping sounds from $xem fucking your pussy.</p>
		<<elseif getvar("$vaginal_tightness") < -3>>
			<p>You feel $boydesc's $penis_desc sliding through your wet folds$temp_mens. You savor the intense pleasure from the $penis_desc inside you, your cunt aching to be filled even more.</p>
		<</if>>
		<<arouse 'vaginal' $location_var`[$here][1] [$location_var[$here][2] $location_var[$here][3] $location_var[$here][4] $location_var[$here][5] $location_var[$here][6] $location_var[$here][7] $location_var[$here][8]]`>>
		<<set $pc.horny += $arousal_modifier>>
		<<set $pc.mood += $arousal_modifier>>
	<<else>>
		<<set $temp_mens = iif(cycle <= 0,' and a bit of your period leaks from your vagina','')>>
		<<set $pc.horny += $arousal_modifier * 2>>
		<<set $pc.mood += $arousal_modifier * 2>>
		<p>$boydesc pushes $xyr $penis_desc into your unexplored pussy gently. It is a bit painful, but as your lust builds up you do not want to wait anymore.</p>
		<p>With the next push from $boydesc, you push your ass towards $xyr cock. You feel your hymen break and his cock slide into deep inside you, $xyr head rubbing against your no longer untouched walls as you both moan very loudly.</p>
		<<arouse 'vaginal' $location_var`[$here][1] [$location_var[$here][2] $location_var[$here][3] $location_var[$here][4] $location_var[$here][5] $location_var[$here][6] $location_var[$here][7] $location_var[$here][8]]`>>
	<</if>>
	<<set $temp_mens to null>>
<</if>>
<!-- ! "deal_with_condom" procedure should be replacement of "sexstart" dynamic procedure-->
<!-- !! gs 'dinsex', 'boy_puts_condom'-->
<<if $location_var[$here][0] == 'boy_puts_condom'>>
	<<set $protect = iif(prezik > 0,1,0)>>
	<<if $location_var[$here][1] == ''>>
		<!-- ! do you have condoms?-->
		<<if $inventory.get("condom") > 0>>
			<<if rand(1,prezik) <= $badprezik>>
				<<set $badprezik -= 1>>
				<<set $noprotect = 1>>
				<<set $sexcontra = 7>>
				<!-- FAILED TO CONVERT
					*p '<<ucase(mid($boydesc,1,1))>><<mid($boydesc,2,len($boydesc)-1)>> takes your '+iif(preziktype = 2,'sabotaged ','')+ 'condom and puts it on <<$xyr>> <<dick>> centimeter dick.'
				-----
					<<set  * p '<<ucase(mid($boydesc,1,1))>><<mid($boydesc,2,len($boydesc) - ERROR: FAILED TO CONVERT LITERAL: """1)>> takes your '""" + iif(preziktype = 2,'sabotaged ','') + 'condom and puts it on $xyr dick centimeter dick.'>>

				-->
				<<warn "CONVERSION ERROR e1c4dfc93f7ced2d8b60ebe11706f0fc">>
			<<else>>
				<<set $sexcontra = 3>>
				<!-- FAILED TO CONVERT
					*p '<<ucase(mid($boydesc,1,1))>><<mid($boydesc,2,len($boydesc)-1)>> takes your condom and puts it on <<$xyr>> <<dick>> centimeter dick.'
				-----
					 * p '<<ucase(mid($boydesc,1,1))>><<mid($boydesc,2,len($boydesc) - ERROR: FAILED TO CONVERT LITERAL: """1)>> takes your condom and puts it on $xyr <<dick>> centimeter dick.'"""

				-->
				<<warn "CONVERSION ERROR 69f0ca89178afaa4542c63f4a4ae907a">>
				<<set $noprotect = 0>>
			<</if>>
			<<run $inventory.dec('condom',1)>>
			<<set $sexcontra = iif(preziktype = 2,7,sexcontra)>>
		<<else>>
			<<set $sexcontra = 0>>
			<!-- !! the hormonal contraception is still taken in account-->
		<</if>>
	<<else>>
		<<set $custmsg = $location_var[$here][1]>>
		 * p '$custmsg'
		<!-- ! do you have condoms?-->
		<<if $inventory.get("condom") > 0>>
			<<if rand(1,prezik) <= $badprezik>>
				<<set $badprezik -= 1>>
				<<set $noprotect = 1>>
				<<set $sexcontra = 7>>
			<<else>>
				<<set $sexcontra = 3>>
				<<set $noprotect = 0>>
			<</if>>
			<<run $inventory.dec('condom',1)>>
			<<set $sexcontra = iif(preziktype = 2,7,sexcontra)>>
		<<else>>
			<<set $sexcontra = 0>>
			<!-- !! the hormonal contraception is still taken in account-->
		<</if>>
	<</if>>
<</if>>
<!-- !! gs 'dinsex', 'boy_puts_his_condom'[, $boydesc]-->
<<if $location_var[$here][0] == 'boy_puts_his_condom'>>
	<<set $bwa_boy = iif(!$ARGS[1],$boydesc,$ARGS[1])>>
	<<set $protect = 1>>
	<<set $sexcontra = 3>>
	<!-- FAILED TO CONVERT
		*p '<<ucase(mid($bwa_boy,1,1))>><<mid($bwa_boy,2,len($bwa_boy)-1)>> takes his condom and puts it on <<$xyr>> <<$penis_desc>>.'
	-----
		 * p '<<ucase(mid($bwa_boy,1,1))>><<mid($bwa_boy,2,len($bwa_boy) - ERROR: FAILED TO CONVERT LITERAL: """1)>> takes his condom and puts it on $xyr $penis_desc.'"""

	-->
	<<warn "CONVERSION ERROR cb9c9bd46f84f60f85475a548bb05db1">>
	<!-- !! the hormonal contraception is still taken in account-->
<</if>>
<!-- !! gs 'dinsex', 'pc_puts_condom'-->
<<if $location_var[$here][0] == 'pc_puts_condom'>>
	<<set $protect = iif(prezik > 0,1,0)>>
	<!-- FAILED TO CONVERT
		vidageday -= 1 &! the people guess that you are a bit more older than you are in fact
	-----
		<<set $pc.visualAgeDaysInverse -= ERROR: FAILED TO CONVERT LITERAL: """1 &! the people guess that you are a bit more older than you are in fact""">>

	-->
	<<warn "CONVERSION ERROR 0dd2e282ab176ba065b372ab694da856">>
	<<if $location_var[$here][1] == ''>>
		<!-- ! do you have condoms?-->
		<<if $inventory.get("condom") > 0>>
			<<if rand(1,prezik) <= $badprezik>>
				<<set $badprezik -= 1>>
				<<set $noprotect = 1>>
				<<set $sexcontra = 7>>
				<<set  * p 'You take your ' + iif(preziktype = 2,'sabotaged ','') + 'condom and put it on $xyr dick centimeter dick.'>>
			<<else>>
				<<set $sexcontra = 3>>
				<!-- FAILED TO CONVERT
					*p 'You take your condom and put it on <<$xyr>> <<dick>> centimeter dick.'
				-----
					 * ERROR: FAILED TO CONVERT LITERAL: """p 'You take your condom and put it on $xyr <<dick>> centimeter dick.'"""

				-->
				<<warn "CONVERSION ERROR d574c4b9b998039f49fc03f314ff533e">>
				<<set $noprotect = 0>>
			<</if>>
			<<run $inventory.dec('condom',1)>>
			<<set $sexcontra = iif(preziktype = 2,7,sexcontra)>>
		<<else>>
			<<set $sexcontra = 0>>
			<!-- !! the hormonal contraception is still taken in account-->
		<</if>>
	<<else>>
		<<set $custmsg = $location_var[$here][1]>>
		 * p '$custmsg'
		<!-- ! do you have condoms?-->
		<<if $inventory.get("condom") > 0>>
			<<if rand(1,prezik) <= $badprezik>>
				<<set $badprezik -= 1>>
				<<set $noprotect = 1>>
				<<set $sexcontra = 7>>
			<<else>>
				<<set $sexcontra = 3>>
				<<set $noprotect = 0>>
			<</if>>
			<<run $inventory.dec('condom',1)>>
			<<set $sexcontra = iif(preziktype = 2,7,sexcontra)>>
		<<else>>
			<<set $sexcontra = 0>>
			<!-- !! the hormonal contraception is still taken in account-->
		<</if>>
	<</if>>
<</if>>
<!-- !! gs 'dinsex','boy_wants_anal' [, $boydesc [, 'lubri']]-->
<<if $location_var[$here][0] == 'boy_wants_anal'>>
	<<set $bwa_boy = iif(!$ARGS[1],$boydesc,$ARGS[1])>>
	<<if $bwa_boy == 'lubri'>>
		<<set $bwa_boy = $boydesc>>

	<</if>>
	<<if getvar("$analplugin") == 1>>
		<<if getvar("$pc.pcs_ass") < 16>>
			<p>$bwa_boy pulls the plug out of your narrow and tight ass.</p>
			<<set $analplugout = 1>>
		<<else>>
			<p>$bwa_boy pulls the plug out of your ass.</p>
			<<set $analplugout = 1>>
		<</if>>
	<</if>>
	<<if $location_var[$here][2] == 'lubri'>>
		<p>$bwa_boy takes a tube of lubricant, squeezes a little on $xyr palm and rubs your anus.</p>
		<<arouse 'anal_finger' 1 `['lube']`>>
	<<else>>
		<<if getvar("$lubri") == 0>>
			<p>You have no lube, $bwa_boy spits on his fingers and using saliva he massages your anus.</p>
			<<arouse 'anal_finger' 1 `['lube']`>>
		<<else>>
			<<set $lubri -= 1>>
			<<if rand(0,2) == 0>>
				<p>You take a tube of lubricant and hand it to $bwa_boy, he squeezes a little on his palm and rubs your anus.</p>
			<<elseif rand(0,1) == 0>>
				<p>You squeeze anal lube on your hand and begin to smear it in your ass. Then you give the guy a tube and $xe starts lucricating $xyr cock.</p>
			<<else>>
				<p>You squeeze anal lube on your hand and begin to smear it in your ass. Then you give it to $xem and $xe smears it on $xyr dick</p>
			<</if>>
			<<arouse 'anal_finger' 1 `['lube']`>>
		<</if>>
	<</if>>
	<<set $bwa_boy to null>>
<</if>>
<!-- !! gs 'dinsex', 'girl_wants_anal'[, $boydesc [, 'lubri']]-->
<<if $location_var[$here][0] == 'girl_wants_anal'>>
	<<set $bwa_girl = iif(!$ARGS[1],$boydesc,$ARGS[1])>>
	<<if $bwa_girl == 'lubri'>>
		<<set $bwa_girl = $boydesc>>

	<</if>>
	<<if getvar("$analplugin") == 1>>
		<<if getvar("$pc.pcs_ass") < 16>>
			<p>$bwa_boy pulls the plug out of your narrow and tight ass.</p>
			<<set $analplugout = 1>>
		<<else>>
			<p>$bwa_boy pulls the plug out of your ass.</p>
			<<set $analplugout = 1>>
		<</if>>
	<</if>>
	<<if $location_var[$here][2] == 'lubri'>>
		<<set $lubri += 1>>
		<p>$bwa_girl takes a tube of lubricant, squeezes a little on her palm and rubs your anus.</p>
		<<arouse 'anal_finger' 1 `['lube']`>>
	<<else>>
		<<if getvar("$lubri") == 0>>
			<p>You have no lube, $bwa_girl spits on her fingers and using saliva she massages your anus.</p>
			<<arouse 'anal_finger' 1 `['lube']`>>
		<<elseif getvar("$lubri") > 0>>
			<p>You take a tube of lubricant and hand it to $bwa_girl, she squeezes a little on her palm and rubs your anus.</p>
			<<arouse 'anal_finger' 1 `['lube']`>>
		<</if>>
	<</if>>
	<<set $bwa_girl to null>>
<</if>>
<!-- !! gs 'dinsex', 'after_anal','boy',$boydesc-->
<<if $location_var[$here][0] == 'after_anal'>>
	<<if getvar("$analplugout") == 1>>
		<<if $location_var[$here][1] == 'boy'>>
			<<set $analplugin = 1>>
			<p>$ARGS[2] takes your butt plug and he puts it back into your anus. He grins: "Continue your training"</p>
		<</if>>
		<<if $location_var[$here][1] == 'girl'>>
			<<set $analplugin = 1>>
			<p>$ARGS[2] takes your butt plug and she puts it back into your anus. She grins: "Continue your training"</p>
		<</if>>
		<<if $location_var[$here][1] == 'pc'>>
			<<set $analplugin = 1>>
			You take your butt plug and put it back into your anus. You grin: "I have to keep my butt trained"
		<</if>>
		<<if $location_var[$here][1] == 'no_plug'>>
			<<set $analplugin = 0>>
			You take your butt plug and put it into your purse. Your anus has to rest for a while now.
		<</if>>
		<<set $analplugout to null>>
	<</if>>
<</if>>
<!-- !! this procedure calls 'cum_call','anus',$boy,1-->
<!-- !! use gs 'dinSex','boy_wants_anal'[,'lubri'] together with gs 'dinsex','analsex'-->
<<if $location_var[$here][0] == 'analsex'>>
	<!-- FAILED TO CONVERT
		frost = 0 &! the sex heats
	-----
		<<set $pc.frost = ERROR: FAILED TO CONVERT LITERAL: """0 &! the sex heats""">>

	-->
	<<warn "CONVERSION ERROR 55ac228abbfb566fb46e5f908d4eab82">>
	<p>$boydesc fingers your anus, slowly pushing in before squeezing in a second one .</p>
	<<if getvar("$pc.pcs_ass") < 10>>
		<p>When $xe tries inserting a third finger you groan in pain.</p>

	<</if>>
	<<if getvar("$pc.pcs_ass") >= 10>>
		<p>$boydesc inserts a third finger, very slowly thrusting and wiggling to stretch your anus.</p>

	<</if>>
	 * p '$boydesc pulls $xyr fingers out of your ass and you feel $xyr $penis_desc pushing against your butthole'
	<<arouse 'anal' $location_var`[$here][1] [$location_var[$here][2] $location_var[$here][3] $location_var[$here][4] $location_var[$here][5] $location_var[$here][6] $location_var[$here][7] $location_var[$here][8]]`>>
	<<if ($agrdif + $altdif) >= 20>>
		<p>You scream and bite your lip from the sharp pain when $xe penetrates your ass.</p>

	<</if>>
	<<if ($agrdif + $altdif) < 20>>
		<p>You moan when $xe penetrates your ass.</p>

	<</if>>
	<p>$boydesc stops for a moment, giving your ass time to adjust to $xyr cock in it. Then he starts to slowly move, pumping your anus.</p>
	<<if ($agrdif + $altdif) >= 30>>
		<<if getvar("$pc.pcs_makeup") > 1>>
			<<set $pc.pcs_makeup = 0>>

		<</if>>
		<p>You cry and bite your lip when the $penis_desc begins to thrust in and out of your ass. Your anus feels like it is going to tear apart and all you want is for this torture to be over quickly.</p>
	<<elseif ($agrdif + $altdif) >= 20 and ($agrdif + $altdif) < 30>>
		<<set $pc.horny += 10>>
		<p>You savor $xyr cock moving inside you, lightly moaning in rhythm.</p>
	<</if>>
	<p>After some time $boydesc groans and you feel $xyr cock pulsing inside you and a pleasant warmth filling your ass.</p>
	<<gs 'cum_call' 'anus' $boy 1>>
<</if>>
<!-- !! this procedure calls 'cum_call','',$boy,1-->
<!-- !! use gs 'dinsex','sexcum'-->
<<if $location_var[$here][0] == 'sexcum'>>
	<<set $pc.frost = 0>>
	<<if getvar("$protect") != 1>>
		<!-- !!Unprotected sex-->
		<<if rand(0, 1) == 0 or getvar("$pose") == 3>>
			<<set $cumvag_text = RAND(0,2)>>
			<<if getvar("$cumvag_text") == 0>>
				<p>$xyrc movements speed up and $xe drives $xyr cock balls deep into you. With a beatific smile, $xe cums deep inside you. You feel a warm jet pour into your womb.</p>

			<</if>>
			<<if getvar("$cumvag_text") == 1>>
				<p>$xec does not pull out and instead pulls you tightly against $xem and your pussy is filled with splashes of semen.</p>

			<</if>>
			<<if getvar("$cumvag_text") == 2>>
				<p>$xec groans, and you feel a jet of sperm hit you inside your body.</p>

			<</if>>
			<<gs 'cuminsidereact' $boydesc>>
			<<gs 'cum_call' '' $boy 1>>
		<<else>>
			<!-- !!Out-->
			<<if getvar("$pose") == 0>>
				<<set $spafinloc = 14>>
				<p>$boydesc groans and after pulling out $xyr dick, $xe came on your stomach.</p>
				<<gs 'cum_call' 'stomach' $boy 1>>
			<<elseif getvar("$pose") == 1>>
				<p>$boydesc groans and after pulling out $xyr dick, $xe came on your ass.</p>
				<<gs 'cum_call' 'butt' $boy 1>>
			<</if>>
		<</if>>
	<<else>>
		<<set $tmp = iif(sexcontra = 7,'sabotaged ','')>>
		<p>$boydesc groans and you realized that $xe ejaculated in the $tmpcondom.</p>
		<<if getvar("$sexcontra") == 4>>
			<p>Pulling out of you and looking at $xyr dick, $boydesc said "Hmm, the condom burst."</p>
		<<elseif getvar("$sexcontra") == 5>>
			<p>Pulling out of you and looking at $xyr dick, $boydesc said "Fuck! The condom is missing."</p>
		<</if>>
		<<set $eff_contra = $sexcontra>>
		<<gs 'cum_call' '' $boy 1 $sexcontra>>
		<<gs 'cuminsidereact' $boydesc $eff_contra>>
		<<set $protect = 0>>
	<</if>>
	<<set $pose = 0>>
	<<set $eff_contra to null>>
<</if>>
<<if $location_var[$here][0] == 'bj_random'>>
	<<if $pc.sexStat('bj') == 0>>
		You are anxious about the idea of sucking a cock, having never given a blowjob before. You wonder what it will taste like.

	<</if>>
	<<if $pc.sexStat('bj') <= 10>>
		<p>Hesitantly bringing your face to $boydesc's crotch, you lightly press your $pc_desc['lips'] lips against $xyr dick, tasting the slight saltiness.</p>
		Then you start flicking your tongue around the head as you wrap your lips further, stroking the shaft in the meantime.
	<<elseif $pc.sexStat('bj') <= 25>>
		<p>You lightly put $boydesc's cock into your mouth, rolling your tongue around the head as you rhytmically stroke the shaft.</p>
		After a moment you start getting into rhythm, lightly bobbing your head although not sucking his dick much further than the tip.
	<<elseif $pc.sexStat('bj') <= 40>>
		<p>You wrap your $pc_desc['lips'] lips around the $penis_desc in front of you. You give $boydesc a moment to adjust to the warmthness with more than half his cock resting in your mouth</p>
		<p>Then you greedily lean forwards, taking $xyr dick deeper in your mouth and start to bob your head back and forth along $xyr $penis_desc</p>
	<<elseif $pc.sexStat('bj') <= 60>>
		<p>Imagining how the hard cock in front of your face would feel between your $pc_desc['lips'] lips, you just can't hold back and hungrily take the whole length in your mouth until its tip is resting at the entrance of your throat</p>
		You playfully roll your tongue around the cock you are sucking and try to see if you can swallow the whole length down your throat.
	<<else>>
		<p>You lock eyes with $boydesc and relax your throat as you swallow $xyr $penis_desc in one move like the veteran cocksucker you are, milking $xyr cock with just your throat.</p>
	<</if>>
<</if>>
<<if $location_var[$here][0] == 'bj_swallow_random'>>
	<<if $pc.sexStat('bj') <= 10>>
		Not knowing what else to do, you forcefully gulp down and swallow the sperm filling your mouth. The taste lingers at the back of your throat
	<<elseif $pc.sexStat('bj') <= 25>>
		You swallow the viscous semen that is filling your mouth, then lick the softening member clean.
		Afterwards you lean forward to plant a tender kiss on the freshly milked cock.
	<<elseif $pc.sexStat('bj') <= 40>>
		You swallow the warm cum that fills your mouth and smile as you lick the sticky leftovers with your tongue.
	<<elseif $pc.sexStat('bj') <= 60>>
		Your mouth is quickly filled with warm sperm and you smile as you gulp it down and enjoy the now familiar tart taste.
	<<else>>
		You let the warm cum drain down the throat, enjoying the familiar taste as you feel it slowly making its way down.
	<</if>>
<</if>>
<!-- !! use gs 'dinsex','enema'-->
<<if $location_var[$here][0] == 'enema'>>
	<<set $cumspclnt = 7>>
	<<gs 'cum_cleanup'>>
	<<set $time.minutes += 5>>
	<<set $klismaday = $time.daystart>>
	<<set $klismaday1 = 1>>
	<<if $location_var[$here][1] == ''>>
		 * p 'You give yourself an enema , feeling clean down there. Your ass is now ready for anal sex without any awkward surprises.'
	<<elseif $location_var[$here][1] != ' '>>
		 * p '$ARGS[1]'
	<</if>>
<</if>>