Graphics 640, 480
Global zombi = LoadAnimImage("zombie_6.png", 32, 64, 0, 17)
While Not KeyDown(KEY_ESCAPE)
If animnext < MilliSecs () Then animnext = MilliSecs() + 50 ; frame:+1
If animnext < MilliSecs () Then animnext = MilliSecs() + 50 ; frame:+1
If animnext < MilliSecs () Then animnext = MilliSecs() + 50 ; frame:+1
If animnext < MilliSecs () Then animnext = MilliSecs() + 50 ; frame:+1
If frame = 17 Then frame = 0
Drawarmie(12, zombi, x, y, frame)
Flip
Cls
Wend
End
Function Drawarmie(col, img, x:Float, y:Float, frame)
For y = 0 To col
For x = 0 To col
DrawImage img, x:Float, y:Float, frame
Next
Next
EndFunction
при запуске изображений больше не становиться а появляеться движущийеся квадраты