Unnamed

; bad|blacklisted|guest nick checker when the nick changes
ON *:SIGNAL:BAD.NICK: {
  ; Guest nick checker
  IF (($1 != $me) && ($2 != $me)) {
    IF (Guest????? iswm $2) {
      var %bp9 = $comchan($2,0)
      var %bp8 = 0
      while (%bp8 < %bp9) {
        INC %bp8 1
        IF (($me isop $comchan($2,%bp8)) && ($istok(%controlchan,$comchan($2,%bp8),44) == $true) && ($cps.rval($comchan($2,%bp8),n5,4) == 1)) {
          set %_cpsextra Guest Nicks Are Not Allowed!
          thrash $comchan($2,%bp8) $2 guest
        }
      }
    }
    ; Bad nick checker
    var %bk9 = $comchan($2,0)
    var %bk8 = 0
    while (%bk8 < %bk9) {
      inc %bk8 1
      var %_tnic = $dll($airc, MatchTokString, $cps.rvi($comchan($2,%bk8),nick))
      var %_tnic1 = $dll($airc, MatchTok, +r 59 $2)
      IF (+OK* iswm %_tnic1) {
        IF (($me isop $comchan($2,%bk8)) && ($istok(%controlchan,$comchan($2,%bk8),44) == $true) && ($cps.rval($comchan($2,%bk8),n4,1) == 1)) {
          set %_cpsextra Badword -> $gettok(%_tnic1,2,32)
          thrash $comchan($2,%bk8) $2 nick
        }
      }
    }
    ; Black listed nick checker
    var %bc9 = $comchan($2,0)
    var %bc8 = 0
    while (%bc8 < %bc9) {
      inc %bc8 1
      var %_tbn = $dll($airc, MatchTokString, $cps.rvi($comchan($2,%bc8),blnic))
      var %_tbn1 = $dll($airc, MatchTok, +r 59 $2)
      IF (+OK* iswm %_tbn1) {
        IF (($me isop $comchan($2,%bc8)) && ($istok(%controlchan,$comchan($2,%bc8),44) == $true) && ($cps.rval($comchan($2,%bc8),n6,4) == 1)) {
          set %_cpsextra Badword -> $gettok(%_tbn1,2,32)
          thrash $comchan($2,%bc8) $2 blnic
        }
      }
    }
  }
}