glife/locations/sexdvanadva

# sexdvanadva

if $ARGS[0] = 'start':
	cla
	*clr
	guy += 2
	girl += 1
	gang += 1
	minut += 30
	pcs_sweat += 10
	gs 'stat'
	picrand = rand(0, 1)
	xgt 'sexdvanadva', 'var'
end

if $ARGS[0] = 'var':
	sexdvarand = rand(0, 6)

	if picrand = 11:sexdvarand = rand(0, 5)
	if picrand = 14:sexdvarand = rand(0, 4)

	if sexdvarand = 0:
		cla
		*clr
		sexvar += 1

		if dvdvsxbj = 0:
			dvdvsxbj = 1
		end

		'<center><img <<$set_imgh>> src="images/locations/shared/sex/sexdvanadva/minet<<picrand>>.jpg"></center>'
		'The two of you suck their cocks.'
		
		gs 'arousal', 'bj', 10, 'sub'
		gs 'stat'

		if sexvar < 3:act 'More':xgt 'sexdvanadva', 'var'
		if sexvar >= 3:act 'Finish':gt 'sexdvanadva', 'end'
	elseif sexdvarand = 1:
		cla
		*clr
		sexvar += 1
		'<center><img <<$set_imgh>> src="images/locations/shared/sex/sexdvanadva/vag<<picrand>>.jpg"></center>'
		'While she enjoys a stiff cock in her pussy, you are not left wanting for attention.'
		
		gs 'arousal', 'voyeur', 10, 'sub'
		gs 'stat'

		if sexvar < 3:act 'More':xgt 'sexdvanadva', 'var'
		if sexvar >= 3:act 'Finish':gt 'sexdvanadva', 'end'
	elseif sexdvarand = 2:
		cla
		*clr
		sexvar += 1

		if dvdvsxsex = 0:
			dvdvsxsex = 1
		end

		'<center><img <<$set_imgh>> src="images/locations/shared/sex/sexdvanadva/uvag<<picrand>>.jpg"></center>'
		'He thrusts into you. His cock sends waves of pleasure over your body.'
		
		gs 'arousal', 'vaginal', 10, 'sub'
		gs 'stat'

		if sexvar < 3:act 'More':xgt 'sexdvanadva', 'var'
		if sexvar >= 3:act 'Finish':gt 'sexdvanadva', 'end'
	elseif sexdvarand = 3:
		cla
		*clr
		sexvar += 1
		'<center><img <<$set_imgh>> src="images/locations/shared/sex/sexdvanadva/anal<<picrand>>.jpg"></center>'
		'You enjoy the sight of a cock in her ass, but you are mostly too distracted by the cock in your mouth.'

		gs 'arousal', 'bj', 10, 'sub'
		gs 'stat'
		
		if sexvar < 3:act 'More':xgt 'sexdvanadva', 'var'
		if sexvar >= 3:act 'Finish':gt 'sexdvanadva', 'end'
	elseif sexdvarand = 4:
		cla
		*clr
		sexvar += 1

		if dvdvsxanal = 0:
			dvdvsxanal = 1
		end

		'<center><img <<$set_imgh>> src="images/locations/shared/sex/sexdvanadva/uanal<<picrand>>.jpg"></center>'
		'When he enters your backdoor it hurts a little, but soon the pain goes away. Pleasure takes it''s place, as he slowly moves back and forth, stretching your hole.'

		gs 'arousal', 'anal', 10, 'sub'
		gs 'stat'
		
		if sexvar < 3:act 'More':xgt 'sexdvanadva', 'var'
		if sexvar >= 3:act 'Finish':gt 'sexdvanadva', 'end'
	elseif sexdvarand = 5:
		cla
		*clr
		sexvar += 1

		if dvdvsxsex = 0:
			dvdvsxsex = 1
		end

		if dvdvsxanal = 0:
			dvdvsxanal = 1
		end

		'<center><img <<$set_imgh>> src="images/locations/shared/sex/sexdvanadva/udp<<picrand>>.jpg"></center>'
		'Both men enter you at the same time. The feeling is almost too intense. Your moans of pleasure urge them on.'
		
		gs 'arousal', 'vaginal', 10, 'sub'
		gs 'arousal', 'anal', 10, 'sub'
		minut -= 10
		gs 'stat'
		
		if sexvar < 3:act 'More':xgt 'sexdvanadva', 'var'
		if sexvar >= 3:act 'Finish':gt 'sexdvanadva', 'end'
	elseif sexdvarand = 6:
		cla
		*clr
		sexvar += 1
		'<center><img <<$set_imgh>> src="images/locations/shared/sex/sexdvanadva/dp<<picrand>>.jpg"></center>'
		'She has both men fucking her. It makes you feel a little envious, as you watch playing with yourself.'
		
		gs 'arousal', 'masturbate', 10, 'sub'
		gs 'stat'

		if sexvar < 3:act 'More':xgt 'sexdvanadva', 'var'
		if sexvar >= 3:act 'Finish':gt 'sexdvanadva', 'end'
	end
end

if $ARGS[0] = 'end':
	cla
	*clr
	minut += 10
	dvdvsxbj = 0
	dvdvsxsex = 0
	dvdvsxanal = 0
	gs 'npcgeneratec', 0, 'Random Guy', rand(18,45)
	gs 'boyStat', $npclastgenerated
	spafinloc = 12
	gs 'cum_manage'
	sexvar = 0

	if pcs_horny >= 80:
		$orgasm_or = 'yes'
	end

	'<center><img <<$set_imgh>> src="images/locations/shared/sex/sexdvanadva/cum<<picrand>>.jpg"></center>'
	'They spill semen all over both of you. You lick it of each other, and share a deep kiss, before you both swallow.'
	
	gs 'arousal', 'end'
	gs 'stat'
	
	act 'Leave':
		if kafesexrand = 1:
			kafesexrand = 0
			gt 'kafe', 'workPred'
		end

		if kazsexdva = 1:
			kazsexdva = 0
			gt 'kazinosvid', '3'
		end

		gt $sexloc, 'start'
	end
end

--- sexdvanadva ---------------------------------