home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 35 Internet
/
35-Internet.zip
/
ircii30.zip
/
script
/
autonick
< prev
next >
Wrap
Text File
|
1996-02-28
|
577b
|
27 lines
#
# Automaticly change our nick, when nickname is in use, instead of asking for
# new nickname. Useful when /set auto_reconnect is on
#
# Nick sliding code is riped from LiCe 2.0.21 by SrFrog.
#
on ^bad_nick "433 *" {
if ([$@1] > 3) {
@ ns.n = []
@ ns.t = [$[1]1]
fec ($mid(1 9 $1)) s {
@ ns.n = [$ns.n]##[$s]
}
@ ns.n = [$ns.n]##[$ns.t]
@ new_nick = ns.n
^assign -ns.t
^assign -ns.n
}{
@ new_nick = [_$1]
}
echo *** Nickname $1 is in use, autochange to $new_nick
//nick $new_nick
^assign -new_nick
}