Помогите! Не могу придумать как мне обнулить анимацию! (DelphiX)

← →
Jus (2004-09-25 02:02) [0]

Помогите! Не могу придумать как мне обнулить анимацию! Подробнее: Переменная anim:integer; // счётчик анимации keyPress:boolean;//Если нажать кнопку и держать, то anim:=anim+1 до 8, а потом опять сбрасывается. Если нажать(KeyPress:=true) на кнопку и отпустить(KeyPress:=false) её когда anim будет к примеру =5 то при следующем нажатии anim будет продолжатся с 5, а надо чтоб с нуля. В таймере у меня
IF Player1.KeyPress=false Then Player1...//(загрузка картинки где Player просто стоит)если сюда же впихнуть anim=0, то анимация всегда будет 0;
Как сделать? Надеюсь вопрос понятен)

← →
Jus (2004-09-25 02:04) [1]

извеняюсь

> keyPress:boolean;// дальше идёт не коментарий переменной...

← →
Jus (2004-09-25 02:10) [2]

Забыл описать тип:)
TPlayer=class(TImageSprite) anim:integer;//счётчик анимации keyPress:Boolean;// Нажата ли кнопка (этот коментарий не совсем подходит) look:Bolean;//в какую сторону смотрит игрок Тру-в право Фалс-влево public procedure DoMove(... end;

← →
Jus (2004-09-25 02:34) [3]

Всё! Сам разобрался:)
Я работаю с DelphiX-совскими компанентами (DXInput)и совсем забыл, про Form1:) и что та есть событие OnKeyUP.

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin Player1.keyPush:=False; Player1.anim:=0; end;

СПАСИБО)

← →
Darth (2004-09-25 03:01) [4]

по ссобщению клавиши менять анимацию это круто. браво! приз за самое ненужное изобретение. А если у человека в 10 раз быстрее.медленнее сообщение ловится?

← →
Jus (2004-09-25 09:49) [5]

> Darth (25.09.04 03:01) [4]

Не беспокойся, я всё подумал:) Или что ты имееш ввиду?

← →
Jus (2004-09-25 09:55) [6]

> по ссобщению клавиши менять анимацию это круто. браво! приз
> за самое ненужное изобретение.

Там все действия всё равно через ДХтимер, а этот дхтимер подстраивается в индивидуальном порядке под каждый комп, не переживай.

> по ссобщению клавиши менять анимацию это круто. браво! приз
> за самое ненужное изобретение. А если у человека в 10 раз
> быстрее.медленнее сообщение ловится?

Ты б не призы давал, а сказал бы как надо!

> procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
> Shift: TShiftState);
> begin
> Player1.keyPush:=False;
> Player1.anim:=0;
> end;

Загадочный какой-то код. А на какую кнопку нажали нам глубоко пофигу? Честно я не слишком понял чего ты там намутил, и в чем была проблема, но так у тебя вышеприведенный код выполняется при отпускании ЛЮБОЙ клавиши, что мне кажется несколько странным.

← →
Jus (2004-09-25 16:38) [8]

> Загадочный какой-то код. А на какую кнопку нажали нам глубоко
> пофигу? Честно я не слишком понял чего ты там намутил, и
> в чем была проблема, но так у тебя вышеприведенный код выполняется
> при отпускании ЛЮБОЙ клавиши, что мне кажется несколько
> странным.

Да, я уже понял и переделал всё там!:) Что с меня взять, "игровой" опыт тока набираю:)

← →
имя (2004-09-26 10:06) [9]

Удалено модератором

Помогите! Не могу придумать как мне обнулить анимацию! (DelphiX) Найти похожие ветки