Короткий код анимации движения
- 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 - движение влево
Спрайты:
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 - движение влево
