Random functions don't seem to be truly random.
After trying DORND without success I've resorted to the code below in various forms and with mixed results.
Code:
if never then
set v1,0
endif
if past 1 and elapse 1 then
consol# "v1,",v1
consol# "v1,",v1
consol# "v1,",v1
endif
if eq v4,1 and never then
set v1,0
endif
if random 3 and ne rnd, 2 and ne rnd, 3 then
set v1,1
else if ne rnd, 1 and ne rnd, 3
set v1,2
else if ne rnd, 1 and ne rnd, 2
set v1,3
endif
endif
endif
if eq v1,1 and ne v1,2 and ne v1,3 and never then
set v4,1
SSNtoWP 4,1
endif
if eq v1,2 and ne v1,1 and ne v1,3 and never then
set v4,1
SSNtoWP 4,2
endif
if eq v1,3 and ne v1,1 and ne v1,2 and never then
set v4,1
SSNtoWP 4,3
endif
Still doesn't work.