Анимация движения
- 100 ten$="vpravo1"
- 101 wag%=1
- 1000 IF LEFT(0)<>0 THEN NAPRAVLENIE%=1:GOSUB 2000
- 1001 IF RIGHT(0)<>0 THEN NAPRAVLENIE%=2:GOSUB 2000
- 1010 SLEEP 300
- 1011 GOTO 1000
- 2000 WAG%=WAG%+1:IF WAG%=5 THEN WAG%=1
- 2001 IF WAG%=1 AND NAPRAVLENIE%=1 THEN SPRITEMOVE TEN$,255,255:TEN$="vlevo1":SPRITEMOVE "vlevo1",X%,Y%
- 2002 IF WAG%=2 AND NAPRAVLENIE%=1 THEN SPRITEMOVE TEN$,255,255:TEN$="vlevo2":SPRITEMOVE "vlevo2",X%,Y%
- 2003 IF WAG%=3 AND NAPRAVLENIE%=1 THEN SPRITEMOVE TEN$,255,255:TEN$="vlevo3":SPRITEMOVE "vlevo3",X%,Y%
- 2004 IF WAG%=4 AND NAPRAVLENIE%=1 THEN SPRITEMOVE TEN$,255,255:TEN$="vlevo4":SPRITEMOVE "vlevo4",X%,Y%
- 2010 IF WAG%=1 AND NAPRAVLENIE%=2 THEN SPRITEMOVE TEN$,255,255:TEN$="vpravo1":SPRITEMOVE "vpravo1",X%,Y%
- 2011 IF WAG%=2 AND NAPRAVLENIE%=2 THEN SPRITEMOVE TEN$,255,255:TEN$="vpravo2":SPRITEMOVE "vpravo2",X%,Y%
- 2012 IF WAG%=3 AND NAPRAVLENIE%=2 THEN SPRITEMOVE TEN$,255,255:TEN$="vpravo3":SPRITEMOVE "vpravo3",X%,Y%
- 2014 IF WAG%=4 AND NAPRAVLENIE%=4 THEN SPRITEMOVE TEN$,255,255:TEN$="vpravo4":SPRITEMOVE "vpravo4",X%,Y%
- 2020 return
При нажатии влево или вправо выводит на экран поочередно 4 спрайта. И при этом при появлении нового спрайта, предыдущий переносится за пределы экрана
