Анимация
- 10 gelload "down","Down.png"
- 20 gelload "up","Up.png"
- 30 gelload "right","Right.png"
- 40 gelload "left","Left.png"
- 50 spritegel "Down","down"
- 60 spritegel "Up","up"
- 70 spritegel "Right","right"
- 80 spritegel "Left","left"
- 81 spritemove "Down",-500,-100
- 82 spritemove "Right",-500,-100
- 83 spritemove "Up",-500,-100
- 84 spritemove "Left",-500,-100
- 85 x%=100:y%=120
- 90 spritemove "Right",-500,-100
- 100 spritemove "Up",-500,-100
- 110 spritemove "Left",-500,-100
- 120 spritemove "Down",x%,y%
- 130 if down(0) then y%=y%+1
- 140 if left(0) then goto 180
- 150 if right(0) then goto 270
- 160 if up(0) then goto 360
- 170 repaint:sleep 20:goto 90
- 180 spritemove "Right",-500,-100
- 190 spritemove "Up",-500,-100
- 200 spritemove "Down",-500,-100
- 210 spritemove "Left",x%,y%
- 220 if left(0) then x%=x%-1
- 230 if right(0) then goto 270
- 240 if up(0) then goto 360
- 250 if down(0) then goto 90
- 255 if x%<0 then x%=0
- 260 repaint:sleep 20:goto 180
- 270 spritemove "Left",-500,-100
- 280 spritemove "Up",-500,-100
- 290 spritemove "Down",-500,-100
- 300 spritemove "Right",x%,y%
- 310 if right(0) then x%=x%+1
- 320 if left(0) then goto 180
- 330 if up(0) then goto 360
- 340 if down(0) then goto 90
- 350 repaint:sleep 20:goto 270
- 360 spritemove "Right",-500,-100
- 370 spritemove "Left",-500,-100
- 380 spritemove "Down",-500,-100
- 390 spritemove "Up",x%,y%
- 400 if up(0) then y%=y%-1
- 410 if left(0) then goto 180
- 420 if right(0) then goto 270
- 430 if down(0) then goto 90
- 436 if y%<0 then y%=0
- 440 repaint:sleep 20:goto 360
Анимация в 4 стороны.