make a

auto 1
lock 1

:again
left
rand  a,10

:loop
add  a,-1
jgt  a,5,:nofire
fire
:nofire
jgt  a,0,:loop

goto :again
