glife/locations/131_paysex

# paysex
!set picrand = RAND (0,1)

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

if $ARGS[0] = 'var':
set paysexrand = RAND(0,2)
set colpaysex += 1
if paysexrand = 0:
cla
*clr
set horny += 10
if paysxbj = 0:
	set bj += 1
	set paysxbj = 1
	end
if paysxsex = 0:
	set sex += 1
	set paysxsex = 1
	end
set SUB += 1
'<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
end
if paysexrand = 1:
cla
*clr
set horny += 10
if paysxbj = 0:
	set bj += 1
	set paysxbj = 1
	end
if paysxanal = 0:
	set anal += 1
	set paysxanal = 1
	end
set SUB += 1
'<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
end
if paysexrand = 2:
cla
*clr
set horny += 10
if paysxbj = 0:
	set bj += 1
	set paysxbj = 1
	end
if paysxsex = 0:
	set sex += 1
	set paysxsex = 1
	end
if paysxanal = 0:
	set anal += 1
	set 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
set paysxbj = 0
set paysxsex = 0
set paysxanal = 0
set colpaysex = 0
set cumbelly = 1
set cumpussy = 1
set cumass = 1
set cumlip = 1
set cumface = 1
if horny >= 80:
set horny = 0
set 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 ---------------------------------