Показать сообщение отдельно
Старый 05.01.2008, 15:58   #14
IGR
Blitz's Shame !!
 
Регистрация: 31.03.2007
Сообщений: 3,639
Написано 832 полезных сообщений
(для 2,013 пользователей)
Ответ: Вопрос о функциях..

кстати, JeSss, такая ошибка будет если ты НЕ закрыл цикл !! даже если у тебе в структуре программы все норм !! и в конце программы стоит END !!
Graphics3D 800,600,32,2
HidePointer
Global FPS,LastCheck,Frames
C = CreateCamera()
PositionEntity C,0,30,0
plan = CreatePlane ()
Repeat
UpdateWorld
RenderWorld
Flip False
;Until KeyHit(1)
End
Function GetFPS()
Frames = Frames + 1

If MilliSecs() > LastCheck+1000 Then
LastCheck = MilliSecs()
FPS = Frames
Frames = 0
EndIf
Return FPS
End Function
(Offline)
 
Ответить с цитированием