a=1000
goto2+(:direction==0)*(:cas==0)*(:ap==0)*(:sca==0)*(:scan)*(:mine==0)
:abl=0 :acr=2 :aup=(:r5<a) :adn=(:r1<a) :art=(:r3<a) :alt=(:r7<a)
b=:direction+:cas+:ap+:sca+:mine+(:scan==0) goto3+((b>0)*2)
:aup=0 :adn=0 :art=0 :alt=0 goto2