TheGameCreators - CodeBase - Multiplayer

Category: Multiplayer

Version: 1.1

Information

Uploaded: 13th May 2015 18:54

Modified: 12th Jul 2017 12:10

Author: Coilwinder

Summary

Using the same game loop for client and host in a simple multiplayer two-way player position messaging test. Slightly modified from AGK2's Multiplayer example "Getting Started".

Full Description

Using the same game loop for client and host in a simple multiplayer two-way player position messaging test.<br /> Slightly modified from AGK2's Multiplayer example "Getting Started".

AGK Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

// Modified (slightly) from AGK2 example "Multiplayer - GettingStarted"

// 2015.04.28

// set a display aspect

SetDisplayAspect ( 4.0 / 3.0 )

// load two images

LoadImage ( 1, "green.png" )

LoadImage ( 2, "red.png" )

LoadImage ( 3, "background5.jpg" )

// backdrop

CreateSprite ( 3, 3 )

// create sprite 11 (the host)

CreateSprite ( 11, 1 )

SetSpritePosition ( 11, 10, 20 )

SetSpriteSize ( 11, 25, -1 )

// create sprite 12 (the joiner)

CreateSprite ( 12, 2 )

SetSpritePosition ( 12, 50, 20 )

SetSpriteSize ( 12, 25, -1 )

// set some variables

State = 0

iType = 0

NetworkID = 0

// main loop

// 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

localSprite = 11

remoteSprite = 12

endif

// red sprite - join game

if ( hit = 12 )

randomplayername$="player"+str(random(1,10000))

NetworkID = JoinNetwork ( "AGK Test Game", randomplayername$ )

iType = 1

State = 1

localSprite = 12

remoteSprite = 11

endif

// in game

if State = 1 and NetworkID = 0 then print ("Network connection failed")

if State = 1 and NetworkID > 0

rem 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

id = GetNetworkFirstClient ( NetworkID )

// cycle through all players and display their names on screen

while id <> 0

// show current player

Print ( GetNetworkClientName ( NetworkID, id ) )

// find next player

id = GetNetworkNextClient ( NetworkID )

endwhile

// update position of local player

x# = GetPointerX ( )

y# = GetPointerY ( )

SetSpritePosition ( localSprite, x#, y# )

// create a message containing the position to be sent out to the other player

cmessage = CreateNetworkMessage ( )

AddNetworkMessageFloat ( cmessage, x# )

AddNetworkMessageFloat ( cmessage, y# )

SendNetworkMessage ( NetworkID, 0, cmessage )

// Get remote position message

dmessage = GetNetworkMessage ( NetworkID )

while dmessage <> 0

// get position

x2# = GetNetworkMessageFloat ( dmessage )

y2# = GetNetworkMessageFloat ( dmessage )

// update remote players position

SetSpritePosition ( remoteSprite, x2#, y2# )

// delete the current message

DeleteNetworkMessage ( dmessage )

// find the next message

dmessage = GetNetworkMessage ( NetworkID )

endwhile

endif

// update the screen

Sync ( )

loop

Download

Please login to download

Comments

No comments yet.

CodeBase - Multiplayer - Getting Started v1.1

Information

Summary

Full Description

AGK Source Code

Download

Screen Shot

Author

Comments

Author Name:	Coilwinder
CodeBase Entries:	2