NET_Init(0,1,0); // initialize Network.dll with one connection
netid=NET_Open(SERVER_IP,SERVER_PORT); // port 80? (netid = 0)

LOOP
  Switch(NET.Incoming[netid])
    case NET_STATUS_DISCONNECTED:
      // handle the disconnect
    end
    case NET_STATUS_ACTIVE:
      // handle the incoming message
      while( (msg=NET_Recv(netid))!="")
        parse(msg);
      end
    end
    case NET_STATUS_INACTIVE:
    end
    case NET_STATUS_ESTABLISHED:
      // handle the establishment
      NET_Seperator(netid,SEPERATOR_USED,LENGTHOFTHATSEPERATOR);
      // I don't know the seperator used in HTTP, probably \r\n (=chr(13)+chr(10)) 
    end
  End
  frame;
END

int parse(string input)
begin
// handle the input
end

------------

// send stuff with:
NET_Send(netid,msg,true);
// or:
NET_SendVar(netid,arraypointer,arraysize,true);
// the TRUE will tell Network.dll to include the specified seperator at the end of the message

handle = NET_Open("http://yonni.freehostia.com/stickmenwars/index.php",80);
if(handle > -1)
    add_to_autoconsole("Connected to server",rgb(77,210,43));
else
    add_to_autoconsole("ERROR connecting to server: "+NET_GetError(handle),rgb(255,0,0));
end

int HTTP_Recv_File(int NetID)
Private
    string input;
    string filestring;
Begin

    // Receive header
    NET_Seperator(NetID,chr(13)+chr(10),2);
    while( (input=NET_Recv(NetID))!="")
        // handle the header info
    end

    // Receive File
    NET_Seperator(NetID,0,0);
    while( (input=NET_Recv(NetID))!="")
        filestring += input;
    end

    // Do stuff with the filestring

    // Reset seperator
    NET_Seperator(NetID,chr(13)+chr(10),2);

    return 0;

End

process networkplay()
private
    int handle; 
    string msg;      
    int server;   
begin                                
  //setup and init stuff       
    handle = NET_Open("yonni.freehostia.com",80);
    if(handle > -1)
        add_to_autoconsole("Server connection open",rgb(77,210,43));    
    else
        add_to_autoconsole("ERROR connecting to server: "+NET_GetError(handle),rgb(255,0,0));   
        server = servercheck();
    end;                                                         
   
    HTTP_request("GET","");
                                                            
    loop                                                          
        switch(NET.Incoming[1])
          case NET_STATUS_DISCONNECTED:
              if(server == true) 
                   add_to_autoconsole(NET_IPaddress(1)+" has disconnected [" +NET_Hostname(1) + "]",rgb(255,0,0));      
               else
                   add_to_autoconsole("Disconnected from server!",rgb(255,0,0)); 
                   server = servercheck();
               end;
        end;
        case NET_STATUS_INACTIVE:   
        end;
            case NET_STATUS_ACTIVE:  
                if(NET_Recv(NetID)!="") 
                    HTTP_Recv_File();
                end;                                                   
          //msg = NET_Recv(1);  
          //add_to_autoconsole("Incoming message from server: "+msg,rgb(0,0,255));
             /*repeat
                  add_to_autoconsole("Incoming message from server: "+msg,rgb(0,0,255));
                    msg = NET_Recv(1);
             until(len(msg)<=0)*/
           end;
         case NET_STATUS_ESTABLISHED:
            NetID = 1; 
          NET_Seperator(1,chr(13)+chr(10),2);
          add_to_autoconsole("Connected(1): "+NET_IPaddress(1)+" ["+NET_Hostname(1)+"]",0);  
        end;
      default:
        add_to_autoconsole("Unknown incoming code: "+NET.incoming[1],rgb(255,0,0));
      end;
        end;
                
        if(key(_esc)) 
            add_to_autoconsole("Disconnecting...",rgb(255,0,0));
            let_me_alone();
            delete_text(0);
            mainmenu();           
            NET_Close(1);
            NET_Quit(); 
            return;
        end;        
                
        frame;     
    end;
end;      
//--------------------------------------------------------------------------------------------
int HTTP_Request(string request,string extensions)   
private
    handle;
begin
    if((handle=NET_Send(1,request+" /stickmenwars/index.php"+extensions+" HTTP/1.0"+chr(13)+chr(10)+"User-Agent: StickmenwarsClient/"+VERSION+chr(13)+chr(10)+"Host: yonni.freehostia.com"+chr(13)+chr(10)+chr(13)+chr(10))) > -1)
        return 1;
    else
        add_to_autoconsole("Error sending request: "+NET_GetError(handle),rgb(255,0,0));
        return -1;
    end;
end;
//--------------------------------------------------------------------------------------------               
int HTTP_Recv_File()
Private
  string input;
Begin
    NET_Seperator(NetID,chr(13)+chr(10),2);
  while((input=NET_Recv(NetID))!="")
      //filestring += input;
      frame;
  end                  
  //add_to_autoconsole(filestring,rgb(100,255,255)); 
  //filestring = "";
  NET_Seperator(NetID,";",1);
  while((input=NET_Recv(NetID))!="" and input!=(chr(13)+chr(10)))
      add_to_autoconsole(input,rgb(0,0,255));
  end
  NET_Seperator(NetID,chr(13)+chr(10),2);
  return 0;
End
//--------------------------------------------------------------------------------------------