glife/locations/dinSex

# dinSex

$universalklient = {
	if klient_needs = 0:$klientwanttext = 'blow job'
	if klient_needs = 1 or klient_needs = 3 or klient_needs = 4:$klientwanttext = 'sex'
	if klient_needs = 2:$klientwanttext = 'anal'
	if klient_needs = 5:$klientwanttext = 'Cooney'
	'<center><img <<$set_imgh>> src="images/locations/city/centralpark/park2.jpg"></center>'
	'You said client, that <<$klientwanttext>> It will cost <<ProsMoney*100>> <b>₽</b>.'
	dynamic $dinprostable
	if vnpr >= 0:
		if ProsMoney = 1:
			clientPRyes = 1
		end
		if ProsMoney > 1:
			if KlientMON >= ProsMoney:
				if vnpr >= klienVNPR:
					clientPRyes = 1
				else
					clientPRyes = 0
				end
			elseif KlientMON < ProsMoney:
				if vnpr >= klienVNPR:
					torgklirand = RAND(0,1)
					if torgklirand = 0:
						clientPRyes = 0
					elseif torgklirand = 1:
						'Customer grins and offers <<KlientMON*100>> <b>₽</b> for the job.'
						act 'Agree':
							cla
							clientPRyes = 1
							ProsMoney = KlientMON
							dynamic $dinklient
						end
						act 'Takeout':gt'prostitute','start'
						exit
					end
				else
					clientPRyes = 0
				end
			end
		end
	end
	if vnpr < 0:clientPRyes = 0
	dynamic $dinklient
}

$dinprostable = {
	vnpr = 0
	if vidage >= 40:vnpr -= 20
	if vidage >= 35 and vidage < 40:vnpr -= 10
	if vidage >= 30 and vidage < 35:vnpr -= 5
	if vidage >= 25 and vidage < 30:vnpr += 1
	if vidage >= 20 and vidage < 25:vnpr += 5
	if vidage >= 18 and vidage < 20:vnpr += 10
	if vidage < 18:vnpr += 15
	if pcs_apprnc = -10:
		vnpr -= 100
	elseif pcs_apprnc < 20:
		vnpr -= 10
	elseif pcs_apprnc < 60:
		vnpr -= 5
	elseif pcs_apprnc < 120:
		vnpr += 1
	elseif pcs_apprnc < 200:
		vnpr += 5
	else
		vnpr += 10
	end
	if cumSUM > 0:vnpr -= 10
	if pcs_makeup = 0:vnpr -= 10
	if pcs_makeup = 1:vnpr -= 1
	if pcs_makeup = 2:vnpr += 1
	if pcs_makeup = 3:vnpr += 5
	if pcs_makeup = 4:vnpr += 10
	if pcs_leghair <= 3:vnpr += 1
	if pcs_leghair > 3:vnpr -= 5
	if pcs_pubes > 3:vnpr -= 5
	if pcs_pubes <= 3:vnpr += 1
	if pcs_tan > 0:vnpr += 1
	if curly > 0:vnpr += 1
	if pcs_sweat > 19 :
		vnpr -= 10
	elseif pcs_sweat < 10 :
		vnpr += 1
	end
	if pcs_hairbsh = 0:vnpr -= 1
	if pcs_lip = 4:vnpr += 1
	!max. 40
	!minimum -161
}

$dinklient = {
	if clientPRyes = 1:
		'The client nods <<$xem>> head and you open the door of <<$xem>> car.'
		if klient_needs = 0:dynamic $din_prost_bj
		if klient_needs = 1:dynamic $din_prost_sex
		if klient_needs = 2:dynamic $din_prost_anal
		if klient_needs = 3:dynamic $whore_event_1
		if klient_needs = 4:dynamic $whore_event_2
		if klient_needs = 5:dynamic $whore_event_3
	elseif clientPRyes = 0:
		'Customer meticulously examined you and said, "No fucking way." Then <<$xe>> started the car and drove away.'
		act 'Leave':gt'prostitute','start'
	end
}

$din_prost_bj = {
	act 'Going to the client machine':
		vidageday -= 5
		gs 'npcgeneratec', 0, 'stranger', rand(19,45)
		gs 'boyStat', $npclastgenerated
		slutty += 1
		dick = RAND(12,21)
		money += ProsMoney*100
		gt'blowPR','start'
	end
}

$din_prost_sex = {
	act 'Going to the client machine':
		vidageday -= 10
		gs 'npcgeneratec', 0, 'stranger', rand(19,45)
		gs 'boyStat', $npclastgenerated
		dick = RAND(12,21)
		money += ProsMoney*100
		prosti = 1
		slutty += 1
		gt'blowPR','start'
	end
}

$din_prost_anal = {
	act 'Going to the client machine':
		vidageday -= 20
		gs'boy'
		prosti = 2
		analprotect = 0
		slutty += 1
		gt'blowPR','start'
	end
}

$whore_event_1={
	act'Work':
		cla
		*clr
		gs 'npcgeneratec', 0, 'Fat Prostitution Client', rand(19,45)
		gs 'boyStat', $npclastgenerated
		cumprecheck = 1
		gs 'Cum_Manage'
		spafinloc = 14
		gs 'Cum_Manage'
		slutty+=1
		money += ProsMoney*100
		gs'stat'
		'<center><img <<$set_imgh>> src="images/locations/city/centralpark/sex/whore.event0.jpg"></center>'
		'Out of the car climbed a group of men. One of them, fatso, toward you.'
		'"Greasy, go, fuck, fuck you asked to stop?" - one of them shouted to a peasant, Right for you.'
		'The fat man stopped, and turned back to the car: - "SchA, men. I want to fuck - I can not. SchA slut fuck on-quickly and correctly.'
		'<<$xec>> came to you, <<$xec>> took her hand and led her to the car. There <<$xe>> laid you on the hood and fucked. <<$xec>> did not hold out for long time. Poelozit few minutes of your pussy, <<$xec>> pulled out a member and finished on your stomach.'
      
		act'Leave':gt'prostitute','start'
	end
}

$whore_event_2={
	act'Work':
		cla
		*clr
		slutty+=1
		gs 'npcgeneratec', 0, 'Prostitution Client', rand(19,45)
		gs 'boyStat', $npclastgenerated
		cumprecheck = 1
		gs 'Cum_Manage'
		spafinloc = 4
		gs 'Cum_Manage'
		gs 'npcgeneratec', 0, 'Prostitution Client', rand(19,45)
		gs 'boyStat', $npclastgenerated
		spafinloc = 12
		gs 'Cum_Manage'
		money += ProsMoney*100
		gs'stat'
		'<center><img <<$set_imgh>> src="images/locations/city/centralpark/sex/whore.event1.jpg"></center>'
		'"Shit, Th these bitches think of themselves. And stupidly took prodinamili" - You have heard of the stopped car'
		'"Yes fucked, you might think - beauty queen found. Okay, Goh, go though slut fuck. And eggs have stone." - There was a second voice.'
		'To you approached two men. We quickly agreed on a price, you stood beside the car with cancer. One of the guys came right back and put your cock in pussy. Second went to your face and gave <<$xem>> cock you for Servicing.'
		'After ten minutes the boys had finished: I finished first in your mouth, and the other on the ass.'
		act'Leave':gt'prostitute','start'
	end
}

$whore_event_3={
	act'Work':
		cla
		*clr
		slutty+=1
		money += ProsMoney*100
		gs'stat'
		'<center><img <<$set_imgh>> src="images/locations/city/centralpark/sex/whore.event2.jpg"></center>'
		'From stop the car came a woman''s hand, kotoryya beckoned you closer.'
		'When you come, A woman came out of the car.'
		'"Chet, I am tired of the day. Take me stress" - she said, and lifted her skirt.'
		'You began to lick her crotch, alternately inserting fingers in her pussy, in poku. Lastly, woman broke down and finished, showering you with their juices.'
		act'Leave':gt'prostitute','start'
	end
}

$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>> purple head <<dick>> centimeter member'
	if tperbjran = 2:$tperbj = 'You held your <<$liptalk>> on the head of <<$xem>> <<dick>> centimeter member and pulled into your mouth'
	if tperbjran = 3:$tperbj = 'The <<dick>> centimeter dick rested in your <<$liptalk>>, you have slightly opened them 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 turned and was filled by a slightly salty and hard cock, which you started to suck.'
	if tperbjran2 = 1:$tperbj2 = 'The <<dick>> 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 when your lips began to close between 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 tart taste of sperm.'
	tperswalrand3 = rand(0, 2)
	if tperswalrand3 = 0:$tperswal3 = 'You gulped and swallowed the sperm located in your mouth. In the mouth, the taste of semen stayed and felt <<$xem>> scent.'
	if tperswalrand3 = 1:$tperswal3 = 'You swallow the warm cum that fills your mouth and licks the remnants of the seed with your <<$liptalk3>>.'
	if tperswalrand3 = 2:$tperswal3 = 'You swallow the viscous semen that is filling your mouth, and then licks.'
	'<<$tperswal>> <<$tperswal2>> <<$tperswal3>>'
}

$dinrandfacial = {

}

$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
}

$veneradinitog = {
	if cheatHealth = 0:
		if tipvenerarand = 8:
			!!herpes
			if rand(1, 100) > 90:
				if GerpesOnce = 0:
					GerpesOnce = 1
					Venera += 1
					Gerpes += 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, 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.'
		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 hurted but it gradually become 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 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 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 pulsations is increasing in the abdomen, then the feeling decreases a little and remained 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 pulsations is increasing in the lower abdomen,the feeling then descend and your entire body covered with hot waves of orgasm, you scream with pleasure.'
		elseif orgazm = 6:
			pcs_horny += 5
			pcs_mood += 5
			pcs_willpwr += 5
			'You feel as <<$xem>> penis enters your pussy.You feel nice between your legs , but <<$xem>> <<dick>> cm dick is significantly less than your pussy and not enough for you. Gradually a pleasant warmth and pulsations is increasing in the abdomen, then the feeling a decreases a little and remained until the end.'
		end
		if pcs_vag = 0:
			pcs_horny = 0
			pcs_mood -= 15
			pcs_willpwr -= 15
			pcs_vag += 1
			'You have bitten 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 follows from the vagina while you jump on <<$xem>> dick.Having 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, 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.'
		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 like a dick of <<$boydesc>> entered into you, feeling pain between your legs. You are frowning and moaning in pain while jumping on 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 sat on and felt like a member of <<$boydesc>> has entered into you, between your legs the pain gradually become calm and quite tolerable.You are trying to get aroused and still jumping on <<$xem>> sturdy and strong <<dick>> centimeter to fuck 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 sat on and felt like a cock of <<$boydesc>> has entered into you. Between the legs you get a little nice feeling when you jump 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 sat on and felt like a member of <<$boydesc>> has entered into you. Between the legs gets a little nice feeling when you jump on strong <<dick>> centimeter penis.Gradually a pleasant warmth and pulsations is increasing in the abdomen, then the feeling a decreases a little and remained 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 stretched starting on taking a dick. Between the legs becomes very warm and pleasant when you jump on the strong <<dick>> centimeter penis. Gradually a pleasant warmth and pulsations is increasing in the abdomen, the feelingthen descend to you and your entire body covered hot waves of orgasm, you involuntarily scream with pleasure writhing on edge.'
		elseif orgazm = 6:
			pcs_horny += 5
			pcs_mood += 5
			pcs_willpwr += 5
			'You feel as <<$xem>> penis enters your pussy.You feel nice between your legs , but <<$xem>> <<dick>> cm dick is significantly less than your pussy and not enough for you. Gradually a pleasant warmth and pulsations is increasing in the abdomen, then the feeling a decreases a little and remained until the end.'
		end
		if pcs_vag = 0:
			pcs_horny = 0
			pcs_mood -= 15
			pcs_willpwr -= 15
			pcs_vag += 1
			'You have bitten 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 menstruated and yet <<$xe>> rams <<$xem>> dick into you, vaginal blood flows slowly. You have both painfull 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, tears flowed from your eyes, and between the legs you had a feeling as if you drove a red-hot rod into your pussy. You cry and moan while a 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 feel pain between the 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, feeling pain between the legs, which gradually settle down and become quite tolerable. You are trying to be excited 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 have a little nice sensation between the 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 have a little nice sensation between the legs while a strong <<dick>> centimeter dick fucks your pussy. Gradually a pleasant warmth and pulsations is increasing in the abdomen, then the feeling a decreases a little and remained 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 very warm and throbbing feeling grow in the lower abdomen, then feeling descend into you and your entire body was covered into hot waves of orgasm, you involuntarily shout of pleasure writhing on edge. '
		elseif orgazm = 6:
			pcs_horny += 5
			pcs_mood += 5
			pcs_willpwr += 5
			'You feel as a dick gets into your pussy, when <<$boydesc>> penetrated. You have a nice feeling between your legs, but a <<dick>> centimeters dick is too small for your pussy. Gradually a pleasant warmth and throbbing feeling grow in the lower abdomen, then feeling slightly reduced and remain until the end. '
		end
		if pcs_vag = 0:
			pcs_horny = 0
			pcs_mood -= 15
			pcs_willpwr -= 15
			pcs_vag += 1
			'You have bitten 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'
}

$sexudo = {
	protect = 0
	vidageday -= 1
	frost = 0
	if tabletki <= 0 and prezik > 0:
		dynamic $prezik
		protect = 1
		if preziktype = 2:
			sexcontra = 7
			'<<$boydesc>> took a sabotaged condom and put it on <<$xem>> <<dick>> centimeter cock.'
		else
			sexcontra = 3
			'<<$boydesc>> took a condom and put it on <<$xem>> <<dick>> centimeter cock.'
		end
	else
		sexcontra = 0
	end
	if cycle <= 0:
		!!periods, orgasm is not possible
		pcs_horny = 0
		pcs_mood -= 10
		pcs_willpwr -= 10
		'You are menstruated and yet <<$xe>> rams <<$xem>> dick inside you, menstruation blood flows slowly. You have both painful and pleasant sensations. You moan while <<$xem>> strong <<dick>> centimeter dick fucks your pussy.'
	elseif cycle > 0 and pcs_vag > 0:
		!!no monthly
		!!horny - arousal
		!!pcs_vag - elasticy of the vagina
		!!silavag - skill man 0-sad sack, 1-middle pleasant 2-stud
		!!dick - рenis man
		!!orgazm - Total coefficient of pleasure
		!!0 - very painful, 1 - it hurts, 2 - not nice, 3 - so-so, 4 - needoorgazm 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:
			pcs_horny = 0
			pcs_mood -= 15
			pcs_willpwr -= 15
			if vgape < 3:vgape = 3
			'You groaned in pain when <<$boydesc>> entered inside you, tears flowed from your eyes, and you have a feeling between your legs as if you drove a red-hot rod inside your pussy. You cry and moan while <<$xem>> strong <<dick>> centimeter dick fucks your pussy.'
		elseif orgazm = 1:
			pcs_horny -= 10
			pcs_mood -= 10
			pcs_willpwr -= 10
			if vgape < 2:vgape = 2
			'You bite your lip in pain when <<$boydesc>> put <<$xem>> dick inside you, having a painful feeling between your legs. You are frowning and moaning in pain while <<$xem>> strong <<dick>> centimeter dick fucks your pussy.'
		elseif orgazm = 2:
			pcs_horny -= 5
			pcs_mood -= 5
			pcs_willpwr -= 5
			if vgape < 1:vgape = 1
			'You winced at the sudden pain when <<$boydesc>> entered your pussy, feeling pain between your legs, that gradually become calm and quite tolerable. You were trying to get aroused while strong <<dick>> centimeter dick fucks your pussy, but you could not succeed.'
		elseif orgazm = 3:
			pcs_horny += 5
			pcs_mood += 5
			pcs_willpwr += 5
			'You are startled by the feeling that your pussy is being stretched when <<$boydesc>> penetrated. Having a little pleasant feeling between the legs when <<$xem>> strong <<dick>> centimeter dick fucks your pussy.'
		elseif orgazm = 4:
			pcs_horny += 10
			pcs_mood += 10
			pcs_willpwr += 10
			'You startled by the feeling that your pussy is stretched when <<$boydesc>> you entered. Between the legs becomes a little pleased when strong <<dick>> centimeter dick fucks your pussy. Gradually a pleasant warmth and pulsations is increasing in the lower abdomen, then the feeling decreases a little and remained 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 stretched and start taking a dick. Your pussy becomes very warm and pleasant when <<$xem>> strong <<dick>> centimeter dick fucks your pussy. Gradually a pleasant warmth and pulsations is increasing in the lower abdomen, the feeling then descend and your entire body covered with hot waves of orgasm, you scream with pleasure writhing on edge.'
		elseif orgazm = 6:
			pcs_horny += 5
			pcs_mood += 5
			pcs_willpwr += 5
			'You feel when <<$boydesc>> entered you. You feel nice between your legs , but <<$xem>> <<dick>> cm dick is significantly less than your pussy and not enough for you. Gradually a pleasant warmth and pulsations is increasing in the lower abdomen, then the feeling decreases a little and remained until the end.'
		end
		if pcs_vag = 0:
			pcs_horny = 0
			pcs_mood -= 15
			pcs_willpwr -= 15
			pcs_vag += 1
			'You have bitten 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

	cumprecheck = 1
	gs 'cum_manage'
	end
}

$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>> had 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 that this torture was over quickly.'
	elseif pcs_ass + lubonus + 2 >= dick:
		pcs_horny += 10
		if agape < 2 and lubonus = 0:agape = 2
		'You started to moan rhythmically in time with <<$xem>> cock''s movements inside you. You feel like your anus is stretched 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
	'Through some time <<$boydesc>> groaned and you feel like your ass fills 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>> smeared <<$xem>> cock lubricated.'
	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, 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 that this torture was over quickly.'
	elseif pcs_ass + lubonus + 2 >= dick:
		pcs_horny += 10
		if agape < 2 and lubonus = 0:agape = 2
		'You started to moan rhythmically in time as <<$xem>> cock moves inside you. You feel like your anus is stretched 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
	'Through some time <<$boydesc>> groaned and you feel like your ass fills 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 into your anus finger, then the second .'
	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>> hard cock ran 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, 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 that this torture was over quickly.'
   
	elseif pcs_ass + lubonus + 2 >= dick:
		pcs_horny += 10
		if agape < 2 and lubonus = 0:agape = 2
		'You started to moan rhythmically in time with <<$xem>> cock movements inside you. You feel like your anus is stretched 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'
	'Through some time <<$boydesc>> groaned and you feel like your ass fills a pleasant warmth.'
}
! "deal_with_condom" procedure should be replacement of "sexstart" dynamic procedure
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 member.'
		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 member.'
			end
			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 ---

if $ARGS[0] = 'boy_puts_his_condom':
	protect = 1
	sexcontra = 3
	*p '<<ucase(mid($boydesc,1,1))>><<mid($boydesc,2,len($boydesc)-1)>> takes his condom and puts it on <<$xem>> <<dick>> centimeter member.'
	!! the hormonal contraception is still taken in account
end &! --- boy_puts_his_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 member.'
		else
			sexcontra = 3
			*p 'You take your condom and put it on <<$xem>> <<dick>> centimeter member.'
			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 ---

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 her 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:
			'You take a tube of lubricant and hand it to <<$bwa_boy>>, he squeezes a little on his palm and rubs your anus.'
			gs 'arousal', 'anal_finger', 1,'lube' 
		end
	end
	killvar '$bwa_boy'
end &! --- boy_wants_anal ---

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 ---

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: "Go on in the training"' 
		end
		if $ARGS[1] = 'girl':
			analplugin = 1
			'<<$ARGS[2]>> takes your butt plug and she puts it back into your anus. She grins: "Go on in the 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 have to rest for a while now.' 
		end
		killvar 'analplugout'
	end
end &! --- after_anal ---

!! sexstart2 replacement - this procedure calls 'arousal','vaginal', but the rest of the parameters, has to be passed in parameter so call like gs 'dinsex','vaginal_sex',',10,''rough'',''sub'''
if $ARGS[0] = 'vaginal_sex':
	frost = 0 &! the sex heats
	if pcs_vag > 0:
		dyneval( 'gs ''arousal'',''vaginal''<<$ARGS[1]>>')
		$temp_mens = iif(cycle <= 0,' and menstruation blood leaks from your vagina','')
		if (vgrdif + vltdif) >= 30: 'You groaned in pain when <<$boydesc>> penetrated, 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>>.'
		$temp_mens = ' even though' + $temp_mens
		if (vgrdif + vltdif) >= 12 and (vgrdif + vltdif) < 20: 'You winced at the sudden pain when <<$boydesc>> entered, it hurted but it gradually become 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 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 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 pulsations is increasing in the abdomen, then the feeling decreases a little and remained 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 pulsations is increasing in the lower abdomen,the feeling then descend and your entire body covered with hot waves of orgasm, you scream with pleasure.'
		if (vgrdif + vltdif) <  -3: 'You feel as <<$xem>> penis enters your pussy. You feel nice between your legs , but <<$xem>> <<dick>> cm dick is significantly less than your pussy and not enough for you. Gradually a pleasant warmth and pulsations is increasing in the abdomen, then the feeling a decreases a little and remained until the end<<$temp_mens>>.'
	else
		dyneval( 'gs ''arousal'',''vaginal'',<<$ARGS[1]>>')
		$temp_mens = iif(cycle <= 0,' and menstruation blood leaks from your vagina','')
		pcs_horny = 0
		pcs_mood -= 15
		pcs_willpwr -= 15
		'You have bitten 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.'
	end
	killvar '$temp_mens'
end


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