/-------Pakketje-------\
|          4		   |byte 
|        "Rob"         |string
|         32           |integer
|         48           |integer
|         8            |integer
\----------------------/

writebyte(4) //Dit word het ID van het bericht, zodat de server  
             //kan zien wat hij uit het pakketje moet halen.
			 //In dit geval verzenden wij van alles (zie hieronder).
writestring(""+string(global.playername)+"",true) //Hierin verzenden wij de naam van de speler.
                                                  //In het komende spel verzenden we die maar 1
												  //keer, maar dit is even om voor te doen.
	                                              //True kan je beter altijd true laten, omdat
												  //deze ervoor zorg dat je de lengte van de
												  //string meezend. Aangezien wij hier meerdere 
												  //dingen in 1 pakket verzenden, is dit 
												  //noodzakelijk.
writeint(x) //Dit is de X positie van de speler
writeint(y) //Hmm... Wat zou dat zijn?
writeint(global.money) //Hier verzenden we de hoeveelheid geld van de speler.

dllinit(0,true,true);

dllfree();
show_message("De server is gestopt.");
game_end();

global.tcppoort=12564; //Dit is de poort voor de TCP connectie. Die kan je het beste zo laten.
global.maxplayers=20; //Hier zeggen we alvast hoeveel spelers we maximaal in het spel willen hebben. In dit geval 20 :)
for(i=0; i < global.maxplayers; i+=1)
{
global.players[i] = -1;
}
//dit stukje code zal de array maken voor alle spelers. Kom ik later op terug.


//Hier openen we de TCP connectie door naar inkomende pakketjes te luisteren op poort global.tcppoort.
global.servertcp = tcplisten(global.tcppoort,10,1);
//arg0=De poort waar we naar luisteren
//arg1=Maximum aantal connecties op die poort vanaf deze PC (Kan je beter 10 laten)
//arg2=Blocking(0) mode of Non-Blocking(1) mode. Deze kan je ook het beste 1 laten.

//Nu gaan we kijken of die connectie goed is gegaan. Zoniet, klopt de poort niet.. Of de firewall.
//Of iets anders... :) Zoals dat je PC uit elkaar is geknald.
if (global.servertcp) then {
//De server startte!! :D YAY!
show_message("TCP socket geopend op poort "+string(global.tcppoort)+".");
}
else
{
//Als hij dat niet deed :'( dan sluiten de het luisteren, en stoppen de server.
closesocket(global.servertcp);
show_message("Kon de server niet starten op TCP connectie via poort "+string(global.tcppoort)+"!");
game_end();
exit;
}
global.maxplayers=20 //Hier leg ik later meer over uit.
for(i=0; i < global.maxplayers; i+=1)
{
global.players[i] = -1;
}

return string(date_datetime_string(date_current_datetime()))

{
  global.maxline = 20; //Deze kan je veranderen in hoe groot je scherm is. Ik houd het op 20
  for (i=0; i<global.maxline; i+=1)
  {
    global.line[i] = '';
    global.color[i] = c_black;
  }
}

//argument0 = De lijn text
//argument1 = De kleur van de text
{
  for (i=0; i<global.maxline-1; i+=1)
  {
    global.line[i] = global.line[i+1];
    global.color[i] = global.color[i+1];
  }
    global.line[global.maxline-1] = argument0;
    global.color[global.maxline-1] = argument1;
}

{
  var xxx,yyy;
  xxx = argument0;
  yyy = argument1;
  draw_set_font(fnt_chat);
  for (i=0; i<global.maxline; i+=1)
  {
    draw_set_color(global.color[i]); 
    draw_text(xxx,yyy,global.line[i]);
    yyy += 18;
  }
}

chat_initlines();

show_message("TCP socket geopend op poort "+string(global.tcppoort)+".");

chat_addline("TCP socket geopend op poort "+string(global.tcppoort)+".",c_red);

chat_drawlines(10,10);

tcpaccept(tcppoort,true);

var clientsocket, player;

clientsocket = tcpaccept(global.servertcp,true);

if (clientsocket <=0) exit;

setsync(clientsocket,0);

var clientsocket, player;

clientsocket = tcpaccept(global.servertcp,true);
if (clientsocket <=0) exit;

setsync(clientsocket,0);

receivemessage(clientsocket);

name = readstring();

//Kijk of er ruimte over is
if (instance_number(obj_client) = global.maxplayers)
{
//En als er jammer genoeg geen ruimte is, sturen wij dit naar de client die probeert te joinen.
clearbuffer();
writebyte(2);
sendmessage(clientsocket);
exit;
}

//nu gaan we door de speler array zoeken of er een open plek is. In de speler array word het ID van de speler opgeslagen, in combinatie met het ID van de obj_client. (zometeen leg ik daar wat over uit).
for(i=0; i < global.players; i+=1)
{
//Dus, als we een lege (-1) vinden, stoppen we de loop.
if (global.players[i]==-1) break;
}

//We sturen de speler die joinde het bericht dat hij erin is. Ook gelijk verzenden wij hem zijn ID.
clearbuffer();
writebyte(1);
writebyte(i);
sendmessage(clientsocket); //het bericht is verstuurd.

//We maken de speler, obj_client
player = instance_create(0,0,obj_client);
//we zetten het speler id in de obj_client
player.pid = i;
//Nu geven wij de socket die word gebruikt voor de speler, aan de speler zelf. Dan weten we naar welk ip we pakketjes moeten sturen :)
player.tcp = clientsocket;
//We geven de speler hem zijn eigen gebruikersnaam
player.username = name;
//Dan zetten we de speler zelf in de globale array.
global.players[i] = player;

//We versturen een simpel pakketje naar iedereen met het ID en de username van degene die joinde.
clearbuffer();
writebyte(3);
writebyte(i);
writestring(name,true);
with(obj_client)
{
if (id!=player)
{
sendmessage(tcp);
}
}

//En dan zeggen we tegen de gene die net is gejoind, wie er allemaal al zijn.
with(obj_client)
{
if (id!=player)
{
clearbuffer();
writebyte(3);
writebyte(pid);
writestring(username,true);
sendmessage(clientsocket);
}
}

//Zet de synchronisatie tussen server en client uit.
setsync(clientsocket,1);

//Zeg gelijk op de server dat er iemand bij is gekomen :)
chat_addline(name + " has joined.",c_black);

var clientsocket, player;

clientsocket = tcpaccept(global.servertcp,true);
if (clientsocket <=0) exit;

setsync(clientsocket,0);

receivemessage(clientsocket);
name = readstring();

//Kijk of er ruimte over is
if (instance_number(obj_client) = global.maxplayers)
{
//En als er jammer genoeg geen ruimte is, sturen wij dit naar de client die probeert te joinen.
clearbuffer();
writebyte(2);
sendmessage(clientsocket);
exit;
}

//nu gaan we door de speler array zoeken of er een open plek is. In de speler array word het ID van de speler opgeslagen, in combinatie met het ID van de obj_client. (zometeen leg ik daar wat over uit).
for(i=0; i < global.players; i+=1)
{
//Dus, als we een lege (-1) vinden, stoppen we de loop.
if (global.players[i]==-1) break;
}

//We sturen de speler die joinde het bericht dat hij erin is. Ook gelijk verzenden wij hem zijn ID.
clearbuffer();
writebyte(1);
writebyte(i);
sendmessage(clientsocket); //het bericht is verstuurd.

//We maken de speler.
player = instance_create(0,0,obj_client);
//We slaan zijn id op in de client...
player.pid = i;
//We zeggen welk ip bij deze speler hoort. Dus waar hij naar moet luisteren / verzenden.
player.tcp = clientsocket;
//We zetten zijn gebruikersnaam in het object
player.username = name;
//En ook in de lijst :)
global.players[i] = player;

//We versturen een simpel pakketje naar iedereen met het ID en de username van degene die joinde.
clearbuffer();
writebyte(3);
writebyte(i);
writestring(name,true);
with(obj_client)
{
if (id!=player)
{
sendmessage(tcp);
}
}

//En dan zeggen we tegen de gene die net is gejoind, wie er allemaal al zijn.
with(obj_client)
{
if (id!=player)
{
clearbuffer();
writebyte(3);
writebyte(pid);
writestring(username,true);
sendmessage(clientsocket);
}
}

//Zet de synchronisatie tussen server en client uit.
setsync(clientsocket,1);

//Zeg gelijk op de server dat er iemand bij is gekomen :)
chat_addline(name + " has joined.",c_black);

//Stop het socket
closesocket(tcp);

//Maak de variabelen aan die we gaan gebruiken
var messagesize, messageid;

//Kijk of er een pakketje binnenkomt
messagesize = receivemessage(tcp);
//Als er geen bericht is binnengekomen, stoppen we met dit scriptje.
if (messagesize <=0) break;
//En als er dus wel 1 is, gaan we kijken wát voor bericht er is binnen gekomen.
messageid = readbyte();

//We beginnen met case 2, omdat obj_ubercontroller case 1 er al uit haalt.
switch(messageid)
{   
    case 2:
    //Dit is bericht id 2.
    //Deze leest zegmaar de belangrijkste dingen van de client, zoals de x, y en de direction
    var player, value;
    value = readbyte();
    //Nu weten we welk ID welke speler heeft, en gaan we de ontvangen data aan hem koppelen.
    player = global.players[value];
    player.x = readshort();
    player.y = readshort();
    player.direction = readshort();
    clearbuffer();
    //Nu gooien we de buffer weg, en maken ons klaar om dit pakketje 'door te sturen' naar de andere clients.
    writebyte(5);
    writebyte(value);
    writeshort(player.x);
    writeshort(player.y);
    writeshort(player.direction);
    with(obj_client)
    {
    sendmessage(tcp);
    }
    break;
    
    case 3:
    //bericht id 3, iemand is weggegaan. Wat vervelend!
    var playerid, username;
    playerid = readbyte();
    username = readstring();
    clearbuffer();
    //We sturen het weer door naar de anderen.
    writebyte(6);
    writebyte(playerid);
    writestring(username,true);
    with(obj_client)
    {
    sendmessage(tcp);
    }
    chat_addline(username + " heeft het spel verlaten.",c_black);
    with(global.players[playerid])
    {
    instance_destroy();
    //En we vernietigen de speler. Als dit niet gebeurt zal hij alleen maar stil blijven staan. Toevallig is dit dan ook zin 666 :)
    //(mensen die veel Men of War spelen kennen die bug in Men of War wel ;)
    }
    global.players[playerid] = -1;
    //We maken de spelerlijst weer vrij voor andere spelers.
    break;
    
    case 4:
    //:O we kregen een chat bericht van iemand binnen
    chatmessage = readstring();
    chat_addline(chatmessage,c_black);
    clearbuffer();
    writebyte(8)
    writestring(chatmessage,true);
    with(obj_client)
    {
        sendmessage(tcp);
    }
    break;
}

 case 2:
    //Dit is bericht id 2.
    //Deze leest zegmaar de belangrijkste dingen van de client, zoals de x, y en de direction
    var player, value;
    value = readbyte();
    //Nu weten we welk ID welke speler heeft, en gaan we de ontvangen data aan hem koppelen.
    player = global.players[value];
    player.x = readshort();
    player.y = readshort();
    player.direction = readshort();
    clearbuffer();
    //Nu gooien we de buffer weg, en maken ons klaar om dit pakketje 'door te sturen' naar de andere clients.
    writebyte(5);
    writebyte(value);
    writeshort(player.x);
    writeshort(player.y);
    writeshort(player.direction);
    with(obj_client)
    {
    sendmessage(tcp);
    }
    break;

draw_set_color(c_black)
draw_text(10,430,"> " + string(keyboard_string) + "|");

chat_drawlines(10,10);
draw_set_color(c_black)
draw_text(10,430,"> " + string(keyboard_string) + "|");

//Eers kijken we of de server wel wat heeft ingetypt :P
if keyboard_string != ""
{
//Zoja, zetten we het chatbericht in de server zelf, zodat hij kan zien dat hij iets heeft verzonden.
chat_addline(keyboard_string,c_black);
//Dan gaan we het bericht verzenden naar de clients. We doen dit met bericht id 9, omdat de rest al in gebruik is.
clearbuffer();
writebyte(9);
writestring(keyboard_string,true);
with(obj_client)
{
    sendmessage(tcp);
}
//En we maken de keyboard string weer leeg.
keyboard_string = "";
}

//We vertellen tegen elke client dat we afsluiten.
clearbuffer();
writebyte(7);
with(obj_client)
{
sendmessage(tcp);
}

//Stop de socket
closesocket(global.servertcp);

//We vertellen tegen elke client dat we afsluiten.
clearbuffer();
writebyte(7);
with(obj_client)
{
sendmessage(tcp);
}

//Stop de socket
closesocket(servertcp);

dllfree();
show_message("De server is gestopt.");
game_end();

{
  global.maxline = 6; //Dit is nu 6. Een stuk korter, maar anders zit het door je hele spel heen.
  for (i=0; i<global.maxline; i+=1)
  {
    global.line[i] = '';
    global.color[i] = c_black;
  }
}

//We voegen een stuk text toe aan de chat-dinges.
//argument0 = de text, argument1 = de kleur
{
  for (i=0; i<global.maxline-1; i+=1)
  {
    global.line[i] = global.line[i+1];
    global.color[i] = global.color[i+1];
  }
    global.line[global.maxline-1] = argument0;
    global.color[global.maxline-1] = argument1;
}

//Drawt de chat-text op een bepaalde plek.
var colour;
colour = draw_get_color()
{
  var xxx,yyy;
  xxx = argument0;
  yyy = argument1;
  draw_set_font(fnt_chat);
  draw_set_halign(fa_left);
  for (i=0; i<global.maxline; i+=1)
  {
    draw_set_color(global.color[i]); 
    draw_text(xxx,yyy,global.line[i]);
    yyy += 20;
  }
}
draw_set_color(colour)

//We laden de DLL
dllinit(0,true,false);

//We laden net als bij de server het chat-gedoe
chat_initlines();

//We vragen nu om de gebruikersnaam van de speler.
global.username = get_string("Gebruikersnaam:","");

//En we vragen het IP dat de speler wilt joinen.
//Je kan dit ook zelf instellen.
//En, 127.0.0.1 óf localhost staat voor de lokale computer.
//Dus als je de server op deze pc draait en het spel ook, moet je ip 127.0.0.1 of localhost invoeren.
global.serverip = get_string("Server IP:","127.0.0.1");

//Hier stellen we de poort in.
//Moet hetzelfde zijn als bij de server! Anders lukt het niet!
global.serverport = 12564;

//Dit is erg belangrijk, dat het hetzelfde is als op de server.
//In elk geval niet kleiner! Anders loopt serieus ALLES door elkaar en gaat het ALLEMAAL fout. Bij de server en dus ook bij alle ander clients.
global.maxplayers=20;

//Hier leggen we de connectie... Althans, dat proberen we
global.clienttcp = tcpconnect(global.serverip,global.serverport,1);

//Want hier kijken we of alles goed is.
if (!tcpconnected(global.clienttcp))//Als hij goed is, geeft die functie FALSE terug.
    {
    //En is dat niet het geval, bijv. de server blokkeert deze verbinding, zeggen we dat het niet lukte.
    show_message("Kon geen verbinding maken met de server.");
	game_end();
	//en stoppen we het spel :)
    }
else
    {
    //En als dit niet het geval is, vertellen we dit aan de client.
    setnagle(global.clienttcp,1);
    chat_addline("Er is nu verbinging met "+string(global.serverip)+":"+string(global.serverport)+" via TCP/IP.",c_green);
    
    //Dan sturen we onze gebruikersnaam naar de server :)
    clearbuffer();
    writestring(global.username,true);
    sendmessage(global.clienttcp);
    }

//We maken de spelerlijst
var i;
for(i=0;i<global.maxplayers;i+=1)
    {
    players[i] = -1;
    }

//We geven de speler een hartelijk welkom.
chat_addline(global.username+", hoi.",c_black);

//Beginnen met de ping te maken
deltatime = current_time;
ping = 0;

//Dit is de timeout-tijd.
//Dus als de speler voor langer dan 8 seconde geen reactie krijgt van de server, stopt het spel.
//Dit is in milliseconden.
timeout = 8000;
send=0

//Zet de kleur alvast naar zwart
draw_set_color(c_black);

//Nu drawen we de chat :)
chat_drawlines(view_xview[0]+16,view_yview[0]+16);

//En nu de text, voor het chatten.
if send = true
    {
    draw_set_alpha(0.5)
    draw_set_color(c_black)
    draw_roundrect(view_xview[0]+16-2,view_yview[0]+144-2,view_xview[0]+16+string_width(keyboard_string)+5,view_yview[0]+144+15,0)
    draw_set_alpha(1)
    draw_set_color(c_white)
    draw_text(view_xview[0]+16,view_yview[0]+144,keyboard_string);
    draw_set_color(c_black)
    }

//We drawen de ping
draw_text(view_xview[0]+544,view_yview[0]+16,"Ping: " + string(ping) + "ms");

//We drawen de FPS. (altijd handig :) )
draw_text(view_xview[0]+466,view_yview[0]+16,"FPS: " + string(fps));

//We drawen de gebruikersnaam boven de speler zelf.
draw_set_halign(fa_center);
draw_text(obj_speler.x-15,obj_speler.y-25,global.username);

//En we drawen de gebruikersnaam van een andere speler boven hem.
with(obj_player_other)
    {
    draw_text(self.x-15,self.y-25,username);
    }

//We maken alvast geheugen vrij voor onze variabelen.
var messagesize, messageid;

//Nu gaan we kijken naar berichten die binnen komen.
while(1)
    {
    //We kijken of er een berichtje is.
    messagesize = receivemessage(global.clienttcp);
    
    //Als er geen bericht was, stoppen we met dit stuk code. (alles wat tussen de { en de } staat van de while(1).
    if (messagesize <= 0) break;
    
    //Als er wel een bericht binnenkwam, kijken we wat het bericht is.
    messageid = readbyte();
    
    //Nu zetten we de ping naar 0 omdat we een bericht van de server kregen.
    ping = 0;
    
    //En we gaan kijken wat de server ons probeert te verzenden.
    switch(messageid)
        {
        //Als het bericht id 1 is, doen we dit:
        case 1:
        //We slaan ons id op als het ID wat we van de server krijgen.
        global.myid = readbyte();
        obj_speler.alarm[0] = 1;
		//Dit is het alarm van de speler.
		//In dit alarm word elke keer de X en de Y en de andere dingen van de speler verzonden.
		//Dit doe ik niet in de step van de speler, maar met een alarm, zodat we de interval-tijd kunnen beperken.
		//Oftuwel, we hoeven niet elke keer de x en y te updaten. Dit kan ook wel eens per kwart seconde. Het ziet er haperender uit, 
		//maar er word vele malen minder data verzonden van en naar de server.
		
        //En we stoppen de switch.
        break;
    
        case 2:
        //Dit bericht krijgen we als de server vol is.
        show_message("Sorry! De server zit vol.");
        stop_spel_online();
		//Kom ik zometeen op terug.
        break;
        
        case 3:
        //Er is een nieuwe speler. (het object maken)
        var userid, name, user;
        userid = readbyte();
        user = instance_create(obj_speler.xstart,obj_speler.ystart,obj_player_other);
        user.pid = userid;
        name = readstring();
        user.username = name;
        players[userid] = user;
        chat_addline(name + " is ingelogd.",c_black);
        break;
        
        case 4:
        //Er is een nieuwe speler. (het chat bericht)
        var name, userid;
        userid = readbyte();
        name = readstring();
        user = players[userid];
        user.username = name;
        chat_addline(name + " is ingelogd.",c_black);
        break;
        
        case 5:
        //Nu krijgen we de data van andere spelers binnen.
		//Dit slaan we op in het corresponderende object van de client.
        value = readbyte();
        player = players[value];
        player.x = readshort();
        player.y = readshort();
        player.direction = readshort();
        break;
        
        case 6:
        //een speler verlaatte het spel.
        var playerid, username;
        playerid = readbyte();
        username = readstring();
        chat_addline(username + " is uitgelogd.",c_black);
        with(players[playerid])
            {
            instance_destroy();
            }
        players[playerid] = -1;
        break;
        
        case 7:
        //De server kapt ermee
        show_message("De server is gestopt.");
        game_end();
        break;
        
        case 8:
        //Een chat bericht
        chat_addline(readstring(),c_black);
        break;
        
        case 9:
        //Een chat bericht van de sevrer
        chat_addline("Server: " + readstring(),c_red);
        break;
        }
    }
	
//Als we geen bericht van de server kregen maken we de ping hoger.
ping += current_time - deltatime;
deltatime = current_time;
//Kijk of we ge timed-out zijn, bijv. als er geen verbinding meer is met de server.
if(ping > timeout)
{
show_message("Je bent ge-timed out.");
game_end();
}

//Zeg tegen de server dat we weg zijn.
clearbuffer();
writebyte(3);
writebyte(global.myid);
writestring(global.username,true);
sendmessage(global.clienttcp);
show_message("Je hebt de server verlaten.");

//We stoppen de connectie en legen het geheugen van de DLL
closesocket(global.clienttcp);
dllfree();
//En we stoppen het spel.
game_end();

if send = true
    {
    //Kijk of de speler wel wat heeft ingetypt als hij wat wilt verzenden.
    if keyboard_string != ""
        {
        //Zoja, verzenden wij zijn bericht.
        clearbuffer();
        writebyte(4);
        writestring(global.username + ": " + keyboard_string,c_red);
        sendmessage(global.clienttcp);
        keyboard_string = "";
        }
    send = false
    exit;
    }
else
    {
    keyboard_string = ""
    send = true
    exit;
    }

//We sturen onze positie
clearbuffer();
writebyte(2);
writebyte(global.myid);
writeshort(x);
writeshort(y);
writeshort(direction);
sendmessage(global.clienttcp);

//En herhaal het :)
alarm[0] = 1;