bind pubm - * pub:match
bind ctcp - ACTION ctcp:match

#
# trigger on the shitlist word number 1, "ur"
# nostromo, Sun Sep  4 21:54:50 2005
#

proc pub:match {nick host handle chan text} {
  set found_ur 0
  if { (($chan != "#hgb") && ($chan != "#hgb.sec"))  || 
       ((![regexp -nocase " ur" $text]) &&
        (![regexp -nocase "^ur" $text])) } then {
    return
  } else {
    if { ($nick == "nostromo") } then {
        return
    }
    set urlist [urlist_gen]
    foreach item $urlist {
      if {([regexp -nocase $item $text])} then {
        return
      } else {
        set found_ur 1
      }
    }

    if { $found_ur == 1 } then {
      putchan $chan "pfff.... you suck, $nick"
    }

    unset urlist
    unset found_ur
  }
}

proc ctcp:match {nick host handle chan dest text} {
  set found_ur 0
  if { ($chan != "#hgb") || 
       ((![regexp -nocase " ur" $text]) &&
        (![regexp -nocase "^ur" $text])) } then {
    return
  } else {
    set urlist [urlist_gen]
    foreach item $urlist {
      if {([regexp -nocase $item $text])} then {
        return
      } else {
        set found_ur 1
      }
    }

    if { $found_ur == 1 } then {
      putchan $chan "pfff.... you suck, $nick"
    }

    unset urlist
    unset found_ur
  }
}

proc urlist_gen {} {
  set urlist {
      {urachus}
      {uraeginthus}
      {uraemisch}
      {uragenital}
      {urahn}
      {uran}
      {uranus}
      {ural}
      {uranat}
      {urangst}
      {urat}
      {urauff}
      {urban}
      {urbarer}
      {urbev}
      {urbildlich}
      {urdeutsch}
      {url}
      {urdel}
      {urea}
      {uredospore}
      {ureigen}
      {ureingesessen}
      {ureinwohner}
      {ureltern}
      {urenkel}
      {ureter}
      {urethan}
      {urethra}
      {urethr}
      {urfassung}
      {urfahr}
      {urfehde}
      {urgemuetlich}
      {urgermanisch}
      {urgeschichtlich}
      {urgesellschaft}
      {urgent}
      {urgenz}
      {urgewalt}
      {urginea}
      {urgross}
      {urgrund}
      {urgs}
      {urheber}
      {urian}
      {uridin}
      {urig}
      {urikosurisch}
      {urin}
      {urknall}
      {urkomisch}
      {urkraft}
      {urkunde}
      {urladen}
      {urlaub}
      {urmensch}
      {urmeter}
      {urmund}
      {urmutter}
      {urne}
      {uri}
      {urks}
      {urock}
      {urodynamisch}
      {urogen}
      {urolog}
      {uronkel}
      {uroma}
      {uropa}
      {uroq}
      {urpflanze}
      {urploetzlich}
      {urquell}
      {ursache}
      {ursaechlich}
      {urschl}
      {urschr}
      {ursegment}
      {ursprache}
      {urspru}
      {urspryng}
      {ursula}
      {ursurpieren}
      {urtante}
      {urteil}
      {urtext}
      {urtica}
      {urtiefe}
      {urtier}
      {urtikariell}
      {urtrieb}
      {urtuemlich}
      {urtyp}
      {uruguay}
      {urvater}
      {urvogel}
      {urvolk}
      {urwald}
      {urweib}
      {urwelt}
      {urweltlich}
      {urwuechsig}
      {urzeit}
      {urzustand}
  } 
}

putlog "\002ur-protection\002 by nostromo loaded... (c) 2005"