Network game help

Blitz3D Forums/Blitz3D Beginners Area/Network game help

Braden

(Posted 2009) [#1]

hello everyone,
Right now I'm starting up this fps network game, It works nicley, I can connect to the other computer and both can play, I just have one problem, I can't see the other player... Both computers will load success fully but I won't be able to see the other player... any ideas? I'm pretty new to blitz3d and have no clue about the network code...

Graphics3D 640,480
SetBuffer BackBuffer()

;start network game
	Select StartNetGame()
	Case 0
				End
	Case 1
				Print "Joined!"
	Case 2
				Print "Server!"
	End Select



type_camera=1
type_entity=2
type_bullet=3
type_player=4



Function fade()
Include "fade.bb"
End Function 





player=CreateNetPlayer("camsphere2");idk if this is right.... no clue what to put in quotes...



light=CreateLight()



Global camera2=CreateCamera()
PositionEntity camera2,0,1,-10
CameraClsColor camera2,92,236,222
RotateEntity camera2,0,90,0 
CameraRange camera2,.001,1000
EntityType camera2,type_camera


Global camsphere2=CreateSphere()
EntityType camsphere2,type_player


plane=CreatePlane()
EntityType plane, type_entity 


Ptex=LoadTexture("grass.jpg")
EntityTexture plane,ptex


Global mesh=LoadMesh("building1.b3d")
PositionEntity mesh,0,.35, 10
ScaleEntity mesh,.05,.05,.05
EntityType mesh, type_entity





Global gun2=LoadMesh("guns\\w_fiveseven.3ds",camera2)
PositionEntity gun2,.1,-.2,.3
ScaleEntity gun2,.05,.05,.05
RotateEntity gun2,90,-75,0
;EntityParent gun2,camera2


Global fullcart2=100
Dim bullet2(fullcart2)
For ii=0 To fullcart2
 bullet2(ii)=CreateSphere()
EntityColor bullet2(ii),Rnd(0,255),Rnd(0,255),Rnd(0,255)
ScaleEntity bullet2(ii),0.2,0.4,0.2
HideEntity bullet2(ii)
EntityType bullet2(ii),type_bullet
Next 







Collisions type_camera,type_entity,2,2
Collisions Type_bullet,type_player,2,2
Collisions type_player,type_bullet,2,2

While Not KeyDown(1)
 




Cls




If KeyDown(208) Then MoveEntity camera2,0,0,-.25
If KeyDown(200) Then MoveEntity camera2,0,0,.25
If KeyDown(203) Then MoveEntity camera2,-.25,0,0
If KeyDown(205) Then MoveEntity camera2,.25,0,0





;send message
		io = MilliSecs() / 50
		If io > ioi Then 
			SendNetMsg 1, y + x * 800, player, 0, 1
			ioi = io
		End If
		
		;incoming messages
		If RecvNetMsg() Then
			msgType	  = NetMsgType()
			msgFrom   = NetMsgFrom()
			msgData   = NetMsgData$()
			a# = msgData   / 800
			b# = msgData Mod 800
		End If







TurnEntity camera2, 0, -MouseXSpeed()/5.0,0		;rotate player Pivot according to mouse X movement
TurnEntity camera2, MouseYSpeed()/5.0, 0,0,0

If EntityPitch(camera2) < -45					;don't allow camera to look below -45 degrees
  RotateEntity camera2, -45, EntityYaw(camera2), EntityRoll(camera2)
EndIf 
If EntityPitch(camera2) > 45					;don't allow camera to look above 45 degrees
  RotateEntity camera2, 45, EntityYaw(camera2), EntityRoll(camera2)
EndIf
MoveMouse GraphicsWidth()/2, GraphicsHeight()/2		;reset mouse position to middle of screen




If tt=100
tt=1
reload2=1
EndIf







If MouseHit(1) Then
ShowEntity bullet2(tt)
EntityParent bullet2(tt),0

PositionEntity bullet2(tt),EntityX(gun2,1),EntityY(gun2,1),EntityZ(gun2,1)
RotateEntity bullet2(tt),EntityPitch#(camera2,1),EntityYaw#(camera2,1),EntityRoll#(camera2,1)
EntityColor bullet2(tt),Rand(0,255),Rand(0,255),Rand(0,255)
tt=tt+1
 
End If

For qq=0 To fullcart2
MoveEntity bullet2(qq),-.3,.5,3

Next


bulletcount2=100-tt





PositionEntity camsphere2,EntityX(camera2),EntityY(camera2),EntityZ(camera2)

If EntityY(camera2)<2.0 Then PositionEntity camera2,EntityX(camera2),2.0,EntityZ(camera2) 

TranslateEntity camera2,0,-.25,0




If EntityCollided(camsphere2,type_bullet)
CameraClsColor camera2,155,0,0
EndIf 







RenderWorld 
UpdateWorld 


Text 0,15,  "bullets remaining:"+ bulletcount
If reload2=1 Then Text 300,30, "click right Mouse button to reload"



Text 325,15, "bullets remaining:"+ bulletcount2



Text 600,0,EntityX(camera2,True)
 Text 600,15,EntityY(camera2,True)
 Text 600,30,EntityZ(camera2,True) 

Flip

Wend


End

any help at all would be great, thanks!
P.S this is incomplete...

AJ00200

(Posted 2009) [#2]

You need to use or StartNetGame to make a game first

_Skully

(Posted 2009) [#3]

	Select StartNetGame()
	Case 0
				End
	Case 1
				Print "Joined!"
	Case 2
				Print "Server!"
	End Select

He did... but aren't you supposed to use StartNetGame for the server and JoinNetGame for clients? (old memories here)

Braden

(Posted 2009) [#4]

I'm not sure Skully, I'll mess around with the joinNetGame and StartnetGame codes, thanks

AJ00200

(Posted 2009) [#5]

No, you use JoinNetGame to join games made by HostNetGame
StartNetGame Makes and Joins

Braden

(Posted 2009) [#6]

Well Both the computers connect successfully but i can't see the other player... any ideas?

Matty

(Posted 2009) [#7]

Firstly you have not created an additional 'player sphere' when the other player connects. You need to create the objects on each client that represent all the other currently connected clients.

Secondly you need to position the remote clients on the local machine in the relevant x/y/z world space with rotation as well. Currently you read two values into a# and b# but do nothing with these.

Judging by your other posts so far, my thoughts are that you may not be ready to tackle a network game, but that's your call not mine.