All pastes #100602 Raw Edit

Gopneg

public text v1 · immutable
#100602 ·published 2006-07-26 08:36 UTC
rendered paste body
begin
  inherited;
  FHandled := true;
  case Number of
    20:  begin None; end; // IRC: You are connected to RusNet. Please wait...
    1..5:begin None; end; // information by server
    222: begin None; end; // Codepage: Your codepage is now CP1251
    251: begin None; end; // RPL_LUSERCLIENT ":There are <integer> users and <integer> \ invisible on <integer> servers"
    252: begin None; end; // RPL_LUSEROP "<integer> :operator(s) online"
    253: begin None; end; // RPL_LUSERUNKNOWN "<integer> :unknown connection(s)"
    254: begin None; end; // RPL_LUSERCHANNELS "<integer> :channels formed"
    255: begin None; end; // RPL_LUSERME :I have <integer> clients and <integer> \ ervers"
    265: begin None; end; // Current local users: 126  Max: 149
    266: begin None; end; // Current global users: 8670  Max: 11334
    324: begin None; end; // RPL_CHANNELMODEIS "<channel> <mode> <mode params>"
    331: begin None; end; // RPL_NOTOPIC "<channel> :No topic is set"
    332: begin None; end; // RPL_TOPIC "<channel> :<topic>"
    333: begin None; end; //  TheBot #holywar  0
    353: begin None; end; // RPL_NAMREPLY "<channel> :[[@|+]<nick> [[@|+]<nick> [...]]]"
    366: begin None; end; // RPL_ENDOFNAMES "<channel> :End of /NAMES list"
    367: begin None; end; // RPL_BANLIST "<channel> <banid>"
    368: begin None; end; // RPL_ENDOFBANLIST
    375: begin None; end; // RPL_MOTDSTART ":- <server> Message of the day - "
    372: begin None; end; // RPL_MOTD ":- <text>"
    376: begin FAnswer := FAnswer + LoginToIrc; end; // RPL_ENDOFMOTD ":End of /MOTD command" &#1087;&#1086;&#1089;&#1083;&#1077; &#1101;&#1090;&#1086;&#1075;&#1086; &#1083;&#1086;&#1075;&#1080;&#1085;&#1084;&#1089;&#1103;
    421: Log(['Error. ERR_UNKNOWNCOMMAND: ' + Msg + CRLF], Settings.MainLogFile); // ERR_UNKNOWNCOMMAND
    432: begin None; end; // ERR_ERRONEUSNICKNAME
    433: FAnswer := FAnswer + ChangeNick; // ERR_NICKNAMEINUSE    ':irc.perm.ru 433 * TheBot :Nickname is already in use.'#$D#$A
    441: begin None; end; // ERR_USERNOTINCHANNEL
    442: begin None; end; // ERR_NOTONCHANNEL
    443: begin None; end; // ERR_USERONCHANNEL
    451: begin None; end; // :You have not registered
    471: begin None; end; // ERR_CHANNELISFULL "<channel> :Cannot join channel (+l)"
    473: begin None; end; // ERR_INVITEONLYCHAN "<channel> :Cannot join channel (+i)"
    474: begin None; end; // ERR_BANNEDFROMCHAN "<channel> :Cannot join channel (+b)"
    475: begin None; end; // ERR_BADCHANNELKEY "<channel> :Cannot join channel (+k)"
    481: begin None; end; // ERR_NOPRIVILEGES ":Permission Denied- You're not an IRC operator"
    482: begin None; end; // ERR_CHANOPRIVSNEEDED "<channel> :You're not channel operator"
  else FHandled := false;
  end;

 { Log([Nick + ' change nick to ' + NewNick + CRLF], Settings.LogDirectory + Channel + '.' + GetDate + '.txt');
  id := UserChnNick(Nick, NewNick, User, Host, Settings.IRCNetWork, Settings.MainLogFile);
  if id <= 0 then
     begin
       ErrorMsg := GetLastBaseError(id, Settings.MainLogFile);
       Log(['Error. Adding to base logs '  + ErrorMsg + '.' + CRLF], Settings.MainLogFile)
     end;}
end;