b=1000 c=30 d=2 e=0.1 f=12 
if :mine then a=15 else a=90 end goto(:ap*(:rng!=0))+2
if:mine thena=15end :ron=:ap r=:rng s=:spd i=r-a j=a-d k=a+d
if r==b then fcu=0 goto6 end if r>c and r<b then fcu=((i/f)-s) end
ifr<c and r>j then fcu=((i/(f/2))-s) end if r<j then fcu=(i/(f/2)) end
if :ap==0 or :spd=="Error !!" then :fcuf=0 goto:ap+2 end :fcuf=fcu
if r>j and r<k and s<e then goto8 end goto:ap+2
:fcuf=0 :ap=0 if :mine==0 and :scan==0 then :ron=0 end goto:ap+2