Sorry your browser is not supported!

//******************************
//******************************
_SetupNet:
#Constant SEP_CHAR = "%"

Global NetString$
Global ReStr$

return
//******************************
//******************************

Function NET_Init()
    Gosub _SetupNet
EndFunction

//******************************

Function Parse(Value)
    Cur = -1
    ReStr$ = NetString$
    _Return:
    For X = 1 to 9999
        If Mid$(ReStr$,X) = SEP_CHAR
            End$ = Left$(ReStr$,X-1)
            Cur = Cur + 1
            ReStr$ = Right$(NetString$,LEN(ReStr$) - X)
            If Cur = Value then Gosub _End
            Gosub _Return
        EndIf
    Next X
    _End:
EndFunction End$

//******************************

Function NET_ConnectTo(IP$, Port)
    Net Set Port Port
    RetVal = Net Connect(IP$)
EndFunction RetVal

//******************************

Function NET_SendData(Data$)
    Net Put String Data$
    Net Send
EndFunction

//******************************

Function NET_NewMessage()
    If Net Get Message() = 1
        NetString$ = Net Get String()
        If NetString$ <> ""
            RetVal = 1
        else
            RetVal = 0
        EndIf
    else
        RetVal = 0
    EndIf
EndFunction RetVal

//******************************
//******************************
_SetupNet:
#Constant SEP_CHAR = "%"

Global NetString$
Global ReStr$
Global Cur

Global MaxPlayers

return
//******************************
//******************************

Function NET_Init()
    Gosub _SetupNet
EndFunction

//******************************

Function Parse(Value)
    Cur = -1
    ReStr$ = NetString$
    _Return:
    For X = 1 to 9999
        If Mid$(ReStr$,X) = SEP_CHAR
            End$ = Left$(ReStr$,X-1)
            Cur = Cur + 1
            ReStr$ = Right$(NetString$,LEN(ReStr$) - X)
            If Cur = Value then Gosub _End
            Gosub _Return
        EndIf
    Next X
    _End:
EndFunction End$

//******************************

Function NET_HostServer(IP$, Port, MaxPlayers)
    Net Set Port Port
    RetVal = Net Host(MaxPlayers, IP$)
    MaxPlayers = MaxPlayers
EndFunction RetVal

//******************************

Function NET_NewMessage()
    If Net Get Message() = 1
        RetVal = Net Message From()
        NetString$ = Net Get String()
    else
        RetVal = -1
    EndIf
EndFunction RetVal

//******************************

Function NET_SendDataToAll(Data$)
    Net Put String Data$
    Net Send All
EndFunction

//******************************

Function NET_SendDataTo(PlayerID, Data$)
    Net Put String Data$
    Net Send PlayerID
EndFunction

//******************************

Function NET_SendDataToAllBut(PlayerID, Data$)
    For X = 1 to MaxPlayers
        If X <> PlayerID
            Net Put String Data$
            Net Send X
        EndIf
    Next X
EndFunction

//******************************

Function NET_UpdatePlayersOnline()
    Empty = Net Player Joined()
    Empty = Net Player Left()
EndFunction

//Initialize the NetWrapper globals
NET_Init()

//Host a new local server
Success = NET_HostServer("127.0.0.1",4001,32)

//Main Loop
Do
    //Update the player IDs(Only use this when your own code does NOT rely on the NET PLAYER JOINED/LEFT commands)
    NET_UpdatePlayersOnline()
    
    //See if there is any received message, if it is it returns a player ID, if not it returns -1
    Sender = NET_NewMessage()
    If Sender <> -1
        PacketID$ = Parse(0)
        
        If Lower$(PacketID$) = "connect"
            Print Parse(1)
            Print Parse(2)
        EndIf
        
    EndIf
Loop

//Initialize the NetWrapper globals
NET_Init()

//Connect to a local server
NET_ConnectTo("127.0.0.1",4001)

//Send some data to the server
NET_SendData("CONNECT"+SEP_CHAR+"Hello World! This message is parsed from our sent message with 'connect' as a PacketID"+SEP_CHAR+"123456"+SEP_CHAR)

char buffer[512];

   if NET GET MESSAGE() = 1
      xnemis = net get int()
      ynemis = net get int()
      anemis = net get int()
   endif

   xnemi# = xnemis / 100
   ynemi# = ynemis / 100
   anemi# = anemis / 100

   xmio# = object position x(201)
   ymio# = object position y(201)
   amio# = object angle z(201)

   xmios = int(xmio# * 100)
   ymios = int(ymio# * 100)
   amios = int(amio# * 100)

   net put int xmios
   net put int ymios
   net put int amios
   net send 1

   Plrs$ = "2"
   net host Val(Plrs$)

   ip$ = "82.48.6.146"
   net connect (ip$)

`==========================================================
`==========================================================
`                        a lil chat
`==========================================================
`==========================================================

global host as string
global ipadr as string
global nick as string
global dim message(19) as string
global mymsg as string
global pressed as boolean

`----------------------------------
` Starting sequence
`----------------------------------
input "please, Enter your nick: ",nick

input "want to join or host?",host
  if host = "host"
  net host 10
else
  input "please type the ip address of the host: ",ipadr
  net connect ipadr

  for n = 0 to 10
  if NET PLAYER CONNECTED(n)=1
  net put string nick + " joined the room!"
  net send n
  next n
endif
`----------------------------------

clear entry buffer
sync rate 10
sync on

`LOOP------------------------------
do
cls

receive()
printing()
writing()

sync
loop

`----------------------------------
function printing()

for n = 19 to 0 step -1
  set cursor 10,(n*10)+10
  print message(n)
next n
endfunction

`----------------------------------
function writing()
  set cursor 10,460
  mymsg = "[" + nick + "] > " + entry$(1)
  print mymsg

if returnkey()=1 and pressed = 0
  pressed = 1
endif

if returnkey()=0 and pressed = 1
  pressed = 0
  net put string mymsg
  for n = 0 to 2
  if NET PLAYER CONNECTED(n)=1
  net put string nick + " joined the room!"
  net send n
  next n
endif
endfunction

`----------------------------------
function receive()
while new message()
  newmsg$ = net get string()
for n = 18 to 0 step -1
  message(n) = message(n+1)
next n
  message(19) = newmsg$
endwhile
endfunction

`==========================================================
`==========================================================
`                        a lil chat
`==========================================================
`==========================================================
global dim message(19) as string
global mymsg as string
global pressed as integer
global joined as integer
global joined2 as integer
global joined3 as integer
`----------------------------------
` Starting sequence
`----------------------------------

global nick as string
global ipadr as string
global adrtype as string
input "Do you want to (host/join)?" , adrtype
if adrtype = "host" then host = 1
input "Please, enter your nickname: ", nick
if host = 0 then jou$ = "hi, " + nick + ". Pass the host ip: " : input jou$ , ipadr

if host = 0 `client connecting
result = net connect(ipadr)
if result = 1 
print "connected! press any key to continue"
suspend for key
net put string nick + " Joined the room!"
net send
else
print "connection failed!! :FF" 
suspend for key
goto endit
endif

else `host connecting
result = net host(2)
if result = 0
print net get error()
suspend for key
goto endit
else
print "OK, press any key"
suspend for key
endif
endif

`----------------------------------

sync rate 30
sync on
clear entry buffer

`LOOP------------------------------
pressed = -1
do
cls

checkpl()
receive()
glamour()
printing()
writing()

if net connected()=1 
set cursor 400,400
print "connection OK"
else
print "connection problem!"
endif

sync
loop

`----------------------------------
function printing()

for n = 19 to 0 step -1
  set cursor 10,(n*20)+10
  print message(n)
next n
endfunction

`----------------------------------
function writing()
  set cursor 10,430
  mymsg = "[" + nick + "] > " + entry$(1)
  print mymsg

if returnkey()=1 and pressed = 0
  pressed = 1
endif

if returnkey()=0 and pressed = 1
  pressed = 0
  net put string mymsg
  if host = 0 then net send else net send joined3
  clear entry buffer
  
  newmsg$ = mymsg
for n = 0 to 18 step 1
  message(n) = message(n+1)
next n
  message(19) = newmsg$
  
endif

if returnkey()=0 and pressed = -1
pressed = 0
endif

endfunction

`----------------------------------
function receive()
while net get message()
  newmsg$ = net get string()
for n = 0 to 18 step 1
  message(n) = message(n+1)
next n
  message(19) = newmsg$
endwhile
endfunction

endit:
end

function checkpl()
joined = NET PLAYER JOINED()
if joined > 0 then joined2 = joined : joined3 = joined
if joined2 > 0
net put string "Welcome to the room!!, your ID is : " + STR$(joined2)
net send joined2
joined2 = 0
endif
endfunction

function glamour()
ink rgb(30,0,0),rgb(10,0,0)
box 1,1,639,500
ink rgb(100,0,0),rgb(40,0,0)
box 5,1,610,420
ink rgb(255,255,255),0
endfunction

if host = 0 then net send else net send joined3

#constant MESSAGE_ID_GENERAL 1 : ` Contains just player data
#constant MESSAGE_ID_GENERALFULL 2 : ` Contains player numbers and player data
#constant MESSAGE_ID_PLAYERJOINED 3
#constant MESSAGE_ID_PLAYERQUIT 4
#constant MESSAGE_ID_PLAYERVALIDATION 5

net put byte MESSAGE_ID_GENERAL
net put *whatever you want in the "general" message
net send

#include "DarkGDK.h"
#include "MultiSYNC.h"
#include <cstring>
using namespace std;

struct player_struct {
	int  slot_used;
	char client_id[255];
	char client_wel_msg[255];
} player[9999];

// the main entry point for the application is this function
void DarkGDK ( void )
{
	dbSyncOn ( );
	dbSyncRate ( 60 );

	int max_pla = 9999, player_id_bin, player_id[50], i;
	bool arf;

	arf = NetHost ( max_pla );
	if ( arf == 0 ) {
		dbPrint ( "Connection failed! Press any key to exit." );
		dbWaitKey ( );
		return;
	}

	dbPrint ( "Connection success!" );

	// our main loop
	while ( LoopGDK ( ) )
	{

		dbCLS ( );
		dbText ( 0, 0, "Listening for Clients." );
		dbText ( 0, 10, "Clients connected: " );
		dbText ( dbTextWidth ( "Clients connected: " ), 10, dbStr ( NetGetPlayerAmount ( ) ) );

		// listen for joins
		player_id_bin = NetPlayerJoined ( );
		if ( player_id_bin > 0 ){
			for ( i = 0; i < 9999; i++ ){
				if ( player[i].slot_used = 0 ){
					strcpy ( player[i].client_id, dbStr ( player_id_bin ) );
					strcpy ( player[i].client_wel_msg, strcat ( "Player ", player[i].client_id ) );
					strcpy ( player[i].client_wel_msg, strcat ( player[i].client_wel_msg, " has joined the server." ) );
					dbText ( 0, 30, player[i].client_wel_msg );
					player[i].slot_used = 1;
					i = 10000;
					break;
				}
			}
			dbPrint ( player[i].client_wel_msg );
		}

		player_id_bin = NetPlayerLeft ( );
		if ( player_id_bin > 0 ){
			for ( i = 0; 1 < 9999; i++ ){
				if ( player[i].slot_used > 0 ){
					if ( player[i].client_id == dbLeft ( player[i].client_id, dbLen ( dbStr ( player_id_bin  ) ) ) ){
						strcpy ( player[i].client_wel_msg, "00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000" );
						strcpy ( player[i].client_id, "00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000" );
						player[i].slot_used = 0;
					}
				}
			}
		}

		dbSync ( );
	}

	NetDisconnect ( );

	// return back to windows
	return;
}

player_id_bin = NetPlayerLeft ( );
		if ( player_id_bin > 0 ){
			for ( i = 0; 1 < 9999; i++ ){

// Dark GDK - The Game Creators - www.thegamecreators.com

// the wizard has created a very simple project that uses Dark GDK
// it contains the basic code for a GDK application

// whenever using Dark GDK you must ensure you include the header file
#include "DarkGDK.h"
#include "MultiSYNC.h"
#include <cstring>
using namespace std;

// structure to hold the client data
struct player_struct {
	int  slot_used;
	char client_id[255];
} player[9999];

// the main entry point for the application is this function
void DarkGDK ( void )
{
	dbSyncOn ( );
	dbSyncRate ( 60 );

	int max_pla = 9999, player_id_bin, player_id[50], i;
	bool arf, msg_flag;

	unsigned char INSTRUCTIONS_;

	// initiate the connection
	arf = NetHost ( max_pla );
	// return to windows on failure
	if ( arf == 0 ){
		dbPrint ( "Connection failed! Press any key to exit." );
		dbWaitKey ( );
		return;
	}

	dbPrint ( "Connection success!" );

	// our main loop
	while ( LoopGDK ( ) )
	{

		dbCLS ( );
		dbText ( 0, 0, "Listening for Clients." );
		dbText ( 0, 10, "Clients connected: " );
		// I know this is dirty... but its been a while
		dbText ( dbTextWidth ( "Clients connected: " ), 10, dbStr ( NetGetPlayerAmount ( ) ) );

		// listen for joins
		player_id_bin = NetPlayerJoined ( );
		if ( player_id_bin > 0 ){
			for ( i = 0; i < 9999; i++ ){
				if ( player[i].slot_used = 0 ){
					// store their client id
					strcpy ( player[i].client_id, dbStr ( player_id_bin ) );
					// change the client's slot to 1 for used
					player[i].slot_used = 1;
					// break the for loop
					i = 10000;
				}
			}
		}

		// listen for disconnects
		player_id_bin = NetPlayerLeft ( );
		if ( player_id_bin > 0 ){
			for ( i = 0; i < 9999; i++ ){
				if ( player[i].slot_used > 0 ){
					if ( player[i].client_id == dbLeft ( player[i].client_id, dbLen ( dbStr ( player_id_bin  ) ) ) ){
						// write zeros to their client id just to tidy up
						strcpy ( player[i].client_id, "00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000" );
						// change the client's slot to 0 for unused
						player[i].slot_used = 0;
						// break the for loop
						i=10000;
					}
				}
			}
		}

		// get any incomming messages
		msg_flag = NetGetMessage ( );
		if ( msg_flag = 1 ){
			// always call this first to find out what kind of data will follow
			INSTRUCTIONS_ = NetGetByte ( );
			switch ( INSTRUCTIONS_ ){
				
				// dump this as its only a keep-alive packet
				case 'Z':
					break;

				// not really sure if this'll EVER happen, but I'm including it anyway
				default:
					break;
			}
		}

		dbSync ( );
	}

	// stop the connection and kick everyone off
	NetDisconnect ( );

	// return back to windows
	return;
}

// Dark GDK - The Game Creators - www.thegamecreators.com

// the wizard has created a very simple project that uses Dark GDK
// it contains the basic code for a GDK application

// whenever using Dark GDK you must ensure you include the header file
#include "DarkGDK.h"
#include "MultiSYNC.h"

// these will always be the FIRST message sent
const unsigned char STRING_ = 'S', INT_ = 'I', FLOAT_ = 'F', MEMBLOCK_ = 'M', BYTE_ = 'B', WORD_ = 'W', LONG_ = 'L', KEEP_ = 'Z';

// these will tell the server what the data will
// be for and will always be te SECOND peice of
// info sent
/*
POS_ = float x, float y, float z
MSG_ = string cString ( max size TBD )
*/
// these are constant variables
const unsigned char POS_ = 'P', MSG_ = 'M';

// this will be the THIRD message sent it is
// your client id (need to set up an id_get
// ip_get etc
//
// these are global variables
unsigned char MY_ID_, MY_IP_;

// the main entry point for the application is this function
void DarkGDK ( void )
{
	// turn on sync rate and set maximum rate to 60 fps
	dbSyncOn   ( );
	dbSyncRate ( 60 );

	int i, arf;

	// initiate the connection
	dbText ( 0, 0, "Attempting to connect to server at 127.0.0.1 ..." );
	arf = NetConnect ( "127.0.0.1" );
	// return to windows on failure
	if ( arf == 0 ){
		dbCLS ( );
		dbPrint ( "Could not connect to server! Press any key to continue." );
		dbWaitKey ( );
		return;
	}

	// our main loop
	while ( LoopGDK ( ) )
	{
		dbCLS ( );
		dbText ( 0, 0, "Connected to server at 127.0.0.1" );

		// send a 1 byte packet every loop to keep the connection open
		NetPutByte ( KEEP_ );
		NetSend ( 0 );

		// update the screen
		dbSync ( );
	}

	// close the connection to the server
	NetDisconnect ( );

	// return back to windows
	return;
}

#include "engine.h"
#include "multisync.h"
#include "dialog.h"
#include "PlayerDatabase.h"

int numberOfPlayers = 24;
const int NUMBER_OF_PLAYERS=24;


//	====================================================================
//	====================================================================
//  Player
//	====================================================================
//	====================================================================
class plrC
{
public:
	str name;
	int lv;
	int hp;

	bool used; // is the plr in use? TRUE/FALSE

	TMesh mesh;

	float x;
	float y;
	float z;
	float a;
};

plrC plr[NUMBER_OF_PLAYERS];
int PlrGetID; // used to know what player sent us a message
int PlrJoined;
int PlrLeft;

const int MESSAGE_ID_PLAYERDATA=1;         //Returns all player data
const int MESSAGE_ID_PLAYERDATAC=4;         //Data from host to client
const int MESSAGE_ID_PLAYERMESSAGE=2;      //Returns a message from player
const int MESSAGE_ID_HOSTMESSAGE=3;        //Sends host message
const int MESSAGE_ID_NEWACCOUNT=5;        //returns data for adding a new account


void AddPlayer(int id)
{
	plr[id].used = true;
	plr[id].mesh = LoadMesh("abstract::Character.GMF");
}

void FreePlayer(int id)
{
	plr[id].used = false;
	FreeEntity(plr[id].mesh);
}


//	====================================================================
//	====================================================================
//  Host interaction
//	====================================================================
//	====================================================================
TCamera cam;
flt movespeed = 0.5f;
TVec3 camrotation=Vec3(0.0f);
float mx=0.0f;
float my=0.0f;
int oldmz = 0;

void HostControls()
{
	if (KeyDown(KEY_W))
	{
		MoveEntity(cam,Vec3(0.0f,0.0f,movespeed));
	}
	if (KeyDown(KEY_S))
	{
		MoveEntity(cam,Vec3(0.0f,0.0f,-movespeed));
	}

	if (MouseHit(2))
	{
		MoveMouse(GraphicsWidth()/2,GraphicsHeight()/2);	
	}

	if (MouseDown(2))
	{
		mx=MouseX()-GraphicsWidth()/2;
		my=MouseY()-GraphicsHeight()/2;
		MoveMouse(GraphicsWidth()/2,GraphicsHeight()/2);
		camrotation.X=camrotation.X+my/4.0;
		camrotation.Y=camrotation.Y-mx/4.0;
		RotateEntity(cam,camrotation);
	}

	if (oldmz < MouseZ())
	{
		MoveEntity(cam,Vec3(0.0f,0.0f,movespeed*15.0f));
		oldmz = MouseZ();
	}
	if (oldmz > MouseZ())
	{
		MoveEntity(cam,Vec3(0.0f,0.0f,-movespeed*15.0f));
		oldmz = MouseZ();
	}

	if (MouseDown(1))
	{
		if (plr[1].mesh)
		{
			PointEntity(cam,plr[1].mesh);
		}
	}
}


//	====================================================================
//	====================================================================
//  Networking MultiSync
//	====================================================================
//	====================================================================
char* ip = "127.0.0.1";
char* ip2 = "88.91.224.113";
char buffer[256];
int typeOfPeer; // 1 = host ; 2 = client

bool CheckNetwork(int clientOrHost = 1)
{
	bool ret = 1;
	if (clientOrHost == 1 || clientOrHost == 2)
	{
		typeOfPeer = clientOrHost;
		if (typeOfPeer == 1)
		{
			//NetHost(2);
			NetHost_IP(numberOfPlayers,ip);
		}
		if (typeOfPeer == 2)
		{
			NetConnect(ip);
			NetGetError(buffer, 256);
		}
	}
	else
	{
		ret = 0;
	}

return(ret);
}



//	====================================================================
//	====================================================================
//	====================================================================
//	====================================================================
//  MAIN MAIN MAIN MAIN MAIN MAIN MAIN MAIN MAIN MAIN MAIN MAIN MAIN
//	====================================================================
//	====================================================================
//	====================================================================
//	====================================================================
int main( int argn, char* argv[] )
{
	Initialize() ;
	RegisterAbstractPath("C:/Program Files/Leadwerks Engine SDK");
	SetAppTitle( "Host" ) ;
	Graphics( 640, 480 ) ;
	AFilter() ;
	TFilter() ;

	TWorld	world;
	TBuffer gbuffer;
	TLight	light;
	TEntity level;

	world = CreateWorld() ;
	if (!world) {
		MessageBoxA(0,"Error","Failed to create world.",0);
		return Terminate();
	}
	gbuffer=CreateBuffer(GraphicsWidth(),GraphicsHeight(),BUFFER_COLOR|BUFFER_DEPTH|BUFFER_NORMAL);
	cam=CreateCamera();
	PositionEntity(cam,Vec3(0,0,-25));
	CheckNetwork(1);
	//AddAccount();
	light=CreateDirectionalLight();
	RotateEntity(light,Vec3(45,45,45));
	level = LoadScene("abstract::testonline.sbx");
	PositionEntity(level,Vec3(0.0f,0.0f,0.0f));

	//	====================================================================
	//	====================================================================
	//	====================================================================
	//	====================================================================
	//  MAIN LOOP MAIN LOOP MAIN LOOP MAIN LOOP MAIN LOOP MAIN LOOP MAIN LOOP 
	//	====================================================================
	//	====================================================================
	//	====================================================================
	//	====================================================================
	while( !KeyHit() && !AppTerminate() )
	{
		if( !AppSuspended() ) // We are not in focus!
		{
			PlrJoined=NetPlayerJoined();
			if(PlrJoined>0)
			{
				PopMessage("Player joined!");
				AddPlayer(PlrJoined);
			}
			PlrLeft=NetPlayerLeft();
			if(PlrLeft>0)
			{
				PopMessage("Player left!");
				FreePlayer(PlrLeft);
			}

			HostControls();

			while(NetGetMessage())
			{
				PlrGetID = NetMessageFrom();

				if(NetGetByte()==MESSAGE_ID_PLAYERDATA)
				{
					plr[PlrGetID].x = NetGetFloat();
					plr[PlrGetID].y = NetGetFloat();
					plr[PlrGetID].z = NetGetFloat();
					plr[PlrGetID].a = NetGetFloat();
					PositionEntity(plr[PlrGetID].mesh,Vec3(plr[PlrGetID]. x,plr[PlrGetID].y, plr[PlrGetID].z));
				}
			}

			// Put all client sending data here!!!
			for (int s = 1; s<=numberOfPlayers; s++)
			{
				if(plr[s].used==true)
				{
					NetPutByte(MESSAGE_ID_PLAYERDATAC);
					NetPutInt(s);
					NetPutFloat(plr[s].x);
					NetPutFloat(plr[s].y);
					NetPutFloat(plr[s].z);
					NetPutFloat(plr[s].a);
					NetSendAll();
				}
			}

			// Update timing and world
			UpdateAppTime();
			UpdateWorld(AppSpeed()) ;
		
			// Render
			SetBuffer(gbuffer);
			RenderWorld();
			SetBuffer(BackBuffer());
			RenderLights(gbuffer);
			UpdateMessagePop();

			// Send to screen
			Flip(1) ;
		}
	}

	// Done
	return Terminate() ;
}

if( !AppSuspended() ) // We are not in focus!