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