glife/locations/dinSex

# dinSex



$dinrandbj = {
	tperbjran = rand(0, 3)
	if tperbjran = 0:$tperbj = 'Your <<$liptalk>> wraps around <<$xem>> <<dick>> centimeter member'
	if tperbjran = 1:$tperbj = 'Your <<$liptalk>> clasps <<$xem>> the purple head of the <<dick>> centimeter member'
	if tperbjran = 2:$tperbj = 'You held your <<$liptalk>> on the head of <<$xem>> <<dick>> centimeter member and pulled it into your mouth'
	if tperbjran = 3:$tperbj = 'The <<dick>> centimeter dick rested between your <<$liptalk>>, you opened them slightly and let the dick in your mouth.'
	if tperbjran = 4:$tperbj = ''   
	if tperbjran = 5:$tperbj = ''
	tperbjran2 = rand(0, 2)
	if tperbjran2 = 0:$tperbj2 = 'Your mouth quickly opened and was filled by a slightly salty and hard cock, which you started to suck.'
	if tperbjran2 = 1:$tperbj2 = 'The big cock inside your mouth went hard and hot, and you started sucking'
	if tperbjran2 = 2:$tperbj2 = 'The hard cock around your <<$liptalk>> is filling your whole mouth and with every move it''s going down your throat.'
	if tperbjran2 = 3:$tperbj2 = ''
	if tperbjran2 = 4:$tperbj2 = ''
	if tperbjran2 = 5:$tperbj2 = ''
	'<<$tperbj>>. <<$tperbj2>>'
}

$dinrandswallow = {
	tperswalrand = rand(0, 2)
	if tperswalrand = 0:$tperswal = 'Suddenly your mouth is shot with a jet of viscous semen.'
	if tperswalrand = 1:$tperswal = 'The cock twitched and jets of sperm flew between your lips into your mouth.'
	if tperswalrand = 2:$tperswal = 'Your mouth has been filled with sperm and you started to remove your mouth from the dick.'
	tperswalrand2 = rand(0, 2)
	if tperswalrand2 = 0:$tperswal2 = 'Your mouth is quickly filled with warm sperm and you feel it''s sharp taste.'
	if tperswalrand2 = 1:$tperswal2 = 'Your mouth is filled with cum and began to run down your <<$liptalk2>>'
	if tperswalrand2 = 2:$tperswal2 = 'Hot seed quickly filled your mouth, making you experience the whole scale and sharp taste of sperm.'
	tperswalrand3 = rand(0, 2)
	if tperswalrand3 = 0:$tperswal3 = 'You gulped and swallowed the sperm located in your mouth. The taste of semen stayed in your mouth and you could smell <<$xem>> scent.'
	if tperswalrand3 = 1:$tperswal3 = 'You swallow the warm cum that fills your mouth and lick the remnants of the seed with your <<$liptalk3>>.'
	if tperswalrand3 = 2:$tperswal3 = 'You swallow the viscous semen that is filling your mouth, and then lick your lips to make sure you don''t leave any drop.'
	'<<$tperswal>> <<$tperswal2>> <<$tperswal3>>'
}


$venerasiak = {
	tipvenerarand = rand(0, 10)
	if protect = 1:venrand = rand(0, 1000)
	if venrand = 1000:
		dynamic $veneradinitog
	else
		venrand = rand(0, 100)
		if venrand >= 80:dynamic $veneradinitog
	end
}

$venerasiakOral = {
	tipvenerarand = rand(0, 10)
	if protect = 1:venrand = rand(0, 1000)
	if venrand = 1000:
		dynamic $veneradinitogOral
	else
		venrand = rand(0, 100)
		if venrand >= 80:dynamic $veneradinitogOral
	end
}
$veneradinitogOral = {
	if cheatHealth = 0:
		if tipvenerarand >= 5 and tipvenerarand < 7:
			if rand(1, 100) > 95: Venera += 1
			if TriperOnce = 0:
				TriperOnce = 1
				TriperOral += 1
				if rand (0,100) < 15: TriperOralSigns = 1 
			end
		elseif tipvenerarand = 7:
			if rand(0,1) = 1:
				!!syphilis
				if rand(1, 100) > 95: Venera += 1
				if SifacOnce = 0:
					SifacOnce = 1
					Sifilis += 1
				end
			end
		elseif tipvenerarand < 5:
			!!candidiasis/thrush
			if rand(1, 100) > 85:
				if KandidozOnce = 0:
					KandidozOnce = 1
					Kandidoz += 1
				end
			end
		elseif tipvenerarand = 8:
			!!herpes
			if rand(1, 100) > 90:
				if GerpesOnce = 0:
					GerpesOnce = 1
					Venera += 1
					Gerpes += 1
					OrHerpes = 1
				end
			end
		end
	end
}
$veneradinitog = {
	if cheatHealth = 0:
		if tipvenerarand = 8:
			!!herpes
			if rand(1, 100) > 90:
				if GerpesOnce = 0:
					GerpesOnce = 1
					Venera += 1
					Gerpes += 1
					GenHerpes = 1
					
				end
			end
		elseif tipvenerarand = 7:
			!!syphilis
			if rand(1, 100) > 95: Venera += 1
			if SifacOnce = 0:
				SifacOnce = 1
				Sifilis += 1
			end
		elseif tipvenerarand >= 5 and tipvenerarand < 7:
			!!gonorrhea/triper
			if rand(1, 100) > 95: Venera += 1
			if TriperOnce = 0:
				TriperOnce = 1
				Triper += 1
			end
		elseif tipvenerarand < 5:
			!!candidiasis/thrush
			if rand(1, 100) > 85:
				if KandidozOnce = 0:
					KandidozOnce = 1
					Kandidoz += 1
				end
			end
		end
	end	
}

$sexstart = {
	protect = 0
	vidageday -= 1
	if prezik > 0:
		dynamic $prezik
		protect = 1
		if preziktype = 2:
			sexcontra = 7
			'<<$boydesc>> took your sabotaged condom and put it on <<$xem>> <<dick>> centimeter member.'
		else
			sexcontra = 3
			'<<$boydesc>> took your condom and put it on <<$xem>> <<dick>> centimeter member.'
		end
	else
		sexcontra = 0
	end
}

$sexstart2 = {
	frost = 0
	if cycle <= 0:
		!!Menstruation makes orgasm impossible
		pcs_horny = 0
		pcs_mood -= 10
		pcs_willpwr -= 10
		'Menstruation blood slowly flows from your vagina while <<$xe>> fucks you. It feels painful and also pleasant. You moan while <<$xem>> <<dick>> centimeter dick fucks your pussy.'
	elseif cycle > 0 and pcs_vag > 0:
		!!No Menstruatsion
		!!horny - excitement
		!!pcs_vag - vagina elasticity
		!!silavag - male skill:0-clumsy, 1-middle, 2-stud
		!!dick - <<$xem>> penis size
		!!orgazm - what kind of orgasm
		!!0 - very painful, 1 - hurts, 2 - unpleasant, 3 - so-so, 4 - little orgasm, 5 - orgasm, 6- little orgasm
		smazka = pcs_horny / 10
		prinat = smazka + pcs_vag
		if dick >= prinat * 2:
			!!member of the critical features more years
			if silavag = 0: orgazm = 0
			if silavag = 1: orgazm = 1
			if silavag = 2: orgazm = 2
		elseif dick < prinat * 2 and dick > prinat:
			!!member more options gg
			if silavag = 0:
				if pcs_horny >= 100: orgazm = 5
				if pcs_horny >= 90 and pcs_horny < 100: orgazm = 4
				if pcs_horny >= 80 and pcs_horny < 90: orgazm = 3
				if pcs_horny >= 70 and pcs_horny < 80: orgazm = 2
				if pcs_horny >= 60 and pcs_horny < 70: orgazm = 1
				if pcs_horny < 60: orgazm = 0
			elseif silavag = 1:
				if pcs_horny >= 90: orgazm = 5
				if pcs_horny >= 80 and pcs_horny < 90: orgazm = 4
				if pcs_horny >= 70 and pcs_horny < 80: orgazm = 3
				if pcs_horny >= 60 and pcs_horny < 70: orgazm = 2
				if pcs_horny >= 50 and pcs_horny < 60: orgazm = 1
				if pcs_horny < 50: orgazm = 0
			elseif silavag = 2:
				if pcs_horny >= 80: orgazm = 5
				if pcs_horny >= 70 and pcs_horny < 80: orgazm = 4
				if pcs_horny >= 60 and pcs_horny < 70: orgazm = 3
				if pcs_horny >= 50 and pcs_horny < 60: orgazm = 2
				if pcs_horny >= 40 and pcs_horny < 50: orgazm = 1
				if pcs_horny < 40: orgazm = 0
			end
		elseif dick <= prinat and dick >= pcs_vag:
			!!Member fewer opportunities gg
			if silavag = 0:
				if pcs_horny >= 80: orgazm = 5
				if pcs_horny >= 60 and pcs_horny < 80: orgazm = 4
				if pcs_horny >= 40 and pcs_horny < 60: orgazm = 3
				if pcs_horny < 40: orgazm = 2
			elseif silavag = 1:
				if pcs_horny >= 70: orgazm = 5
				if pcs_horny >= 50 and pcs_horny < 70: orgazm = 4
				if pcs_horny >= 30 and pcs_horny < 50: orgazm = 3
				if pcs_horny < 30: orgazm = 2
			elseif silavag = 2:
				if pcs_horny >= 60: orgazm = 5
				if pcs_horny >= 40 and pcs_horny < 60: orgazm = 4
				if pcs_horny >= 20 and pcs_horny < 40: orgazm = 3
				if pcs_horny < 20: orgazm = 2
			end
		elseif dick <= prinat and dick < pcs_vag:
			if silavag = 0:
				if pcs_horny >= 100: orgazm = 5
				if pcs_horny >= 90 and pcs_horny < 100: orgazm = 4
				if pcs_horny < 90: orgazm = 6
			elseif silavag = 1:
				if pcs_horny >= 90: orgazm = 5
				if pcs_horny >= 80 and pcs_horny < 90: orgazm = 4
				if pcs_horny < 80: orgazm = 6
			elseif silavag = 2:
				if pcs_horny >= 80: orgazm = 5
				if pcs_horny >= 70 and pcs_horny < 80: orgazm = 4
				if pcs_horny < 70: orgazm = 6
			end
		end
		if oragazm = 5:
			preOrg += 1
			if razeba < 4:
				if silavag = 2:
					orgrand = rand(50, 300)
					if orgrand > preOrg: oragazm = 4
				elseif silavag < 2:
					oragazm = 4
				end
			elseif razeba = 4:
				if silavag = 2:
					orgrand = rand(0, 100)
					if orgrand > preOrg: oragazm = 4
				elseif silavag < 2:
					orgrand = rand(50, 300)
					if orgrand > preOrg: oragazm = 4
				end
			elseif razeba >= 5:
				if silavag = 2:
					orgrand = rand(0, 50)
					if orgrand > preOrg: oragazm = 4
				elseif silavag < 2:
					orgrand = rand(0, 100)
					if orgrand > preOrg: oragazm = 4
				end
			end
		end
		if orgazm = 0:
			vgape = 3
			pcs_horny = 0
			pcs_mood -= 15
			pcs_willpwr -= 15
			'You groaned in pain when <<$boydesc>> penetrated your pussy. Tears flowed from your eyes and it felt like someone drove a red-hot rod in your vagina. You cry and moan while <<$xem>> strong <<dick>> centimeter dick fucks your pussy.'
		elseif orgazm = 1:
			if vgape < 2:vgape = 2
			pcs_horny -= 10
			pcs_mood -= 10
			pcs_willpwr -= 10
			'You bite your lip in pain when <<$boydesc>> entered, it is very painful. You are frowning and moaning in pain while <<$xem>> strong <<dick>> centimeter dick fucks your pussy.'
		elseif orgazm = 2:
			if vgape < 1:vgape = 1
			pcs_horny -= 5
			pcs_mood -= 5
			pcs_willpwr -= 5
			'You winced at the sudden pain when <<$boydesc>> entered, it hurts but it gradually became quite tolerable. You are trying to get aroused while <<$xem>> <<dick>> centimeter dick fucks your pussy, but you did not succeed.'
		elseif orgazm = 3:
			pcs_mood += 5
			pcs_willpwr += 5
			'You are startled by the feeling that your pussy is stretching when <<$boydesc>> entered you. It feels good when <<$xem>> <<dick>> centimeter dick fucks your pussy.'
		elseif orgazm = 4:
			pcs_horny += 10
			pcs_mood += 10
			pcs_willpwr += 10
			'You are startled by the feeling that your pussy is stretching as <<$boydesc>> entered you. It feels good when <<$xem>> strong <<dick>> centimeter dick fucks your pussy. Gradually a pleasant warmth and some pulsations started building up in your stomach. Then the feeling decreased a little and remained like that until the end.'
		elseif orgazm = 5:
			pcs_horny = 0
			pcs_mood += 15
			pcs_willpwr += 15
			orgasm += 1
			vaginalOrgasm += 1
			'You flinched from a pleasant feeling when your pussy is stretched by <<$xem>> dick. It feels good when <<$xem>> <<dick>> centimeter dick fucks your pussy.Gradually a pleasant warmth and some pulsations started building up in your stomach. Then the feeling became unbearable and your entire body was covered with hot waves of orgasm, you scream with pleasure.'
		elseif orgazm = 6:
			pcs_horny += 5
			pcs_mood += 5
			pcs_willpwr += 5
			'You can feel <<$xem>> penis entering your pussy. This feels nice between your legs , but <<$xem>> <<dick>> cm dick is significantly less than what your pussy needs. This is not enough for you. Gradually a pleasant warmth and some pulsations started building up in your stomach. Then the feeling decreased a little and remained like that until the end.'
		end
		if pcs_vag = 0:
			pcs_horny = 0
			pcs_mood -= 15
			pcs_willpwr -= 15
			pcs_vag += 1
			'You were biting your <<$liptalk>> in pain and tears started to flow from your eyes when <<$boydesc>> entered, breaking your hymen. You moan while crying and <<$xem>> <<dick>> centimeter dick fucks your bloody pussy.'
		elseif pcs_vag <= dick:
			pcs_vag += 1
		end
	end
	if pcs_vag < dick: pcs_vag += 1
	cumprecheck = 1
	gs 'cum_manage'
}

$sexstart3 = {
	frost = 0
	if cycle <= 0:
		!!periods, orgasm is not possible
		pcs_horny = 0
		pcs_mood -= 10
		pcs_willpwr -= 10
		'You have your period and blood slowly flows from your vagina while you move on <<$xem>> dick. This is giving you painful and pleasants sensations . You moan while <<$xem>> strong <<dick>> centimeter penis fucks you.'
   
	elseif cycle > 0 and pcs_vag > 0:
		!!no monthly
		!!horny - excitement
		!!pcs_vag - the elasticity of the vagina
		!!silavag - skill Man 0-sad_sack, 1-middle_peasant 2-stud
		!!dick - penis Man
		!!orgazm - Total coefficient of pleasure
		!!0 - very painful, 1 - it_hurts, 2 - not nice, 3 - so-so, 4 - nedoorgazm 5 - orgasm
		
		smazka = pcs_horny / 10
		prinat = smazka + pcs_vag

		if dick >= prinat * 2:
			!!member of the critical features more years
			if silavag = 0:orgazm = 0
			if silavag = 1:orgazm = 1
			if silavag = 2:orgazm = 2
		elseif dick < prinat * 2 and dick > prinat:
			!!member more options gg
			if silavag = 0:
				if pcs_horny >= 100:orgazm = 5
				if pcs_horny >= 90 and pcs_horny < 100:orgazm = 4
				if pcs_horny >= 80 and pcs_horny < 90:orgazm = 3
				if pcs_horny >= 70 and pcs_horny < 80:orgazm = 2
				if pcs_horny >= 60 and pcs_horny < 70:orgazm = 1
				if pcs_horny < 60:orgazm = 0
			elseif silavag = 1:
				if pcs_horny >= 90:orgazm = 5
				if pcs_horny >= 80 and pcs_horny < 90:orgazm = 4
				if pcs_horny >= 70 and pcs_horny < 80:orgazm = 3
				if pcs_horny >= 60 and pcs_horny < 70:orgazm = 2
				if pcs_horny >= 50 and pcs_horny < 60:orgazm = 1
				if pcs_horny < 50:orgazm = 0
			elseif silavag = 2:
				if pcs_horny >= 80:orgazm = 5
				if pcs_horny >= 70 and pcs_horny < 80:orgazm = 4
				if pcs_horny >= 60 and pcs_horny < 70:orgazm = 3
				if pcs_horny >= 50 and pcs_horny < 60:orgazm = 2
				if pcs_horny >= 40 and pcs_horny < 50:orgazm = 1
				if pcs_horny < 40:orgazm = 0
			end
		elseif dick <= prinat and dick >= pcs_vag:
			!!Member fewer opportunities gg
			if silavag = 0:
				if pcs_horny >= 80:orgazm = 5
				if pcs_horny >= 60 and pcs_horny < 80:orgazm = 4
				if pcs_horny >= 40 and pcs_horny < 60:orgazm = 3
				if pcs_horny < 40:orgazm = 2
			elseif silavag = 1:
				if pcs_horny >= 70:orgazm = 5
				if pcs_horny >= 50 and pcs_horny < 70:orgazm = 4
				if pcs_horny >= 30 and pcs_horny < 50:orgazm = 3
				if pcs_horny < 30:orgazm = 2
			elseif silavag = 2:
				if pcs_horny >= 60:orgazm = 5
				if pcs_horny >= 40 and pcs_horny < 60:orgazm = 4
				if pcs_horny >= 20 and pcs_horny < 40:orgazm = 3
				if pcs_horny < 20:orgazm = 2
			end
		elseif dick <= prinat and dick < pcs_vag:
			if silavag = 0:
				if pcs_horny >= 100:orgazm = 5
				if pcs_horny >= 90 and pcs_horny < 100:orgazm = 4
				if pcs_horny < 90:orgazm = 6
			elseif silavag = 1:
				if pcs_horny >= 90:orgazm = 5
				if pcs_horny >= 80 and pcs_horny < 90:orgazm = 4
				if pcs_horny < 80:orgazm = 6
			elseif silavag = 2:
				if pcs_horny >= 80:orgazm = 5
				if pcs_horny >= 70 and pcs_horny < 80:orgazm = 4
				if pcs_horny < 70:orgazm = 6
			end
		end
		if oragazm = 5:
			preOrg += 1
			if razeba < 4:
				if silavag = 2:
					orgrand = rand(50, 300)
					if orgrand > preOrg:oragazm = 4
				elseif silavag < 2:
					oragazm = 4
				end
			elseif razeba = 4:
				if silavag = 2:
					orgrand = rand(0, 100)
					if orgrand > preOrg:oragazm = 4
				elseif silavag < 2:
					orgrand = rand(50, 300)
					if orgrand > preOrg:oragazm = 4
				end
			elseif razeba >= 5:
				if silavag = 2:
					orgrand = rand(0, 50)
					if orgrand > preOrg:oragazm = 4
				elseif silavag < 2:
					orgrand = rand(0, 100)
					if orgrand > preOrg:oragazm = 4
				end
			end
		end
		if orgazm = 0:
			if vgape < 3:vgape = 3
			pcs_horny = 0
			pcs_mood -= 15
			pcs_willpwr -= 15
			'You groaned in pain when <<$boydesc>> penetrated your pussy. Tears flowed from your eyes and it felt like someone drove a red-hot rod in your vagina. You cry and moan while <<$xem>> strong <<dick>> centimeter dick fucks your pussy.'
		elseif orgazm = 1:
			if vgape < 2:vgape = 2
			pcs_horny -= 10
			pcs_mood -= 10
			pcs_willpwr -= 10
			'You bite your lip in pain when you got on the penis and felt the dick of <<$boydesc>> entering you. It really hurts between your legs. You are frowning and moaning in pain while moveing up and down on his strong <<dick>> centimeter penis.'
			
		elseif orgazm = 2:
			if vgape < 1:vgape = 1
			pcs_horny -= 5
			pcs_mood -= 5
			pcs_willpwr -= 5
			'You winced at the sudden pain when you felt the penis of <<$boydesc>> entering you.  The pain between your legs gradually dissapeared and it became quite tolerable. You are trying to get aroused while rhythmically moving on <<$xem>> sturdy and strong <<dick>> centimeter dick fucking your pussy, but you do not succeed.'
		elseif orgazm = 3:
			pcs_horny += 5
			pcs_mood += 5
			pcs_willpwr += 5
			'You are startled by the feeling that your pussy is stretched when you lowered yourself on the cock of <<$boydesc>> and you could feel him entering you. Between your legs you get a little nice feeling when you move up and down on a strong <<dick>> centimeter penis.'
		elseif orgazm = 4:
			pcs_horny += 10
			pcs_mood += 10
			pcs_willpwr += 10
			'You are startled by the feeling that your pussy is stretched when you lowered yourself on the cock of <<$boydesc>> and you could feel him entering you. Between your legs you get a little nice feeling when you move up and down on a strong <<dick>> centimeter penis. Gradually a pleasant warmth and some pulsations started building up in your stomach. Then the feeling decreased a little and remained like that until the end.'
		elseif orgazm = 5:
			pcs_horny = 0
			pcs_mood += 15
			pcs_willpwr += 15
			orgasm += 1
			vaginalOrgasm += 1
			'You flinched from a pleasant feeling when your pussy is stretched by <<$xem>> dick. Between your legs you are getting a very warm and pleasant feeling when you move up and down on the strong <<dick>> centimeter penis. Gradually a pleasant warmth and some pulsations started building up in your stomach. Then the feeling became unbearable and your entire body was covered with hot waves of orgasm. You scream with pleasure.'
		elseif orgazm = 6:
			pcs_horny += 5
			pcs_mood += 5
			pcs_willpwr += 5
			'You can feel <<$xem>> penis entering your pussy. This feels nice between your legs , but <<$xem>> <<dick>> cm dick  is significantly less than what your pussy needs .This is not enough for you. Gradually a pleasant warmth and some pulsations started building up in your stomach. Then the feeling decreased a little and remained like that until the end.'
		end
		if pcs_vag = 0:
			pcs_horny = 0
			pcs_mood -= 15
			pcs_willpwr -= 15
			pcs_vag += 1
			'You were biting your <<$liptalk>> in pain and tears started to flow from your eyes when <<$boydesc>> entered, breaking your hymen. You moan while crying and <<$xem>> <<dick>> centimeter dick fucks your bloody pussy.'
		elseif pcs_vag <= dick:
			pcs_vag += 1
		end
	end
	cumprecheck = 1
	gs 'cum_manage'
}

$sexstart4 = {
	frost = 0
	if cycle <= 0:
		!!periods, orgasm is not possible
		pcs_horny = 0
		pcs_mood = pcs_mood - 10
		pcs_willpwr = pcs_willpwr - 10
		'You are menstruating but this does not stop <<$xe>> from ramming <<$xem>> dick into you. vaginal blood flows slowly out of your pussy. You are experiencing  both painful and pleasant sensations. You moan while a strong <<dick>> centimeter dick fucks your pussy.'
	elseif cycle > 0 and pcs_vag > 0:
		!!no monthly
		!!horny - excitement
		!!pcs_vag - the elasticity of the vagina
		!!silavag - skill Man 0-sad_sack, 1-middle_peasant 2-stud
		!!dick - penis Man
		!!orgazm - Total coefficient of pleasure
		!!0 - very painful, 1 - it_hurts, 2 - not nice, 3 - so-so, 4 - nedoorgazm 5 - orgasm

		smazka = pcs_horny / 10
		prinat = smazka + pcs_vag

		if dick >= prinat * 2:
			!!member of the critical features more years
			if silavag = 0:orgazm = 0
			if silavag = 1:orgazm = 1
			if silavag = 2:orgazm = 2
		elseif dick < prinat * 2 and dick > prinat:
			!!member more options gg
			if silavag = 0:
				if pcs_horny >= 100:orgazm = 5
				if pcs_horny >= 90 and pcs_horny < 100:orgazm = 4
				if pcs_horny >= 80 and pcs_horny < 90:orgazm = 3
				if pcs_horny >= 70 and pcs_horny < 80:orgazm = 2
				if pcs_horny >= 60 and pcs_horny < 70:orgazm = 1
				if pcs_horny < 60:orgazm = 0
			elseif silavag = 1:
				if pcs_horny >= 90:orgazm = 5
				if pcs_horny >= 80 and pcs_horny < 90:orgazm = 4
				if pcs_horny >= 70 and pcs_horny < 80:orgazm = 3
				if pcs_horny >= 60 and pcs_horny < 70:orgazm = 2
				if pcs_horny >= 50 and pcs_horny < 60:orgazm = 1
				if pcs_horny < 50:orgazm = 0
			elseif silavag = 2:
				if pcs_horny >= 80:orgazm = 5
				if pcs_horny >= 70 and pcs_horny < 80:orgazm = 4
				if pcs_horny >= 60 and pcs_horny < 70:orgazm = 3
				if pcs_horny >= 50 and pcs_horny < 60:orgazm = 2
				if pcs_horny >= 40 and pcs_horny < 50:orgazm = 1
				if pcs_horny < 40:orgazm = 0
			end
		elseif dick <= prinat and dick >= pcs_vag:
			!!Member fewer opportunities gg
			if silavag = 0:
				if pcs_horny >= 80:orgazm = 5
				if pcs_horny >= 60 and pcs_horny < 80:orgazm = 4
				if pcs_horny >= 40 and pcs_horny < 60:orgazm = 3
				if pcs_horny < 40:orgazm = 2
			elseif silavag = 1:
				if pcs_horny >= 70:orgazm = 5
				if pcs_horny >= 50 and pcs_horny < 70:orgazm = 4
				if pcs_horny >= 30 and pcs_horny < 50:orgazm = 3
				if pcs_horny < 30:orgazm = 2
			elseif silavag = 2:
				if pcs_horny >= 60:orgazm = 5
				if pcs_horny >= 40 and pcs_horny < 60:orgazm = 4
				if pcs_horny >= 20 and pcs_horny < 40:orgazm = 3
				if pcs_horny < 20:orgazm = 2
			end
		elseif dick <= prinat and dick < pcs_vag:
			if silavag = 0:
				if pcs_horny >= 100:orgazm = 5
				if pcs_horny >= 90 and pcs_horny < 100:orgazm = 4
				if pcs_horny < 90:orgazm = 6
			elseif silavag = 1:
				if pcs_horny >= 90:orgazm = 5
				if pcs_horny >= 80 and pcs_horny < 90:orgazm = 4
				if pcs_horny < 80:orgazm = 6
			elseif silavag = 2:
				if pcs_horny >= 80:orgazm = 5
				if pcs_horny >= 70 and pcs_horny < 80:orgazm = 4
				if pcs_horny < 70:orgazm = 6
			end
		end
		if oragazm = 5:
			preOrg += 1
			if razeba < 4:
				if silavag = 2:
					orgrand = rand(50, 300)
					if orgrand > preOrg:oragazm = 4
				elseif silavag < 2:
					oragazm = 4
				end
			elseif razeba = 4:
				if silavag = 2:
					orgrand = rand(0, 100)
					if orgrand > preOrg:oragazm = 4
				elseif silavag < 2:
					orgrand = rand(50, 300)
					if orgrand > preOrg:oragazm = 4
				end
			elseif razeba >= 5:
				if silavag = 2:
					orgrand = rand(0, 50)
					if orgrand > preOrg:oragazm = 4
				elseif silavag < 2:
					orgrand = rand(0, 100)
					if orgrand > preOrg:oragazm = 4
				end
			end
		end
		if orgazm = 0:
			vgape = 3
			pcs_horny = 0
			pcs_mood -= 15
			pcs_willpwr -= 15
			'You groaned in pain when <<$boydesc>> penetrated your pussy. Tears flowed from your eyes and it felt like someone drove a red-hot rod in your vagina. You cry and moan while <<$xem>> strong <<dick>> centimeter dick fucks your pussy.'
		elseif orgazm = 1:
			if vgape < 2:vgape = 2
			pcs_horny -= 10
			pcs_mood -= 10
			pcs_willpwr -= 10
			'You bit your lip in pain when <<$boydesc>> penetrated you. You feel some pain between your legs. You are frowning and moaning in pain while a strong <<dick>> centimeter dick fucks your pussy.'
		elseif orgazm = 2:
			if vgape < 1:vgape = 1
			pcs_horny -= 5
			pcs_mood -= 5
			pcs_willpwr -= 5
			'You flinched at the sudden pain when <<$boydesc>> penetrated you. You feel some pain between your legs. It gradually settles down and becomes quite tolerable. You are trying to get aroused while a strong <<dick>> centimeter dick fucks your pussy, but you could not succeed.'
		elseif orgazm = 3:
			pcs_horny = pcs_horny + 5
			pcs_mood += 5
			pcs_willpwr += 5
			'You flinched from the feeling that your pussy is being stretched, when <<$boydesc>> penetrated you. You have a little nice sensation between your legs while a strong <<dick>> centimeter dick fucks your pussy.'
		elseif orgazm = 4:
			pcs_horny = pcs_horny + 10
			pcs_mood += 10
			pcs_willpwr += 10
			'You flinched from the feeling that your pussy is being stretched when <<$boydesc>> penetrated you. You have a little nice sensation between your legs while a strong <<dick>> centimeter dick fucks your pussy. Gradually a pleasant warmth and some pulsations started building up in your stomach. Then the feeling decreased a little and remained like that until the end.'
		elseif orgazm = 5:
			pcs_horny = 0
			pcs_mood += 15
			pcs_willpwr += 15
			orgasm += 1
			vaginalOrgasm += 1
			'You are startled by a pleasant sensation when your pussy is stretched and start taking a dick. You have a very warm and pleasant feeling between the legs when a strong <<dick>> centimeter dick fucks your pussy. Gradually a pleasant warmth and some pulsations started building up in your stomach. Then the feeling became unbearable and your entire body was covered with hot waves of orgasm, you scream with pleasure.'
		elseif orgazm = 6:
			pcs_horny += 5
			pcs_mood += 5
			pcs_willpwr += 5
			'You feel  <<$xem>> penis entering your pussy. This feels nice between your legs , but <<$xem>> <<dick>> cm dick  is significantly less than what your pussy needs .This is not enough for you. Gradually a pleasant warmth and some pulsations started building up in your stomach. Then the feeling decreased a little and remained like that until the end.'
		end
		if pcs_vag = 0:
			pcs_horny = 0
			pcs_mood -= 15
			pcs_willpwr -= 15
			pcs_vag += 1
			'You suddenly bite your <<$liptalk>> in pain and tears started to flow from your eyes when <<$boydesc>> entered you, breaking your hymen. You moan while crying and <<$xem>> <<dick>> centimeter dick fucks your bloody pussy.'
		elseif pcs_vag <= dick:
			pcs_vag += 1
		end
	end
	cumprecheck = 1
	gs 'cum_manage'
}


$sexcum = {
	frost = 0
	sexpartkno = 1
	if protect ! 1:
		!!Unprotected sex
		finrand = rand(0, 1)
	
		if finrand = 0:
			cumvag_text = RAND(0,2)
			if cumvag_text = 0: '<<$xemc>> movements speed up and <<$xe>> drives <<$xem>> cock balls deep into you. With a beatific smile <<$xe>> cums deep inside you. You feel a warm jet pour into your womb.'
			if cumvag_text = 1: '<<$xec>> does not pull out and instead pulls you tightly against <<$xyr>> and your pussy is filled with splashes of semen.'
			if cumvag_text = 2: '<<$xec>> groans, and you feel a jet of sperm hit you inside your body.'
			gs 'cuminsidereact', $boydesc
		elseif finrand = 1:
			!!Out
			if pose = 0:
				spafinloc = 14
				'<<$boydesc>> groaned and after pulling out <<$xem>> dick, <<$xe>> came on your stomach.'
			elseif pose = 1:
				spafinloc = 4
				'<<$boydesc>> groaned and after pulling out <<$xem>> dick, <<$xe>> came on your ass.'
			end
		end
		gs 'Cum_Manage'
	elseif protect = 1:
		$tmp = ''
		if sexcontra = 7: $tmp = 'sabotaged '
		'<<$boydesc>> groaned and you realized that <<$xe>> came in the <<$tmp>>condom.'
		gs 'Cum_Manage'
		if sexcontra = 4:
			'Pulling out of you and looking at <<$xem>> dick, <<$boydesc>> said "Hmm, the condom burst."'
		elseif sexcontra = 5:
			'Pulling out of you and looking at <<$xem>> dick, <<$boydesc>> said "Hmm, the condom is missing."'
		end
		gs 'cuminsidereact'
		protect = 0
	end
	sexcontra = 0
	pose = 0
}

$sexcumsk = {
	frost = 0
	gs 'boyStat', $shultextID33
	sexpartkno = 1

	if protect ! 1:
		!unprotected sex
		finrand = RAND(0,1)

		if finrand = 0:
			!inside
			cumvag_text = RAND(0,2)
			if cumvag_text = 0: '<<$xemc>> movements speed up and <<$xe>> drives <<$xem>> cock balls deep into you. With a beatific smile, <<$xe>> cums deep inside you. You feel a warm jet pour into your womb.'
			if cumvag_text = 1: '<<$xec>> does not pull out and instead pulls you tightly against <<$xyr>> and your pussy is filled with splashes of semen.'
			if cumvag_text = 2: '<<$xec>> groans, and you feel a jet of sperm hit you inside your body.'

			pcs_mood = pcs_mood - 15
			pcs_willpwr = pcs_willpwr - 15
			gs 'cuminsidereact'
		elseif finrand = 1:
			!out

			if pose = 0:
				spafinloc = 14
				'<<$shultextrand33>> groans and pulls <<$xem>> cock out of you and cums on your stomach.'
			elseif pose = 1:
				spafinloc = 4
				'<<$shultextrand33>> groans and pulls <<$xem>> cock out of you and cums on your ass.'
			end
		end
		gs 'Cum_Manage'

	elseif protect = 1:
		$tmp = ''
		if sexcontra = 7: $tmp = 'sabotaged '
		'<<$shultextrand33>> groans and you realize that <<$xe>> came in the <<$tmp>>condom.'
		gs 'Cum_Manage'
		if sexcontra = 4:
			'Pulls <<$xem>> cock out of you and, looking at <<$xem>> dick, <<$shultextrand33>> says "Hmm, the condom burst."'
		elseif sexcontra = 5
			'Pulls <<$xem>> cock out of you and, looking at <<$xem>> dick, <<$shultextrand33>> says "Hmm, the condom is missing."'
		end
		gs 'cuminsidereact'
		protect = 0
	end

	sexcontra = 0
	pose = 0
}

$analsex = {
	frost = 0
	sexpartkno = 1
	if analplugin = 1:
		!!!WD:No Anal Lube if Anal Plug
		!!analpluginbonus = 10
		lubonus = 10
		!!!
		analplugin = 0
		'<<$boydesc>> has pulled out your ass plug'
	end

	if dick >= pcs_ass:pcs_ass += 3
	'<<$boydesc>> began to massage your anus with <<$xem>> fingers.'
	!!!WD: Replaced
	!!if lubri > 0:
	!!!
	if lubonus = 0 and lubri > 0:
	!!!
		lubri -= 1
		lubonus += rand(1, 5)
		'You squeezed anal lube on your hand and began to smear it in your ass. Then you gave it to <<$xyr>> and <<$xe>> smeared it on <<$xem>> dick'
	end

	if pcs_ass < 10:'<<$xec>> inserted three fingers into your ass and you groaned in pain.'
	if pcs_ass >= 10:'<<$xec>> started to stretch your anus with three fingers.'
	'<<$boydesc>> pulled <<$xem>> fingers out of your ass and you felt <<$xem>> hard cock near your hole.'
	if pcs_ass + lubonus + 10 < dick:'You screamed and bit your lip from a sharp pain when <<$xem>> <<dick>> centimeter dick entered your ass.'
	if pcs_ass + lubonus + 10 >= dick:'You moaned when <<$xem>> <<dick>> centimeter dick entered your ass.'
	'<<$boydesc>> stopped for a moment, giving your ass time to adjust to <<$xem>> cock in it, and then started to slowly move, stretching your anus.'

	if pcs_ass + lubonus + 2 < dick:
		if pcs_makeup > 1:pcs_makeup = 0
		pcs_horny -= 20
		pcs_mood -= 20
		if agape < 3:agape = 3
		'You cried and bit your lip when <<dick>> centimeter cock began to fuck your ass on (! full force !). Your ass felt like it was on fire and all you wanted was for this torture to be over quickly.'
	elseif pcs_ass + lubonus + 2 >= dick:
		pcs_horny += 10
		if agape < 2 and lubonus = 0:agape = 2
		'You started to moan rhythmically, matching the timings of  <<$xem>> cock''s movements inside you. You feel your anus stretching when <<$xem>> penis enters you.'

		if pcs_horny >= 100:
			if stat['anal'] >= 10 and orgasm > 0:
				pcs_horny = 0
				orgasm += 1
				pcs_mood += 20
				if agape < 1 and lubonus = 0:agape = 1
				'You moan in pleasure while <<$xem>> dick moves inside your ass.'
			end
		end
	end
	lubonus = 0
	'After some time <<$boydesc>> groaned and you feel your ass filling up with a pleasant warmth.'
	spafinloc = 3
	gs 'Cum_Manage'
}

$analsex2 = {
	frost = 0
	sexpartkno = 1
	if analplugin = 1:
		!!!WD:No Anal Lube if Anal Plug
		!!analpluginbonus = 10
		lubonus = 10
		!!!
		analplugin = 0
		'<<$boydesc>> pulled your butt plug out of your narrow and tight ass.'
	end
	if dick >= pcs_ass:pcs_ass += 3
	'<<$boydesc>> began to massage your anus with <<$xem>> fingers.'

	!!!WD: Replaced
	!!if lubri > 0:
	!!!
	if lubonus = 0 and lubri > 0:
	!!!
	lubri -= 1
	lubonus += rand(1, 5)
	'You squeezed anal lube on your hand and began to smear it in your ass. Then you gave the guy a tube and <<$xe>> started lucricating <<$xem>> cock.'
	end
	if pcs_ass < 10:'When <<$xe>> entered three fingers in your ass you groaned in pain.'
   	if pcs_ass >= 10:'<<$xec>> started to stretch your anus with three fingers.'
	'<<$boydesc>> pulled <<$xem>> fingers out of your ass and you felt <<$xem>> hard cock near your hole.'
	!!!WD: Added lubonus
	if pcs_ass + lubonus + 10 < dick:'You screamed and bit your lip from a sharp pain when <<$xem>> <<dick>> centimeter dick entered your ass.'
	if pcs_ass + lubonus + 10 >= dick:'You moaned when <<$xem>> <<dick>> centimeter dick entered your ass.'
	!!!
	'<<$boydesc>> stopped for a moment, giving your ass time to adjust to <<$xem>> cock in it. Then he started to slowly move, stretching your anus.'

	if pcs_ass + lubonus + 2 < dick:
		if pcs_makeup > 1:pcs_makeup = 0
		pcs_horny -= 20
		pcs_mood -= 20
		if agape < 3:agape = 3
		'You cried and bit your lip when <<dick>> centimeter cock began to fuck your ass on (! full force !). Your ass felt like it was on fire and all you wanted was for this torture to be over quickly.'
	elseif pcs_ass + lubonus + 2 >= dick:
		pcs_horny += 10
		if agape < 2 and lubonus = 0:agape = 2
		'You started to moan rhythmically following the movements of <<$xem>> cock inside you. You can feel your anus stretching when <<$xem>> penis enters you.'

		if pcs_horny >= 100:
			if stat['anal'] >= 10 and orgasm > 0:
				pcs_horny = 0
				orgasm += 1
				pcs_mood += 20
				if agape < 1 and lubonus = 0:agape = 1
				'You moan in pleasure while <<$xem>> dick moves inside your ass.'
			end
		end
	end

	lubonus = 0
	'After some time <<$boydesc>> groaned and you feel your ass filling with a pleasant warmth.'
	spafinloc = 3
	gs 'Cum_Manage'
}

$analsexrude = {
	frost = 0
	sexpartkno = 1
	if analplugin = 1:
		!!!WD:No Anal Lube if Anal Plug
		!!analpluginbonus = 10
		lubonus = 10
		!!!
		analplugin = 0
		'<<$boydesc>> pulled your butt plug out of your narrow and tight ass.'
	end

	if dick >= pcs_ass:pcs_ass += 3
	'<<$boydesc>> tucked a finger into your anus, then a second one .'
	if pcs_ass < 10:'When <<$xe>> entered three fingers in your ass you groaned in pain.'
	if pcs_ass >= 10:'<<$xec>> started to stretch your anus with three fingers.'
	'<<$boydesc>> pulled <<$xem>> fingers out of your ass and you feel <<$xem>> pushing his hard cock into your hole.'
	if pcs_ass + lubonus + 10 < dick:'You screamed and bit your lip from a sharp pain when <<$xem>> <<dick>> centimeter dick entered your ass.'
   	if pcs_ass + lubonus + 10 >= dick:'You moaned when <<$xem>> <<dick>> centimeter dick entered your ass.'
	'<<$boydesc>> stopped for a moment, giving your ass time to adjust to <<$xem>> cock in it. Then he started to slowly move, stretching your anus.'

	if pcs_ass + lubonus + 2 < dick:
   		if pcs_makeup > 1:pcs_makeup = 0
		pcs_horny -= 20
		pcs_mood -= 20
		if agape < 3:agape = 3

		'You cried and bit your lip when <<dick>> centimeter cock began to fuck your ass on (! full force !). Your ass felt like it was on fire and all you wanted was for this torture to be over quickly.'
   
	elseif pcs_ass + lubonus + 2 >= dick:
		pcs_horny += 10
		if agape < 2 and lubonus = 0:agape = 2
		'You started to moan rhythmically, following the movements of <<$xem>> cock inside you. You can feel your anus stretching when <<$xem>> penis enters you.'

		if pcs_horny >= 100:
			if stat['anal'] >= 10 and orgasm > 0:
				pcs_horny = 0
				orgasm += 1
				pcs_mood += 20
				if agape < 1 and lubonus = 0:agape = 1
				'You moan in pleasure while <<$xem>> dick moves inside your ass.'
			end
		end
	end

	lubonus = 0
	spafinloc = 3
	gs 'Cum_Manage'
	'After some time <<$boydesc>> groaned and you feel your ass filling with a pleasant warmth.'
}

! "deal_with_condom" procedure should be replacement of "sexstart" dynamic procedure
!! gs 'dinsex', 'boy_puts_condom'
if $ARGS[0] = 'boy_puts_condom':
	protect = iif(prezik > 0,1,0)
	vidageday -= 1 &! the people guess that you are a bit more older than you are in fact
	! do you have condoms?
	if prezik > 0:
		if rand(1,prezik) <= badprezik: 
			badprezik -= 1
			noprotect = 1
			sexcontra = 7
			*p '<<ucase(mid($boydesc,1,1))>><<mid($boydesc,2,len($boydesc)-1)>> takes your '+iif(preziktype = 2,'sabotaged ','')+ 'condom and puts it on <<$xem>> <<dick>> centimeter dick.'
		else
			sexcontra = 3
			*p '<<ucase(mid($boydesc,1,1))>><<mid($boydesc,2,len($boydesc)-1)>> takes your condom and puts it on <<$xem>> <<dick>> centimeter dick.'
			noprotect = 0
		end
		prezik -= 1
		sexcontra = iif(preziktype = 2,7,sexcontra) 
	else
		sexcontra = 0
		!! the hormonal contraception is still taken in account
	end
end &! --- boy_puts_condom ---

!! gs 'dinsex', 'boy_puts_his_condom'[, $boydesc]
if $ARGS[0] = 'boy_puts_his_condom':
	$bwa_boy = iif($ARGS[1] = '',$boydesc,$ARGS[1])
	protect = 1
	sexcontra = 3
	*p '<<ucase(mid($bwa_boy,1,1))>><<mid($bwa_boy,2,len($bwa_boy)-1)>> takes his condom and puts it on his <<dick>> centimeter dick.'
	!! the hormonal contraception is still taken in account
end &! --- boy_puts_his_condom ---

!! gs 'dinsex', 'pc_puts_condom'
if $ARGS[0] = 'pc_puts_condom':
	protect = iif(prezik > 0,1,0)
	vidageday -= 1 &! the people guess that you are a bit more older than you are in fact
	! do you have condoms?
	if prezik > 0:
		if rand(1,prezik) <= badprezik: 
			badprezik -= 1
			noprotect = 1
			sexcontra = 7
			*p 'You take your '+iif(preziktype = 2,'sabotaged ','')+ 'condom and put it on <<$xem>> <<dick>> centimeter dick.'
		else
			sexcontra = 3
			*p 'You take your condom and put it on <<$xem>> <<dick>> centimeter dick.'
			noprotect = 0
		end
		prezik -= 1
		sexcontra = iif(preziktype = 2,7,sexcontra) 
	else
		sexcontra = 0
		!! the hormonal contraception is still taken in account
	end
end &! --- pc_puts_condom ---

!! gs 'dinsex','boy_wants_anal' [, $boydesc [, 'lubri']]
if $ARGS[0] = 'boy_wants_anal':
	$bwa_boy = iif($ARGS[1] = '',$boydesc,$ARGS[1])
	if analplugin = 1:
		'<<$bwa_boy>> pulls the plug out of your narrow and tight ass.'
		analplugout = 1
	end
	if $ARGS[2] = 'lubri':
		lubri +=1
		'<<$bwa_boy>> takes a tube of lubricant, squeezes a little on <<$xem>>  palm and rubs your anus.'
		gs 'arousal', 'anal_finger', 1,'lube' 
	else
		if lubri = 0:
			'You have no lube, <<$bwa_boy>> spits on his fingers and using saliva he massages your anus.'
			gs 'arousal', 'anal_finger', 1,'lube' 
		elseif lubri > 0:
			if rand(0,2) = 0: 
				'You take a tube of lubricant and hand it to <<$bwa_boy>>, he squeezes a little on his palm and rubs your anus.'
			elseif rand(0,1) = 0:
				'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 <<$xem>> cock.'
			else
				'You squeeze anal lube on your hand and begin to smear it in your ass. Then you give it to <<$xyr>> and <<$xe>> smears it on <<$xem>> dick'
			end
			gs 'arousal', 'anal_finger', 1,'lube' 
		end
	end
	killvar '$bwa_boy'
end &! --- boy_wants_anal ---

!! gs 'dinsex', 'girl_wants_anal'[, $boydesc [, 'lubri']]
if $ARGS[0] = 'girl_wants_anal':
	$bwa_girl = iif($ARGS[1] = '',$boydesc,$ARGS[1])
	if analplugin = 1:
		'<<$bwa_girl>> pulls the plug out of your narrow and tight ass.'
		analplugin = 0
		analplugout = 1
	end
	if $ARGS[2] = 'lubri':
		lubri +=1
		'<<$bwa_girl>> takes a tube of lubricant, squeezes a little on her palm and rubs your anus.'
		gs 'arousal', 'anal_finger', 1,'lube' 
	else
		if lubri = 0:
			'You have no lube, <<$bwa_girl>> spits on her fingers and using saliva she massages your anus.'
			gs 'arousal', 'anal_finger', 1,'lube' 
		elseif lubri > 0:
			'You take a tube of lubricant and hand it to <<$bwa_girl>>, she squeezes a little on her palm and rubs your anus.'
			gs 'arousal', 'anal_finger', 1,'lube' 
		end
	end
	killvar '$bwa_girl'
end &! --- girl_wants_anal ---

!! gs 'dinsex', 'after_anal','boy',$boydesc
if $ARGS[0] = 'after_anal':
	if analplugout = 1:
		if $ARGS[1] = 'boy':
			analplugin = 1
			'<<$ARGS[2]>> takes your butt plug and he puts it back into your anus. He grins: "Continue your training"' 
		end
		if $ARGS[1] = 'girl':
			analplugin = 1
			'<<$ARGS[2]>> takes your butt plug and she puts it back into your anus. She grins: "Continue your training"' 
		end
		if $ARGS[1] = 'pc':
			analplugin = 1
			'You take your butt plug and put it back into your anus. You grin: "I have to keep my butt trained"' 
		end
		if $ARGS[1] = 'no_plug':
			analplugin = 0
			'You take your butt plug and put it into your purse. Your anus has to rest for a while now.' 
		end
		killvar 'analplugout'
	end
end &! --- after_anal ---

!! replacement of  "dynamic $sexstart2"
!! replacement of  "dynamic $sexstart3"
!! replacement of  "dynamic $sexstart4"
!! 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 $ARGS[0] = 'vaginal_sex':
	frost = 0 &! the sex heats
	if pcs_vag > 0:
		gs 'arousal','vaginal',ARGS[1],$ARGS[2],$ARGS[3],$ARGS[4],$ARGS[5],$ARGS[6],$ARGS[7],$ARGS[8]
		$temp_mens = iif(cycle <= 0,' and menstruation blood leaks from your vagina','')
		if (vgrdif + vltdif) >= 30: 'You groaned in pain when <<$boydesc>> penetrated you, tears flowed from your eyes and it feels like someone drove a red-hot rod in your vagina. You cry and moan while <<$xem>> strong <<dick>> centimeter dick fucks your pussy<<$temp_mens>>.'
		if (vgrdif + vltdif) >= 20 and (vgrdif + vltdif) < 30: 'You bite your lip in pain when <<$boydesc>> entered, it is very painful. You are frowning and moaning in pain while <<$xem>> strong <<dick>> centimeter dick fucks your pussy<<$temp_mens>>.'
		if cycle <= 0: $temp_mens = ' even though' + $temp_mens
		if (vgrdif + vltdif) >= 12 and (vgrdif + vltdif) < 20: 'You winced at the sudden pain when <<$boydesc>> entered, it hurt but gradually it became quite tolerable. You are trying to get aroused while <<$xem>> <<dick>> centimeter dick fucks your pussy<<$temp_mens>>, but you did not succeed.'
		if (vgrdif + vltdif) >= 7 and (vgrdif + vltdif) < 12: 'You are startled by the feeling that your pussy is stretching when <<$boydesc>> entered you. It feels good when <<$xem>> <<dick>> centimeter dick fucks your pussy<<$temp_mens>>.'
		if (vgrdif + vltdif) >=  2 and (vgrdif + vltdif) < 7: 'You are startled by the feeling that your pussy is stretching as <<$boydesc>> enters you. It feels good when <<$xem>> strong <<dick>> centimeter dick fucks your pussy. Gradually a pleasant warmth and some pulsations started building up in your stomach. Then the feeling decreased a little and remained like that until the end<<$temp_mens>>.'
		if (vgrdif + vltdif) >= -3 and (vgrdif + vltdif) < 2: 'You flinched from a pleasant feeling when your pussy is stretched by <<$xem>> dick. It feels good when <<$xem>> <<dick>> centimeter dick fucks your pussy<<$temp_mens>>. Gradually a pleasant warmth and some pulsations started building up in your stomach. Then the feeling became unbearable and your entire body was covered with hot waves of orgasm You scream with pleasure.'
		if (vgrdif + vltdif) <  -3: 'You feel  <<$xem>> penis entering your pussy. This gives you a nice tingling feeling between your legs , but <<$xem>> <<dick>> cm dick  is significantly less than what your pussy needs .This is not enough for you. Gradually a pleasant warmth and some pulsations started building up in your stomach. Then the feeling decreased a little and remained like that until the end<<$temp_mens>>.'
	else
		$temp_mens = iif(cycle <= 0,' and menstruation blood leaks from your vagina','')
		pcs_horny = 0
		pcs_mood -= 15
		pcs_willpwr -= 15
		'You were biting your <<$liptalk>> in pain and tears started to flow from your eyes when <<$boydesc>> penetrated you, breaking your hymen. You moan while crying and <<$xem>> <<dick>> centimeter dick fucks your bloody pussy.'
		gs 'arousal','vaginal',ARGS[1],$ARGS[2],$ARGS[3],$ARGS[4],$ARGS[5],$ARGS[6],$ARGS[7],$ARGS[8]
	end
	killvar '$temp_mens'
end

!! replacement of "dynamic $analsex"
!! replacement of "dynamic $analsex2"
!! replacement of "dynamic $analsexrude"
!! this procedure calls 'cum_call','anus',$boy,1
!! use gs 'dinSex','boy_wants_anal'[,'lubri'] together with gs 'dinsex','analsex'
if $ARGS[0] = 'analsex':
	frost = 0 &! the sex heats
	'<<$boydesc>> tucks a finger into your anus, then a second one .'
	if pcs_ass < 10:'When <<$xec>> inserts three fingers into your ass you groan in pain.'
	if pcs_ass >= 10:'<<$xec>> starts to stretch your anus with three fingers.'
	*p '<<$boydesc>> pulls <<$xem>> fingers out of your ass and you feel '
	if rand(0,1)=0: '<<$xem>> hard cock near your hole.' else '<<$xyr>> pushing <<$xem>> hard cock into your hole.'
	gs 'arousal','anal',ARGS[1],$ARGS[2],$ARGS[3],$ARGS[4],$ARGS[5],$ARGS[6],$ARGS[7],$ARGS[8]
	if (agrdif + altdif) >= 20:'You scream and bit your lip from a sharp pain when <<$xem>> <<dick>> centimeter dick enters your ass.'
	if (agrdif + altdif) <  20:'You moan when <<$xem>> <<dick>> centimeter dick enters your ass.'
	'<<$boydesc>> stops for a moment, giving your ass time to adjust to <<$xem>> cock in it. Then he starts to slowly move, stretching your anus.'

	if (agrdif + altdif) >= 30:
		if pcs_makeup > 1:pcs_makeup = 0
		'You cry and bit your lip when <<dick>> centimeter cock begins to fuck your ass on (! full force !). Your ass feels like it is on fire and all you want is for this torture to be over quickly.'
	elseif (agrdif + altdif) >= 20 and (agrdif + altdif) < 30:
		pcs_horny += 10
		'You start to moan rhythmically in time with <<$xem>> cock''s movements inside you. You feel like your anus is stretched when <<$xem>> penis enters you.'
	end
	'After some time <<$boydesc>> groan and you feel a pleasant warmth filling your ass.'
	gs 'cum_call','anus',$boy,1
end &! --- analsex ---

!! replacement of "dynamic $sexcum"
!! this procedure calls 'cum_call','',$boy,1
!! use gs 'dinsex','sexcum'
if $ARGS[0] = 'sexcum':
	frost = 0
	if protect ! 1:
		!!Unprotected sex
		if rand(0, 1) = 0 or pose = 3:
			cumvag_text = RAND(0,2)
			if cumvag_text = 0: '<<$xemc>> movements speed up and <<$xe>> drives <<$xem>> cock balls deep into you. With a beatific smile, <<$xe>> cums deep inside you. You feel a warm jet pour into your womb.'
			if cumvag_text = 1: '<<$xec>> does not pull out and instead pulls you tightly against <<$xyr>> and your pussy is filled with splashes of semen.'
			if cumvag_text = 2: '<<$xec>> groans, and you feel a jet of sperm hit you inside your body.'
			gs 'cuminsidereact', $boydesc
		else
			!!Out
			if pose = 0:
				spafinloc = 14
				'<<$boydesc>> groaned and after pulling out <<$xem>> dick, <<$xe>> came on your stomach.'
				gs 'cum_call','stomach',$boy,1
			elseif pose = 1:
				'<<$boydesc>> groaned and after pulling out <<$xem>> dick, <<$xe>> came on your ass.'
				gs 'cum_call','butt',$boy,1
			end
		end
	else
		$tmp = iif(sexcontra = 7,'sabotaged ','')
		'<<$boydesc>> groaned and you realized that <<$xe>> ejaculated in the <<$tmp>>condom.'
		if sexcontra = 4:
			'Pulling out of you and looking at <<$xem>> dick, <<$boydesc>> said "Hmm, the condom burst."'
		elseif sexcontra = 5:
			'Pulling out of you and looking at <<$xem>> dick, <<$boydesc>> said "Hmm, the condom is missing."'
		end
		eff_contra = sexcontra
		gs 'cum_call','',$boy,1
		
		gs 'cuminsidereact',$boydesc, eff_contra
		protect = 0
	end
	pose = 0
	killvar 'eff_contra'
end &! --- sexcum ---

!! replacement of "dynamic $dinrandbj"
!! use gs 'dinsex','dinrandbj'
!! phrases rewrited by Filicophyte 
if $ARGS[0] = 'dinrandbj':
	tperbjran = rand(0, 3)
	if tperbjran = 0:$tperbj = 'You wrap your <<$liptalk>> around <<$xem>> <<dick>>cm member.'
	if tperbjran = 1:$tperbj = 'Your <<$liptalk>> engulf the purple head of <<$xem>> <<dick>>cm member.'
	if tperbjran = 2:$tperbj = 'You plant your <<$liptalk>> on the bulbous tip of <<$xem>> <<dick>>cm cock and greedily slide your mouth down along <<$xem>> throbbing maleness.'
	if tperbjran = 3:$tperbj = 'The <<dick>> centimeters dick rests between your <<$liptalk>> then you slightly part them and allow the delicious invador to slide into your mouth.'

	tperbjran = rand(0, 2)
	if tperbjran = 0:$tperbj2 = 'You give <<$xem>> face a sultry look while <<$xem>> cock rests in your mouth then you greedily lean forwards, taking <<$xem>> tasty penis deeper in your mouth and lustfully start to bob your head back and forth along <<$xem>> <<dick>>cm tool.'
	if tperbjran = 1:$tperbj2 = 'You playfully roll your tongue around the engorged boner and start giving one hell of a blowjob, swallowing the whole length down your throat and making lewd slurping noises everytime you hilt.'
	if tperbjran = 2:$tperbj2 = 'That hard cock between your <<$liptalk>> is definitely yummy! 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, you grin and relax your muscles to let it in, deepthroating this <<dick>>cm cock like there''s no tomorrow.'
	'<<$tperbj>> <<$tperbj2>>'
	killvar 'tperbjran'
	killvar '$tperbj2'
	killvar '$tperbj'
end &! --- dinrandbj ---

!! replacement of "dynamic $dinrandswallow"
!! use gs 'dinsex','dinrandswallow'
!! phrases rewrited by Filicophyte 
if $ARGS[0] = 'dinrandswallow':
	tperswalrand = rand(0, 2)
	if tperswalrand = 0:$tperswal = 'Suddenly, your mouth is filled with a viscous load of semen.'
	if tperswalrand = 1:$tperswal = 'The cock twitches and jets of sperm flew between your lips into your greedy mouth.'
	if tperswalrand = 2:$tperswal = 'Your mouth is filled with warm and sticky sperm and you lovingly close your <<$liptalk>> around the drained member to suck it clean.'
	tperswalrand = rand(0, 2)
	if tperswalrand = 0:$tperswal2 = 'Your mouth is quickly filled with warm sperm and you smile as you gulp it down and enjoy the sharp taste.'
	if tperswalrand = 1:$tperswal2 = 'Your mouth is filled with cum which messily runs out on your <<$liptalk>> and falls on the floor.'
	if tperswalrand = 2:$tperswal2 = 'Hot seed fills your mouth making you smile with pride before you greedily swallow the salty load.'
	tperswalrand = rand(0, 2)
	if tperswalrand = 0:$tperswal3 = 'You gulp down and swallow the sperm filling your mouth, the taste remains intact and you lean forward to plant a tender kiss on that freshly milked cock.'
	if tperswalrand = 1:$tperswal3 = 'You swallow the warm cum that fills your mouth and greedily lick the sticky leftovers with your tongue.'
	if tperswalrand = 2:$tperswal3 = 'You swallow the viscous semen that is filling your mouth, then lick the softening member clean.'
	'<<$tperswal>> <<$tperswal2>> <<$tperswal3>>'
	killvar 'tperswalrand'
	killvar '$tperswal'
	killvar '$tperswal2'
	killvar '$tperswal3'
end &! --- dinrandswallow ---

!! use gs 'dinsex','enema'
if $ARGS[0] = 'enema':
	cumspclnt = 7
	gs 'cum_cleanup'
	minut += 5
	klismaday = daystart
	klismaday1= 1
	if $ARGS[1]='':
		*p 'You give yourself an enema, feeling clean down there. Your ass is now ready for anal sex without any awkward surprises.'
	elseif $ARGS[1]!' ': 
		*p '<<$ARGS[1]>>'
	end
end &! --- enema ---

--- dinSex ---------------------------------