Таймер

[Medan]

Здравствуйте, может есть у кого функция таймера?
Я попробовал сделать сам, но там все так замудрено получилось, что больше 1 таймера не работает.

[Nerd]

NEEDS MOAR INFORMATION!
---upd---
КАКОЕ ЭТО ИМЕЕТ ОТНОШЕНИЕ К ВЕЛИКОМУ БОГУ ХОРСУ???
---upd---
WHATZ THE LANGOOAGE???
If (langooage=="Blitz3d")
{
echo("

Type TTmr
 Field targ
End Type

Function StartTimer:TTmr(time) ;time в миллисекундах
 Local Tmr.TTmr = New TTmr
 Tmr\targ = Millisecs()+time
End Function

Function IsEnded(Tmr)
 If Millisecs()>Tmr\targ Then Return True
End Function

;//Далее пример

x.Tmr=StartTimer(1000)
While IsEnded(x)=False
 Print "банана банана банана"
Wend
Delete x

End

")
}elseif (langooage=="BlitzMax")
{
echo("

Type TTmr
 Field targ
  Function StartTimer:TTmr(time) 'time в миллисекундах
   Local Tmr:TTmr = New TTmr
   Tmr\targ = Millisecs()+time
  End Function
    Method IsEnded()
     If Millisecs()>Self.targ Then Return True
    EndMethod
End Type

;//Далее пример

x:Tmr=Tmr.StartTimer(1000)
While x.IsEnded()=False
 Print "банана банана банана"
Wend

End

")
}

UND NEIN FORGET , STUPID TEENAGER!

Этот пост меня толстит.

[Medan]

КАКОЕ ЭТО ИМЕЕТ ОТНОШЕНИЕ К ВЕЛИКОМУ БОГУ ХОРСУ???

Как какое? Знаешь, не все люди использут xors на b3d, я же юзаю его в PB. Т.к. считаю убогим блитц, его синтаксис и само редактирование приложения(первый минус это отмена шага редактирования на 1 назад, что бесит)

[Medan]

Это вообще блитц? У меня он ругается на StartTimer:TTmr(time) и x:Tmr

[FireOwl]

А при чем тут редактирование, если бесит язык?

Редактирование - элемент IDE, если стандартный бесит - попробуй Protean, or IDEal.

Фрагменты кода на Blitz3D и BlitzMax. Если ты на PureBasic тебе они помогут только представлением общего вида конструкции.

[Medan]

Фрагменты кода на Blitz3D и BlitzMax. Если ты на PureBasic тебе они помогут только представлением общего вида конструкции.

Ну это понятно. Просто хотел протестить на блитце

[Medan]

Сделал, спасибо.