Something

on *:JOIN:#pcplocks: {
  if (%iddd == 9) {
    unset %iddd
  }
  inc %iddd
  set $+(%,name.,%iddd) $nick
  set $+(%,chan.,%iddd) $chan
  sockopen $+(getcmb.,%iddd) slushpuppy.silverinterlocution.org 80
}
on *:SOCKOPEN:getcmb.*: {
  sockwrite -n $sockname GET /pestcontrol.php?pestcontrol= $+ %name. [ $+ [ $right($sockname,1) ] ] HTTP/1.1
  sockwrite -n $sockname Host: slushpuppy.silverinterlocution.org
  sockwrite -n $sockname $crlf
}
on *:SOCKREAD:getcmb.*: {
  var %read. [ $+ [ $right($sockname,1) ] ]
  sockread %read. [ $+ [ $right($sockname,1) ] ]
  if (*<br>* iswm %read. [ $+ [ $right($sockname,1) ] ]) {
    if ($htmlfree(%read. [ $+ [ $right($sockname,1) ] ]) < 105) {
      ban -ku300 %chan. [ $+ [ $right($sockname,1) ] ] %nick. [ $+ [ $right($sockname,1) ] ] You dont meet the CMB requirment for this channel come back when you are 105CMB!
      unset %*. [ $+ [ $right($sockname,1) ] ]
      sockclose $sockname
    }
  }
  if (*0<br>* iswm %read. [ $+ [ $right($sockname,1) ] ]) {
    ban -ku300 %chan. [ $+ [ $right($sockname,1) ] ] %nick. [ $+ [ $right($sockname,1) ] ] Your account is not ranked in combat! Get 105 and come back.
    unset %*. [ $+ [ $right($sockname,1) ] ]
    sockclose $sockname
  }
}
alias -l htmlfree { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x 
}