cmb check on join

[chain]

>on *:JOIN:#channel: {

 if ($nick == $me) { halt }

 set %reqc 90

 set %reqAS 155

 inc %P.ID 1

 set $+(%,pc.return.,%p.ID) msg $chan

 set $+(%,pc.chan.,%p.ID) $chan

 set $+(%,pc.target.,%p.ID) $nick

 if ($len($nick) > 12) { notice $nick runescape nicknames can only contain up to 12 letters. please change your nickname to your runescape name and rejoin | halt }

 sockopen $+(pclook.,%p.ID) www.slushpuppy.silverinterlocution.org 80

}

on *:SOCKOPEN:pclook.*:{

 var %p.id = $gettok($sockname,2,46)

 sockwrite -nt $sockname GET /pestcontrol.php?pestcontrol= $+ $($+(%,pc.target.,%p.ID),2) HTTP/1.1

 sockwrite -nt $sockname Host: www.slushpuppy.silverinterlocution.org

 sockwrite -nt $sockname $crlf

}

on *:SOCKREAD:pclook.*:{

var %p.id = $gettok($sockname,2,46) 

 if ($sockerr) { 

echo -a Error.

   halt

   } else {

   var %pc.html

   sockread %pc.html

   if ( isin %pc.html) {

     set $+(%,pc.a.,%p.ID) $gettok($htmlfree(%pc.html),4,32)

     set $+(%,pc.d.,%p.ID) $gettok($htmlfree(%pc.html),6,32)

     set $+(%,pc.s.,%p.ID) $gettok($htmlfree(%pc.html),8,32)

   }

   if ( isin %pc.html) set $+(%,pc.cl.,%p.ID) $gettok($htmlfree(%pc.html),1-,32)

   if (

isin %pc.html) {

     set $+(%,pc.c.,%p.ID) $htmlfree(%pc.html)

     if ($($+(%,pc.c.,%p.ID),2) 
       inc %kicks

       /ban -ku25 $($+(%,pc.chan.,%p.ID),2) $($+(%,pc.target.,%p.ID),2) $+ $chr(3) $+ $chr(49) $+ $chr(52) $+ $chr(89) $+ $chr(111) $+ $chr(117) $+ $chr(32) $+ $chr(100) $+ $chr(105) $+ $chr(100) $+ $chr(32) $+ $chr(110) $+ $chr(111) $+ $chr(116) $+ $chr(32) $+ $chr(109) $+ $chr(101) $+ $chr(101) $+ $chr(116) $+ $chr(32) $+ $chr(116) $+ $chr(104) $+ $chr(101) $+ $chr(32) $+ $chr(114) $+ $chr(101) $+ $chr(113) $+ $chr(117) $+ $chr(105) $+ $chr(114) $+ $chr(101) $+ $chr(109) $+ $chr(101) $+ $chr(110) $+ $chr(116) $+ $chr(115) $+ $chr(32) $+ $chr(102) $+ $chr(111) $+ $chr(114) $+ $chr(3) $+ $chr(52) $($+(%,pc.chan.,%p.ID),2) $+ ! - 90 combat OR an attack+strength OVER 140 - [noobs kicked: %kicks $+ ]

       sockclose $sockname

       halt

     }

     if ($($+(%,pc.c.,%p.ID),2) >= %reqc) || ($calc($($+(%,pc.a.,%p.ID),2) + $($+(%,pc.s.,%p.ID),2) >= %reqAS) {

       var %&rsn = $chr(3) $+ $chr(49) $+ $chr(52) $+ $chr(114) $+ $chr(115) $+ $chr(110) $+ $chr(58) $+ $chr(3) $+ $chr(52), %&a = $chr(3) $+ $chr(49) $+ $chr(52) $+ $chr(97) $+ $chr(116) $+ $chr(116) $+ $chr(97) $+ $chr(99) $+ $chr(107) $+ $chr(58) $+ $chr(3) $+ $chr(52) $+ $chr(32), %&s = $chr(3) $+ $chr(49) $+ $chr(52) $+ $chr(115) $+ $chr(116) $+ $chr(114) $+ $chr(101) $+ $chr(110) $+ $chr(103) $+ $chr(116) $+ $chr(104) $+ $chr(58) $+ $chr(3) $+ $chr(52), %&d = $chr(3) $+ $chr(49) $+ $chr(52) $+ $chr(100) $+ $chr(101) $+ $chr(102) $+ $chr(101) $+ $chr(110) $+ $chr(99) $+ $chr(101) $+ $chr(58) $+ $chr(3) $+ $chr(52), %&c = $chr(3) $+ $chr(49) $+ $chr(52) $+ $chr(99) $+ $chr(111) $+ $chr(109) $+ $chr(98) $+ $chr(97) $+ $chr(116) $+ $chr(58) $+ $chr(3) $+ $chr(52)

       $($+(%,pc.return.,%p.ID),2) %&rsn $($+(%,pc.target.,%p.ID),2) $+ , %&a $($+(%,pc.a.,%p.ID),2) $+ , %&s $($+(%,pc.s.,%p.ID),2) $+ , %&d $($+(%,pc.d.,%p.ID),2) $+ , %&c $($+(%,pc.c.,%p.ID),2) $+ $($+(%,pc.cl.,%p.ID),2)

       /mode $($+(%,pc.chan.,%p.ID),2) +v $($+(%,pc.target.,%p.ID),2)

       unset $+(%,pc.*)

       sockclose $sockname

     }

   }

 }

}

alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^|]*>|]*$)/g,$null,%x), %x = $remove(%x, ) | return %x }