TCL Away nick deop

## Forget nicks in nickchange to deop.
set forget "g0ne away 0xff g0n3 N/A dead sleeping N\A work w0rk 0ff off brb game cpu AwaY WoRk aWaY oFF off"

bind nick - * proc_nkch

proc proc_nkch {nick uhost hand chan newnick} {
global forget
    foreach forg [split $forget] {
        if {[string match "*$forg*" $newnick]} {
            if {[botisop $chan]} {
                if {[isop $newnick $chan]} {
                    pushmode $chan -o $newnick
                }
            }
        }
    }
}
putlog "Nicks.tcl by IRCHelp.Unibg.Net+LHG Crew Loaded Up!!!"