glife/locations/sexprefrand.qsrc

# sexprefrand

sexprefrand = rand(0, stat['bj'] + stat['vaginal'] + stat['anal'])
if sexprefrand < stat['bj']: 
	$RESULT = 'bj'
elseif sexprefrand >= stat['bj'] AND sexprefrand < stat['bj'] + stat['vaginal']: 
	$RESULT = 'vaginal'
else 
	$RESULT = 'anal'
end
killvar 'sexprefrand'


--- sexprefrand ---------------------------------