glife/locations/dinSex2

# dinSex2

if $ARGS[0] = 'stamina_npc':
	if sexstart <= 0:sexstart = 1 & sexvar = rand(2,5)
	sh_ind = sexvar
	if sh_ind = 6:	$ind_npc = '<font color = green	> ██████ </font> '
	if sh_ind = 5:	$ind_npc = '<font color = green	> █████_ </font> '
	if sh_ind = 4:	$ind_npc = '<font color = blue	> ████__ </font> '
	if sh_ind = 3:	$ind_npc = '<font color = blue	> ███___ </font> '
	if sh_ind = 2:	$ind_npc = '<font color = red	> ██____ </font> '
	if sh_ind = 1:	$ind_npc = '<font color = red	> █_____ </font> '
	if sh_ind <=0:	$ind_npc = '<font color = red	> Cumming! </font> '
	'<center>You have sex with <<$boydesc>>, his stamina: <<$ind_npc>></center>'
end &!--- stamina_npc ---

if $ARGS[0] = 'd_vag_sex_dildo':
	frost = 0
	if dildo = 1:
		dick = 10
		$dick_girth = 'skinny'
	elseif middildo = 1:
		dick = 15
		$dick_girth = 'slim'
	elseif largedildo = 1:
		dick = 20
		$dick_girth = 'well proportioned'
	elseif bigdildo = 1:
		dick = 25
		$dick_girth = 'thicker than average'
	elseif extradildo = 1:
		dick = 30
		$dick_girth = 'thick'
	elseif superdildo = 1:
		dick = 35
		$dick_girth = 'massive'
	elseif maddildo = 1:
		dick = 40
		$dick_girth = 'monstrous'
	end

	if pcs_vag > 0:
		gs 'arousal','vaginal_dildo',ARGS[1],$ARGS[2],$ARGS[3],$ARGS[4],$ARGS[5],$ARGS[6],$ARGS[7],$ARGS[8]
		$temp_mens = iif(cycle <= 0,' and menstruation blood leaks from your vagina','')
		if (vgrdif + vltdif) >= 30: 'You groaned in pain when stuck into itself <<dick>> cm dildo, tears flowed from the eyes and between the legs feeling as if you drove a red-hot rod<<$temp_mens>>.'
		if (vgrdif + vltdif) >= 20 and (vgrdif + vltdif) < 30: 'You bit her lip in pain when stuck into itself <<dick>> cm dildo, between the legs pain<<$temp_mens>>.'
		if cycle <= 0: $temp_mens = ', even though' + $temp_mens
		if (vgrdif + vltdif) >= 12 and (vgrdif + vltdif) < 20: 'You flinched at the sudden pain when stuck into itself <<dick>> cm dildo, but the pain between her legs slowly calm down and become quite tolerable. Are you trying to be excited while moving <<dick>> cm dildo in your pussy <<$temp_mens>>, but you will not go out.'
		if (vgrdif + vltdif) >= 7 and (vgrdif + vltdif) < 12: 'You flinched from feeling, your pussy stretched, when a thrust <<dick>> cm dildo. Between the legs becomes a little nice, when you fuck themselves with dildos<<$temp_mens>>.'
		if (vgrdif + vltdif) >=  2 and (vgrdif + vltdif) < 7: 'You flinched from feeling, your pussy stretched, when a thrust <<dick>> cm dildo. Between the legs becomes a little nice, when you fuck themselves with dildos. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling slightly reduced and remain until the end of<<$temp_mens>>.'
		if (vgrdif + vltdif) >= -3 and (vgrdif + vltdif) < 2: 'You startled by the pleasant sensation, when your pussy rastyagivatsya start taking a dildo. Between the legs becomes very warm and pleasant, when strong <<dick>> cm dildo moves in your pussy<<$temp_mens>>. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling descend on you and your entire body covered hot waves of orgasm, you involuntarily shout of pleasure writhing on dildo.'
		if (vgrdif + vltdif) <  -3: 'You feel like dildo penetrates your pussy. Between her legs nice, but much less Dildo your pussy and <<dick>> centimeters for you little. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling slightly reduced and remain until the end of<<$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 bit her lip in pain and tears streamed from his eyes when <<dick>> cm dildo went in you, break your hymen. You cried out in pain and was taken out of themselves bloody dildo<<$temp_mens>>.'
		gs 'arousal','vaginal_dildo',ARGS[1],$ARGS[2],$ARGS[3],$ARGS[4],$ARGS[5],$ARGS[6],$ARGS[7],$ARGS[8]
	end
	killvar '$temp_mens'
end &! --- d_vag_sex_dildo ---

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

!! use gs 'dinsex', 'd_vag_sex_bottle'
if $ARGS[0] = 'd_vag_sex_bottle':
	frost = 0
	dick = 20
	$dick_girth = 'well proportioned'

	if pcs_vag > 0:
		gs 'arousal','vaginal_dildo',ARGS[1],$ARGS[2],$ARGS[3],$ARGS[4],$ARGS[5],$ARGS[6],$ARGS[7],$ARGS[8]
		$temp_mens = iif(cycle <= 0,' and menstruation blood leaks from your vagina','')
		if (vgrdif + vltdif) >= 30: 'You groaned in pain when stuck in a bottle, tears flow from your eyes and between your legs feeling like you drove a red-hot rod<<$temp_mens>>.'
		if (vgrdif + vltdif) >= 20 and (vgrdif + vltdif) < 30: 'You bit your lip in pain when stuck in a bottle, soreness between his legs<<$temp_mens>>.'
		if cycle <= 0: $temp_mens = ', even though' + $temp_mens
		if (vgrdif + vltdif) >= 12 and (vgrdif + vltdif) < 20: 'You startled by sudden pain when stuck in a bottle, but the pain between her legs slowly calm down and become quite bearable. You are trying to move the bottle is excited in your pussy<<$temp_mens>>, but you will not go out.'
		if (vgrdif + vltdif) >= 7 and (vgrdif + vltdif) < 12: 'You flinched from feeling, your pussy stretched, When stuck in a bottle. Between the legs getting a little nice, when you fuck themselves with bottles<<$temp_mens>>.'
		if (vgrdif + vltdif) >=  2 and (vgrdif + vltdif) < 7: 'You flinched from feeling, your pussy stretched, When stuck in a bottle. Between the legs getting a little nice, when you fuck themselves with bottles. Gradually a pleasant warmth and pulsations grow in the lower abdomen, then feeling a little reduced, and remain until the end<<$temp_mens>>.'
		if (vgrdif + vltdif) >= -3 and (vgrdif + vltdif) < 2: 'You startled by a pleasant sensation, when your pussy rastyagivatsya start taking a dildo. Between the legs become very warm and pleasant, when the bottle is moving in your pussy<<$temp_mens>>. Gradually a pleasant warmth and pulsations grow in the lower abdomen, then the feeling descend upon you and cover your whole body warm wave of orgasm, you involuntarily shout with pleasure squirming on the bottle.'
		if (vgrdif + vltdif) <  -3: 'You felt like a bottle gets into your pussy. Between the legs nice, but the bottle is much less your pussy and her little for you. Gradually a pleasant warmth and pulsations grow in the lower abdomen, then feeling a little reduced, and remain 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 bit her lip in pain and tears streamed from his eyes when the bottle came in you, break your hymen. You cried out in pain and was taken out of themselves bloody bottle<<$temp_mens>>.'
		gs 'arousal','vaginal_dildo',ARGS[1],$ARGS[2],$ARGS[3],$ARGS[4],$ARGS[5],$ARGS[6],$ARGS[7],$ARGS[8]
	end
	killvar '$temp_mens'
end &! --- d_vag_sex_bottle ---

if $ARGS[0] = 'd_analsex_dildo':
	frost = 0
	if dildo = 1:
		dick = 10
		$dick_girth = 'skinny'
	elseif middildo = 1:
		dick = 15
		$dick_girth = 'slim'
	elseif largedildo = 1:
		dick = 20
		$dick_girth = 'well proportioned'
	elseif bigdildo = 1:
		dick = 25
		$dick_girth = 'thicker than average'
	elseif extradildo = 1:
		dick = 30
		$dick_girth = 'thick'
	elseif superdildo = 1:
		dick = 35
		$dick_girth = 'massive'
	elseif maddildo = 1:
		dick = 40
		$dick_girth = 'monstrous'
	end

	if analplugin = 1:
		'You pull the plug out of your narrow and tight ass.'
		analplugin = 0
		analplugout = 1
	end
	if lubri = 0:
			'You have no lube, so yo spit on your fingers and using saliva you massages your anus.'
			gs 'arousal', 'anal_finger', 1,'lube'
	else
		'You take a tube of lubricant and squeeze a little on your palm and rub your anus.'
		gs 'arousal', 'anal_finger', 1,'lube'
	end

	'You begin to massage your anus with your fingers.'

	if pcs_ass < 10:'When you entered three fingers in your ass you groan in pain.'
	if pcs_ass >= 10:'You started to stretch your anus with three fingers.'

	'You pull your fingers out of your ass and place the dildo near your hole.'

	'You stopped for a moment, giving your ass time to adjust to the dildo in it, and then started to slowly move, stretching your anus.'
	gs 'arousal','anal_dildo', ARGS[1],$ARGS[2],$ARGS[3],$ARGS[4],$ARGS[5],$ARGS[6],$ARGS[7],$ARGS[8]
	if (agrdif + altdif) >= 20:'You scream and bit your lip from a sharp pain when the <<dick>> centimeter dildo enters your ass.'
	if (agrdif + altdif) <  20:'You moan when the <<dick>> centimeter dildo enters your ass.'

	if (agrdif + altdif) >= 30:
		if pcs_makeup > 1:pcs_makeup = 0
		'You started to moan rhythmically in time with the <<dick>> centimeter dildo''s movements inside you. You feel like your anus is stretched when the dildo enters you.'
	elseif (agrdif + altdif) >= 20 and (agrdif + altdif) < 30:
		pcs_horny += 10
		'You moan in pleasure while the dildo moves inside your ass.'
	end
end &! --- d_analsex_dildo ---

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

	if (agrdif + altdif) >= 30:
		if pcs_makeup > 1:pcs_makeup = 0
		'You cry and bit your lip when the <<dick>> centimeter fake cock begins to fuck your ass on (! full force !). Your ass feels like it is on fire and all you want is for this torture to be over quickly.'
	elseif (agrdif + altdif) >= 20 and (agrdif + altdif) < 30:
		pcs_horny += 10
		'You start to moan rhythmically in time with <<$xem>> fake cock''s movements inside you. You feel like your anus is stretched when <<$xem>> fake shaft enters you.'
	end
end &! --- d_strapon_anal ---

if $ARGS[0] = 'd_analsex_bottle':
	frost = 0
	dick = 20
	$dick_girth = 'well proportioned'

	if analplugin = 1:
		'You pull the plug out of your narrow and tight ass.'
		analplugin = 0
		analplugout = 1
	end
	if lubri = 0:
			'You have no lube, so yo spit on your fingers and using saliva you massages your anus.'
			gs 'arousal', 'anal_finger', 1,'lube'
	else
		'You take a tube of lubricant and squeeze a little on your palm and rub your anus.'
		gs 'arousal', 'anal_finger', 1,'lube'
	end
	'You begin to massage your anus with your fingers.'

	if pcs_ass < 10:'When you entered three fingers in your ass you groan in pain.'
	if pcs_ass >= 10:'You started to stretch your anus with three fingers.'

	'You pull your fingers out of your ass and put the bottle near your hole.'

	'You stopped for a moment, giving your ass time to adjust to the bottle neck in it, and then started to slowly move, stretching your anus.'
	gs 'arousal','anal_dildo', ARGS[1],$ARGS[2],$ARGS[3],$ARGS[4],$ARGS[5],$ARGS[6],$ARGS[7],$ARGS[8]
	if (agrdif + altdif) >= 20:'You scream and bit your lip from a sharp pain when the bottle enters your ass.'
	if (agrdif + altdif) <  20:'You moan when the bottle enters your ass.'

	if (agrdif + altdif) >= 30:
		if pcs_makeup > 1:pcs_makeup = 0
		'You started to moan rhythmically in time with the bottle''s movements inside you. You feel like your anus is stretched when the bottle enters you.'
	elseif (agrdif + altdif) >= 20 and (agrdif + altdif) < 30:
		pcs_horny += 10
		'You moan in pleasure while the bottle moves inside your ass.'
	end
end &! --- d_analsex_bottle ---

!! use gs 'boyStat','vaginalboy','a' & gs 'boyStat','analboy','b'
!! use gs 'dinSex','boy_wants_anal',$boydesc2,[,'lubri'] before gs 'dinsex2','doublepenetration'
!!

if $ARGS[0] = 'doublepenetration':
	frost = 0
	gs 'arousal','vaginal',ARGS[1],'dick1',$ARGS[2],$ARGS[3],$ARGS[4],$ARGS[5],$ARGS[6],$ARGS[7]
	gs 'arousal','anal',ARGS[1],'dick2',$ARGS[2],$ARGS[3],$ARGS[4],$ARGS[5],$ARGS[6],$ARGS[7]
	minut -= ARGS[1]
	TotPain = 0
	if pcs_vag > 0:
		if (vgrdif + vltdif) >= 30: TotPain +=4 & 'You groaned in pain when <<$boydesc1>> penetrated you, tears flowed from your eyes and it feels like someone drove a red-hot rod in your vagina.'
		if (vgrdif + vltdif) >= 20 and (vgrdif + vltdif) < 30: TotPain +=3 & 'You bite your lip in pain when <<$boydesc1>> entered, it is very painful.'
		if (vgrdif + vltdif) >= 12 and (vgrdif + vltdif) < 20: TotPain +=2 & 'You winced at the sudden pain when <<$boydesc1>> entered, it hurt but gradually it became quite tolerable.'
		if (vgrdif + vltdif) >= 7 and (vgrdif + vltdif) < 12: TotPain +=1 & 'You are startled by the feeling that your pussy is stretching when <<$boydesc1>> entered you.'
		if (vgrdif + vltdif) >=  2 and (vgrdif + vltdif) < 7: 'You are startled by the feeling that your pussy is stretching as <<$boydesc1>> enters you.'
		if (vgrdif + vltdif) >= -3 and (vgrdif + vltdif) < 2: 'You flinched from a pleasant feeling when your pussy is stretched by <<$xem1>> dick.'
		if (vgrdif + vltdif) <  -3: 'You feel  <<$xem1>> penis entering your pussy. This gives you a nice tingling feeling between your legs , but <<$xem>> <<dick>> cm dick  is significantly less than what your pussy needs.'
	else
		pcs_horny = 0
		pcs_mood -= 15
		pcs_willpwr -= 15
		TotPain +=4
		'You were biting your <<$liptalk>> in pain and tears started to flow from your eyes when <<$boydesc1>> penetrated you, breaking your hymen.'
	end
	if (agrdif + altdif) >= 20: TotPain +=1 & 'You scream and bit your lip from a sharp pain when <<$xem2>> <<dick2>> centimeter dick enters your ass.'
	if (agrdif + altdif) <  20:'You moan when <<$xem2>> <<dick2>> centimeter dick enters your ass.'
	'<<$boydesc2>> stops for a moment, giving your ass time to adjust to <<$xem2>> cock in it. Then he starts to slowly move, stretching your anus.'

	if (agrdif + altdif) >= 30:
		if pcs_makeup > 1:pcs_makeup = 0
		'You cry and bit your lip when <<dick2>> centimeter cock begins to fuck your ass on.'
		TotPain +=1
	elseif (agrdif + altdif) >= 20 and (agrdif + altdif) < 30:
		pcs_horny += 10
		'You start to moan rhythmically in time with <<$xem2>> cock''s movements inside you. You feel like your anus is stretched when <<$xem2>> penis enters you.'
	end

	if totPAIN = 0:
		'Feelings merge together when you move inside two members in contact with each other through a thin stenochku share your vagina filled <<dick1>> centimeter and a member of your <<$anustipe>> anus filled <<dick2>> centimeter member. Abdomen burns pleasant light spreading heat throughout the body.'
		bonusManna = pcs_mood
		DPplus = (vaginalOrgasm * 10) + pcs_horny + bonusManna
		DPminus = rand(250, 350)

		if DPplus > DPminus:
			vaginalOrgasm += 1
			DPorgasm += 1
			orgasm += 1
			pcs_mood = 100
			pcs_horny = 0
			'Suddenly you covered orgasm and you do not remember myself moan and scream until your muscles are reduced frantically around two members of the inside of your body.'
		end
	elseif totPAIN = 1:
		'Feelings merge together when you move inside two members in contact with each other through a thin stenochku share your vagina filled <<dick1>> centimeter and a member of your <<$anustipe>> anus filled <<dick2>> centimeter member. hurt a little, but still very nice chustvovat all the free holes are filled by members.'
	elseif totPAIN = 2:
		pcs_horny = pcs_horny/2
		pcs_mood = 50
		'You chustvuete themselves so, as if that''s just about ready to burst from overflowing when you move inside two members in contact with each other through a thin stenochku share your vagina filled <<dick>> centimeter and a member of your <<$anustipe>> anus filled <<dick2>> centimeter member. Feeling very strange, in a tangle of mixed pain, pleasure and painful overcrowding.'
	elseif totPAIN = 3:
		pcs_horny = pcs_horny/4
		pcs_mood = 25
		if pcs_makeup > 1:pcs_makeup = 0
		'You hurt and sometimes sharp bursts of pain makes you groan when you move inside two members in contact with each other through a thin stenochku share your vagina filled <<dick>> centimeter and a member of your <<$anustipe>> anus filled <<dick2>> centimeter member. You chustvuete itself ready to burst, your ass and pussy feels merged into one pretty painful lump. Your eyes are not arbitrarily veiled veil of tears.'
	elseif totPAIN >= 4:
		pcs_mood = 5
		pcs_horny = 0
		pcs_willpwr = pcs_willpwr/2

		if pcs_makeup > 1:pcs_makeup = 0

		'You squeals and tears stream pouring out of your eyes from the terrible pain, your entire abdomen and the priest gives a sharp pain while <<$boydesc1>> fucks your vagina with <<$xem1>> <<dick1>> centimeter dick and <<$boydesc2>> almost tearing your <<$anustipe>> with <<$xem2>> <<dick2>> centimeter instrument.'
	end
end &! --- doublepenetration ---


if $ARGS[0] = 'killvar':
	killvar '$stamina_npc'
	killvar '$d_analsex_dildo'
	killvar '$d_analsex_bottle'
	killvar '$d_strapon_anal'
	killvar '$d_vag_sex_dildo'
	killvar '$d_vag_sex_bottle'
	killvar '$d_strapon_vag'
	killvar '$clrboy'
	killvar '$doublepenetration'
end
--- dinSex2 ---------------------------------