Программа анимации движения в 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 - движения влево

                        
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