Непрерывная анимация
- 10 gx%=0:gy%=0:t%=0
- 20 gelload "g","g.png"
- 30 gelload "g2","g2.png"
- 40 spritegel "g","g"
- 50 cls
- 60 spritemove "g",gx%,gy%
- 70 t%=t%+4
- 80 if t%<40 then d%=0
- 90 if t%>40 then d%=1
- 100 if d%=0 then spritegel "g","g":spritemove "g",gx%,gy%
- 110 if d%=1 then spritegel "g","g2":spritemove "g",gx%,gy%
- 115 if t%>80 then t%=0
- 120 repaint
- 130 sleep 10
- 140 goto 50
Ну простая анимация короч. Состоит из двух кадров - g и g2. Смена кадров происходит по отрезкам времени.
10-50 Ну тут понятно все, загрузка изображений. Преобразовываем только первое изображение
60 Отображение спрайта
70 "Таймер"
80-110 Если значение "таймера" меньше 40, то отображается первое изображение. Если значение больше 40, то отображается второе.
g преобразовывается в g2, и обратно, так и происходит смена кадов
Код для MB 1.9.1
10-50 Ну тут понятно все, загрузка изображений. Преобразовываем только первое изображение
60 Отображение спрайта
70 "Таймер"
80-110 Если значение "таймера" меньше 40, то отображается первое изображение. Если значение больше 40, то отображается второе.
g преобразовывается в g2, и обратно, так и происходит смена кадов
Код для MB 1.9.1
