;Usage.. on the bot type these..
;Set the channel, on the bot /set %authc #chan1,#chan2
;You can use 1 chan if you like. 
;/auser 100 $address(YOURNICK,2)
;to add the user on 100 the bot must be on a chan with you
;$mode +b <authname> <reason> will ban the users auth from your channels,
;if no reason is specified it will say You are BANNED from this channel
;on the kick message
;$mode -b <authname> to unban an authname
;$banflags will show all auths banned to the bot
 
 
on *:JOIN:%authc: {
  set %nick $nick 
  set %authbanchan $chan
  who %nick n%nat,465
}
 
raw 354:& 465 & *: {
  set %authname. [ $+ [ $address(%nick,2) ] ] $4
}
 
raw 315:*: {
  if ($2 == %nick) {
    if (%authname. [ $+ [ $address(%nick,2) ] ] == 0) {
      unset %nick
      unset %authname. [ $+ [ $address(%nick,2) ] ]
      unset %authbanchan
    }
    elseif ($istok(%banned,%authname. [ $+ [ $address(%nick,2) ] ],32)) {
      ban -ku60 %authbanchan %nick 2 $iif(%reason. [ $+ [ %authname. [ $+ [ $address(%nick,2) ] ] ] ], %reason. [ $+ [ %authname. [ $+ [ $address(%nick,2) ] ] ] ], You are BANNED from this channel.)
      unset %nick
      unset %authname. [ $+ [ $address(%nick,2) ] ]
      unset %authbanchan
    }
    else {
      unset %nick
      unset %authname. [ $+ [ $address(%nick,2) ] ]
      unset %authbanchan
    }
  }
}
 
on 100:TEXT:$mode +b *:*: { 
  if ($istok(%banned,$3,32)) { notice $nick $3 is already banned with me. }
  else { 
    set %banned $addtok(%banned,$3,32)
    set %reason. [ $+ [ $3 ] ] $4-
    notice $nick +b set to $3 $+ .
  }
}
 
on 100:TEXT:$mode -b *:*: { 
  if (!$istok(%banned,$3,32)) { notice $nick BanID not found. }
  else { 
    set %banned $remtok(%banned,$3,32)
    unset %reason. [ $+ [ $3 ] ]
    notice $nick -b set to $3 $+ .
  }
}
 
on 100:TEXT:$banflags:*: { 
  notice $nick Banned flags on me are:
  notice $nick %banned
  notice $nick To add a ban flag type /msg $me mode +b authname
} 

Commenting Options