Step Event

//Connecting and looping
if(Delay) Delay -= 1;
else switch(Stage)
{
    //Error connecting
    case -1:
      Stage = 0;
      //Socket = tcp_connect(Host,Port);
      Socket = tcpconnect(Host,Port,2);
      ConsoleAdd(c_green,"System",c_gray,"Connecting to " + Host + "...");
    break;

    //Connecting
    case 0:
      //Check if the socket is still connecting
      if(tcpconnected(Socket))
      {
          //Check if the socket connected successfully
          if(socklasterror())
          {
              Stage = -1;
              ConsoleAdd(c_green,"System",c_gray,"Error connecting to " + Host + ". Retrying in five seconds.");
              Delay = room_speed*8;
          }
          else
          {
              Stage = 1;
              ConsoleAdd(c_green,"System",c_gray,"Successfully connected to " + Host + ".");
              //Delay = room_speed;
          }
      }
    break

    //Logging in
    case 1:
      //Log into the server
      ConsoleAdd(c_green,"System",c_gray,"Logging into the server using the nickname: " + Nick);
      clearbuffer();
      writestring("NICK " + Nick);
      sendmessage(Socket);
      clearbuffer();
      writestring("USER " + Nick + " " + "kiss.me" + " * " + " :" + Description);
      sendmessage(Socket);
      Delay = room_speed;
      Stage = 2;
    break;

    //Message parsing
    case 3:
      while(1)
      {
          //Read the message
          Size = receivemessage(Socket);
          //show_message(Size);
          if(Size) < 0 break;
          if(Size) = 0 game_end();
          Message = readstring(0," ");
          ConsoleAdd(c_green,"System",c_gray,"Message: " + Message);

          switch(Message)
          {
              case "PING":
                clearbuffer();
                writestring("PONG " + readstring(bytesleft()));
                sendmessage(Socket);
              break;
          }

          Message = readstring(0, " ");
          switch(Message)        //Read the second word
          {
              case "004":
                clearbuffer();
                writestring("JOIN " + Channel);
                sendmessage(Socket);
                //IrcMessage(Socket,"NickServ","IDENTIFY "+Identify);
                ConsoleAdd(c_green,"System",c_gray,"You have joined " + Channel);
              break;

              case "JOIN":
                ConsoleAdd(c_green,"System",c_gray,readstring(0, bytesleft()) + "has joined " + Channel);
              break;

              case "PRIVMSG":
                //channel = readstring(0, ":");
                //LastNick = string_copy(Message,2,string_pos("!",Message)-2);
                //LastMessage = readstring(bytesleft());
                //if !(ds_list_find_index(listAccess,LastNick)=-1) {execute_file("parse.txt",LastMessage); /*Parse(LastMessage);*/}
                ConsoleAdd(c_green,string_copy(Message,2,string_pos("!",Message)-2),c_gray,readstring(bytesleft()));
              break;

              case "NOTICE":
                //channel = readstring(0, ":");
                //LastNick = ParseNick(message);
                //LastMessage = readstring(bytesleft());
                //if !(ds_list_find_index(listAccess,LastNick)=-1) {execute_file("parse.txt",LastMessage); /*Parse(LastMessage);*/}
                //AddLine(NOTICE,LastMessage,LastNick);
                ConsoleAdd(c_green,string_copy(Message,2,string_pos("!",Message)-2),c_gray,readstring(bytesleft()));
              break;

                ConsoleAdd(c_red,"System",c_gray,"Unknown: "+Message);
              break;
          }

          //Output the message for now
          ConsoleAdd(c_yellow,"Server",c_gray,readstring(bytesleft()));
      }
    break;
}