#-------------------------
#   -:
#   do IRCtell;
#-------------------------

use IRC;

#
#  
my $nick="---";
my $nick_pass="---";
my $irc_serv="irc.rinet.ru";
my $irc_port=6669;
my $ident="---";
my $channel="#kr";
my $channel_pass="---";

#
#    
alias {IRC::conn("$irc_serv",$irc_port);}       "";
alias {IRC::disconn();}                         "";
alias {IRC::print("@_");}                       "";
alias {$IRC::show_output=0;}                    "";
alias {$IRC::show_output=1;}                    "";

alias {  
  IRC::print("NICK $nick\n");
  IRC::print("USER $ident 0 * $nick\n");
  IRC::print("NICKSERV IDENTIFY $nick_pass\n");
  IRC::print("JOIN $channel $channel_pass\n");
} "";

alias {
  IRC::ext_print("PRIVMSG $channel :@_","__8[IRC] __10$nick -> $channel: @_");
} "";

alias {
  $to=shift;
  IRC::ext_print("PRIVMSG $to :@_","__8[IRC] __10$nick -> $to: @_");
} "";

alias {
  $to=shift;
  IRC::print("JOIN $to @_");
} "";

alias {
  $from=shift;
  IRC::print("PART $from :@_");
} "";

alias {
  IRC::print("NAMES @_");
} "";

alias {
  IRC::print("AWAY :@_");
} "";

alias {
  $from=shift;
  IRC::print("KICK $from :@_");
} "";

alias {
  $from=shift;
  IRC::print("KICK $from :@_");
} "";

alias {
   CL::gotowin(1); ::window_handler(1)
} "";

alias {
   CL::gotowin(0); ::window_handler(0)
} "";

