Someone

alias -l c1 { return $+($chr(3),12,$1-,$chr(3)) }
alias -l c2 { return $+($chr(3),04,$1-,$chr(3)) }
alias -l c3 { return $+($chr(3),06,$1-,$chr(3)) }
alias -l c4 { return $+($chr(3),02,$1-,$chr(3)) }
alias -l c5 { return $+($chr(3),03,$1-,$chr(3)) }
on *:JOIN:#:{ 
  if (%joincmb [ $+ [ $chan ] ] == off) { HALT } {
    inc %id
    if ($len($nick) > 12) { notice % $+ $chan $c1( 6¤4 $nick 12is not in the HighScores) 6¤ | halt } 
    set $+(%,pc.chan.,%id) $chan 
    set $+(%,pc.rsn.,%id) $nick  
    sockopen $+(pest.,%id) www.slushpuppy.silverinterlocution.org 80 
  } 
} 
on *:SOCKOPEN:pest.*:{ 
  var %id = $gettok($sockname,2,46)
  sockwrite -n $sockname GET /pestcontrol.php?pestcontrol= $+ $($+(%,pc.rsn.,%id),2) HTTP/1.1 
  sockwrite -n $sockname Host: www.slushpuppy.silverinterlocution.org 
  sockwrite -n $sockname $+($crlf,$crlf) 
} 
on *:SOCKREAD:pest.*:{ 
  var %id = $gettok($sockname,2,46), $&
    %rsn = $($+(%,pc.rsn.,%id),2), $& 
    %chan = $($+(%,pc.chan.,%id),2) 
  if ($sockerr) { 
    msg %chan Sockerr: $sockerr 
    unset $+(%,pc.*) 
    sockclose $sockname 
    halt
  } 
  else { 
    var %read 
    sockread %read 
    if (*<i>* iswm %read) { set %pc.cmbstyle $htmlfree(%read) }
    if (*<b>* iswm %read) { 
      tokenize 32 $nohtml(%read) 
      set $+(%,pc.info.,%id) $4 $6 $8 $10 $12 $14 $16  
    } 
    if (*<br>* iswm %read) {
      if ($chan == #pest-time) { 
        var %cmb = $nohtml(%read) 
        tokenize 32 $($+(%,pc.info.,%id),2)
        if (%cmb == 0) {
          msg % $+ %chan $c3(¤ Rsn:) $c2(%rsn) $c3(¤) $c2(Not Ranked) $c3(¤)
          halt
        }
        if ($readini(joincmb.ini,%chan,Combat) <= %cmb) {
          msg % $+ %chan $c3(¤ Rsn:) $c5(%rsn) $c3(¤) $c5(Combat %cmb 7/2100) $c3(¤)
        }
        else{
        msg % $+ %chan $c3(¤ Rsn:) $c2(%rsn) $c3(¤) $c2(Combat %cmb 7/2100) $c3(¤)
      }
      else {
        var %cmb = $nohtml(%read) 
        tokenize 32 $($+(%,pc.info.,%id),2)
        set %colnick $c2(%rsn)
        if ($readini(joincmb.ini,%chan,Strength) <= $3) { 
          set %colnick $c5(%rsn)
          set %colstrength $c3(¤) $c5(Strength ( $3 7/2 $readini(joincmb.ini,%chan,Strength) ))
        }
        else {
          set %colstrength $c3(¤) $c2(Strength ( $3 7/2 $readini(joincmb.ini,%chan,Strength) ))
        }
        if ($readini(joincmb.ini,%chan,Strength) == $null) || ($readini(joincmb.ini,%chan,Strength) == 0) {
          set %colstrength $null
        }
        if ($readini(joincmb.ini,%chan,Attack) <= $1) { 
          set %colnick $c5(%rsn)
          set %colAttack $c3(¤) $c5(Attack ( $1 7/2 $readini(joincmb.ini,%chan,Attack) ))
        }
        else {
          set %colAttack $c3(¤) $c2(Attack ( $1 7/2 $readini(joincmb.ini,%chan,Attack) ))
        }
        if ($readini(joincmb.ini,%chan,Attack) == $null) || ($readini(joincmb.ini,%chan,Attack) == 0) {
          set %colAttack $null
        }
        if ($readini(joincmb.ini,%chan,Combat) <= %cmb) {
          set %colnick $c5(%rsn)
          set %colcombat $c3(¤) $c5(Combat ( %cmb 7/2 $readini(joincmb.ini,%chan,Combat) ))
        } 
        else {
          set %colcombat $c3(¤) $c2(Combat ( $+ %cmb $+ 7/2 $+ $readini(joincmb.ini,%chan,Combat) $+ ))
        }
        if ($readini(joincmb.ini,%chan,Combat) == $null) || ($readini(joincmb.ini,%chan,Combat) == 0) {
          set %colcombat $null
        }
        if ($readini(joincmb.ini,%chan,Ranged) <= $5) {
          set %colnick $c5(%rsn)
          set %colranged $c3(¤) $c5(Ranged ( $5 7/2 $readini(joincmb.ini,%chan,Ranged) ))
        }
        else {
          set %colranged $c3(¤) $c2(Ranged ( $5 7/2 $readini(joincmb.ini,%chan,Ranged) ))
        }
        if ($readini(joincmb.ini,%chan,Ranged) == $null) || ($readini(joincmb.ini,%chan,Ranged) == 0) {
          set %colranged $null
        }
        if ($readini(joincmb.ini,%chan,Magic) <= $7) {
          set %colnick $c5(%rsn)
          set %colmagic $c3(¤) $c5(Magic ( $7 7/2 $readini(joincmb.ini,%chan,Magic) ))
        }
        else {
          set %colmagic $c3(¤) $c2(Magic ( $7 7/2 $readini(joincmb.ini,%chan,Magic) ))
        }
        if ($readini(joincmb.ini,%chan,Magic) == $null) || ($readini(joincmb.ini,%chan,Magic) == 0) {
          set %colmagic $null
        }
        msg % $+ %chan $c3(¤ Rsn:) %colnick %colcombat %colstrength %colattack %colranged %colmagic $c3(¤) 
      }
      unset $+(%,pc.*) 
      sockclose $sockname
    }
  } 
}
alias -l nohtml { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) 
  return %x 
}