glife/locations/paysex

# paysex
if $ARGS[0] = 'start':
	minut += 30
	gang += 1
	sweat += 1
	picrand = rand(0, 1)
	gt 'paysex', 'var'
end

if $ARGS[0] = 'var':
	colpaysex += 1
	paysexrand = rand(0, 2)

	if paysexrand = 0:
		cla
		*clr
		horny += 10
		SUB += 1

		if paysxbj = 0:
			bj += 1
			paysxbj = 1
		end

		if paysxsex = 0:
			sex += 1
			paysxsex = 1
			$boy = 'Man from a gang bang used as payment'
			cumprecheck = 1
			gs 'cum_manage'
		end

		'<center><img src="images/img/paysex/vag<<picrand>>.jpg"></center>'
		'While one guy fucks your pussy, you sucked the rest.'

		act 'More':gt 'paysex', 'var'

		if colpaysex > 3:
			act 'Finish.':gt 'paysex', 'end'
		end
	elseif paysexrand = 1:
		cla
		*clr
		horny += 10
		SUB += 1

		if paysxbj = 0:
			bj += 1
			paysxbj = 1
		end

		if paysxanal = 0:
			anal += 1
			paysxanal = 1
		end

		'<center><img src="images/img/paysex/anal<<picrand>>.jpg"></center>'
		'While one guy fucks you in the ass, you sucked the rest.'

		act 'More':gt 'paysex', 'var'

		if colpaysex > 3:
			act 'Finish.':gt 'paysex', 'end'
		end
	elseif paysexrand = 2:
		cla
		*clr
		horny += 10

		if paysxbj = 0:
			bj += 1
			paysxbj = 1
		end

		if paysxsex = 0:
			sex += 1
			paysxsex = 1
			$boy = 'Man from a gang bang used as payment'
			cumprecheck = 1
			gs 'cum_manage'
		end

		if paysxanal = 0:
			anal += 1
			paysxanal = 1
		end

		'<center><img src="images/img/paysex/dp<<picrand>>.jpg"></center>'
		'Fuck you in all the cracks.'

		act 'More':gt 'paysex', 'var'

		if colpaysex > 3:
			act 'Finish.':gt 'paysex', 'end'
		end
	end
end

if $ARGS[0] = 'end':
	cla
	*clr
	paysxbj = 0
	paysxsex = 0
	paysxanal = 0
	colpaysex = 0
	temp = 2

	:paysexloop

	$boy = 'Man from a gang bang used as payment <<temp>>'
	gs 'cum_manage'
	spafinloc = 1
	gs 'cum_manage'
	spafinloc = 3
	gs 'cum_manage'
	spafinloc = 4
	gs 'cum_manage'
	spafinloc = 8
	gs 'cum_manage'
	spafinloc = 9
	gs 'cum_manage'
	spafinloc = 10
	gs 'cum_manage'
	spafinloc = 11
	gs 'cum_manage'
	spafinloc = 12
	gs 'cum_manage'
	spafinloc = 13
	gs 'cum_manage'
	spafinloc = 14
	gs 'cum_manage'
	spafinloc = 15
	gs 'cum_manage'
	spafinloc = 16
	gs 'cum_manage'
	temp -= 1

	if temp > 0: jump 'paysexloop'

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

	'<center><img src="images/img/paysex/cum<<picrand>>.jpg"></center>'

	'When they were satisfied that you have filled in all his sperm.'

	act 'Leave':
		if picrand = 16 or picrand = 17:gt 'office', 'work'
		if picrand = 18:gt 'husbSex', 'dolgend'

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

--- paysex ---------------------------------