@SReject Hello SReject can u help me with these code ???

on $*:SNOTICE:/client connecting .*?@([a-z\-\d.]+)/i:{
  var %addr = $regml(1)
  if ($regex(%addr,^\d\d?\d?\.\d\d?\d?\.\d\d?\d?\.\d\d?\d?$/i)) {
    .dns $PAddr(%addr,1)
    hadd -m ProxyCheck $PAddr(%addr,1) Check 1 %addr
  }
  else {
    hadd -m ProxyCheck %addr GetIP
    .dns %addr
  }
}
on *:DNS:{
  if ($hget(ProxyCheck,$dns(0).addr)) {
    var %hash = $v1, %cnt, %addr, %ip, %zone, %naddr, %msg
    hdel ProxyCheck $dns(0).addr
    if (Check * iswm %hash) {
      %cnt = $gettok($v2,2,32)
      %addr = $gettok($v2,3,32)
      %IP = $RevIP($gettok($dns(0).addr,1-4,32))
      %zone = $gettok($dns(0).addr,5-,32)
      if ($iaddress) {
       %msg = Your ip, %ip $+ , has been found in the DNSBL of %zone
        gline %addr %msg
        gline %ip %msg
      }
      elseif (%cnt < $numtok($BList,32)) {
        %naddr = $PAddr(%IP,$calc(%cnt +1))
        hadd -m ProxyCheck %naddr Check $calc(%Cnt +1) %addr
        .dns %naddr
      }
    }
    elseif (%hash == GetIP) && ($dns(1).ip) {
      %addr = $PNext($v1,1)
      .dns %addr
      hadd -m ProxyCheck %addr Check 1 $dns(0).addr
    }
    halt
  }
}
alias -l PAddr return $Revip($$1) $+ . $+ $$gettok($BList,$$2,32)
alias -l Revip {
  tokenize 46 $1
  return $+($4, ., $3, ., $2, ., $1)
}
alias -l BList {
  return $&
    .dronebl $&
    .proxybl $&
    .rbl.efnet.org $&
    .dnsbl.ahbl.org $&
    .dnsbl.rizon.net $&
    .dnsbl.swiftbl.org
}

Drone connect:

-
 *** Notice -- Client connecting on port 6667: Clonex-kzymlssq (clonex@ool-44c5b8d8.dyn.optonline.net) [clients]
-
* Dns resolving:
ool-44c5b8d8.dyn.optonline.net
-
*** G:Line added for *@68.197.184.216 on Sun Jul 24 19:42:59 2011 GMT (from Security to expire at Wed Aug 17 12:00:35 2011 GMT: :DNSBL listed. Check www.ircnet.com/cgi-bin/bl.cgi?ip=68.197.184.216 for removal.)
-

These code doesnt work for me
PS : Security is a bot (bopm)