# 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

if $ARGS[0] = 'd_vag_sex_dildo':
	frost = 0
	if dildohand = 10:
		$dick_girth = 'skinny'
	elseif dildohand = 15:
		$dick_girth = 'slim'
	elseif dildohand = 20:
		$dick_girth = 'well proportioned'
	elseif dildohand = 25:
		$dick_girth = 'thicker than average'
	elseif dildohand = 30:
		$dick_girth = 'thick'
	elseif dildohand = 35:
		$dick_girth = 'massive'
	elseif dildohand = 40:
		$dick_girth = 'monstrous'
	end

	if pcs_vag > 0:
		$temp_mens = iif(cycle <= 0,' and menstruation blood leaks from your vagina','')
		if (vgrdif + vltdif) >= 30: 'You groan in pain when the <<dildohand>>cm dildo enters your pussy. Tears flow from your eyes and between your legs feels as if you drove in a red-hot rod<<$temp_mens>>.'
		if (vgrdif + vltdif) >= 20 and (vgrdif + vltdif) < 30: 'You bite your lip in pain when the <<dildohand>> cm dildo enters your pussy.  You feel pain between your legs<<$temp_mens>>.'
		if cycle <= 0: $temp_mens = ', even though' + $temp_mens
		if (vgrdif + vltdif) >= 12 and (vgrdif + vltdif) < 20: 'You flinch at the sudden pain when the <<dildohand>>cm dildo enters your pussy, but the pain between your legs slowly calms down and becomes quite tolerable. You are trying to be excited while moving the <<dildohand>>cm dildo inside your pussy <<$temp_mens>>, you don''t want it to go out.'
		if (vgrdif + vltdif) >= 7 and (vgrdif + vltdif) < 12: 'You flinch, from feeling your pussy being stretched, with a thrust from a <<dildohand>>cm dildo. Between your legs feels a little nice, when you fuck yourself with the dildo<<$temp_mens>>.'
		if (vgrdif + vltdif) >=  2 and (vgrdif + vltdif) < 7: 'You flinch, from feeling your pussy being stretched, with a thrust from a <<dildohand>>cm dildo. Between your legs feels a little nice, when you fuck yourself with the dildo. Gradually, a warm and throbbing feeling grows in your lower abdomen, then the feeling subsides and feels nice until the end of<<$temp_mens>>.'
		if (vgrdif + vltdif) >= -3 and (vgrdif + vltdif) < 2: 'You''re startled by a pleasant sensation, when your pussy ravishly starts taking the dildo. Between your legs becomes very warm, and you feel a pleasant sensation, when a strong <<dildohand>>cm dildo moves back and forth in your wet pussy<<$temp_mens>>. Gradually, a warm and throbbing feeling grows in your lower abdomen, then the feeling descends on you and your entire body is covered in hot waves of orgasm. You start giving out involuntarily shouts of pleasure while ravishing the dildo.'
		if (vgrdif + vltdif) <  -3: 'You feel the dildo penetrating your pussy. Between your legs feels nice, but the <<dildohand>>cm dildo is a bit too small for your pussy. Gradually, a warm and throbbing feeling grows in your lower abdomen, then the feeling slightly subsides and remains steady until the end of<<$temp_mens>>.'
		gs 'arousal','vaginal_dildo',ARGS[1],$ARGS[2],$ARGS[3],$ARGS[4],$ARGS[5],$ARGS[6],$ARGS[7],$ARGS[8]
	else
		$temp_mens = iif(cycle <= 0,' and menstruation blood leaks from your vagina','')
		pcs_horny = 0
		pcs_mood -= 15
		pcs_willpwr -= 15
		'You bite your lip in pain while tears stream from your eyes when the bottle enters you, breaking your hymen. You cry out in pain and afterwards reveals a 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

!! 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
	if pcs_vag > 0:
		$temp_mens = iif(cycle <= 0,' and menstruation blood leaks from your vagina','')
		if (vgrdif + vltdif) >= 30: 'You groan in pain when <<$boydesc>> penetrates you. Tears flow from your eyes and it feels like someone drove a red-hot rod into your vagina. You cry and moan while <<$xyr>> 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>> enters you, it is very painful. You frown and moan in pain while <<$xyr>> 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 wince at the sudden pain when <<$boydesc>> enters you, it hurts but gradually becames quite tolerable. You are trying to get aroused while fake <<$xyr>> <<dick>> centimeter dick fucks your pussy<<$temp_mens>>, but you did not succeed.'
		if (vgrdif + vltdif) >= 7 and (vgrdif + vltdif) < 12: 'You are startled by the feeling that your pussy is stretching when <<$boydesc>> enters you. It feels good when rubber <<$xyr>> <<dick>> centimeter dick fucks your pussy<<$temp_mens>>.'
		if (vgrdif + vltdif) >=  2 and (vgrdif + vltdif) < 7: 'You are startled by the feeling that your pussy is stretching as <<$boydesc>> enters you. It feels good when <<$xyr>> <<dick>> centimeter rubber dick fucks your pussy. Gradually, a pleasant warmth and some pulsations start building up in your stomach, then the feeling decreases a little and remains like that until the end<<$temp_mens>>.'
		if (vgrdif + vltdif) >= -3 and (vgrdif + vltdif) < 2: 'You flinch from a pleasant feeling when your pussy is stretched by <<$xyr>> dick. It feels good when <<$xyr>> <<dick>> centimeter fake dick fucks your pussy<<$temp_mens>>. Gradually, a pleasant warmth and some pulsations start building up in your stomach, then the feeling becomes unbearable and your entire body is covered with hot waves of orgasm as you scream with pleasure.'
		if (vgrdif + vltdif) <  -3: 'You feel <<$xyr>> fake penis enter your pussy. This gives you a nice tingling feeling between your legs, but <<$xyr>> <<dick>> cm rubber dick is significantly less than what your pussy needs. It is not big enough for you. Gradually a pleasant warmth and some pulsations start building up in your stomach. Then the feeling decreases a little and remaines like that until the end<<$temp_mens>>.'
		gs 'arousal','vaginal_strap',ARGS[1],$ARGS[2],$ARGS[3],$ARGS[4],$ARGS[5],$ARGS[6],$ARGS[7],$ARGS[8]
	else
		$temp_mens = iif(cycle <= 0,' and menstruation blood leaks from your vagina','')
		pcs_horny = 0
		pcs_mood -= 15
		pcs_willpwr -= 15
		'You bite your <<$liptalk>> in pain while tears start to flow from your eyes when <<$boydesc>> penetrates you, breaking your hymen. You moan while crying and <<$xyr>> 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

!! 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:
		$temp_mens = iif(cycle <= 0,' and menstruation blood leaks from your vagina','')
		if (vgrdif + vltdif) >= 30: 'You groan in pain when the <<dick>> cm dildo enters your pussy. Tears flow from your eyes and between your legs feels as if you drove in a red-hot rod<<$temp_mens>>.'
		if (vgrdif + vltdif) >= 20 and (vgrdif + vltdif) < 30: 'You bite your lip in pain when the <<dick>> cm dildo enters your pussy.  You feel pain between your legs<<$temp_mens>>.'
		if cycle <= 0: $temp_mens = ', even though' + $temp_mens
		if (vgrdif + vltdif) >= 12 and (vgrdif + vltdif) < 20: 'You flinch at the sudden pain when the <<dick>>cm dildo enters your pussy, but the pain between your legs slowly calms down and becomes quite tolerable. You are trying to be excited while moving the <<dick>> cm dildo inside your pussy <<$temp_mens>>, you don''t want it to go out.'
		if (vgrdif + vltdif) >= 7 and (vgrdif + vltdif) < 12: 'You flinch, from feeling your pussy being stretched, with a thrust from a <<dick>>cm dildo. Between your legs feels a little nice, when you fuck yourself with the dildo<<$temp_mens>>.'
		if (vgrdif + vltdif) >=  2 and (vgrdif + vltdif) < 7: 'You flinch, from feeling your pussy being stretched, with a thrust from a <<dick>>cm dildo. Between your legs feels a little nice, when you fuck yourself with the dildo. Gradually, a warm and throbbing feeling grows in your lower abdomen, then the feeling subsides and feels nice until the end of<<$temp_mens>>.'
		if (vgrdif + vltdif) >= -3 and (vgrdif + vltdif) < 2: 'You''re startled by a pleasant sensation, when your pussy ravishly starts taking the dildo. Between your legs becomes very warm, and you feel a pleasant sensation, when a strong <<dick>> cm dildo moves back and forth in your wet pussy<<$temp_mens>>. Gradually, a warm and throbbing feeling grows in your lower abdomen, then the feeling descends on you and your entire body is covered in hot waves of orgasm. You start giving out involuntarily shouts of pleasure while ravishing the dildo.'
		if (vgrdif + vltdif) <  -3: 'You feel the dildo penetrating your pussy. Between your legs feels nice, but the <<dick>>cm dildo is a bit too small for your pussy. Gradually, a warm and throbbing feeling grows in your lower abdomen, then the feeling slightly subsides and remains steady until the end of<<$temp_mens>>.'
		gs 'arousal','vaginal_dildo',ARGS[1],$ARGS[2],$ARGS[3],$ARGS[4],$ARGS[5],$ARGS[6],$ARGS[7],$ARGS[8]
	else
		$temp_mens = iif(cycle <= 0,' and menstruation blood leaks from your vagina','')
		pcs_horny = 0
		pcs_mood -= 15
		pcs_willpwr -= 15
		'You bite your lip in pain while tears stream from your eyes when the bottle enters you, breaking your hymen. You cry out in pain and afterwards reveals a 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

if $ARGS[0] = 'd_analsex_dildo':
	frost = 0
	if dildohand = 10:
		$dick_girth = 'skinny'
	elseif dildohand = 15:
		$dick_girth = 'slim'
	elseif dildohand = 20:
		$dick_girth = 'well proportioned'
	elseif dildohand = 25:
		$dick_girth = 'thicker than average'
	elseif dildohand = 30:
		$dick_girth = 'thick'
	elseif dildohand = 35:
		$dick_girth = 'massive'
	elseif dildohand = 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 you spit on your fingers and use your saliva to lubricate 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 insert three fingers into your ass you groan in pain.'
	if pcs_ass >= 10:'You start to stretch your anus using three fingers.'

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

	if (agrdif + altdif) >= 20:'You scream and bite your lip after a sharp pain when the <<dildohand>>cm dildo enters your ass.'
	if (agrdif + altdif) <  20:'You moan when the <<dildohand>>cm dildo enters your ass.'

	'You stop for a moment, giving your ass time to adjust to the dildo inside it, and then start to slowly move, stretching your anus.'
	
	if (agrdif + altdif) >= 30:
		if pcs_makeup > 1:pcs_makeup = 0
		'You feel like your anus is stretching when the dildo enters you. You start to moan rhythmically in unison with the <<dildohand>>cm dildo''s movements inside you.'
	elseif (agrdif + altdif) >= 20 and (agrdif + altdif) < 30:
		pcs_horny += 10
		'You moan in pleasure while the dildo moves inside your ass.'
	end
	gs 'arousal','anal_dildo', ARGS[1],$ARGS[2],$ARGS[3],$ARGS[4],$ARGS[5],$ARGS[6],$ARGS[7],$ARGS[8]
end

!! 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
	'<<$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 using three fingers.'
	*p '<<$boydesc>> pulls <<$xyr>> fingers out of your ass and you feel '
	if rand(0,1)=0: '<<$xyr>> fake cock near your hole.' else '<<$xem>> pushing <<$xyr>> fake cock into your hole.'
	if (agrdif + altdif) >= 20:'You scream and bite your lip from a sharp pain when <<$xyr>> fake <<dick>> centimeter dick enters your ass.'
	if (agrdif + altdif) <  20:'You moan when <<$xyr>> <<dick>>cm rubber dick enters your ass.'
	'<<$boydesc>> stops for a moment, giving your ass time to adjust to <<$xyr>> cock inside it. Then <<$xe>> starts to slowly move, stretching your anus.'

	if (agrdif + altdif) >= 30:
		if pcs_makeup > 1:pcs_makeup = 0
		'You cry and bite your lip when the <<dick>> centimeter fake cock begins to fuck your ass with 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 feel like your anus is stretching when <<$xyr>> fake shaft enters you. You start to moan rhythmically in unison with <<$xyr>> fake cock''s movements inside of you.'
	end
	gs 'arousal','anal', ARGS[1],$ARGS[2],$ARGS[3],$ARGS[4],$ARGS[5],$ARGS[6],$ARGS[7],$ARGS[8]
end

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 you spit on your fingers and, using saliva, you massage 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:'As you insert three fingers into your ass you groan in pain.'
	if pcs_ass >= 10:'You start to stretch your anus using three fingers.'

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

	'You stopped for a moment, giving your ass time to adjust to the bottle neck inside it, and then start to slowly move, stretching your anus.'

	if (agrdif + altdif) >= 20:'You scream and bite 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 feel like your anus is stretching when the bottle enters you. You start to moan rhythmically in unison with the bottle''s movements inside of you.'
	elseif (agrdif + altdif) >= 20 and (agrdif + altdif) < 30:
		pcs_horny += 10
		'You moan in pleasure when the bottle moves inside your ass.'
	end
	gs 'arousal','anal_dildo', ARGS[1],$ARGS[2],$ARGS[3],$ARGS[4],$ARGS[5],$ARGS[6],$ARGS[7],$ARGS[8]
end

!! 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
	minut -= ARGS[1]
	TotPain = 0
	if pcs_vag > 0:
		if (vgrdif + vltdif) >= 30: TotPain +=4 & 'You groan in pain when <<$boydesc1>> penetrates you, tears flow from your eyes and it feels like someone drove a red-hot rod into your vagina.'
		if (vgrdif + vltdif) >= 20 and (vgrdif + vltdif) < 30: TotPain +=3 & 'You bite your lip in pain when <<$boydesc1>> enters you, it is very painful.'
		if (vgrdif + vltdif) >= 12 and (vgrdif + vltdif) < 20: TotPain +=2 & 'You wince at the sudden pain when <<$boydesc1>> enters, it hurts but gradually it becomes quite tolerable.'
		if (vgrdif + vltdif) >= 7 and (vgrdif + vltdif) < 12: TotPain +=1 & 'You are startled by the feeling of your pussy stretching when <<$boydesc1>> enters you.'
		if (vgrdif + vltdif) >=  2 and (vgrdif + vltdif) < 7: 'You are startled by the feeling of your pussy stretching as <<$boydesc1>> enters you.'
		if (vgrdif + vltdif) >= -3 and (vgrdif + vltdif) < 2: 'You flinch from a pleasant feeling when your pussy is stretched by <<$xyr1>> dick.'
		if (vgrdif + vltdif) <  -3: 'You feel <<$xyr1>> penis entering your pussy. This gives you a nice tingling feeling between your legs, but <<$xyr>> <<dick>> cm dick is significantly smaller than what your pussy needs.'
	else
		pcs_horny = 0
		pcs_mood -= 15
		pcs_willpwr -= 15
		TotPain +=4
		'You bite your <<$liptalk>> in pain and tears start to flow from your eyes when <<$boydesc1>> penetrates you, breaking your hymen.'
	end
	if (agrdif + altdif) >= 20: TotPain +=1 & 'You scream and bite your lip from a sharp pain when <<$xyr2>> <<dick2>> centimeter dick enters your ass.'
	if (agrdif + altdif) <  20:'You moan when <<$xyr2>> <<dick2>> centimeter dick enters your ass.'
	'<<$boydesc2>> stops for a moment, giving your ass time to adjust to <<$xyr2>> cock inside it. He then starts to slowly move, stretching your anus.'

	if (agrdif + altdif) >= 30:
		if pcs_makeup > 1:pcs_makeup = 0
		'You cry and bite your lip when the <<dick2>>cm cock begins to fuck your ass.'
		TotPain +=1
	elseif (agrdif + altdif) >= 20 and (agrdif + altdif) < 30:
		pcs_horny += 10
		'You feel like your anus is stretching when <<$xyr2>> penis enters you. You start to moan rhythmically in unison with <<$xyr2>> cock''s movements inside of you.'
	end

	if totPAIN = 0:
		'Feelings merge together when you move inside two members in contact with each other through a thin opening sharing your vagina filled <<dick1>> centimeter and a member of your <<$anustipe>> anus filled <<dick2>> centimeter member. Your abdomen burns as if pleasant sunlight was spreading heat throughout your 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 powerfully orgasm while moaning and screaming until your muscles are tightening frantically around two members on 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 opening share your vagina filled <<dick1>> centimeter and a member of your <<$anustipe>> anus filled <<dick2>> centimeter member. It hurts a little, but still very nice while all free holes are being filled by members.'
	elseif totPAIN = 2:
		pcs_horny = pcs_horny/2
		pcs_mood = 50
		'You strattle themselves and feel like your holes are about ready to burst when you move inside two members in contact with each other through a thin opening sharing 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 shoot through your groan when you move inside two members in contact with each other through a thin opening sharing your vagina filled <<dick>> centimeter and a member of your <<$anustipe>> anus filled <<dick2>> centimeter member. You feel like you are being split in two as your ass and pussy feel merged into one pretty painful lump. Your eyes are a veil of tears.'
	elseif totPAIN >= 4:
		pcs_mood = 5
		pcs_horny = 0
		pcs_willpwr = pcs_willpwr/2
		if pcs_makeup > 1:pcs_makeup = 0
		'Squeals and tears stream pouring out of your eyes from the terrible pain, your entire abdomen and genitals feel a sharp pain while <<$boydesc1>> fucks your vagina with <<$xyr1>> <<dick1>> centimeter dick and <<$boydesc2>> almost tearing your <<$anustipe>> with <<$xyr2>> <<dick2>> centimeter instrument.'
	end
	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]
end

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