[johnk]

А если тебе код нужен, то вот так там делается:
ExplImage:TImage=LoadAnimImage ("incbin::images\1.bmp",128,128,0,24) - гружу картинку
Далее в типе взрыва делаю функцию и метод
Function Create(x#,y#)
Local c:Explosion=New Explosion
c.x#=x#
c.y#=y#
c.frame=0
ListAddLast (ExpList,c)
End Function
Method update()
If frame<=23
SetScale 0.5,0.5
DrawImage explimage,x,y,frame
SetScale 1,1
Else
ListRemove(ExpList,Self)
End If
frame:+1
End Method
А потом использую в цикле

Explosion.Create(a.GetX(),a.GetY())

For Local vzriv:Explosion=EachIn ExpList
vzriv.update
Next