Помогите с LoadAnimImage

[Okay]

Прошу прощения. Но не пойму в чем ошибка. пол часа сидел, думал исправлял. Не получается. Походу это никогда не закончится :D

Graphics 800,600
SetBuffer BackBuffer()


AppTitle "The Big Fighter"

Global x = 300
Global y = 300
Global xm = 400
Global ym = 400
Global frame = 0
Global framel = 0
Global frameTime
Global frametimel
Global nado = 0

Global pein = LoadImage("pein.bmp")
Global peinl = LoadImage("peinl.bmp")
Global mario = LoadImage("mario.bmp")
Global cur = LoadImage("cursor.bmp")
Global pein_run = LoadAnimImage("pein_run.bmp",65,85,frame,3)
Global pein_runl = LoadAnimImage("pein_runl.bmp",65,85,framel,3)

MaskImage mario,0,0,0
MaskImage pein,0,0,0
MaskImage peinl,0,0,0
MaskImage pein_run,0,0,0
MaskImage pein_runl,0,0,0

While Not KeyDown(1)


Cls


DrawImage mario,xm,ym



If nado = 0 Then

DrawImage pein,x,y

EndIf

If nado = 10 Then

DrawImage peinl,x,y

EndIf



DrawImage cur,MouseX(),MouseY()


If KeyDown(200) Then
 y = y - 1
EndIf

If KeyDown(208) Then
 y = y + 1
EndIf



If KeyDown(203) Then
nado = 3 ; 3 - бежать
 If MilliSecs() > frameTime + 100 Then 
    frameTime = MilliSecs()
    framel = ( framel + 1 ) Mod 3; 3 - количество кадров
End If
DrawImage pein_runl, x, y, framel
 x = x - 4
Else

nado = 10

EndIf



If KeyDown(205) Then
nado = 1 ; 1 - бежать

If MilliSecs() > frameTimel + 100 Then 
    frameTimel = MilliSecs()
    frame = ( frame + 1 ) Mod 3; 3 - количество кадров
End If
DrawImage pein_run, x, y, frame
  x = x + 4
Else 
nado = 0 ; 0 - стоять на месте
EndIf



HidePointer


Flip
Wend

End

[RBK]

Я тебе советую вынести HidePointer из цикла, поставь его перед ним.

Сначала подумал что ошибка в блоке If KeyDown(203), но потом понял что у тебя условие If KeyDown(205)... else срабатывает.

подумай про использование команд Select, Const и Function.

[St_AnGer]

If KeyDown(203) Then
nado = 3 ; 3 - бежать
 If MilliSecs() > frameTime + 100 Then 
    frameTime = MilliSecs()
    framel = ( framel + 1 ) Mod 3; 3 - количество кадров
End If
DrawImage pein_runl, x, y, framel
 x = x - 4
Else

nado = 10

EndIf



If KeyDown(205) Then
nado = 1 ; 1 - бежать

If MilliSecs() > frameTimel + 100 Then 
    frameTimel = MilliSecs()
    frame = ( frame + 1 ) Mod 3; 3 - количество кадров
End If
DrawImage pein_run, x, y, frame
  x = x + 4
Else 
nado = 0 ; 0 - стоять на месте
EndIf

изменить на

If KeyDown(203) Then
    nado = 3 ; 3 - бежать
    If MilliSecs() > frameTime + 100 Then 
        frameTime = MilliSecs()
        framel = ( framel + 1 ) Mod 3; 3 - количество кадров
    End If
    DrawImage pein_runl, x, y, framel
    x = x - 4

Else If KeyDown(205) Then

    nado = 1 ; 1 - бежать

    If MilliSecs() > frameTimel + 100 Then 
        frameTimel = MilliSecs()
        frame = ( frame + 1 ) Mod 3; 3 - количество кадров
    End If
    DrawImage pein_run, x, y, frame
    x = x + 4
Else 
    if nado = 1
        nado = 0 ; 0 - стоять на месте
    else if nado = 3
        nado = 10
    end if
EndIf

Что я сделал? Банально объединил два твоих условия на клавиши 203 и 205. Твоё условие на клавишу 203 попросту не срабатывало из за следующего отдельного от него условия клавиши 205. Банальность, а просидеть над этим можно долго при большом коде(по себе знаю )

зыЖ привыкай сразу структурировать код (хотя бы как у меня, просто каждый подуровень на 4 пробела отодвигать), иначе потом запутаешься в коде из за его нечитаемости.

[Nex]

Сообщение от St_AnGer

[code]
зыЖ привыкай сразу структурировать код (хотя бы как у меня, просто каждый подуровень на 4 пробела отодвигать), иначе потом запутаешься в коде из за его нечитаемости.

Лучше на 5 нажатием кнопки "Tab".

[St_AnGer]

Сообщение от Nex

Лучше на 5 нажатием кнопки "Tab".

ну я табом и пользуюсь для структурирования. Просто в теге CODE таб не работает, вот на 4 пробела и приходится двигать(поэтому так и написал).

[Okay]

Из-за чего может появляться оранжевая точка перед спрайтом?
В редакторе открывал изображение, ничего лишнего нету.

[Okay]

[Dzirt]

Думаю просто конец одного кадра попадает в начало другого...попробуй просмотреть в редакторе изображение поделив его на кадры.

[Okay]

Спасибо. помогло