glife/locations/sexprefrand

# sexprefrand


bjctr = 0
:sexprefrandbj
if bjctr <= stat['bj']:
	$spr[bjctr] = 'bj'
	bjctr += 1
	jump 'sexprefrandbj'
end

vagctr = 0
tmp = 0
:sexprefrandvag
if vagctr <= stat['vaginal']:
	$spr[tmp] = 'vaginal'
	vagctr += 1
	tmp += 1
	jump 'sexprefrandvag'
end

analctr = 0
:sexprefrandanal
if vagctr <= stat['anal']:
	$spr[tmp] = 'anal'
	vagctr += 1
	tmp += 1
	jump 'sexprefrandanal'
end

$RESULT = $spr[rand(0, arrsize('$spr')-1)]


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