glife/locations/dinSex.qsrc

# dinSex



$dinrandbj = {
	tperbjran = rand(0, 3)
	if tperbjran = 0:$tperbj = 'Your <<$liptalk>> wraps around <<$xyr>> <<dick>> centimeter member'
	if tperbjran = 1:$tperbj = 'Your <<$liptalk>> clasps <<$xyr>> the purple head of the <<dick>> centimeter member'
	if tperbjran = 2:$tperbj = 'You hold your <<$liptalk>> on the head of <<$xyr>> <<dick>> centimeter member and pull it into your mouth'
	if tperbjran = 3:$tperbj = 'The <<dick>> centimeter dick rests between your <<$liptalk>>, you open 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 opens and is filled by a slightly salty and hard cock, which you start to suck.'
	if tperbjran2 = 1:$tperbj2 = 'The big cock inside your mouth grows hard and hot, and you start 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 shots of viscous semen fill your mouth.'
	if tperswalrand = 1:$tperswal = 'The cock twitches and jets of sperm fly between your lips into your mouth.'
	if tperswalrand = 2:$tperswal = 'Your mouth is filled with sperm and you move back to allow the dick to slide out.'
	tperswalrand2 = rand(0, 2)
	if tperswalrand2 = 0:$tperswal2 = 'Your mouth quickly fills with warm sperm and you feel its sharp taste.'
	if tperswalrand2 = 1:$tperswal2 = 'Your mouth fills with cum and begins to run down your <<$liptalk2>>'
	if tperswalrand2 = 2:$tperswal2 = 'Hot seed quickly fills your mouth, making you experience the whole stale and sharp taste of sperm.'
	tperswalrand3 = rand(0, 2)
	if tperswalrand3 = 0:$tperswal3 = 'You gulp and swallow the sperm filling your mouth. The taste of semen stays in your mouth and you can smell <<$xyr>> 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 a single 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>> take your sabotaged condom and put it on <<$xyr>> <<dick>> centimeter member.'
		else
			sexcontra = 3
			'<<$boydesc>> take your condom and put it on <<$xyr>> <<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 <<$xyr>> <<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 - <<$xyr>> 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 groan in pain when <<$boydesc>> penetrates your pussy. Tears flow from your eyes and it feels like someone drove a red-hot poker in your vagina. You cry and moan while <<$xyr>> 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>> enters, it is very painful. You frown and moan in pain while <<$xyr>> 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 wince at the sudden pain when <<$boydesc>> enters, it hurts but it gradually becomes quite tolerable. You are trying to get aroused while <<$xyr>> <<dick>> centimeter dick fucks your pussy, but you do not succeed.'
		elseif orgazm = 3:
			pcs_mood += 5
			pcs_willpwr += 5
			'You are startled by the feeling that your pussy is stretching when <<$boydesc>> enters you. It feels good when <<$xyr>> <<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>> enters you. It feels good when <<$xyr>> strong <<dick>> centimeter dick fucks your pussy. Gradually a pleasant warmth and some pulsations started building up in your stomach. Then the feeling decreases a little and remains 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 <<$xyr>> dick. It feels good when <<$xyr>> <<dick>> centimeter dick fucks your pussy. Gradually a pleasant warmth and some pulsations started building up in your stomach. Then the feeling becomes unbearable and your entire body is 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 <<$xyr>> penis entering your pussy. This feels nice between your legs, but <<$xyr>> <<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 decreases a little and remains like that until the end.'
		end
		if pcs_vag = 0:
			pcs_horny = 0
			pcs_mood -= 15
			pcs_willpwr -= 15
			pcs_vag += 1
			'You are biting your <<$liptalk>> in pain and tears start to flow from your eyes when <<$boydesc>> enters, breaking your hymen. You moan while crying and <<$xyr>> <<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 <<$xyr>> dick. This is giving you painful and pleasant sensations .You moan while <<$xyr>> 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 groan in pain as <<$boydesc>> penetrates your pussy. Tears flow from your eyes and it feels like someone drove a red hot poker in your vagina. You cry and moan while <<$xyr>> 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 as feel <<$boydesc>>''s cock entering you. It really hurts between your legs. You are frowning and moaning in pain while moving 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 wince at the sudden pain as you feel the penis of <<$boydesc>> entering you.  The pain between your legs gradually disappears and it becomes quite tolerable. You are trying to get aroused while rhythmically moving on <<$xyr>> 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 as you lower yourself on the cock of <<$boydesc>> and you can feel him entering you. Between your legs you get a little nice feeling as you move up and down on a strong <<dick>> centimeter penis.'
		elseif orgazm = 4:
			pcs_horny += 10
			pcs_mood += 10
			pcs_willpwr += 10
			'You try to enjoy the unique feeling of your pussy being stretched as you lower yourself on the <<$boydesc>>''s cock and you feel him entering you. Between your legs you get a little nice feeling as 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 decreases a little and remains like that until the end.'
		elseif orgazm = 5:
			pcs_horny = 0
			pcs_mood += 15
			pcs_willpwr += 15
			orgasm += 1
			vaginalOrgasm += 1
			'You flinch from a pleasant feeling as your pussy is stretched by <<$xyr>> dick. Between your legs you are getting a very warm and pleasant feeling as you move up and down on the strong <<dick>> centimeter penis. Gradually a pleasant warmth and some pulsations start building up in your stomach. Then the feeling becomes unbearable and your entire body is 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 <<$xyr>> penis entering your pussy. This feels nice between your legs, but <<$xyr>> <<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 decreases a little and remains like that until the end.'
		end
		if pcs_vag = 0:
			pcs_horny = 0
			pcs_mood -= 15
			pcs_willpwr -= 15
			pcs_vag += 1
			'You are biting your <<$liptalk>> in pain and tears start to flow from your eyes as <<$boydesc>> enters you, breaking your hymen. You moan while crying and <<$xyr>> <<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 <<$xyr>> dick into you. Vaginal blood flows slowly out of your pussy. You are experiencing both painful and pleasant sensations. You moan while the 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 groan in pain when <<$boydesc>> penetrates your pussy. Tears flow from your eyes and it feels like someone drove a red hot poker into your vagina. You cry and moan while <<$xyr>> 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>> penetrates 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>> penetrates 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 flinch from the feeling that your pussy is being stretched, when <<$boydesc>> penetrates 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 flinch from the feeling that your pussy is being stretched when <<$boydesc>> penetrates 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 decreases a little and remains 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 as it starts 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 is covered with hot waves of orgasm, you scream with pleasure.'
		elseif orgazm = 6:
			pcs_horny += 5
			pcs_mood += 5
			pcs_willpwr += 5
			'You feel <<$xyr>> penis entering your pussy. This feels nice between your legs, but <<$xyr>> <<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 decreases a little and remains 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 start to flow from your eyes when <<$boydesc>> enters you, breaking your hymen. You moan while crying and <<$xyr>> <<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: '<<$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.'
			if cumvag_text = 1: '<<$xec>> does not pull out and instead pulls you tightly against <<$xem>> 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>> groans and after pulling out <<$xyr>> dick, <<$xe>> cums on your stomach.'
			elseif pose = 1:
				spafinloc = 4
				'<<$boydesc>> groans and after pulling out <<$xyr>> dick, <<$xe>> cums on your ass.'
			end
		end
		gs 'Cum_Manage'
	elseif protect = 1:
		$tmp = ''
		if sexcontra = 7: $tmp = 'sabotaged '
		'<<$boydesc>> groans and you realize that <<$xe>> came in the <<$tmp>>condom.'
		gs 'Cum_Manage'
		if sexcontra = 4:
			'Pulling out of you and looking at <<$xyr>> dick, <<$boydesc>> says "Hmm, the condom burst."'
		elseif sexcontra = 5:
			'Pulling out of you and looking at <<$xyr>> dick, <<$boydesc>> says "What the fuck? 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: '<<$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.'
			if cumvag_text = 1: '<<$xec>> does not pull out and instead pulls you tightly against <<$xem>> 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 <<$xyr>> cock out of you and cums on your stomach.'
			elseif pose = 1:
				spafinloc = 4
				'<<$shultextrand33>> groans and pulls <<$xyr>> 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 <<$xyr>> cock out of you and, looking at <<$xyr>> dick, <<$shultextrand33>> says "Hmm, the condom burst."'
		elseif sexcontra = 5
			'Pulls <<$xyr>> cock out of you and, looking at <<$xyr>> dick, <<$shultextrand33>> says "What the fuck? 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>> pulls out your ass plug'
	end

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

	if pcs_ass < 10:'<<$xec>> inserts three fingers into your ass and you groan in pain.'
	if pcs_ass >= 10:'<<$xec>> starts to stretch your anus with three fingers.'
	'<<$boydesc>> pulls <<$xyr>> fingers out of your ass and you feel <<$xyr>> hard cock near your hole.'
	if pcs_ass + lubonus + 10 < dick:'You scream and bite your lip from a sharp pain when <<$xyr>> <<dick>> centimeter dick enters your ass.'
	if pcs_ass + lubonus + 10 >= dick:'You moan when <<$xyr>> <<dick>> centimeter dick enters your ass.'
	'<<$boydesc>> stops for a moment, giving your ass time to adjust to <<$xyr>> cock in it, and then starts 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 cry and bite your lip when <<dick>> centimeter cock begins to fuck your ass full force. Your ass feels like it is on fire and all you want is 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 <<$xyr>> cock''s movements inside you. You feel your anus stretching when <<$xyr>> 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 <<$xyr>> dick moves inside your ass.'
			end
		end
	end
	lubonus = 0
	'After some time <<$boydesc>> groans 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>> pulls your butt plug out of your narrow and tight ass.'
	end
	if dick >= pcs_ass:pcs_ass += 3
	'<<$boydesc>> begins to massage your anus with <<$xyr>> fingers.'

	!!!WD: Replaced
	!!if lubri > 0:
	!!!
	if lubonus = 0 and lubri > 0:
	!!!
	lubri -= 1
	lubonus += rand(1, 5)
	'You squeeze anal lube on your hand and begin to smear it in your ass. Then you gave the guy a tube and <<$xe>> starts lucricating <<$xyr>> cock.'
	end
	if pcs_ass < 10:'When <<$xe>> enters three fingers in your ass you groan in pain.'
   	if pcs_ass >= 10:'<<$xec>> started to stretch your anus with three fingers.'
	'<<$boydesc>> pulls <<$xyr>> fingers out of your ass and you feel <<$xyr>> hard cock near your hole.'
	!!!WD: Added lubonus
	if pcs_ass + lubonus + 10 < dick:'You scream and bit your lip from a sharp pain as <<$xyr>> <<dick>> centimeter dick enters your ass.'
	if pcs_ass + lubonus + 10 >= dick:'You moan as <<$xyr>> <<dick>> centimeter dick enters your ass.'
	!!!
	'<<$boydesc>> stops for a moment, giving your ass time to adjust to <<$xyr>> cock in it. Then he starts 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 cry and bite your lip as <<dick>> centimeter cock begins to fuck your ass on with <<$xyr>> full force. Your ass feels like it is on fire and all you want is 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 <<$xyr>> cock inside you. You can feel your anus stretching as <<$xyr>> 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 <<$xyr>> dick moves inside your ass.'
			end
		end
	end

	lubonus = 0
	'After some time <<$boydesc>> groans 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>> pulls your butt plug out of your narrow and tight ass.'
	end

	if dick >= pcs_ass:pcs_ass += 3
	'<<$boydesc>> tucks a finger into your anus, then a second one.'
	if pcs_ass < 10:'When <<$xe>> enters three fingers in your ass you groan in pain.'
	if pcs_ass >= 10:'<<$xec>> started to stretch your anus with three fingers.'
	'<<$boydesc>> pulls <<$xyr>> fingers out of your ass and you feel <<$xyr>> pushing his hard cock into your hole.'
	if pcs_ass + lubonus + 10 < dick:'You scream and bite your lip from a sharp pain when <<$xyr>> <<dick>> centimeter dick enters your ass.'
   	if pcs_ass + lubonus + 10 >= dick:'You moan when <<$xyr>> <<dick>> centimeter dick enters your ass.'
	'<<$boydesc>> stops for a moment, giving your ass time to adjust to <<$xyr>> cock in it. Then he starts 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 cry and bite your lip when <<dick>> centimeter cock began 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 pcs_ass + lubonus + 2 >= dick:
		pcs_horny += 10
		if agape < 2 and lubonus = 0:agape = 2
		'You start to moan rhythmically, following the movements of <<$xyr>> cock inside you. You can feel your anus stretching when <<$xyr>> 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 <<$xyr>> dick moves inside your ass.'
			end
		end
	end

	lubonus = 0
	spafinloc = 3
	gs 'Cum_Manage'
	'After some time <<$boydesc>> groan 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 <<$xyr>> <<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 <<$xyr>> <<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 <<$xyr>> <<dick>> centimeter dick.'
		else
			sexcontra = 3
			*p 'You take your condom and put it on <<$xyr>> <<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 <<$xyr>>  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 <<$xyr>> cock.'
			else
				'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'
			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 groan in pain when <<$boydesc>> penetrates you, tears flowed from your eyes and it feels like someone drove a red hot poker in your vagina. You cry and moan while <<$xyr>> 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>> enters, it is very painful. You are frowning and moaning in pain while <<$xyr>> 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>> enters, it hurt but gradually it became quite tolerable. You are trying to get aroused while <<$xyr>> <<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>> enters you. It feels good when <<$xyr>> <<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 <<$xyr>> 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 remains 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 <<$xyr>> dick. It feels good when <<$xyr>> <<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 is covered with hot waves of orgasm You scream with pleasure.'
		if (vgrdif + vltdif) <  -3: 'You feel  <<$xyr>> penis entering your pussy. This gives you a nice tingling feeling between your legs , but <<$xyr>> <<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 remains 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>> penetrates you, breaking your hymen. You moan while crying and <<$xyr>> <<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 <<$xyr>> fingers out of your ass and you feel '
	if rand(0,1)=0: '<<$xyr>> hard cock near your hole.' else '<<$xem>> pushing <<$xyr>> 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 bite your lip from the sharp pain when <<$xyr>> <<dick>> centimeter dick enters your ass.'
	if (agrdif + altdif) <  20:'You moan when <<$xyr>> <<dick>> centimeter dick enters your ass.'
	'<<$boydesc>> stops for a moment, giving your ass time to adjust to <<$xyr>> 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 bite 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 <<$xyr>> cock''s movements inside you. You feel like your anus is stretched when <<$xyr>> 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: '<<$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.'
			if cumvag_text = 1: '<<$xec>> does not pull out and instead pulls you tightly against <<$xem>> 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
			gs 'cum_call','',$boy,1
		else
			!!Out
			if pose = 0:
				spafinloc = 14
				'<<$boydesc>> groans and after pulling out <<$xyr>> dick, <<$xe>> came on your stomach.'
				gs 'cum_call','stomach',$boy,1
			elseif pose = 1:
				'<<$boydesc>> groans and after pulling out <<$xyr>> dick, <<$xe>> came on your ass.'
				gs 'cum_call','butt',$boy,1
			end
		end
	else
		$tmp = iif(sexcontra = 7,'sabotaged ','')
		'<<$boydesc>> groans and you realized that <<$xe>> ejaculated in the <<$tmp>>condom.'
		if sexcontra = 4:
			'Pulling out of you and looking at <<$xyr>> dick, <<$boydesc>> said "Hmm, the condom burst."'
		elseif sexcontra = 5:
			'Pulling out of you and looking at <<$xyr>> dick, <<$boydesc>> said "Fuck! 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 wraps your <<$liptalk>> around <<$xyr>> <<dick>>cm member.'
	if tperbjran = 1:$tperbj = 'Your <<$liptalk>> engulf the purple head of <<$xyr>> <<dick>>cm member.'
	if tperbjran = 2:$tperbj = 'You plant your <<$liptalk>> on the bulbous tip of <<$xyr>> <<dick>>cm cock and greedily slide your mouth down along <<$xyr>> 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 <<$xyr>> face a sultry look while <<$xyr>> cock rests in your mouth then you greedily lean forwards, taking <<$xyr>> tasty penis deeper in your mouth and lustfully start to bob your head back and forth along <<$xyr>> <<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 ---------------------------------