10 lines
466 B
Plaintext
10 lines
466 B
Plaintext
a=(:mine+:ap+:cas+:scan)
|
|
if a>0 then goto3 else :ron=0 :rc=0 goto1end
|
|
:animation=0 :ron=1 if :cas or :scan then goto1 end
|
|
if :mine or :ap or :scan then goto5else goto1end
|
|
if :rng==0 then :rc=0 end if :rng==1000 then :rc=1 end
|
|
if :rng<1000 and :rng>102 then :rc=2 end
|
|
if :rng>3 and :rng<21.7 and :mine then :rc=3 goto8 else goto4 end
|
|
if :mine and :rc==3 and :cas==0 and :ap==0 then goto9 end goto8
|
|
:cfr=1 if :mine==0 and :ap==0 then goto10 else goto9 end
|
|
:cfr=0 goto1 |