XenoX

procedure Tmain.mainConnectButtonClick(Sender: TObject);
begin
  mainConnectButton.Enabled := false;
  mainDisconnectButton.Enabled := true;

  mainSocket.Active := true;
  mainSocket.RemoteHost := mainServerEdit.Text;
  mainSocket.RemotePort := mainPortEdit.Text;

  if mainSocket.Connect then
    mainStatusMemo.Lines.Add('Succesfully connected to the server.')
  else
    mainStatusMemo.Lines.Add('ERROR: Couldn''t connect to the server.');

  mainSocket.Sendln('NICK ' + mainNickNameEdit.Text, chr(10));
  mainSocket.Sendln('USER ' + mainNickNameEdit.Text + ' xenox-designs.net xenox-designs.net :' + mainRealNameEdit.Text, chr(10));
end;

procedure Tmain.mainSocketReceive(Sender: TObject; Buf: PChar; var DataLen: Integer);
var
  sockBuf : String;
begin
  sockBuf := mainSocket.Receiveln(chr(10));
  mainStatusMemo.Lines.Add(sockBuf);

  if Copy(sockBuf, 0, 6) = 'PING :' then
  begin
    mainSocket.Sendln('PONG :' + Copy(sockBuf, 6, Length(sockBuf) - 6), chr(10));

    if firstTime = true then
    begin
      mainSocket.Sendln('JOIN #fishbot', chr(10));

      firstTime := false;
    end;
  end
  else
  begin
    //
  end;
end;