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 users and \ invisible on servers" 252: begin None; end; // RPL_LUSEROP " :operator(s) online" 253: begin None; end; // RPL_LUSERUNKNOWN " :unknown connection(s)" 254: begin None; end; // RPL_LUSERCHANNELS " :channels formed" 255: begin None; end; // RPL_LUSERME :I have clients and \ 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 " " 331: begin None; end; // RPL_NOTOPIC " :No topic is set" 332: begin None; end; // RPL_TOPIC " :" 333: begin None; end; // TheBot #holywar 0 353: begin None; end; // RPL_NAMREPLY " :[[@|+] [[@|+] [...]]]" 366: begin None; end; // RPL_ENDOFNAMES " :End of /NAMES list" 367: begin None; end; // RPL_BANLIST " " 368: begin None; end; // RPL_ENDOFBANLIST 375: begin None; end; // RPL_MOTDSTART ":- Message of the day - " 372: begin None; end; // RPL_MOTD ":- " 376: begin FAnswer := FAnswer + LoginToIrc; end; // RPL_ENDOFMOTD ":End of /MOTD command" после этого логинмся 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 " :Cannot join channel (+l)" 473: begin None; end; // ERR_INVITEONLYCHAN " :Cannot join channel (+i)" 474: begin None; end; // ERR_BANNEDFROMCHAN " :Cannot join channel (+b)" 475: begin None; end; // ERR_BADCHANNELKEY " :Cannot join channel (+k)" 481: begin None; end; // ERR_NOPRIVILEGES ":Permission Denied- You're not an IRC operator" 482: begin None; end; // ERR_CHANOPRIVSNEEDED " :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;