This is what i used to make to achieve what you described.
Maybe you can tinker with the codes to fit your purposes
The medias:
https://forumfiles.thegamecreators.com/download/2554594
The codes:
// Project: Test World
// Created: 2015-02-15
// set window properties
SetWindowTitle( "Test World" )
SetWindowSize( 1920, 1080, 0 )
SetDisplayAspect( -1 )
// set display properties
deviceHeight# = GetDeviceHeight()
deviceWidth# = GetDeviceWidth()
`SetVirtualResolution( 1024, 768 )
`SetVirtualResolution( 1920, 1080 )
SetVirtualResolution( deviceWidth#, deviceHeight# )
SetOrientationAllowed( 1, 1, 1, 1 )
SetClearColor(255,255,255)
SetPrintColor(1,1,1, 100)
`SetVirtualJoystickAlpha( 0, 9, 9 )
//Setup camera
SetCameraPosition(1, 0, 2, -30)
SetCameraRotation(1, 0, 0, 0)
//Load images
loadImage(1,"Wooden Figures/bayotex003.png")
LoadImage(2,"lamp/t006.bmp")
LoadImage(1000,"tile17.png")
LoadImage(3,"tree.jpg")
//Make player objects
FOR t = 1 to 10
LoadObject(t,"Wooden Figures/bayo.obj")
SetObjectImage(t,1,0)
SetObjectLightMode(t,1)
SetObjectScale(t, 0.5, 0.5, 0.5)
`SetObjectPosition(t, 100,0,0)
NEXT t
//Players position array
DIM PlayerVar[10,10]
PlayerVar[1,1] = 0
`CreatePlane
loadObject(1000, "ground.obj")
SetObjectScale(1000, 4,4,4)
`RotateObjectLocalX(2,90)
setImageWrapU(1000,1) : setImageWrapV(1000,1)
SetObjectImage( 1000, 1000, 0 )
//Make tree
LoadObject(1001, "leaves tree/tree1.obj")
SetObjectScale(1001,7,7,7)
SetObjectLightMode(1001,1)
SetObjectImage(1001,1,0)
SetObjectPosition(1001, 6, 0, -20)
//Make background plane
CreateObjectPlane(1002, 60, 60)
SetObjectImage(1002,3,0)
SetObjectPosition(1002,0, 7.5, 0)
// set network variables
State = 0
iType = 0
NetworkID = 0
GLOBAL FPSCounter = 0
// create sprite 11 (the host)
CreateSprite ( 11, 1 )
SetSpritePosition ( 11, 100, 100 )
SetSpriteSize ( 11, 100, -1 )
// create sprite 12 (the joiner)
CreateSprite ( 12, 2 )
SetSpritePosition ( 12, 500, 100 )
SetSpriteSize ( 12, 100, -1 )
`#############################################################################################################################################################################################
`#############################################################################################################################################################################################
DO
IF FPSCounter > 60 THEN FPSCounter = 1
FPSCounter = FPSCounter + 1
IF (IsNetworkActive ( NetworkID ) = 1)
MyID = GetNetworkMyClientID(networkID)
NewObjectX# = GetObjectX(MyID) + getJoystickX()/10 `get new object position
NewObjectY# = GetObjectY(MyID)
NewObjectZ# = GetObjectZ(MyID) - getJoystickY()/10
DistX# = NewObjectX# - GetObjectX(MyID) `Calculate object rotation
DistZ# = NewObjectZ# - GetObjectZ(MyID)
NewObjAngle# = ATANFULL(DistX#, DistZ#)
SetObjectPosition(MyID, NewObjectX#, NewObjectY#, NewObjectZ#)
IF (getJoystickX() <> 0) or (getJoystickY() <> 0) `rotate player of joystick pressed
SetObjectRotation(MyID, 0, -NewObjAngle#, 0)
ENDIF
ENDIF
IF iType = 0
Print( ScreenFPS() )
Print(getJoystickX())
Print(getJoystickY())
print("networkID : " +STR(networkId))
print ("My IP :" + GetDeviceIP())
print ("My ID :" + STR(GetNetworkMyClientID(networkID) ))
print ("FPSCounter: " + STR(FPSCounter))
ENDIF
`----------------------------------------------------------------------------------------------------------------------------------------
// initial state of game - host or join game
if State = 0
// display instructions
Print ( "Select green square to host a game" )
Print ( "Select red square to join a game" )
// check input
if GetPointerPressed ( ) = 1
// find out which sprite was hit
hit = GetSpriteHit ( GetPointerX ( ), GetPointerY ( ) )
// green sprite - host game
if ( hit = 11 )
NetworkID = HostNetwork ( "AGK Test Game", "Player 1", 1025 )
iType = 0
State = 1
`SetObjectPosition(GetNetworkMyClientID(networkID), 0,0,0)
//Hide sprites
`SetVirtualJoystickAlpha( 1, 1, 1 )
SetSpriteVisible(11,0)
SetSpriteVisible(12,0)
SetSpriteActive(11,0)
SetSpriteActive(12,0)
endif
// red sprite - join game
if ( hit = 12 )
`randomplayername$="player "+str(random(1,10000))
randomplayername$="player "+str(random(2,100))
NetworkID = JoinNetwork ( "AGK Test Game", randomplayername$ )
iType = 1
State = 1
`SetObjectPosition(GetNetworkMyClientID(NetworkID), 0,0,0)
//Hide sprites
`SetVirtualJoystickAlpha( 1, 1, 1 )
SetSpriteVisible(11,0)
SetSpriteVisible(12,0)
SetSpriteActive(11,0)
SetSpriteActive(12,0)
endif
endif
endif
`---------------------------------------------------------------------------------------------------
// in game
if State = 1 and NetworkID = 0 then print ("Network connection failed")
IF State = 1 and NetworkID > 0
`network status
printc ("Network active:")
printc (IsNetworkActive ( NetworkID ))
for activity=1 to activitycount
printc(".")
next activity
print("")
inc activitycount
if activitycount>10 then activitycount=0
rem if active
if IsNetworkActive ( NetworkID ) <> 0
// get ID of first player
REMSTART
id = GetNetworkFirstClient ( NetworkID )
// cycle through all players and display their names on screen
while id <> 0
// show current player
Print ( GetNetworkClientName ( NetworkID, id ) + " ID: " + STR(id) )
// find next player
id = GetNetworkNextClient ( NetworkID )
endwhile
REMEND
`---------------------------------------------------------------------------------------------------
IF (getJoystickX() <> 0) or (getJoystickY() <> 0) `Send position data if joystick pressed
IF FPSCounter = 10 OR FPSCounter = 20 OR FPSCounter = 30 OR FPSCounter = 40 OR FPSCounter = 50 OR FPSCounter = 60
`Send position data
cmessage = CreateNetworkMessage ( )
AddNetworkMessageFloat ( cmessage, GetNetworkMyClientID(networkID) )
AddNetworkMessageFloat ( cmessage, NewObjectX# )
AddNetworkMessageFloat ( cmessage, NewObjectZ# )
AddNetworkMessageFloat ( cmessage, NewObjAngle#)
SendNetworkMessage ( NetworkID, 0, cmessage )
ENDIF
ENDIF
`---------------------------------------------------------------------------------------------------
// find message from server
cmessage = GetNetworkMessage ( NetworkID ) `Get message ID
IF cmessage <> 0
If iType = 0 `If host, receive locations of individual players, and send to all players
`OtherNum = GetNetworkMessageFromClient( cmessage ) `Get player number that sent this message
`Print ( GetNetworkClientName ( NetworkID, OtherNum ) + " ID: " + STR(OtherNum) )
// cycle through all messages, Position players
// get position
messageFrom = GetNetworkMessageFloat ( cmessage )
otherX# = GetNetworkMessageFloat ( cmessage )
otherZ# = GetNetworkMessageFloat ( cmessage )
OtherNewObjAngle# = GetNetworkMessageFloat ( cmessage )
`Register player positions
`PlayerVar[messageFrom,1] = messageFrom
`PlayerVar[messageFrom,2] = otherX#
`PlayerVar[messageFrom,3] = otherZ#
`Send this player position to all players
Dmessage = CreateNetworkMessage ( )
AddNetworkMessageFloat ( Dmessage, messageFrom )
AddNetworkMessageFloat ( Dmessage, otherX#)
AddNetworkMessageFloat ( Dmessage, otherZ# )
AddNetworkMessageFloat ( Dmessage, NewObjAngle#)
SendNetworkMessage ( NetworkID, 0, Dmessage )
// update players position
IF messageFrom = MyID
ELSE
SetObjectPosition ( messageFrom, otherX#, GetObjectY(messageFrom), otherZ# )
SetObjectRotation(messageFrom, 0, -OtherNewObjAngle#, 0)
ENDIF
// delete the current message
DeleteNetworkMessage ( cmessage )
// find the next message
`cmessage = GetNetworkMessage ( NetworkID )
ENDIF `If iType = 0
IF iType = 1 `If client, receive locations of all players from host
`For z = 1 to 10
// get position
messageFrom = GetNetworkMessageFloat ( cmessage )
otherX# = GetNetworkMessageFloat ( cmessage )
otherZ# = GetNetworkMessageFloat ( cmessage )
OtherNewObjAngle# = GetNetworkMessageFloat ( cmessage )
`Next z
// update players position
IF messageFrom = MyID
ELSE
SetObjectPosition ( messageFrom, otherX#, GetObjectY(messageFrom), otherZ# )
SetObjectRotation(messageFrom, 0, -OtherNewObjAngle#, 0)
ENDIF
// delete the current message
DeleteNetworkMessage ( cmessage )
// find the next message
`cmessage = GetNetworkMessage ( NetworkID )
ENDIF `IF iType = 1
ENDIF `IF cmessage <> 0
ENDIF `if IsNetworkActive ( NetworkID ) <> 0
endif `IF State = 1 and NetworkID > 0
`---------------------------------------------------------------------------------------------------
SYNC()
LOOP
`#############################################################################################################################################################################################
`#############################################################################################################################################################################################
