движение очень проста.Когда вы нажимаете вверх,то a% прибавляется +1,а это значит что если a%=1,то высветится первая картинка,если a%=2 то уже следующия и.т.д. Говорю для чайников:Если что вначале вы должны загрузить картинки путем команды
gelload "gel$","gelfile$"
Два:
1 nap%=0:wag%=0
110 for i%=0 to 15
111 gelload str$(i%),str$(i%)+".png"
113 next i%
114 spritegel "a","0"
115 spritemove "a",100,100
150 if up(0) then nap%=0:wag%=wag%+1
151 if right(0) then nap%=1:wag%=wag%+1
152 if down(0) then nap%=2:wag%=wag%+1
153 if left(0) then nap%=3:wag%=wag%+1
154 if fire(0) then stop
155 if wag%=4 then wag%=0
156 spritegel "a",str$(nap%*4+wag%)
157 sleep 300
158 goto 150
Программа анимации движения в 4 стороны
Спрайты: 0.png 1.png 2.png 3.png - движение вверх 4.png 5.png 6.png 7.png - движение вправо 8.png 9.png 10.png 11.png - движение вниз 12.png 13.png 14.png 15.png - движение влево