Скорость

[Fant]

Проблема такая

Если увеличиваю кол-во объектов ИИ (врагов) у них добавляется скорость

For en1.enemy1 = Each enemy1
en1\speed#=.1

If en1\timer#<=10 Then en1\speed#=.1 Else en1\speed#=0

Это кусок кода из функции, которая в главном цикле

Больше en1\speed# нигде особо не фигурирует...я даже не представлляю в чем там трабла?

где то фигня с таймером, давай всю функцию

[Fant]

Function fnUpdateEnemy1()

For en1.enemy1 = Each enemy1

en1\speed#=.1

Local en1_ygol = Int (EntityYaw (en1\obj))

en1\retval = fnWhatVperedi(en1\obj,Int(EntityYaw (en1\obj)))

If (en1_ygol=0) Then 
 If (fnWhatVperedi(en1\obj,0)>0) Then en1\Understand_f=1 Else en1\Understand_f=0
 If (fnWhatVperedi(en1\obj,180)>0) Then en1\Understand_b=1 Else en1\Understand_b=0
 If (fnWhatVperedi(en1\obj,90)>0) Then en1\Understand_l=1 Else en1\Understand_l=0
 If (fnWhatVperedi(en1\obj,-90)>0) Then en1\Understand_r=1 Else en1\Understand_r=0
EndIf

If (Abs(en1_ygol)=180) Then 
 If (fnWhatVperedi(en1\obj,180)>0) Then en1\Understand_f=1 Else en1\Understand_f=0
 If (fnWhatVperedi(en1\obj,0)>0) Then en1\Understand_b=1 Else en1\Understand_b=0
 If (fnWhatVperedi(en1\obj,-90)>0) Then en1\Understand_l=1 Else en1\Understand_l=0
 If (fnWhatVperedi(en1\obj,90)>0) Then en1\Understand_r=1 Else en1\Understand_r=0
EndIf

If (en1_ygol=90) Then 
 If (fnWhatVperedi(en1\obj,90)>0) Then en1\Understand_f=1 Else en1\Understand_f=0
 If (fnWhatVperedi(en1\obj,-90)>0) Then en1\Understand_b=1 Else en1\Understand_b=0
 If (fnWhatVperedi(en1\obj,180)>0) Then en1\Understand_l=1 Else en1\Understand_l=0
 If (fnWhatVperedi(en1\obj,0)>0) Then en1\Understand_r=1 Else en1\Understand_r=0
EndIf

If (en1_ygol=-90) Then 
 If (fnWhatVperedi(en1\obj,-90)>0) Then en1\Understand_f=1 Else en1\Understand_f=0
 If (fnWhatVperedi(en1\obj,90)>0) Then en1\Understand_b=1 Else en1\Understand_b=0
 If (fnWhatVperedi(en1\obj,0)>0) Then en1\Understand_l=1 Else en1\Understand_l=0
 If (fnWhatVperedi(en1\obj,180)>0) Then en1\Understand_r=1 Else en1\Understand_r=0
EndIf


Local en1_x = Int((EntityX (en1\obj)/10))
Local en1_z = Int((EntityZ (en1\obj)/10))
          

If (playfield(en1\En1Arx,en1\En1Arz)=5) Then playfield(en1\En1Arx,en1\En1Arz) = 0

playfield(en1_x,en1_z) = 5

en1\En1Arx = en1_x
en1\En1Arz = en1_z

en1\timer#=en1\timer#+en1\speed#
;Необработанный кусок ИИ

 

If en1\timer#<=10 Then en1\speed#=.1 Else en1\speed#=0


If en1\timer#>=10 And  en1\understand_f=0 Then en1\timer#=0

If en1\timer#>=10 And  en1\understand_f=1

	If en1\understand_b=0

.f_dir
 F_dir=Rand(1,4)
Select F_dir

 	Case 1
	If en1\ugol=0 Then en1\ugol=180 Else Goto f_dir
	Case 2
	If en1\ugol=180 Then en1\ugol=0 Else Goto f_dir
 	Case 3
	If en1\ugol=90 Then en1\ugol=-90 Else Goto f_dir
	Case 4
	If en1\ugol=-90 Then en1\ugol=90 Else Goto f_dir
End Select
	
End If 

	If en1\understand_b=1 And en1\understand_f=1

.LR_dir
 LR_dir=Rand(1,6)
Select LR_dir

 	Case 1
	If en1\ugol=0 Then en1\ugol=90 Else Goto lr_dir
	Case 2
	If en1\ugol=0 Then en1\ugol=-90 Else Goto lr_dir
 	Case 3
	If en1\ugol=180 Then en1\ugol=-90 Else Goto lr_dir
	Case 4
	If en1\ugol=180 Then en1\ugol=90 Else Goto lr_dir
	Case 5
	If en1\ugol=90 Then en1\ugol=180 Else Goto lr_dir
	Case 6
	If en1\ugol=-90 Then en1\ugol=0 Else Goto lr_dir
End Select
	
End If 

If en1\understand_b=1 And en1\understand_f=1 And en1\understand_l=1 And en1\understand_r=1 Then en1\ugol=0


End If 

MoveEntity en1\obj,0,0,en1\speed#
RotateEntity en1\obj,0,en1\ugol,0


Next

End Function

Напомните мне пожалуйста команду, когда текст пишется над объектом (и следует за ним) вылетело из головы эта команда... - вспомнил. ненужно

Хотел бы этой командой показать (вывести) скорость для КАЖДОГО ои объекта в типе. Там нужны примудрости? как мне показать, что это объект номер такой-то и скорость его такая-то...?

[IGR]

кстати я тоже встречал такую проблему, но незнаю как ее решить !!
и у меня в коде таймера, насколько я помню, вообще небыло !!

[Fant]

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

кстати я тоже встречал такую проблему, но незнаю как ее решить !!

спасибо за надежду!)

[HolyDel]

Project-ом его, Project-ом/
Function textentity(ent,text$="bugaga")
cameraproject cam,entityx(ent,1),entityy(ent,1),entityz(ent,1)
text projectedx(),projectedy()-30,text,1,0
end function
да, cam - ето хэндл на камеру. он должен быть глобальным.

[Fant]

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

Project-ом его, Project-ом/
Function textentity(ent,text$="bugaga")
cameraproject cam,entityx(ent,1),entityy(ent,1),entityz(ent,1)
text projectedx(),projectedy()-30,text,1,0
end function
да, cam - ето хэндл на камеру. он должен быть глобальным.

Спасибо за комощь по прожеки, а по глобальному вопросу? Хоть что-нитьб? А то они правда очен быстро "ходят"

[Fant]

мне HolyDel посоветовал для решении проблемы избавиться от твиннинга - но тогда я не смогу контролировать FPS и..и много будет еще потерь!

Тогда мне было предложено юзать дельатайминг!

Подскажите пожалуйста кто знает что это такое и, если можно, какой-нибудь с ним семпл, что бы можно было по нему понять как это работает!

А может есть еще какие-нибудь варианты для решения моей порблемки со скоростью?

дельта тайминг ето вот что :

dt# = FPS_Stable# / FPS_Current#; fps_stable = 60 для примера
...
move# = speed# * dt#
...

при етом получается что перемещение не зависит от фпс

[HolyDel]

ну попробуй вынести обновление_врагов1 за цикл, может поможет.

[Fant]

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

ну попробуй вынести обновление_врагов1 за цикл, может поможет.

Как за цикл?)

А обновлять-то как?

[Fant]

Пробовал варианты...что-то не получилось

dt# = FPS_Stable# / FPS_Current#; fps_stable = 60 для примера
...
move# = speed# * dt#

расскажите об этом по подробнее...или еще о чем-нить!

Нужно как-то ... снизить скорость ИИ

[HolyDel]

за
k=1 to ticks
next
цикл

[ЛысыЙ_Чук-Иванчук]

CreateTimer(25) тебе в помощь!
25 фпс для любой игры пойдет!!!

[Fant]

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

за
k=1 to ticks
next
цикл

Ничего не понял?) это к чему?