a=1000
if :pow>50 and :belt and :bchar<100 then goto3 else :beltp=0 goto2 end
if:mine==0 and :fcuforward==0 then:beltp=5*(:bat>a) else:beltp=0.5 end
if :bchar==100 then :belt=0 end goto2