Проблема аццкого мегапроЭкта ...

[Данил]

Function UpdateGame () 
;Функция обновления игры
	For p.Player=Each player
			Updateplayer ( p  ) ;обновляем игру
	Next

	
	If Time < MilliSecs ()  Then Time = MilliSecs () + 100 : SendNetMsg 2,PackMsg$(myent),myid,0 : 	UpdateNetwork() ;обновляем чё то там
	;


End Function

Function UpdateNetwork()

 While RecvNetMsg()
  Select NetMsgType()
   Case 100
    p.Player=New Player
    p\id=NetMsgFrom()
    p\name=NetPlayerName(p\id)
    p\Model=CreateCube()
   Case 101
    p.Player=FindPlayer(NetMsgFrom())
    FreeEntity p\Model
    Delete p
   Case 2
    p.Player=FindPlayer(NetMsgFrom())
    UnpackMsg(p\Model,NetMsgData$())
  End Select
 Wend


End Function

Function FindPlayer.Player( id )
 For p.Player=Each Player
  If p\id=id Then Return p
 Next
End Function

Function PackMsg$(ent)

 Return EntityX(ent)+"|"+EntityY(ent)+"|"+EntityZ(ent)+"|"+EntityYaw(ent) 

End Function

Function UnpackMsg(ent,dat$)

 xp=Instr(dat$,"|")
 x=Float(Left(dat$,xp))
 dat$=Right(dat$,Len(dat$)-xp)
 yp=Instr(dat$,"|")
 y=Float(Left(dat$,yp))
 dat$=Right(dat$,Len(dat$)-yp)
 zp=Instr(dat$,"|")
 z=Float(Left(dat$,zp))
 dat$=Right(dat$,Len(dat$)-zp)
 yaw=Float(Left(dat$,Len(dat$)))
 PositionEntity ent,x,y,z
 RotateEntity ent,0,yaw,0

End Function

Вот в общем весь код, относящийся к инету... хз почему так сильно тормозит...

Кто-нибудь знает в чём проблема? Плиз, помогите...

[Данил]

Блин... всё, скорее всего убери игру по инету.. а сделаю обычную рпг.. ((((

[HolyDel]

Правильно сказал Райтер. ДП негодится для инета.
Причом оченно неплохо подходит для обычной сети.
Tormoz, ета команда передает строку, как не крутись.
SendNetMsg 2,PackMsg$(myent),myid,0
Данил, до боли знакомы текст , а вообще юзай специализированные либы, как то - KNetLib-чтоли.

[Данил]

ДП негодится для инета.

Но я же видел гаму flyer ... Она вполне работало нормально даже при 4 игроках (2 игрока и два бота) ... И ведь как-то она на ДП сделана...

до боли знакомы текст

хм.... текст , конечно, до боли знакомый, ну а зачем придумывать то, что уже кем-то придумано?


А так всё таки я не понимаю, в чём проблема... лана, ща буду дальше думать

[moka]

до боли знакомый, ну а зачем придумывать то, что уже кем-то придумано?

Чтобы за себя радость была, чтобы опыта получить, чтобы знать с вой код и общатся с ним на Ты.

[johnk]

текст, конечно, до боли знакомый, ну а зачем придумывать то, что уже кем-то придумано?

Верно