home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / ircii30.zip / script / autonick < prev    next >
Encoding:
Text File  |  1996-02-28  |  577 b   |  27 lines
  1. #
  2. # Automaticly change our nick, when nickname is in use, instead of asking for
  3. # new nickname. Useful when /set auto_reconnect is on
  4. #
  5. # Nick sliding code is riped from LiCe 2.0.21 by SrFrog.
  6. #
  7.  
  8. on ^bad_nick "433 *" {
  9.         if ([$@1] > 3) {
  10.         @ ns.n = []
  11.         @ ns.t = [$[1]1]
  12.         fec ($mid(1 9 $1)) s {
  13.             @ ns.n = [$ns.n]##[$s]
  14.         }
  15.         @ ns.n = [$ns.n]##[$ns.t]
  16.         @ new_nick = ns.n
  17.         ^assign -ns.t
  18.         ^assign -ns.n
  19.     }{
  20.               @ new_nick = [_$1]
  21.     }
  22.     echo *** Nickname $1 is in use, autochange to $new_nick 
  23.     //nick $new_nick
  24.     ^assign -new_nick
  25. }
  26.  
  27.