Multiplayer cameras - GameCreators Forum

Author

Message

Numisi

13

Years of Service

User Offline

Joined: 27th Jul 2012

Location:

Posted: 26th Jun 2013 00:26

Link

Another nooby question...
I can't figure out how to use cameras in a 3d multiplayer game. Have I to send continuous images as messages, or is there a way to "connect" cameras between host and client?

Back to top

Profile PM

Sergey K

22

Years of Service

User Offline

Joined: 4th Jan 2004

Location:

Posted: 26th Jun 2013 01:00

Link

what exactly you trying to make?

an online fps game where each user controls his own char and u want to swich between the users to see what they up to on their camera view?
if thats the case, just use the same camera coordinates of other users on your own camera.

you dont need more than 1 camera for all of that..

Stream SnifferTools/Plugins/Models/Games and more!

Back to top

Profile PM Website

Numisi

13

Years of Service

User Offline

Joined: 27th Jul 2012

Location:

Posted: 26th Jun 2013 12:00

Link

I want to make a small online game, where each user has it's own character, so it's own camera too.
I've not understood yet how it works: only the host has the world generated, the clients send data on what they are pressing and the host updates the data in the world sending camera information to the clients, or the world is generated in every client, the client sends data to the host wich updates world data and sends updates to the client worlds?
I know it is the very basic understandig of the 3d multiplayer, but I haven't found a tutorial yet.

Back to top

Profile PM

Sergey K

22

Years of Service

User Offline

Joined: 4th Jan 2004

Location:

Posted: 26th Jun 2013 14:20

Link

im not sure wich protocol u using for that multiplayer game, but lets assume u using TCP/IP

you just creating word inside a client, and sending your character X,Y,Z positions to server wich then delivering to the rest of the users that online excluding your self.

that your client knows where to place online characters

here is a typical data pocket that sending your own positions to server

PutInteger MyCharPosX()
PutInteger MyCharPosy()
PutInteger MyCharPosZ()
NetSend 0 //sending to server

here is a typical reciving commands that at the server..

if NetMsgExists()>0
PlayerID = NetGetPlayerID()
PosX = GetInteger()
PosY = GetInteger()
PosZ = GetInteger()

//Send this info to all other players
for a = 1 to AllOnlinePlayers
if a <> PlayerID
PutInteger 10 //lets say its your msg ID
PutInteger PlayerID
PutInteger PosX
PutInteger PosY
PutInteger PosZ
NetSendTo a
endif
next a
endif

and finally, your client getting this data and syncing the player position
Client side (reciving after server)
if MsgExists()>0
MsgID = NetGetInteger()
if MsgID = 10
OtherPlayerObjNum = NetGetInteger()
PosX = NetGetInteger()
PosY = NetGetInteger()
PosZ = NetGetInteger()
position object OtherPlayerObjNum,PosX,PosY,PosZ
endif
endif

this is a very basic structure of online data exchanging.
i know you were talking about cameras and i gave you an example of player positions, but it basicly goes the same.. just change the player positions to camera positions on sending and reciving

i also didnt mentioned whats MsgID and whats that for, but it will be up to you to understand all of that.

good luck

Stream SnifferTools/Plugins/Models/Games and more!

Back to top

Profile PM Website

Numisi

13

Years of Service

User Offline

Joined: 27th Jul 2012

Location:

Posted: 27th Jun 2013 13:00

Link

So the game world is created in every client, every client sends updates to the host, and the host sends the single client updates to all the clients? Thank you, I suspected the functioning was this, but I wasn't sure.
Last question: if every client creates it's own world, when a client disconnects, and then connects again with the host, all the world data has to be re-downloaded completely because the client misses every update, so if a world is big it has to be separated in a lot of smaller areas to be downloaded quickly, or it would be too long to download. Is this right or am I missing something?

Back to top

Profile PM

Sergey K

22

Years of Service

User Offline

Joined: 4th Jan 2004

Location:

Posted: 27th Jun 2013 20:49

Link

too long to download?
lets say the complete map is stored inside the server and its a map of blocks (like mincraft or whatever u trying to make)
u just sending to the new joined player ONLY the map that surrounds him. and keep syncing his position with the rest of the map

if the player moves, server giving to client the order to erace the blocks that too far from him and create new ones if its on view ranage.

its massive data i know, thats why u need a good pc to handle the server stuff for you.

but dont expect me to teach you about all the other twicks on multiplayer network that u can do to handle those massive data.
those stuff you must learn by ur self..
just start experiancing and good luck

Stream SnifferTools/Plugins/Models/Games and more!

Back to top

Profile PM Website

Sergey K

22

Years of Service

User Offline

Joined: 4th Jan 2004

Location:

Posted: 27th Jun 2013 21:20

Link

i have made this code snippet long time ago that creates and destroys objects dynamicly.
its not online or multiplayer or somethign like that
it will just give you the idea oh map generation that you can use on your server side.

sync on
sync rate 60
autocam off
type TObjList
	ObjNum as Integer
	InUse as Boolean
endtype

dim ObjList(0) as TObjList
backdrop on
color backdrop 0

global RandomCreateTime as Integer
randomize timer()

SetupSourceObjects()
do
	text 0,0,"FPS: "+str$(screen fps())
	text 0,15,"Total Polygons: "+str$(statistic(1))
	text 0,30,"Total Objects: "+str$(TotalDrawnedObjects())
	RunEngine()
	sync
loop

function SetupSourceObjects()
	make object cube 1,5
	hide object 1
	make object sphere 2,5
	hide object 2
endfunction

function RunEngine()
	move camera 1
	yrotate camera camera angle y()+(rightkey()-leftkey())
	if RandomCreateTime < Timer()
		CreateObjectInFront()
		RandomCreateTime = timer()+rnd(100) 
	endif
	
	RemovingOldObjects()
endfunction

function RemovingOldObjects()
	a as integer
	for a =0 to array count(ObjList(0))-1
		if ObjList(a).Inuse = 1
			if Dist(object position x(ObjList(a).ObjNum),object position y(ObjList(a).ObjNum),object position z(ObjList(a).ObjNum)) > 300
				ObjList(a).Inuse = 0
				delete object ObjList(a).ObjNum
			endif
		endif
	next a
endfunction

function TotalDrawnedObjects()
	a as integer
	res as integer
	Res = 0
	for a =0 to array count(ObjList(0))-1
		if ObjList(a).INuse = 1 then inc Res
	next a
	
endfunction Res

function FreeObject()
	a as integer
	a = 0
	repeat
		inc a
	until object exist(a)=0
endfunction a

function FindFreeObjList()
	a as integer
	for a = 0 to array count(ObjList(0))-1
		if ObjList(a).InUse = 0 then exitfunction a
	next a
	a = -1
endfunction a

function CreateObjectInFront()
	Obj as integer
	Obj = FindFreeObjList()
	if Obj = -1
		Dim ObjList(array count(ObjList(0))+1) as TObjList
		Obj = array count(ObjList(0))-1
	endif
	ObjList(Obj).INUse = 1
	ObjList(Obj).ObjNum = FreeObject()
	
	O as Integer
	O = rnd(1)+1
	clone object ObjList(Obj).ObjNum,O
	position object ObjList(Obj).ObjNum,camera position x(),camera position y(),camera position z()
	yrotate object ObjList(Obj).ObjNum,camera angle y()
	move object ObjList(Obj).ObjNum,200
	yrotate object ObjList(Obj).ObjNum,rnd(90)
	move object up ObjList(Obj).ObjNum,rnd(90)-45
	move object left ObjList(Obj).ObjNum,rnd(500)-250
endfunction

function Dist(PosX as Integer,PosY as Integer,PosZ as Integer)
CamX as Integer
CamY as Integer
CamZ as Integer
CamX = camera position x()
CamY = camera position y()
CamZ = camera position z()

dis#=sqrt(((CamX-PosX)^2)+((CamY-posY)^2)+((CamZ-PosZ)^2))

endfunction dis#

+ Code Snippet

sync on
sync rate 60
autocam off
type TObjList
	ObjNum as Integer
	InUse as Boolean
endtype

dim ObjList(0) as TObjList
backdrop on
color backdrop 0

global RandomCreateTime as Integer
randomize timer()


SetupSourceObjects()
do
	text 0,0,"FPS: "+str$(screen fps())
	text 0,15,"Total Polygons: "+str$(statistic(1))
	text 0,30,"Total Objects: "+str$(TotalDrawnedObjects())
	RunEngine()
	sync
loop

function SetupSourceObjects()
	make object cube 1,5
	hide object 1
	make object sphere 2,5
	hide object 2
endfunction

function RunEngine()
	move camera 1
	yrotate camera camera angle y()+(rightkey()-leftkey())
	if RandomCreateTime < Timer()
		CreateObjectInFront()
		RandomCreateTime = timer()+rnd(100) 
	endif
	
	RemovingOldObjects()
endfunction

function RemovingOldObjects()
	a as integer
	for a =0 to array count(ObjList(0))-1
		if ObjList(a).Inuse = 1
			if Dist(object position x(ObjList(a).ObjNum),object position y(ObjList(a).ObjNum),object position z(ObjList(a).ObjNum)) > 300
				ObjList(a).Inuse = 0
				delete object ObjList(a).ObjNum
			endif
		endif
	next a
endfunction

function TotalDrawnedObjects()
	a as integer
	res as integer
	Res = 0
	for a =0 to array count(ObjList(0))-1
		if ObjList(a).INuse = 1 then inc Res
	next a
	
endfunction Res

function FreeObject()
	a as integer
	a = 0
	repeat
		inc a
	until object exist(a)=0
endfunction a

function FindFreeObjList()
	a as integer
	for a = 0 to array count(ObjList(0))-1
		if ObjList(a).InUse = 0 then exitfunction a
	next a
	a = -1
endfunction a

function CreateObjectInFront()
	Obj as integer
	Obj = FindFreeObjList()
	if Obj = -1
		Dim ObjList(array count(ObjList(0))+1) as TObjList
		Obj = array count(ObjList(0))-1
	endif
	ObjList(Obj).INUse = 1
	ObjList(Obj).ObjNum = FreeObject()
	
	O as Integer
	O = rnd(1)+1
	clone object ObjList(Obj).ObjNum,O
	position object ObjList(Obj).ObjNum,camera position x(),camera position y(),camera position z()
	yrotate object ObjList(Obj).ObjNum,camera angle y()
	move object ObjList(Obj).ObjNum,200
	yrotate object ObjList(Obj).ObjNum,rnd(90)
	move object up ObjList(Obj).ObjNum,rnd(90)-45
	move object left ObjList(Obj).ObjNum,rnd(500)-250
endfunction

function Dist(PosX as Integer,PosY as Integer,PosZ as Integer)
CamX as Integer
CamY as Integer
CamZ as Integer
CamX = camera position x()
CamY = camera position y()
CamZ = camera position z()

dis#=sqrt(((CamX-PosX)^2)+((CamY-posY)^2)+((CamZ-PosZ)^2))

endfunction dis#

Stream SnifferTools/Plugins/Models/Games and more!

Back to top

Profile PM Website

Numisi

13

Years of Service

User Offline

Joined: 27th Jul 2012

Location:

Posted: 28th Jun 2013 11:50

Link

Yes, thank you, I have already written codes to create objects near and destroy objects far, but I didn't think on sendig only data in this way, it's a good idea!
I'm not totally a noob as I look, it's only my first experience with online programs...

Back to top

Profile PM

Sergey K

22

Years of Service

User Offline

Joined: 4th Jan 2004

Location:

Posted: 28th Jun 2013 12:03

Link

i have made an MMORPG game some time ago that i didnt showed on the forums.
but the method was just like that
im not using blocks to make the map, but my server has the whole map and it sends only the object IDs of the maps that needs to be loaded on each client.

its not block based map, but its area based much easyer to handle.

but you can be sure it all works and v. smooth!

Stream SnifferTools/Plugins/Models/Games and more!

Back to top

Profile PM Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Multiplayer cameras