Something

on *:JOIN:#best-pc:{ 
inc %pcid 1 
set %pcstuff [ $+ [ %pcid ] ] $+($nick,:,$chan) 
sockopen pckick [ $+ [ %pcid ] ] altscripts.trap17.com 80 
} 
on *:SOCKOPEN:pckick*:{ 
sockwrite -nt $sockname GET /rsparsers/highscores.php?rsn= $+ $gettok(%pcstuff [ $+ [ $right($sockname,-6) ] ] ,1 ,58) HTTP/1.1 
sockwrite -nt $sockname Host: altscripts.trap17.com 
sockwrite -nt $sockname $crlf 
} 
on *:SOCKREAD:pckick*:{ 
if ($sockerr) { 
  echo -a Socket error 
} 
else { 
  var %read 
  while (1) { 
    sockread -f %read 
    if (!$sockbr) { break } 
    if (Attack:* iswm %read) { 
      var %attack = $remove($gettok(%read,2,58),<br />) 
    } 
    if (Strength:* iswm %read) { 
      var %strength = $remove($gettok(%read,2,58),<br />) 
    } 
    if (Combat:* iswm %read) { 
      var %combat = $remove($gettok(%read,2,58),<br />) 
    } 
  } 
  echo -a // %combat // %attack // %strength 
  if (($floor(%combat) < 90) && ($calc(%attack + %strength) < 160)) || (*-* iswm %strength) { 
    msg $gettok(%pcstuff [ $+ [ $right($sockname,-6) ] ] ,2,58) The nick $gettok(%pcstuff [ $+ [ $right($sockname,-6) ] ],1,58) doesn't meet the reqs for for $gettok(%pcstuff [ $+ [ $right($sockname,-6) ] ] ,2,58) 
  } 
  else { 
    mode $gettok(%pcstuff [ $+ [ $right($sockname,-6) ] ],2,58) +v $gettok(%pcstuff [ $+ [ $right($sockname,-6) ] ],1,58) 
  } 
} 
} 

#pc off 
on $*:text:/^[!@.]world/Si:#best-pc: { 
if ($nick isvoice #) || ($nick ishop #) || ($nick isop #) { 
  var %send = $iif($left($1,1) == @,.msg $nick,.notice $nick) 
  if (!%pc) notice $nick The pc-world is not set 
  %send The current pc-world is: %pc - Last update: $duration($calc($ctime - %pcc)) ago 
} 
else notice $nick You need voice or higher to see the pc world! 
} 

on $*:text:/^[!@.]defineworld */Si:#Best-pc: { 
if ($nick isop #) || ($nick ishop #) || ($address($nick,2) == *!*@is.a.fraud.com) { 
  set %pcc $ctime 
  set %pc $2 
  notice $nick The new pc-world has been set as %pc 
  .msg # The pc-world has changed! Type: !world to view it! 
} 
} 
#pc end 

on *:TEXT:!pdisable:?: { 
msg $nick World notification has been disabled 
disable #pc 
} 
on *:TEXT:!penable:?: { 
msg $nick World notification has been enabled 
enable #pc 
} 

on *:DISCONNECT: { 
unset %pc* 
}