seq1 = 1
load bitmap "Your Image here!",1
for y = 0 to 'the height here' - 'However high you want the box to be here' step 'however much of the height you want to show at a time here!'
for x = 0 to 'the width here' - 'however wide you want the box to be here' step 'However much of the width you want to show at a time here!'
get image seq1, x, y, x + 30, y + 64, 1
inc seq1
next x
next y
delete bitmap 1
ani = 1
do
paste image ani, x, y, 1
ani = ani + 1
sleep 400
if ani>'how many frames in it here' then ani=1
loop
that should do it, it works for me. If you want a better example just ask.

Of corse this is doing it manualy. You could just download ExGen and make explosions on that. Its really easy. Just search the newsletters for it.
When it comes to programing, I'm on fire!