glife/locations/sexdvoe

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

if $ARGS[0] = 'var':
	set sexrand = rand(0, 3)

	if picrand = 12:set sexrand = rand(0, 2)
	if picrand = 40:set sexrand = rand(1, 2)

	if sexrand = 0:
		cla
		*clr

		if dvsxbj = 0:
			set bj += 1
			set dvsxbj = 1
		end

		set horny += 10
		set minut += 10
		set sexvar += 1
		'<center><img src="images/img/sexdvoe/minet<<picrand>>.jpg"></center>'
		'You suck both members trying to deliver udovolsvie both, but just two in your mouth does not fit.'

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

	if sexrand = 1:
		cla
		*clr

		if dvsxbj = 0:
			set bj += 1
			set dvsxbj = 1
		end

		if dvsxsex = 0:
			set sex += 1
			set dvsxsex = 1
		end

		set horny += 10
		set minut += 10
		set sexvar += 1
		'<center><img src="images/img/sexdvoe/vag<<picrand>>.jpg"></center>'
		'While one guy fucks your pussy, you diligently sucking the second.'

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

	if sexrand = 2:
		cla
		*clr

		if dvsxbj = 0:
			set bj += 1
			set dvsxbj = 1
		end

		if dvsxanal = 0:
			set anal += 1
			set dvsxanal = 1
		end

		set horny += 10
		set minut += 10
		set sexvar += 1
		'<center><img src="images/img/sexdvoe/anal<<picrand>>.jpg"></center>'
		'While one guy fucks you in the ass, you prevomogaya own groaning trying to serve a second mouth.'

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

	if sexrand = 3:
		cla
		*clr
		set horny += 10

		if dvsxsex = 0:
			set sex += 1
			set dvsxsex = 1
		end

		if dvsxanal = 0:
			set anal += 1
			set dvsxanal = 1
		end

		set minut += 10
		set sexvar += 1
		'<center><img src="images/img/sexdvoe/dp<<picrand>>.jpg"></center>'
		'They both belong to you, it is a great pleasure dostovlyaet when both members move on vnurti variably as pistons.'

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

if $ARGS[0] = 'end':
	cla
	*clr

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

	set minut += 10
	set dvsxbj = 0
	set dvsxsex = 0
	set dvsxanal = 0
	set sexvar = 0
	set cumbelly = 1
	set cumlip = 1
	set cumface = 1
	'<center><img src="images/img/sexdvoe/cum<<picrand>>.jpg"></center>'
	'When they were satisfied that you have filled in all his sperm.'
	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':
		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:gt 'korr'
		if picrand = 38:gt 'bed', 'vorend'
		if picrand = 29 or picrand = 39:gt 'nord'

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

		gt $sexloc, 'start'
	end
end

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