Mine

on *:TEXT:!checkon:#thepc.verify:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    set %check on
    notice $nick I will now check users as they join #Thepc.Verify.
  }
}
on *:TEXT:!checkoff:#Thepc.verify:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    set %check off
    notice $nick I will now not check users as they join #thepc.verify.
  }
}
on *:JOIN:#Thepc.verify:{
  if (%check == off) { halt }
  if (%check == on) {
    if ($nick == $me) || ($nick isop $chan) || ($nick ishop $chan) && ($nick !ison $chan) { Halt }
    set %channy $chan
    set %user $nick
    set %pc.msg msg $chan
    sockopen pestkick www.slushpuppy.silverinterlocution.org 80
  }
}
on *:SOCKOPEN:pestkick*:{
  sockwrite -nt $sockname GET /pestcontrol.php?pestcontrol= $+ %user HTTP/1.1
  sockwrite -nt $sockname Host: www.slushpuppy.silverinterlocution.org
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:pestkick*:{
  var %sockread
  sockread %sockread
  if (<b> isin %sockread) {
    set %attack $gettok($htmlfree(%sockread),4,32)
    set %strength $gettok($htmlfree(%sockread),8,32)
    set %range $gettok($htmlfree(%sockread),12,32)
  }
  if (<br> isin %sockread) {
    var %combat = $htmlfree(%sockread)
    if (%user isop %channy) || (%user ishop %channy) || (%user !ison %channy) { halt }
    if (%combat < 100) && ($calc(%attack + %strength) < 170) && (%range < 90) { %pc.msg %user 4Does not met Any of the 3 Requirments! | Notice %user Requirments are: 100+ CMB, 170+ ATK/STR, or 90+ Ranged }
    if (%combat >= 100) || ($calc(%attack + %strength) >= 170) || (%range >= 90) { %pc.msg User:3 %user Combat:2 %combat Attack+Strength:4 $calc(%attack + %strength) $+  Range:5 %range  | mode %channy +v %user | notice %user Type !users and pm one of them on runescape to verify. }
    if (!%combat) && (!%attack) && (!%strength) && (!%range) { %pc.msg 4 %user is an invalid nickname! Check to make sure. 4 Note: TAGS: Will mess up cmb checker. | notice %user Please type /nick your rsn }
    sockclose $sockname | unset %combat.3 | unset %channy | unset %user | unset %attack | unset %strength | unset %pc.msg | unset %range
  }
}

on *:Sockclose:pestkick*:{
  Sockclose $sockname
  unset %combat | unset %channy | unset %user | unset %attack | unset %strength | unset %pc.msg
}


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



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


[code]
how to make this in tcl format? [/code]