# paysex
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="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 'End_Up.':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="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 'End_Up.':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="img/paysex/dp<<picrand>>.jpg"></center>'
'Fuck you into all the cracks.'
act 'More':gt'paysex','var'
if colpaysex>3:
     act 'End_Up.':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="img/paysex/cum<<picrand>>.jpg"></center>'
'When they were satisfied that you have filled in all of his sperm.'
act 'Get_Away':
	 if picrand=16 or picrand=17:gt'office','work'
	 if picrand=18:gt'husbSex','dolgend'
	 gt '<<$sexloc>>','start'
	 end
end
--- paysex ---------------------------------

