Показать сообщение отдельно
Старый 13.11.2010, 23:20   #1143
Program23
Бывалый
 
Аватар для Program23
 
Регистрация: 26.04.2009
Адрес: Россия, Уфа
Сообщений: 680
Написано 182 полезных сообщений
(для 406 пользователей)
Ответ: Вопрос-Ответ (для новичков)

Graphics3D 640,480,16,2

Const UPS=60

cam=CreateCamera()

l=CreateLight()

period=1000/UPS
time=MilliSecs()-period

Repeat
	Repeat
		elapsed=MilliSecs()-time
	Until elapsed
	ticks=elapsed/period
	tween#=Float(elapsed Mod period)/Float(period)
	
	For k=1 To ticks
		time=time+period	
		If KeyHit(1) End
		;Тут логика игры(цикл тут)


		
		UpdateWorld	
	Next
	
	RenderWorld tween
	;Тут текст,графика...
	Flip

Forever
__________________
Фриланс:
Freelancer.com
Upwork
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
pepel (13.11.2010)