macro "exp"

//we got 12 explosion objects
loop
setb 1,true
get "expl1"
loadb "doit",2
if b,2,=,1
get "expl2"
loadb "doit",2
if b,2,=,1
get "expl3"
loadb "doit",2
if b,2,=,1
get "expl4"
loadb "doit",2
if b,2,=,1
get "expl5"
loadb "doit",2
if b,2,=,1
get "expl6"
loadb "doit",2
if b,2,=,1
get "expl7"
loadb "doit",2
if b,2,=,1
get "expl8"
loadb "doit",2
if b,2,=,1
get "expl9"
loadb "doit",2
if b,2,=,1
get "expl10"
loadb "doit",2
if b,2,=,1
get "expl11"
loadb "doit",2
if b,2,=,1
get "expl12"
loadb "doit",2
if b,2,=,1
get "expl1"
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif


size 100
time 4
storef "time",4
put
storeb "doit",1
anim 1,1,1
endloop