8 lines
461 B
Plaintext
8 lines
461 B
Plaintext
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 |