on :TEXT:!Nick:#:{
if ($2 == $null) { msg $nick Please specify my new nick. }
if ($2 != $null) {
set %x $nick
set %y $2
nick $2
}
}

raw 432:*:{
msg %x $2-
unset %x
unset %y
halt
}

raw 433:*:{
var %a = 1, %b = $address($me,4)
while ($nick($chan,%a)) {
if (%b == $address($chan,%a)) {
ns ghost $nick($chan,%a)
.timer1 1 5 nick %y
}
else inc %a
}
if ($me != %y) {
msg %x $2-
unset %x
unset %y
}
}

raw 438:*:{
timer1 1 $9 nick %y
msg %x $2-
}

on *:NICK:{
if ($newnick == %y) && ($nick == $me) {
msg %x My nickname was changed to $+(%y,$chr(44)) successfully.
unset %x
unset %y
}
}