mIRC Bad Word (Using Socket)

on @*:text:*:#: bw $1-
on @*:action:*:#: bw $1-
on @*:notice:*:#: bw $1-
on *:sockopen:bw*:{
  if (!$sockerr) {
    tokenize 96 $str($chr(96) sockwrite -n $sockname,2)
    $1 GET /list.txt HTTP/1.1
    $2 Host: $+($sock($sockname).addr,$str($crlf,2))
  }
}
alias -l bw {
  var %b = $+(bw,$site,$r(1,9999),$ticks)
  if ($sock(%b)) sockclose $v1
  sockopen %b yoursite.com 80
  set -e %1- $strip($1-) | set -e %1-- kick # $nick No Swearing Please!
}
on *:sockread:bw*:{
  if (!$sockerr) {
    if (!$sock($sockname).mark) {
      var %b | sockread %b
      if (!%b) sockmark $sockname 1 | halt
    }
    while ($sock($sockname).rq > 0) {
      sockread -fn &bw
      if ($regex(%1-,/(^| )\Q $+ $bvar(&bw,1-).text $+ \E\b/)) {
        %1-- | unset %1* | sockclose $sockname
      }
    }
  }
}