Анимация в 4 стороны

2399 rem нажатие клавиш управление и переход на двиг героя карты

2400 IF RIGHT(0) THEN dvig%=2:geroi$="r"

2402 IF LEFT(0) THEN dvig%=4:geroi$="l"

2404 IF DOWN(0) THEN dvig%=3:geroi$="d"

2406 IF UP(0) THEN dvig%=1:geroi$="u"

 

2439 rem вот сам двиг гы

2440 if dvig%=1 THEN ger%=ger%+1:SPRITEGEL hero$,geroi$+str$(ger%):geroiy%=geroiy%-1:mapy%=mapy%+2 (карта мапх и мапу)

2441 if ger%>11 (если картинок 5 то не 11 а 4) then ger%=1:dvig%=0:SPRITEGEL hero$,geroi$+str$(ger%)

2442 IF dvig%=2 THEN ger%=ger%+1:SPRITEGEL hero$,geroi$+str$(ger%):geroix%=geroix%+1:mapx%=mapx%-2

2443 if ger%>11 then ger%=1:dvig%=0:SPRITEGEL hero$,geroi$+str$(ger%)

2444 IF dvig%=3 THEN ger%=ger%+1:SPRITEGEL hero$,geroi$+str$(ger%):geroiy%=geroiy%+1:mapy%=mapy%-2

2445 if ger%>11 then ger%=1:dvig%=0:SPRITEGEL hero$,geroi$+str$(ger%)

2446 IF dvig%=4 THEN ger%=ger%+1:SPRITEGEL hero$,geroi$+str$(ger%):geroix%=geroix%-1:mapx%=mapx%+2

2447 if ger%>11 then ger%=1:dvig%=0:SPRITEGEL hero$,geroi$+str$(ger%)