очень нужен совет по анимации и звуку

[ant0N]

Сообщение от Костян

t=t+MouseHit(1)
if t=2 And AnimSeq(entity%)<>id3 Animate entity%,1,1,id3:t=0

что то не выходит(
дергается и все
и второй вариант тоже

[ant0N]

at = 0

If MouseDown (1) at=1
If at<> 0 And AnimSeq(pla) <> atackp Animate pla,1,.2,atackp

;скажите что не правильно?

[ant0N]

может тогда кто нибудь знает как сделать
чтоба Т= 100 каждую секунду убавлялось на 1 тоесть сделать: Х = Т - 1

[Reks888]

While T>0
If Millisecs() mod 1000=0 then T=T-1
Wend

если количество миллисекунд делиться на 1000, то прошла одна целая секунда от предыдущего раза когда делилось на 1000

[ant0N]

почему то когда пишу print T пишет 0

[Reks888]

есть предположение что T=0
Выполняется условие выхода из цикла T>0
Перед циклом задай нужное значение T

[ant0N]

все перепробовал не получается(
есть еще варианты?

[Reks888]

T=1
While T>0
T=T-1
Delay 1000
Wend

Работает одну секунду потом отрубается

[ant0N]

но мне нужно чтобы был отсчет времени.... от 30 до 0
это как возможно?

[Reks888]

На

oldTime=MilliSecs()
T=30
While T>0
If MilliSecs()-oldTime>1000 Then
Print T
T=T-1
oldTime=MilliSecs()
End If
Delay 1
Wend

Задача довольно легкая с точки зрения алгоритмики, RTFM блеять. За такие глупые вопросы можно и ненависти от участников треда схлопотать

[ant0N]

спсб!

[ant0N]

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

at = 0

If MouseDown (1) at=1
If at<> 0 And AnimSeq(pla) <> atackp Animate pla,1,.2,atackp

;скажите что не правильно?

а про это что скажешь?

[Reks888]

А я с анимациями почти никогда не работал, что такое AnimSeq не знаю.
И вместо тебя help читать не буду. Оставлю это удовольствие тебе

[St_AnGer]

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

at = 0

If MouseDown (1) at=1
If at<> 0 And AnimSeq(pla) <> atackp Animate pla,1,.2,atackp

;скажите что не правильно?

Наверно лучше так:

If MouseDown (1)  
      at = 1
else
      at = 0
end if

If at<> 0 And AnimSeq(pla) <> atackp Animate pla,1,.2,atackp

Должно работать. Только at = 0 перед условием MouseDown убери вообще

[Reks888]

Грифер обиделся?