glife/locations/sexdvoe

# sexdvoe
if $ARGS[0] = 'start':
	guy += 2
	picrand = rand(0, 1)
	xgt 'sexdvoe', 'var'
end

if $ARGS[0] = 'menu':
	cla
	gs 'stat'
	if SexTypeCheck = 0 and picrand > 1:
		SexTypeCheck = 1
		if picrand = 12:DoubleBan = 1
		if picrand = 40:BlowBan = 1 & DoubleBan = 1
	end
	if dom > 0:
		if BlowBan = 0:act 'Blow them':sexdvoeloc = 0 & gt 'sexdvoe', 'sex'
		if sameboy = 1:
			if DoubleBan = 0:act 'Double penetration':sexdvoeloc = rand(1,2) & gt 'sexdvoe', 'sex'
			if SpitVagBan = 0:act 'Spit roast (pussy)':sexdvoeloc = rand(3,4) & gt 'sexdvoe', 'sex'
			if SpitAssBan = 0:act 'Spit roast (ass)':sexdvoeloc = rand(5,6) & gt 'sexdvoe', 'sex'
		else
			if DoubleBan = 0:act 'DP (<<$boytemp>> in pussy)':sexdvoeloc = 1 & gt 'sexdvoe', 'sex'
			if DoubleBan = 0:act 'DP (<<$boytemp1>> in pussy)':sexdvoeloc = 2 & gt 'sexdvoe', 'sex'
			if SpitVagBan = 0:act 'Spit roast (<<$boytemp>> in pussy)':sexdvoeloc = 3 & gt 'sexdvoe', 'sex'
			if SpitVagBan = 0:act 'Spit roast (<<$boytemp1>> in pussy)':sexdvoeloc = 4 & gt 'sexdvoe', 'sex'
			if SpitAssBan = 0:act 'Spit roast (<<$boytemp>> in ass)':sexdvoeloc = 5 & gt 'sexdvoe', 'sex'
			if SpitAssBan = 0:act 'Spit roast (<<$boytemp1>> in ass)':sexdvoeloc = 6 & gt 'sexdvoe', 'sex'
		end
	else
		act 'Continue':
			if BlowBan = 1 and DoubleBan ! 1:
				sexdvoe = rand(1,3)
			elseif BlowBan = 1 and DoubleBan = 1:
				sexdvoe = rand(2,3)
			else
				sexdvoe = rand(0,3)
			end
			if sexdvoe = 0:
				sexdvoeloc = 0 & gt 'sexdvoe', 'sex'
			elseif sexdvoe = 1:
				sexdvoeloc = rand(3,4) & gt 'sexdvoe', 'sex'
			elseif sexdvoe = 2:
				sexdvoeloc = rand(5,6) & gt 'sexdvoe', 'sex'
			else
				sexdvoeloc = rand(1,2) & gt 'sexdvoe', 'sex'
			end
		end
	end
end

if $ARGS[0] = 'var':
	*clr
	if $boytemp ! '' and $boytemp1 ! '' and $boytemp = $boytemp1:sameboy = 1
	if $boytemp = '':$boytemp = $boy
	if $boytemp1 = '':$boytemp1 = $boy1
	sexstart = 1
	sexvar = rand(3,6)
	'<center><img src="images/img/sexdvoe/kiss.jpg"></center>'
	'After some kissing it is time to move on to the next stage.'
	xgt 'sexdvoe', 'menu'
end

if $ARGS[0] = 'sex':

	!blowjob
	if sexdvoeloc = 0:
		*clr
		horny += rand(10,20)
		minut += 10
		sexvar -= 1
		dynamic $stamina_npc

		if dvsxbj = 0:
			stat['bj'] += 1
			dvsxbj = 1
		end
		
		if sexvar > 0:
			'<center><img src="images/img/sexdvoe/minet<<picrand>>.jpg"></center>'
		else 
			'<center><img src="images/img/sexdvoe/cum<<picrand>>.jpg"></center>'
		end
		'You try to suck both of their cocks, but they really do not fit inside your mouth at the same time.'
		if horny >= 80:
			horny = 0
			orgasm += 1
			'You have an orgasm.'
		end
		if sexvar = 1:'<br>They indicate that they will cum soon.'
		if sexvar > 0:xgt 'sexdvoe', 'menu'
		if sexvar = 0:gs 'sexdvoe', 'end'
		
	!double penetration
	elseif sexdvoeloc < 3:
		*clr
		horny += rand(10,20)
		minut += 10
		sexvar -= 1
		dynamic $stamina_npc

		if dvsxsex = 0:
			stat['vaginal'] += 1
			dvsxsex = 1
		end

		if dvsxanal = 0:
			stat['anal'] += 1
			dvsxanal = 1
		end

		'<center><img src="images/img/sexdvoe/dp<<picrand>>.jpg"></center>'
		if sameboy = 1:
			'Both of them fuck you, one of them your ass, the other your pussy. The double friction gives you great pleasure as they are pumping in and out of your body in tandem.'
		elseif sexdvoeloc = 1:
			'Both of them fuck you, <<$boytemp1>> in your ass, <<$boytemp>> in your pussy. The double friction gives you great pleasure as they are pumping in and out of your body in tandem.'
			cumprecheck = 1
			gs 'cum_call', '', '<<$boy>>'
		else
			'Both of them fuck you, <<$boytemp>> in your ass, <<$boytemp1>> in your pussy. The double friction gives you great pleasure as they are pumping in and out of your body in tandem.'
			cumprecheck = 1
			gs 'cum_call', '', '<<$boy1>>'
		end

		if horny >= 80:
			horny = 0
			orgasm += 1
			'You have an orgasm.'
		end
		if sexvar = 1:'<br>They indicate that they will cum soon.'
		if sexvar > 0:xgt 'sexdvoe', 'menu'
		if sexvar = 0:gs 'sexdvoe', 'end'
			
	!spitroast, pussy
	elseif sexdvoeloc < 5:
		*clr
		horny += rand(10,20)
		minut += 10
		sexvar -= 1
		dynamic $stamina_npc

		if dvsxbj = 0:
			stat['bj'] += 1
			dvsxbj = 1
		end

		if dvsxsex = 0:
			stat['vaginal'] += 1
			dvsxsex = 1
		end

		'<center><img src="images/img/sexdvoe/vag<<picrand>>.jpg"></center>'
		if sameboy = 1:
			'While one guy is fucking your pussy, you diligently suck off the second.'
		elseif sexdvoeloc = 3:
			'While <<$boytemp>> is fucking your pussy, you diligently suck off <<$boytemp1>>.'
			cumprecheck = 1
			gs 'cum_call', '', '<<$boy>>'
		else
			'While <<$boytemp1>> is fucking your pussy, you diligently suck off <<$boytemp>>.'
			cumprecheck = 1
			gs 'cum_call', '', '<<$boy1>>'
		end

		if horny >= 80:
			horny = 0
			orgasm += 1
			'You have an orgasm.'
		end
		if sexvar = 1:'<br>They indicate that they will cum soon.'
		if sexvar > 0:xgt 'sexdvoe', 'menu'
		if sexvar = 0:gs 'sexdvoe', 'end'
		
	!spitroast, ass
	else
		*clr
		horny += rand(10,20)
		minut += 10
		sexvar -= 1
		dynamic $stamina_npc

		if dvsxbj = 0:
			stat['bj'] += 1
			dvsxbj = 1
		end

		if dvsxanal = 0:
			stat['anal'] += 1
			dvsxanal = 1
		end

		'<center><img src="images/img/sexdvoe/anal<<picrand>>.jpg"></center>'
		if sameboy = 1:
			'While one guy is fucking your ass, you diligently suck off the second.'
		elseif sexdvoeloc = 3:
			'While <<$boytemp>> is fucking your ass, you diligently suck off <<$boytemp1>>.'
		else
			'While <<$boytemp1>> is fucking your ass, you diligently suck off <<$boytemp>>.'
		end

		if horny >= 80:
			horny = 0
			orgasm += 1
			'You have an orgasm.'
		end
		if sexvar = 1:'<br>They indicate that they will cum soon.'
		if sexvar > 0:xgt 'sexdvoe', 'menu'
		if sexvar = 0:gs 'sexdvoe', 'end'
	end
end

if $ARGS[0] = 'end':
	cla
	sweat += 10
	minut += 10
	dvsxbj = 0
	dvsxsex = 0
	dvsxanal = 0
	sexvar = 0
	sameboy = 0
	sexstart = 0
	temp1 = rand(2,9)
	temp2 = rand(2,9)
	if sexdvoeloc = 0:
		temp = rand(0,5)
		if temp = 0:
			gs 'cum_call', 'hair', '<<$boy>>','<<temp1>>'
		elseif temp < 3:
			gs 'cum_call', 'face', '<<$boy>>','<<temp1>>'
		else 
			gs 'cum_call', 'mouth', '<<$boy>>','<<temp1>>'
		end
		temp = rand(0,5)
		if temp = 0:
			gs 'cum_call', 'hair', '<<$boy1>>','<<temp2>>'
		elseif temp < 3:
			gs 'cum_call', 'face', '<<$boy1>>','<<temp2>>'
		else 
			gs 'cum_call', 'mouth', '<<$boy1>>','<<temp2>>'
		end
		'With a groan they both cum, mostly in your mouth, but it may have gotten on your face too.'
	elseif sexdvoeloc = 1:
		gs 'cum_call', '', '<<$boy>>','<<temp1>>'
		gs 'cum_call', 'anus', '<<$boy1>>','<<temp2>>'
		if $boy = $boy1:
			'They groan, and you feel the copious amount of their seed they both pump inside your body at the same time.'
			gs 'cuminsidereact', '<<$boytemp>> or $boytemp1>>, you''l never know for sure which'
		else
			'They both groan, and you feel as <<$boytemp>> pump your pussy full of his seed, while <<$boytemp1>>''s semen is released in your ass.'
			gs 'cuminsidereact', $boytemp1
		end
	elseif sexdvoeloc = 2:
		gs 'cum_call', '', '<<$boy1>>','<<temp2>>'
		gs 'cum_call', 'anus', '<<$boy>>','<<temp1>>'		
		if $boy = $boy1:
			'They groan, and you feel the copious amount of their seed they both pump inside your body at the same time.'
			gs 'cuminsidereact', '<<$boytemp>> or $boytemp1>>, you''l never know for sure which'
		else
			'They both groan, and you feel as <<$boytemp1>> pump your pussy full of his seed, while <<$boytemp>>''s semen is released in your ass.'
			gs 'cuminsidereact', $boytemp1
		end
	elseif sexdvoeloc = 3:
		gs 'cum_call', '', '<<$boy>>','<<temp1>>'
		gs 'cum_call', 'mouth', '<<$boy1>>','<<temp2>>'
		if $boy = $boy1:
			'They groan, and you have to swallow one of the <<$boytemp>>''s seed while the other pumps your pussy full of his own.'
			gs 'cuminsidereact', '<<$boytemp>> or $boytemp1>>, you''l never know for sure which'
		else
			'They both groan, and you have to swallow <<$boytemp1>>''s seed while <<$boytemp>> pumps your pussy full of his own.'
			gs 'cuminsidereact', $boytemp
		end
	elseif sexdvoeloc = 4:
		gs 'cum_call', '', '<<$boy1>>','<<temp2>>'
		gs 'cum_call', 'mouth', '<<$boy>>','<<temp1>>'
		if $boy = $boy1:
			'They groan, and you have to swallow one of the <<$boy>>''s seed while the other pumps your pussy full of his own.'
			gs 'cuminsidereact', '<<$boytemp>> or $boytemp1>>, you''l never know for sure which'
		else
			'They both groan, and you have to swallow <<$boytemp>>''s seed while <<$boytemp1>> pumps your pussy full of his own.'
			gs 'cuminsidereact', $boytemp1
		end
	elseif sexdvoeloc = 5:
		gs 'cum_call', 'anus', '<<$boy>>','<<temp1>>'
		gs 'cum_call', 'mouth', '<<$boy1>>','<<temp2>>'
		if $boy = $boy1:
			'They groan at the same time, and you feel the taste of one of the guys as he cums inside your mouth, while the other one pumps your ass full of his own semen.'
		else
			'They groan at the same time, and you feel the taste of <<$boytemp1>>''s seed as he cums inside your mouth, while <<$boytemp>> pumps your ass full of his semen.'
		end
	else
		gs 'cum_call', 'anus', '<<$boy1>>','<<temp2>>'
		gs 'cum_call', 'mouth', '<<$boy>>','<<temp1>>'
		if $boy = $boy1:
			'They groan at the same time, and you feel the taste of one of the guys as he cums inside your mouth, while the other one pumps your ass full of his own semen.'
		else
			'They groan at the same time, and you feel the taste of <<$boytemp>>''s seed as he cums inside your mouth, while <<$boytemp1>> pumps your ass full of his semen.'
		end
	end

	if horny >= 80:
		horny = 0
		orgasm += 1
	end

	if picrand = 29:'When it ends boss says that you did well and today you are free and can go.'
	if picrand = 39:'Then <<$boyA>> throws you out of the apartment.'

	act 'Leave':
		$boytemp = ''
		$boytemp1 = ''
		if picrand >= 24 and picrand <= 26:gt 'office', 'work'
		if picrand >= 30 and picrand <= 34:gt 'office', 'work'
		if picrand >= 35 and picrand <= 37:gt 'house'
		if picrand >= 40 and picrand <= 43:dynamic $brodila
		if picrand = 38:gt 'bed', 'vorend'
		if picrand = 29 or picrand = 39:gt 'nord'

		if kafesexrand = 1:
			kafesexrand = 0
			gt 'kafe', 'workPred'
		end

		gt '<<$sexloc>>', 'start'
	end
end

--- sexdvoe ---------------------------------