Помогите с LoadAnimImage

[mauNgerS]

В фотошопе слепи картинку без всяких разделяющих линий.

[Okay]

Так. Хорошо. Всем спасибо)

[Okay]

Ах да. Еще вопрос. Вообщем есть изображение. Им можно управлять стрелочками.
Суть вопроса: Какую функцию использовать, чтобы когда нажимаю допустим кнопку. старое изображение удалялось, новое появлялось. Далее когда отпускаю кнопку, появляется опять старое.

[St_AnGer]

рисовать нужное изображение при нажатии клавиши, а при НЕ нажатии - рисовать другое. Что то вроде такого

If KeyDown(27)
    DrawImage img1, 10, 10
Else
    DrawImage img2, 10, 10
End If

[Okay]

While Not KeyDown(1)


Cls

DrawImage mario,xm,ym
DrawImage pein,x,y
DrawImage cur,MouseX(),MouseY()


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

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

If KeyDown(203) Then

 x = x - 1
EndIf

If KeyDown(205) Then
 x = x + 1
EndIf

В действиях пробовал вставлять freeimage. Выдает ошибку.

[St_AnGer]

FreeImage выдаёт ошибку потому что ты удаляешь изображение в цикле, т.е. не один раз. И зачем удалять? Рисуй просто как я сказал (когда надо одну, а когда ненадо - на её же месте другую).

[Okay]

Смотри. Изображение уже нарисовано. То есть если я нажму кнопку, он нарисует еще одно изображение.

[Okay]

[Okay]

А что если сделать так же по кадрам? То есть запускать определенный кадр в то или инное действие? если я нажму кнопку, он будет мне показывать другой кадр. Можно ли так?

[St_AnGer]

эмм... Я не понял сразу о чём ты. Делай CLS вначале цикла. Должно помочь.

упд. Моя невнимательность, клс есть.

[Okay]

Graphics 800,600
SetBuffer BackBuffer()


AppTitle "The Big Fighter"

Global x = 300
Global y = 300
Global xm = 400
Global ym = 400
Global frmSparks, tmrSparks
Global cadr = 0

Global pein = LoadImage("pein.bmp")
Global mario = LoadImage("mario.bmp")
Global cur = LoadImage("cursor.bmp")
Global pein_run = LoadAnimImage("pein_run.bmp",65,65,cadr,3)

MaskImage mario,0,0,0
MaskImage pein,0,0,0


While Not KeyDown(1)


Cls

DrawImage mario,xm,ym
DrawImage pein,x,y
DrawImage cur,MouseX(),MouseY()


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

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

If KeyDown(203) Then

 x = x - 1
EndIf

If KeyDown(205) Then
 x = x + 1
EndIf


HidePointer


Flip
Wend

End

[Okay]

Ok. Попробую с кадрами поработать чуть чуть. Так если что не получится, напишу

[St_AnGer]

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

Смотри. Изображение уже нарисовано. То есть если я нажму кнопку, он нарисует еще одно изображение.

при том коде что ты написал, если ты нажмёшь кнопку 200 (вверх) - он не нарисует новое, а сдвинет твоё изображение на экране вверх (соответственно уменьшив координату Y). С другими кнопками соответственно их условию работы. Не пойму сути проблемы, твой код рабочий (и работает как надо вроде бы).

По LoadAnimImage - тут вроде всё легко.
1) Грузишь последовательность кадров:

pein_run = LoadAnimImage("pein_run.bmp", 65, 65, [номер первого кадра], [флаги изображения])

2) вводишь какую то переменную считающую кадры изображения (например frame% ) и переменную считающую интервал смены кадра (допустим frameTime% );
3) в цикле отображаешь твоё изображение с помощью DrawImage (допустим кадров было 3):

If MilliSecs() > frameTime + 100 Then 
    frameTime = MilliSecs()
    frame = ( frame + 1 ) Mod 3; 3 - количество кадров
End If
DrawImage pein_run, x, y, frame

Всё должно прекрасно работать. Помоему это есть в базовых примерах блица. Сори если код немного не верный будет - с телефона пишу уже засыпая.

[Okay]

Сделал через условие IF. Только теперь не знаю как потом возвратить функцию обратно в 0.

[Okay]

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

Сделал через условие IF. Только теперь не знаю как потом возвратить функцию обратно в 0.

Пацаны вообще ребята!
Получилось через else Good nice ^_^
Выражаю огромное спасибо всем, кто помог мне в освоение анимации и не много логики)