Forums Scripts & Popups help please

on @*:JOIN:#: {
  if ($nick == $me) { halt }
  if ($right($nick,2) isnum 10-46) && ($ulist($address($nick,2)).info == $null) { if (*.users.undernet.org !iswm $address($nick,2)) && ($right($nick,3) !isnum 47-99999) { inc -u20 %x | inc %kc | var %k = $nick | timer.kick.spam.bot. $+ $nick 1 %x kick $chan %k $zx anti-spam kick num:[12 $+ %kc $+ ] | halt } }
}

on @*:JOIN:#:{ inc -u20 %x | inc %kc | if $nick isin $read(bad.txt, s, $nick) timer.spam. $+ $nick 1 %x kick $chan $nick spam-kick no: $+ %kc | halt }

 on *:JOIN:#: {
   if ($nick == $me) halt
   if ((gay isin $nick) || (gay isin $gettok($address,1,64))) { /kickbad $chan }
   if ((sex isin $nick) || (sex isin $gettok($address,1,64))) { /kickbad $chan }
}
alias -l kickbad {
  /ban $1 $address($nick,2)
  /kick $1 $nick Unacceptable Word In Nick/Ident.
}

on @*:text:*:#:{
  if ( $nick isop $chan ) { halt }
  if ($nick isvo $chan) { halt }
  if (%word.kick == On) {
    set %badword.line 1
    :badword
    if ( $read -l $+ %badword.line " $+ $mircdir\badwords.txt $+ " == $null ) { halt }
    elseif ( $read -l $+ %badword.line $mircdir $+ \badwords.txt isin $1- ) { goto badwordkick }
    else { inc %badword.line | goto badword }
    :badwordkick
    kick # $nick Do not use that language here!
    else { halt }
    :end
  }
}

on *:JOIN:#: {
  set %badword.line 1
  :badword
  if ( $read -l $+ %badword.line " $+ $mircdir\badwords.txt $+ " == $null ) { halt }
  elseif ( $read -l $+ %badword.line $mircdir $+ \badwords.txt isin $gettok($address($nick,15),1,64)) ) { goto badwordkick }
  else { inc %badword.line | goto badword }
  :badwordkick
  kick # $nick Do not use that language here!
  else { halt }
  :end
}

var %badword = $read(badwords.txt,nt,%badword.line)
;; Doing it for nick and user parts of the address separately:
if (%badword isin $nick || %badword isin $ial($nick).user) { ... }
;; Doing it for nick and user parts of the address in one:
if (%badword isin $gettok($fulladdress,1,64)) { ... }

var %n = $lines(badwords.txt)
;; option 1
while (%n) {
  if ($read(...)) { kick ... }
  dec %n
}

;; option 2
var %flag = $false
;; the && !%flag here is optional - if it's not present, it will always run through the entire file, which may be useful for some applications
while (%n && !%flag) {
  if ($read(...)) { %flag = $true }
  dec %n
}
if (%flag) { kick .... }

on *:JOIN:#: {
  if ($me isop #) {
    set %badword.line 1
    :badword
    var %badword = $read(badwords.txt,nt,%badword.line)
    if (%badword isin $gettok($fulladdress,1,64)) { goto badkick }
    else { inc %badword.line | goto end }
    :badkick |  kick # $nick Bad nick/ident
    :end | halt
  }
}

on @*:join:#: {
  var %flag = $false
  while (%n && !%flag) {
    if ($read(badwords.txt) isin $gettok($fulladdress,1,64))  { %flag = $true }
    dec %n
  }
  if (%flag) { kick .... }
}

on @*:join:#: {
  var %n = $lines(badwords.txt)
  while (%n) {
    if ($read(badwords.txt) isin $gettok($fulladdress,1,64)) { kick ... }
    dec %n
  }
}

on *:join:#:{
  .enable #bad_ident_nick_scan
  .who $nick
}
#bad_ident_nick_scan off
raw 315:*:{
  .disable #bad_ident_nick_scan
  haltdef
}
raw 352:*:{
  if $read(bad.txt,s,$3) || $read(bad.txt,s,$6) {
    if $me isop $2 {
      .ban -k $2 $6 Banned due to bad nick or ident
    }
    else {
      set %bad $addtok(%bad,$6,32)
    }
  }
}
#bad_ident_nick_scan end
on *:op:#:{
  if $opnick == $me && %bad {
    var %a = 1, %b = $numtok(%bad,32)
    while %a <= %b {
      if $gettok(%bad,%a,32) ison $chan {
        ban -k $chan $gettok(%bad,%a,32) Banned due to bad nick or ident
      }
      inc %a
    }
    unset %bad
  }
}

alias badtxt return $+(",$scriptdirbadword.txt")
alias badchan { if ($1 isin $bad($2).type) || (!$bad($2).type) { return $true } }
alias bad {
  if ($1) {
    if ($prop == type) {
      %s = 1
      while (%s <= $lines($badtxt)) {
        if ($gettok($read $+(-l,%s) $badtxt,1,44) iswm $1) { return $gettok($read $+(-l,%s) $badtxt,2-,44) | halt }
        inc %s
      }
      unset %s
    }
    else {
      %s = 1
      while (%s <= $lines($badtxt)) {
        if ($gettok($read $+(-l,%s) $badtxt,1,44) iswm $1) { return $gettok($read $+(-l,%s) $badtxt,1,44) | halt }
        inc %s
      }
      unset %s
    }
  }
}
on *:join:#:{
  if ($bad($fulladdress)) && ($badchan(#,$fulladdress)) {
    if ($me isop $chan) {
      kick # $nick Bad Nick/Ident
    }
    else ($me !isop $chan) { return }
  }
}

alias badtxt return $+(",$scriptdirbadword.txt,")
alias badchan { if ($1 isin $bad($2).type) || (!$bad($2).type) { return $true } }
alias bad {
  if ($1) {
    var %s = 1, %lines = $lines($badtxt)
    while (%s <= %lines) {
      var %line = $read($badtxt,%s)
      if ($gettok(%line,1,44) iswm $1) {
        return $iif($prop == type,$gettok(%line,2-,44),$v1)
        inc %s   
      }
    }
  }
}
on @*:join:#:{
  if ($bad($fulladdress)) && ($badchan(#,$fulladdress)) {
    kick # $nick Bad Nick/Ident
  }
}

on @*:JOIN:#: {
  if (%badnick == on) {
    if ($nick == $me) { halt }
    :loop1
    inc %crap.nick 1
    var %nick.crap $read -l $+ %crap.nick $mircdir\badnicks.txt
    if (%nick.crap == $null) { goto loop2 }
    if (%nick.crap isin $nick) {
      if (%badnick.ban == on) ban -u [ $+ [ %badnick.time ] ] # $nick 3
      kick $chan $nick That was a bad nick.
      goto loop2
    }  
    goto loop1
    :loop2
    unset %crap.nick
  }
}