bool = false
#start
_n = 0
~(5+random 3)
_x = velocity pl select 0
_y = velocity pl select 1
#loop
~(0.1+random 1)
_n = _n+ 1
bm = "shell" camcreate [(getpos pl select 0),(getpos pl select 1),1000]
bm setvelocity[_x*(1+(random 30)/10) ,_y*(1+(random 30)/10),-500]
? _n < 6: goto "loop"
? not bool: goto "start"
hint "end"
exit