glife/locations/BDsex.qsrc

# BDsex

menu_off = 1

if $ARGS[0] = 'start':
	!!range of interactions
	!!gs 'BDsex', 'start'

	if NoGuy = 0:guy += 1
	
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/shared/sex/pet/petting1.jpg"></center>'

	if harakBoy = 0:
		'<<$boydesc>> hugs you and gently caresses your breasts.'
		
		gs 'willpower', 'cuni', 'force'
		if will_cost <= pcs_willpwr:
			act 'Order him to lick you (<<will_cost>> Willpower)':gs 'willpower', 'pay', 'force' & gt 'BDsex', 'kuni'
		else
			act 'Order him to lick you (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end	
		act 'Stroke his cock':gt 'BDsex', 'hj'
		act 'Suck his dick':gt 'BDsex', 'minet'
		act 'Lie on your back and spread your legs ':gt 'BDsex', 'sex'
		act 'Go on all fours':gt 'BDsex', 'sex2'
		act 'Do anal':gt 'BDsex', 'anal2'
	elseif harakBoy = 1:
		'<<$boydesc>> skillfully caresses your breasts.'
		gs 'arousal', 'foreplay', 5
		gs 'stat'

		if rand(0, 100) < 70:
			'<<$boydesc>> strokes and caresses your pussy with his fingers.'
			gs 'arousal', 'vaginal_finger', -5, 'sub'
			gs 'stat'

			if rand(0, 2) < 2:
				'<<$boydesc>> moves to lay you down on your back.'

				act 'Lie on your back and spread your legs ':gt 'BDsex', 'sex'
			else
				'<<$boydesc>> turns you face down.'

				act 'Stand on all fours':gt 'BDsex', 'sex2'
			end

			act 'Suck him':gt 'BDsex', 'minet'
		else
			'<<$boydesc>> asks you to suck his cock.'

			act 'Stroke his cock':gt 'BDsex', 'hj'
			act 'Take by mouth':gt 'BDsex', 'minet'
			act 'Tell him you prefer to lay down and happily spreading your legs for him':gt 'BDsex', 'sex'
		end
	elseif harakBoy = 2:
		'<<$boydesc>> hugs you and passionately caress your breasts.'
		gs 'arousal', 'foreplay', 5
		gs 'stat'
		tmpbrand = rand(0, 100)

		if tmpbrand < 70:
			'<<$boydesc>> caresses your pussy with his fingers.'
			gs 'arousal', 'vaginal_finger', -5, 'sub'
			gs 'stat'
			killvar 'tmpbrand'

			if rand(0, 2) < 2:
				'<<$boydesc>> moves to lay you down on your back.'

				act 'Lie on your back and spread your legs ':gt 'BDsex', 'sex'
			else
				'<<$boydesc>> turns you around.'

				act 'Go on all fours':gt 'BDsex', 'sex2'
			end
		elseif tmpbrand >= 70 and tmpbrand < 90:
			'<<$boydesc>> grabs the back of your head and pulls you to face his penis.'
			killvar 'tmpbrand'

			act 'Take by mouth':gt 'BDsex', 'minet'
			gs 'willpower', 'bj', 'resist', 'easy'
			if will_cost <= pcs_willpwr:
				act 'Lie on your back and spread your legs (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'BDsex', 'sex'
				act 'Stand on all fours (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'BDsex', 'sex2'
			else
				act 'Lie on your back and spread your legs (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
				act 'Stand on all fours (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			end
		elseif tmpbrand >= 90:
			killvar 'tmpbrand'
			'<<$boydesc>> tells you that he wants to take you in the ass.'

			act 'Do anal':gt 'BDsex', 'anal2'

			gs 'willpower', 'anal', 'resist', 'easy'
			if will_cost <= pcs_willpwr:
				act '"I do not want to!" Lie on your back and spread your legs (<<will_cost>> Willpower)': gs 'willpower', 'anal', 'resist', 'easy' & gs 'willpower', 'pay', 'resist' & gt 'BDsex', 'sex'
				act '"I''ll do it doggy style, but not in the ass!" (<<will_cost>> Willpower)': gs 'willpower', 'anal', 'resist', 'easy' & gs 'willpower', 'pay', 'resist' & gt 'BDsex', 'sex2'
			else
				act '"I do not want to!" Lie on your back and spread your legs (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
				act '"I''ll do it doggy style, but not in the ass!" (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			end
			gs 'willpower', 'bj', 'force'
			if will_cost <= pcs_willpwr:
				act 'Take him into your mouth (<<will_cost>> Willpower)': gs 'willpower', 'bj', 'force' & gs 'willpower', 'pay', 'force' & gt 'BDsex', 'minet'
			else
				act 'Take him into your mouth (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			end
		end
	end
end

if $ARGS[0] = 'kuni':
	'<center><img <<$set_imgh>> src="images/shared/sex/kuni/kuni.jpg"></center>'
	'You undress and lay on the bed, bringing his face to your pussy.'
	'<<$boydesc>> lays down between your legs and begins to work his tongue across your pussy.'
	gs 'arousal', 'cuni', 10, 'dom'
	gs 'stat'
	if pcs_horny >= 90:
		pcs_mood += 15
		$orgasm_txt = 'His skill is enough to spark an orgasm deep within you.'
		$orgasm_or = 'custom'
		gs 'stat'
	else
		'His tongue work is exciting, but after awhile, you begin to grow bored.'
	end

	act 'Stroke his cock':gt 'BDsex', 'hj'
	act 'Take by mouth':gt 'BDsex', 'minet'
	act 'Lie on your back and spread your legs ':gt 'BDsex', 'sex'
	act 'Go on all fours':gt 'BDsex', 'sex2'
	act 'Do anal':gt 'BDsex', 'anal2'
end

if $ARGS[0] = 'sex':
	pose = 0
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/shared/sex/vag/miss/vag.jpg"></center>'
	gs 'arousal', 'vaginal', 10, 'sub'
	gs 'stat'
	gs 'BDsex', 'org'

	if harakBoy > 0:
		if rand(0, 10) >= 8:
			'Suddenly <<$boydesc>> pulls out of you and takes you by the shoulders, guiding you to your knees before him.'

			act 'Take it on the face':gt 'BDsex', 'facial'
			act 'Open your mouth':gt 'BDsex', 'swallow'

			exit
		end
	end

	if harakBoy = 2:
		if rand(0, 10) >= 8:
			'Suddenly <<$boydesc>> pulls his member out and begins to fondle your ass, preparing it for penetration.'

			act 'Do anal':gt 'BDsex', 'anal2'

			exit
		end
	end

	gs 'BDsex', 'cum'

	act 'Leave':gt 'BDsex', 'end'
end


if $ARGS[0] = 'sex2':
	pose = 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/shared/sex/vag/doggy/vagdog<<rand(1, 5)>>.jpg"></center>'
	gs 'arousal', 'vaginal', 10, 'sub'
	gs 'stat'
	gs 'BDsex', 'org'

	if harakBoy > 0:
		if rand(0, 10) >= 8:
			'Suddenly <<$boydesc>> pulls out of you and takes you by the shoulders, guiding you to your knees before him.'

			act 'Take it on the face':gt 'BDsex', 'facial'
			act 'Open mouth':gt 'BDsex', 'swallow'

			exit
		end
	end

	if harakBoy = 2:
		if rand(0, 10) >= 8:
			'Suddenly <<$boydesc>> withdraws and begins to fondle your ass, preparing it for penetration.'

			act 'Anal':gt 'BDsex', 'anal2'

			exit
		end
	end

	gs 'BDsex', 'cum'

	act 'Leave':gt 'BDsex', 'end'
end


if $ARGS[0] = 'sex3':
	pose = 0
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/shared/sex/vag/cowgirl/vagcow<<rand(1, 5)>>.jpg"></center>'
	gs 'arousal', 'vaginal', 10, 'sub'
	gs 'stat'
	gs 'BDsex', 'org'
	gs 'BDsex', 'cum'
end

if $ARGS[0] = 'anal':
	gs 'arousal', 'auto_lube', 'anal'
	gs 'arousal', 'anal', 10, 'sub'
	gs 'stat'
	gs 'bdsex', 'an'
	gs 'bdsex', 'ancum'
end


if $ARGS[0] = 'anal2':
	'<center><img <<$set_imgh>> src="images/shared/sex/anal/doggy/anal2<<rand(1, 10)>>.jpg"></center>'
	gs 'arousal', 'anal', 10, 'sub'
	gs 'stat'
	gs 'bdsex', 'an'

	if harakBoy > 0:
		if rand(0, 10) >= 8:
			'Suddenly <<$boydesc>> pulls out of you and takes you by the shoulders, guiding you to your knees before him.'

			act 'Take it on the face':gt 'BDsex', 'facial'
			act 'Open mouth':gt 'BDsex', 'swallow'

			exit
		end
	end

	gs 'bdsex', 'ancum'
	act 'Leave':gt 'BDsex', 'end'
end


if $ARGS[0] = 'anal3':
	gs 'arousal', 'auto_lube', 'anal'
	gs 'arousal', 'anal', 10, 'sub'
	gs 'stat'
	gs 'bdsex', 'an'
	gs 'bdsex', 'ancum'
end

if $ARGS[0] = 'hj':
	!!handjob
	'<center><img <<$set_imgh>> src="images/shared/sex/cum/handjob/hand1.jpg"></center>'
	'You take his <<dick>> centimeter penis and begin to caress the shaft, moving the skin over the crimson head.'
	gs 'arousal', 'hj', 5
	gs 'stat'

	if rand(0, 100) >= 75:
		if harakBoy = 0:
			'<<$boydesc>> moans, "I''m going to come."'

			act 'Let ends':
				cla
				*clr
				'<center><img <<$set_imgh>> src="images/shared/sex/cum/handjob/hand2.jpg"></center>'
				if protect = 1:
					gs 'cum_manage'
					protect = 0
					if sexcontra = 4:
						'<<$boydesc>> finishes, filling the condom with his hot and sticky cum, and then a slimy feeling. You realize that the condom burst.'
						gs 'arousal', 'end'
						gs 'stat'
					elseif sexcontra = 5:
						'<<$boydesc>> finishes, filling the condom with his hot and sticky cum. As he pulls out, you feel a ghostly sensation, as if he didn''t come all the way out. Looking down, you see his bare dick.'
						gs 'arousal', 'end'
						gs 'stat'
					else
						'<<$boydesc>> finishes, filling the condom with his hot and sticky cum.'
						gs 'arousal', 'end'
						gs 'stat'
					end
					sexcontra = 0
				else
					'<<$boydesc>> finishes, covering your hands in his hot and sticky cum.'
					spafinloc = 13
					sexpartkno = 1
					gs 'cum_manage'
					gs 'arousal', 'end'
					gs 'stat'
				end
				act 'Leave':gt 'BDsex', 'end'
			end

			act 'Take by mouth':gt 'BDsex', 'minet'
			act 'Lie on your back and spread your legs ':gt 'BDsex', 'sex'
		elseif harakBoy = 1:
			'<<$boydesc>> groans, "<<$pcs_nickname>> take my cock in your mouth or let me fuck you!"'

			act 'Take by mouth':gt 'BDsex', 'minet'
			act 'Lie on your back and spread her legs ':gt 'BDsex', 'sex'
		else
			tmpbrand = rand(0, 100)

			if tmpbrand < 70:
				'<<$boydesc>> caresses your pussy with his fingers.'
				gs 'arousal', 'vaginal_finger', -5, 'sub'
				gs 'stat'
				killvar 'tmpbrand'

				if rand(0, 2) < 2:
					'<<$boydesc>> attempts to lay you down on your back.'

					act 'Lie on your back and spread your legs ':gt 'BDsex', 'sex'
				else
					'<<$boydesc>> turns you around.'

					act 'Stand on all fours':gt 'BDsex', 'sex2'
				end
			elseif tmpbrand >= 70 and tmpbrand < 80:
				'<<$boydesc>> tells you that he wants your ass.'
				killvar 'tmpbrand'

				act 'Anal':gt 'BDsex', 'anal2'

				gs 'willpower', 'anal', 'resist', 'easy'
				if will_cost <= pcs_willpwr:
					act '"I do not want to!" Lie on your back and spread your legs (<<will_cost>> Willpower)': gs 'willpower', 'anal', 'resist', 'easy' & gs 'willpower', 'pay', 'resist' & gt 'BDsex', 'sex'
					act '"I''ll do it doggy style, but not in the ass!" (<<will_cost>> Willpower)': gs 'willpower', 'anal', 'resist', 'easy' & gs 'willpower', 'pay', 'resist' & gt 'BDsex', 'sex2'
				else
					act '"I do not want to!" Lie on your back and spread your legs (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
					act '"I''ll do it doggy style, but not in the ass!" (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
				end
				gs 'willpower', 'bj', 'force'
				if will_cost <= pcs_willpwr:
					act 'Take him into your mouth (<<will_cost>> Willpower)': gs 'willpower', 'bj', 'force' & gs 'willpower', 'pay', 'force' & gt 'BDsex', 'minet'
				else
					act 'Take him into your mouth (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
				end
			elseif tmpbrand >= 80:
				'<<$boydesc>> forces your face down on his member.'
				killvar 'tmpbrand'

				act 'Take by mouth':gt 'BDsex', 'minet'
			end
		end
	else
		'<<$boydesc>> Now finish.'

		act 'Take it on the face':gt 'BDsex', 'facial'
		act 'Open mouth':gt 'BDsex', 'swallow'
	end
end

if $ARGS[0] = 'minet':
	!!blowjob
	'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/bj<<rand(24, 28)>>.jpg"></center>'
	gs 'arousal', 'bj', 10, 'sub'
	gs 'stat'
	gs 'bdsex', 'autobj'

	if rand(0, 100) >= 75:
		if harakBoy = 0:
			'<<$boydesc>> moans, "I''m going to come."'

			act 'In the palm of your hand':
				cla
				*clr
				'<center><img <<$set_imgh>> src="images/shared/sex/cum/handjob/hand2.jpg"></center>'
				if protect = 1:
					'<<$boydesc>> finishes, filling the condom with his cum.'
					protect = 0
					sexcontra = 0
					gs 'arousal', 'end'
					gs 'stat'
				else
					'<<$boydesc>> finished all over your hands covering them in hot and sticky cum.'
					spafinloc = 13
					sexpartkno = 1
					gs 'cum_manage'
					gs 'arousal', 'end'
					gs 'stat'
				end
				act 'Leave':gt 'BDsex', 'end'
			end

			act 'Lie on your back and spread your legs ':gt 'BDsex', 'sex'
		elseif harakBoy = 1:
			'<<$boydesc>> groans, "<<$pcs_nickname>> take my cock in your mouth or let me fuck you!"'

			act 'Lie on your back and spread your legs ':gt 'BDsex', 'sex'
		else
			if rand(0, 100) < 70:
				'<<$boydesc>> caresses your pussy with his fingers.'
				gs 'arousal', 'vaginal_finger', -10, 'sub'
				gs 'stat'

				if rand(0, 2) < 2:
					'<<$boydesc>> tries to lay you down on your back.'

					act 'Lie on your back and spread your legs ':gt 'BDsex', 'sex'
				else
					'<<$boydesc>> turns you around.'

					act 'Stand on all fours':gt 'BDsex', 'sex2'
				end
			else
				'<<$boydesc>> tells you that he wants your ass.'

				act 'Anal':gt 'BDsex', 'anal2'

				gs 'willpower', 'anal', 'resist', 'easy'
				if will_cost <= pcs_willpwr:
					act '"I do not want to!" Lie on your back and spread your legs (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'BDsex', 'sex'
					act '"I''ll do it doggy style, but not in the ass!" (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'BDsex', 'sex2'
				else
					act '"I do not want to!" Lie on your back and spread your legs (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
					act '"I''ll do it doggy style, but not in the ass!" (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
				end
			end
		end
	else
		'<<$boydesc>> Now finish.'

		act 'Take it on the face':gt 'BDsex', 'facial'
		act 'Open mouth':gt 'BDsex', 'swallow'

		if harakBoy = 0:
			act 'In the palm of your hand':
				cla
				*clr
				'<center><img <<$set_imgh>> src="images/shared/sex/cum/handjob/hand2.jpg"></center>'
				if protect = 1:
					'<<$boydesc>> finishes, filling the condom with his cum.'
					protect = 0
					sexcontra = 0
					gs 'arousal', 'end'
					gs 'stat'
				else
					'<<$boydesc>> finished all over your hands covering them in hot and sticky cum.'
					spafinloc = 13
					sexpartkno = 1
					gs 'cum_manage'
					gs 'arousal', 'end'
					gs 'stat'
				end
				act 'Leave':gt 'BDsex', 'end'
			end
		end
	end
end

if $ARGS[0] = 'facial':
	facial += 1
	minut += 3
	'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial<<rand(11, 15)>>.jpg"></center>'
	if protect = 1:
		'<<$boydesc>> finishes, filling the condom with his cum.'
		protect = 0
		sexcontra = 0
	else
		'Thick jets of sperm hits you square in the face.'
		spafinloc = 11
		sexpartkno = 1
		gs 'cum_manage'
	end
	gs 'stat'
	act 'Brush up':gt 'BDsex', 'end'
end

if $ARGS[0] = 'swallow':
	minut += 3
	'<center><img <<$set_imgh>> src="images/shared/sex/cum/mouth/cum<<rand(20, 29)>>.jpg"></center>'
	if protect = 1:
		'<<$boydesc>> finishes, and you feel the condom balloon up in your mouth.'
		protect = 0
		sexcontra = 0
	else
		'Thick jets of sharply smelling sperm fill your mouth.'
		spafinloc = 12
		sexpartkno = 1
		gs 'cum_manage'
		swallow += 1
	end
	gs 'stat'
	act 'Brush up':gt 'BDsex', 'end'
end

if $ARGS[0] = 'end':
	NoGuy = 0

	if BDcafe = 1:
		BDcafe = 0
		act 'Leave':gt 'city_residential'
	elseif Yuri_sex = 1:
		Yuri_sex = 0
		cumspclnt = 4
		gs 'cum_cleanup'
		gs 'stat'
		'Yuri lets you have a quick shower and dress before giving you a quick kiss on the cheek.'
		if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the shower.'
		act 'Leave':gt 'city_industrial'
	elseif $boydesc = 'Michael N.':
		act 'Leave':dynamic $brodilr
	elseif InYouHome = 1:
		InYouHome = 0
		'<<$boydesc>> politely says goodbye and leaves.'

		act 'Leave':gt 'korr'

		exit
	elseif GoToGuy = 1:
		GoToGuy = 0
		act 'Leave':gt 'city_industrial'
	elseif harakBoy = 1:
		harakBoy = 0
		cumspclnt = 4
		gs 'cum_cleanup'
		'You wash quickly in shower and <<$boydesc>> begins to hurry you out.'
		if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the shower.'
		act 'Leave':dynamic $brodilr
	elseif harakBoy = 0:
		minut += 15
		pcs_horny += 1
		pcs_hairbsh = 1
		pcs_makeup = 1
		noShampoo = 1
		dynamic $showerdin
		'<center><video autoplay loop src="images/shared/home/bathroom/dush.mp4"></video></center>'
		'You go into the bathroom and turn on the shower, lathering body and washing as well as you can.'
		if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the shower.'
		act 'Leave':dynamic $brodilr
	elseif harakBoy = 2:
		'<<$boydesc>> won''t even let you go to the bathroom to clean up.'
		act 'Leave':dynamic $brodilr
	elseif finance > 0:
		if finance = 1:money += 300
		if finance = 2:money += 500
		'<<$boydesc>> gives you money for a taxi and kicks you out of the apartment.'
		act 'Leave':dynamic $brodilr
	elseif finance = 0:
		'<<$boydesc>> kicks you out of the apartment.'
		act 'Leave':dynamic $brodilr
	elseif GoToGuy = 0:
		act 'Leave':
			tmpgorand = rand(0, 2)

			if tmpgorand = 0: killvar 'tmpgorand' & dynamic $brodilr
			if tmpgorand = 1: killvar 'tmpgorand' & gt 'city_center'
			if tmpgorand = 2: killvar 'tmpgorand' & gt 'city_industrial'
		end
	else
		act 'Leave':dynamic $brodilr
	end
end

if $ARGS[0] = 'org':
	protect = 0
	vidageday -= 1
	if tabletki <= 0 and prezik > 0:
		dynamic $prezik
		protect = 1
		'<<$boydesc>> takes a condom and puts it on his <<dick>> centimeter member.'
		if preziktype = 2:
			sexcontra = 7
		else
			sexcontra = 3
		end
	else
		sexcontra = 0
	end

	if mesec > 0:
		!!periods, orgasm is not possible
		pcs_mood -= 10
		'It is your time of the month and, as his member rams into you, vaginal blood flows slowly around his girth. Painful sensations and pleasure mix. You moan while his strong <<dick>> centimeter dick fucks your pussy.'
		$orgasm_or = 'no'
		gs 'stat'
	elseif mesec <= 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 orgazm = 0:
			pcs_mood -= 15
			'You groan in pain when <<$boydesc>> enters you, tears flowing from your eyes as you endure the feeling of having a red-hot rod between your legs. You cry and moan while his strong <<dick>> centimeter dick fucks your pussy.'
			gs 'arousal', 'vaginal', 5, 'sub'
			gs 'stat'
		elseif orgazm = 1:
			pcs_mood -= 10
			'You bite your lip in pain when <<$boydesc>> enters you, a twinge of pain between your legs. Frowning, you moan in pain while his strong <<dick>> centimeter dick fucks your pussy.'
			gs 'arousal', 'vaginal', 5, 'sub'
			gs 'stat'
		elseif orgazm = 2:
			pcs_mood -= 5
			'You wince at the sudden pain when <<$boydesc>> enters you, the pain between your legs gradually calms and becomes quite tolerable. You try to get aroused while his strong <<dick>> centimeter dick fucks your pussy, but it is not enough.'
			gs 'arousal', 'vaginal', 5, 'sub'
			gs 'stat'
		elseif orgazm = 3:
			pcs_mood += 5
			'You are startled by the feeling as your pussy is stretched when <<$boydesc>> enters you. A shiver of pleasure starts from between your legs and travels up your spine as each stroke of his <<dick>> centimeter fucks into your pussy.'
			gs 'arousal', 'vaginal', 5, 'sub'
			gs 'stat'
		elseif orgazm = 4:
			pcs_mood += 10
			'You are startled by the feeling as your pussy is stretched when <<$boydesc>> enters you. A shiver of pleasure starts from between your legs and travels up your spine as each stroke of his <<dick>> centimeter fucks into your pussy. Gradually a pleasant warmth and ripple grows in the lower abdomen, but the feeling never peaks, instead decreasing in strength even as it remains with you until the end.'
			gs 'arousal', 'vaginal', 5, 'sub'
			gs 'stat'
		elseif orgazm = 5:
			pcs_mood += 15
			'You gasp at the feeling as your pussy spreads for his dick. Your groin becomes very warm and pleasant, when his strong <<dick>> centimeter dick hammers your pussy. Gradually the pleasant warmth ripples in your lower abdomen and then the feeling intensifies and your whole body tenses as the hot waves of orgasm rush over you. You can not help screaming in pleasure as you writhe under the sensation.'
			gs 'arousal', 'vaginal', 5, 'sub'
			$orgasm_or = 'yes'
			gs 'stat'
		elseif orgazm = 6:
			pcs_mood += 5
			'You feel every inch as his member enters your pussy when <<$boydesc>> slides home. It is a pleasant feeling, but his dick is significantly smaller than you prefer and <<dick>> inches is not enough for you. Gradually, a pleasant ripples grows in your lower abdomen, but the feeling never rises to true orgasm.'
			gs 'arousal', 'vaginal', 5, 'sub'
			gs 'stat'
		end

		if pcs_vag <= dick:pcs_vag += 1
	elseif pcs_vag = 0 and mesec <= 0:
		pcs_mood -= 15
		'You bite your lip in pain and tears gush from your eyes when <<$boydesc>> enters you, breaking your hymen. You moan while weeping as his strong <<dick>> centimeter dick fucks your bloody pussy.'
		gs 'arousal', 'vaginal', 5, 'sub', 'rough'
		gs 'stat'
	end

	if pcs_vag < dick:pcs_vag += 1
	cumprecheck = 1
	sexpartkno = 1
	gs 'cum_manage'
end

if $ARGS[0] = 'cum':
	if protect ! 1:
	!!unprotected sex
		if rand(0, 1) = 0:
			!!inside
			sexpartkno = 1
			gs 'cum_manage'
			'<<$boydesc>> groans and you feel each jet of sperm paint the walls of your womb with seed.'
			gs 'arousal', 'end'
			gs 'stat'
			pcs_mood -= 15
			gs 'cuminsidereact'
		else
			!!out
			if pose = 0:
				spafinloc = 14
				sexpartkno = 1
				gs 'cum_manage'
				'<<$boydesc>> shouts, pulling out to finish on your stomach.'
				gs 'arousal', 'end'
				gs 'stat'
			elseif pose = 1:
				spafinloc = 4
				sexpartkno = 1
				gs 'cum_manage'
				'<<$boydesc>> shudders, pulling out just in time to paint your ass white with semen.'
				gs 'arousal', 'end'
				gs 'stat'
			end
		end
	elseif protect = 1:
		protect = 0
		if sexcontra = 4:
			'<<$boydesc>> groans and you feel heat building deep inside, and then a slimy feeling. You realize that the condom burst.'
			gs 'arousal', 'end'
			gs 'stat'
		elseif sexcontra = 5:
			'<<$boydesc>> groans and you feel heat building deep inside. As he pulls out, you feel a ghostly sensation, as if he didn''t come all the way out. Looking down, you see his bare dick.'
			gs 'arousal', 'end'
			gs 'stat'
		else
			'<<$boydesc>> groans and you feel heat building deep inside. You realize that he has filled the condom.'
			gs 'arousal', 'end'
			gs 'stat'
		end
		sexcontra = 0
	end

	pose = 0
end

if $ARGS[0] = 'autobj':
	'You little fingers caress his <<dick>> centimeter shaft before you take the head into your mouth and began to suck.'
	gs 'arousal', 'hj', 5, 'sub'
	gs 'stat'
	if harakBoy = 0:
		'<<$boydesc>> closes his eyes in pleasure, enjoying the caress of your lips.'
		gs 'arousal', 'bj', 5, 'sub'
		gs 'stat'
	elseif harakBoy = 1:
		'<<$boydesc>> stares expectingly at you until your lips glide over his hard dick.'
		gs 'arousal', 'bj', 5, 'sub'
		gs 'stat'
	elseif harakBoy = 2:
		if pcs_makeup > 1:pcs_makeup = 0
		pcs_hairbsh = 0
		'<<$boydesc>> grabs your hair and begins to fuck your mouth roughly, each thrust strikes against the back of your throat as tears flow from your eyes.'
		gs 'arousal', 'bj', 5, 'sub', 'rough'
		gs 'stat'
	end

	pcs_horny += pcs_throat + 10 - (willpowermax / 10)
	'His hard and hot cock slides into your wet mouth, filling it completely. Your lips are locked tightly around his dick in a lovers embrace.'

	if pcs_horny >= 100:
		pcs_mood += 15

		'As you suck the dick before you, a fire smolders between your legs, building into a conflagration of orgasm. You moan around the cock in your mouth, never once slowing your pace.'
		gs 'arousal', 'bj', -5, 'sub'
		$orgasm_or = 'yes'
		gs 'stat'
	end

	!!'Finally <<$boydesc>> groans and you realize that he is at his limit.'
end

if $ARGS[0] = 'an':
	!!if analplugin = 1:
	!!	analpluginbonus = 10
	!!	analplugin = 0
	!!	if pcs_ass < 16:'<<$boydesc>> pulls the plug out of your narrow and tight ass.'
	!!	if pcs_ass >= 16:'<<$boydesc>> pulls the butt plug out of your ass, hot juices dripping from your now unstoppered hole.'
	!!	if pcs_ass + analpluginbonus < dick:'You scream and bite your lip at the sharp pain when the <<dick>> centimeter dick parts your ass and plunges home.'
	!!	if pcs_ass + analpluginbonus >= dick:'You groan and a satisfying fullness spreads through you as the <<dick>> member centimeter dick forces its way into your ass.'
	!!	!!gs 'BDsex', 'ancum'
	!!end

	gs 'dinsex','boy_wants_anal'
	'<<$boydesc>> lays you on your stomach on the bed, spreading your ass apart as he begins to massage and open your anus with his fingers, first one, then two.'
	gs 'arousal', 'anal_finger', 5, 'sub'
	if pcs_ass < 10:
		'You groan in pain as his third finger invades your ass.'
	else
		'You feel your asshole stretch to accommodate his third finger.'
	end
	'<<$boydesc>> abruptly pulls his fingers out of your ass and you feel his hard cock rest against your hole.'

	if pcs_ass + lubonus < dick:'You scream and bite your lip at the sharp pain when the <<dick>> member centimeter enters your ass.'
	if pcs_ass + lubonus >= dick:'You groan and a satisfying fullness spreads through you as the <<dick>> member centimeter dick forces its way into your ass.'
	'<<$boydesc>> stops his assault for a moment, giving your ass time to adapt to the cock invading it before he starts you again, this time even more insistent.'
	gs 'arousal', 'anal', 10, 'sub'
	gs 'stat'
	if pcs_ass + lubonus + 2 < dick:
		if pcs_makeup > 1:pcs_makeup = 0
		'You utter a muffled cry and bite down a pillow when his <<dick>> centimeter cock begins to fuck your ass full force.'
		gs 'arousal', 'anal',10, 'sub'
		gs 'stat'
	elseif pcs_ass + lubonus + 2 >= dick:
		'You start to moan rhythmically in time with thrusts of the dick buried in your ass.'
		gs 'arousal', 'anal', 10, 'sub'
		gs 'stat'
	end
end

if $ARGS[0] = 'ancum':
	'Finally <<$boydesc>> grabs your tight ass and drives home, hilting his dick in your aching ass and slapping your pussy with his balls as he cums.'
	spafinloc = 3
	sexvolume = 20
	sexpartkno = 1
	gs 'cum_manage'
	minut += 3
	spafinloc = 4
	sexvolume = 20
	sexpartkno = 1
	gs 'arousal', 'end'
	gs 'stat'
	gs 'cum_manage'

	if pcs_ass < dick:pcs_ass += 1

	pcs_horny += (pcs_ass - dick) * 3

	if pcs_horny < 1:
		pcs_horny = 1
	elseif pcs_horny >= 100:
		'A blazing fire of pleasure explodes from your ass and spreads in waves of ecstasy up your body. Moaning, you instinctively drive yourself to impale your ass on his dick.'
		$orgasm_or = 'yes'
		gs 'arousal', 'anal', -5, 'sub'
		gs 'stat'
	end
end

--- BDsex ---------------------------------