# Description: retakes your preferred nicknames when available

echo off
foreach x $prefs(nick) {
    /notify $x
    /on unnotify $x [list [namespace current]::unnnotify $x]
}
echo on

proc unnotify {nick} {
    global prefs me
    set i [lsearch $prefs(nick) $nick]
    set i2 [lsearch $prefs(nick) $me]
    if {$i > -1 && $i < $i2} {/nick $nick}
}

proc unload {} {
    echo off
    foreach x $prefs(nick) {
        /notify -$x
        /on -unnotify $x
    }
    echo on
}