Показать сообщение отдельно
Старый 28.12.2011, 14:16   #1
Nikich
Бывалый
 
Регистрация: 22.12.2011
Сообщений: 844
Написано 150 полезных сообщений
(для 275 пользователей)
Вопрос Проблема с переменной


Graphics 800,600
SetBuffer BackBuffer()
Global gert=LoadAnimImage("hero.bmp",296,214,0,11)
MaskImage gert,255,255,255
ScaleImage gert,0.2,0.2
Global speed=5
Global x=1
Global y=1
Global timer=MilliSecs()
Global frames

Function UpdatePlayer()
DrawImage gert,x,y,frames
If KeyDown(200) y=y-speed
If KeyDown(208) y=y+speed
If KeyDown(205) x=x+speed
If KeyDown(203) x=x-speed

If MilliSecs()-timer=1000 Then
frames=frames+1
timer=MilliSecs()
EndIf
If frames=11 Then frames=0
Print MilliSecs()+"   "+timer
End Function

While Not KeyHit(1)
Cls
UpdatePlayer()
Flip
Wend
Почему-то переменная "timer" не обновляется. Я новичок и, возможно, многого не знаю, но мне кажется что всё должно работать. Пожалуйста, можете объяснить в чём ошибка?
(Offline)
 
Ответить с цитированием