Forums Scripts & Popups url warning script

; Copy the following code into your remotes (Alt+R)
; Tye @ Undernet #Test-IRC
on @*:TEXT:*:#: {
  ; The list of Urls/emails. Items should be separated by commas
  var %swears = www,www.,http,http:,https,https:,https://,http://,.com,.nl,nl,com,.com,.net,.tk,eu,@hotmail,@live
  ; Number of times to warn before banning
  var %warns = 2
  var %x = $numtok(%swears,44)
  tokenize 32 $strip($1-)
  while (%x) && ($regex($nick($chan,$nick).pnick, /[~|@].*/) != 1) {
    if ($istok($1-,$gettok(%swears,%x,44),32)) {
      inc $+(%,swear.,$wildsite)
      var %n = $($+(%,swear.,$wildsite),2)
      if (%n <= %warns) {
        .msg $chan 4 $nick $+ , 14dit is waarschuwing nr:4 $(%n) 14om geen website URL's/Emailadressen in de room te typen, na4 3 x14 volgt er een ban.) 3@ 12Room-Bot 3@
      }
      elseif (%n > %warns) {
        ban -ku300 $chan $nick 2 14Je was gewaarschuwd4 $nick . 14Geen Website's/Emailadressen plaatsen in de room. 3@ 12Room-Bot 3@
        unset $+(%,swear.,$wildsite)
      }
    }
    dec %x
  }
}
; Reset all of the swear data on mIRC start
on *:START: { unset %swear.* }



;$nick($chan, $nick).pnick
;($nick isreg $chan  || $nick isvo $chan)

on @*:TEXT:*:#: {
  ; The list of Urls/emails. Items should be separated by commas
  var %swears = www.,http:,https:,.com,.nl,.net,.tk,.eu,@hotmail,@live
  ; Number of times to warn before banning
  var %warns = 2

  ; The spacing is important in the following line
  if (!$regex($nick(#,$nick).pnick,/[~@]/) && $count($strip($1-), [ %swears ] )) {
    inc $+(%,swear.,$wildsite)
    var %n = $($+(%,swear.,$wildsite),2)
    if (%n <= %warns) {
      .msg $chan 4 $nick $+ , 14dit is waarschuwing nr:4 $(%n) 14om geen website URL's/Emailadressen in de room te typen, na4 3 x14 volgt er een ban.) 3@ 12Room-Bot 3@
    }
    else {
      ban -ku300 $chan $nick 2 14Je was gewaarschuwd4 $nick . 14Geen Website's/Emailadressen plaatsen in de room. 3@ 12Room-Bot 3@
      unset $+(%,swear.,$wildsite)
    }
  }
}