dllinit(0,true,false)

players[0] = 0
global.name = get_string("Pseudo ?","NooB")
global.tcpsocket = tcpconnect("127.0.0.1",4523,true);
  if(!global.tcpsocket)
  {
    show_message("Impossible de se connecter au serveur.");
    game_restart();
    exit;
  }
  else
  {
  instance_create(32,32,obj_Player);
  }

var size;
while(true)
{
  size = receivemessage(global.tcpsocket);
  if(size < 0) break;
  if(size == 0)
  {
    show_message("Le serveur est fermé.")
    game_restart();
    exit;
  }
 
event_user(0);

}

messageid = readbyte();
    switch(messageid)
 {
    case 0: //Créé un nouveau joueur

    name = readstring()
    p_id = readshort() //p_id contient l'ID du joueur

    players[p_id] = instance_create(100,100,obj_other_Player)
    players[p_id].p_id = p_id
    players[p_id].name = name

    break;

    case 1: //Mouvement du joueur

    a = players[readshort()]
    a.x = round(readshort())
    a.y = round(readshort())
    a.sprite_index = readbyte()
    a.image_index = readbyte()
    break;

    case 2: //Un joueur quitte !
    player_id = readshort()
    global.playing = readint();
    global.playing-=1;
    with(obj_other_Player)
    {
    if other.player_id != p_id exit;
    instance_destroy();
    }
   
    break;
}

alarm[11] = 3
alarm[0] = 5

clearbuffer()
writebyte(1)
writeshort(x)
writeshort(y)
writebyte(sprite_index)
writebyte(image_index)
sendmessage(global.tcpsocket)

alarm[0] = 3

with (obj_Controller)
{
clearbuffer()
writebyte(0)
writestring(global.name)
writebyte(other.room)
sendmessage(global.tcpsocket)
}

dllinit(0,true,false)
global.players = 0  //Nombre total de connection depuis que le serveur est allumé
global.playing = 0 //Nombre de joueurs qui jouent actuellement
global.names = ds_list_create()

listen = tcplisten(4523,10,true);

if(!listen)
  {
    show_message("Impossible d'ouvrir le serveur en TCP !");
    game_end();
    exit;
  }
 
  for(i = 0; i < 256; i += 1)
    playerlist[i] = -1;

client = tcpaccept(listen, true);
if(client <= 0)exit;

setnagle(client ,true)

new_player = instance_create(0, 0, obj_Login);
new_player.name = "Connection..."
new_player.p_id = 9999
new_player.socket = client;

var size;

while(1)
{
  size = receivemessage(client);
  if(size <= 0)break;
  setpos(buffsize()-1);
  myid = readbyte();
  myid = playerlist[myid];
  if(!instance_exists(myid))exit;
  myid.size = size-1;
  setpos(0);
  with(myid)event_user(0);
}

instance_destroy()

if(!tcpconnected(socket))instance_destroy();
  while(true)
  {
    size = receivemessage(socket);
    if(size < 0) break;
    if(size == 0)
    {
        instance_destroy();
      break;
    }
    event_user(0);
  }
 

  alarm[0] = 100*room_speed;
    messageid = readbyte();
    switch(messageid)
    {

        case 0: //Message de création d'un nouveau joueur
        name = readstring()
       
        if ds_list_find_index(global.names,name) = -1
        {
        ds_list_add(global.names,name)
       
        if global.players = 255
        {
        clearbuffer()
        writebyte(3) //Serveur complet !
        sendmessage(socket)
        exit;
        }
       
        global.players +=1
        p_id = global.players
       
        clearbuffer()
        writebyte(4)
        writeshort(p_id)
        sendmessage(socket) 
                                 
 clearbuffer()
writebyte(0);
writestring(name);
writeshort(p_id)

with (obj_Player)
{
sendmessage(socket);
}
with (obj_Player)
{
clearbuffer()
writebyte(0);
writestring(name);
writeshort(p_id)
sendmessage(other.socket)
}
             
        instance_change(obj_Player,true)
        global.playing +=1
        break;
        }
             
    else
   
    {
    clearbuffer()
    writebyte(5) //Le joueur existe déjà
    sendmessage(socket)
    instance_destroy() 
    exit;
    }
   
break;



}

clearbuffer()
writebyte(2)
writeshort(p_id)

with(obj_Player)
    {
        if (id != other.id)
            {
            sendmessage(socket)
            }
    }

i = ds_list_find_index(global.names,name)
ds_list_delete(global.names,i)
global.playing -=1
instance_destroy()

if(!tcpconnected(socket))alarm[0] = 1
  while(true)
  {
    size = receivemessage(socket);
    if(size < 0) break;
    if(size == 0)
    {
        alarm[0] = 1
        break;
    }
    event_user(0);
  }
 

  alarm[0] = 100*room_speed;
    messageid = readbyte();
    switch(messageid)
    {

        case 1: //Le joueur bouge

        x = readshort()
        y = readshort()
        sprite = readbyte()
        image = readbyte()
       
        clearbuffer();
        writebyte(1);
        writeshort(p_id);
        writeshort(x);
        writeshort(y);
        writebyte(sprite);
        writebyte(image);
       
        with(obj_Player)
        {
            if(id != other.id)
            {
                sendmessage(socket);
            }
        }

        break;
}

clearbuffer() //Très important de nettoyer le buffer
writebyte(10) //Le 10 correspond à l'ID du message à envoyer pour que le serveur l'identifie et fasse l'action désirée et pas une autre
writebyte(...) //0 à 255
writestring(...) //une chaîne de texte
writeshort(...) //-32767 à 32767
writeint(...) //-2147483647 à 2147483647
sendmessage(global.tcpsocket);

  alarm[0] = 100*room_speed;
    messageid = readbyte();
    switch(messageid)
    {

        case 1: //Le joueur bouge

        x = readshort()
        y = readshort()
        sprite = readbyte()
        image = readbyte()
       
        clearbuffer();
        writebyte(1);
        writeshort(p_id);
        writeshort(x);
        writeshort(y);
        writebyte(sprite);
        writebyte(image);
       
        with(obj_Player).
        {
            if(id != other.id)
            {
                sendmessage(socket);
            }
        }

        break;
}
 

*Space Key Pressed*
clearbuffer() //On nettoye le buffer
writebyte(3) //3 sera égal à l'ID de ce packet
writeshort(mouse_x)
writeshort(mouse_y)
sendmessage(global.tcpsocket)

case 3:
sourisX = readshort()
sourisY = readshort()
show_message("Sa souris est en position X:"+string(sourisX)+" et Y:"+string(sourisY))
break;