New About Yours API Help
915 bytes, Plain text
alias ban35RT {
  if ($regex($address($1,2),/(.*irccloud.com)/i)) {   putmode $2 +b $+($gettok($address($1,0),1,64),@*) }
  elseif ($regex($address($1,2),/([:])/i)) {   putmode $2 +b $+($gettok($address($1,2),1-2,58),*) }
  else {  putmode $2 +b $address($1,4) }
}


alias NSearch {
  if ($nick(#,$me,@&~%)) || (o isin $usermode)  {
    if ($len($1) == 1 && $1 == *) { halt }
    var %o,%i = 1
    while ($nick(#,%i,r)) {
      if ( $1 iswm $v1) {
        %o = $addtok(%o,$v2,44)
        ban35rt $nick(#,%i,r) #
      }
      inc %i
    }
    if (%o) {
      if (%join. [ $+ [ # ] $+ . $+ [ $+($1,!*@*) ] ] == $null) {  .raw MODE # +b $+($1,!*@*)   | set -u10 %join. [ $+ [ # ] $+ . $+ [ $+($1,!*@*) ] ] 1 }
      while %o {
        .KICK # $gettok(%o,1-4,44) $iif($chr(46) isin $1-,$gettok($1-,2-,46),this nickname is not accepted please change it thank you)  
        %o = $deltok(%o,1-4,44)
      }
    }
  }
}
Pasted 3 months, 1 week ago — Expires in 267 days
URL: http://dpaste.com/0J46B4V