procedure event_message(channel:integer;Name,Text: String);
begin
  if channel = 4 then
  begin
    if Pos(AnsiLowerCase('hello'),AnsiLowerCase(Text)) <> 0 then
    begin
      sleep(5000);
      self.privatemessage(Name,'hiho');
      exit;
    end;
    
    if Pos(AnsiLowerCase('yo'),AnsiLowerCase(Text)) <> 0 then
    begin
      sleep(5000);
      self.privatemessage(Name,'hiho');
      exit;
    end;

    if Pos(AnsiLowerCase('hi'),AnsiLowerCase(Text)) <> 0 then
    begin
      sleep(5000);
      self.privatemessage(Name,'hiho');
      exit;
    end;
   
    if Pos(AnsiLowerCase('hiho'),AnsiLowerCase(Text)) <> 0 then
    begin
      sleep(5000);
      self.privatemessage(Name,'hiho');
      exit;
    end;

    if Pos(AnsiLowerCase('how long'),AnsiLowerCase(Text)) <> 0 then
    begin
      sleep(5000);
      self.privatemessage(Name,'for about 4 hours i suppose'); // change to anything you'd like
      exit;
    end;

    if Pos(AnsiLowerCase('bye'),AnsiLowerCase(Text)) <> 0 then
    begin
      sleep(2500);
      self.privatemessage(Name,'yeah bye :)');
      exit;
    end;
    
    if Pos(AnsiLowerCase('bb'),AnsiLowerCase(Text)) <> 0 then
    begin
      sleep(2500);
      self.privatemessage(Name,'cya');
      exit;
    end;

    if Pos(AnsiLowerCase('message msg done finish'),AnsiLowerCase(Text)) <> 0 then
    begin
      sleep(2500);
      self.privatemessage(Name,'ok sure');
      exit;
    end;

    if Pos(AnsiLowerCase('next'),AnsiLowerCase(Text)) <> 0 then
    begin
      sleep(2500);
      self.privatemessage(Name,'ok sure');
      exit;
    end;

    if Pos(AnsiLowerCase('bot'),AnsiLowerCase(Text)) <> 0 then
    begin
      sleep(2500);
      self.privatemessage(Name,'lol no?');
      exit;
    end;

    if Pos(AnsiLowerCase('auto responder'),AnsiLowerCase(Text)) <> 0 then
    begin
      sleep(2500);
      self.privatemessage(Name,'no lol');
      exit;
    end;

    if Pos(AnsiLowerCase('cya'),AnsiLowerCase(Text)) <> 0 then
    begin
      sleep(2500);
      self.privatemessage(Name,'yeah bye');
      exit;
    end;
  
    if Pos(AnsiLowerCase('cheater'),AnsiLowerCase(Text)) <> 0 then
    begin
      sleep(2500);
      self.privatemessage(Name,'i dont cheat rofl!');
      exit;
    end;
  end;
end;

While not terminated do
begin
  UpdateWorld;
  ProcessEvents;
  sleep(100);
end;