roly pol woly

alias c1 { return $+(12,$1-) } 
alias c2 { return $+(04,$1-) } 

on *:text:?Stats *:#: { 
  if ($left($1,1) !isin @!.) halt 
  inc %ID 
  set $+(%,stats.display.,%ID) $iif($left($1,1) == @,msg $chan,notice $nick) 
  if ($len($2-) > 12) { $($+(%,stats.display.,%ID),2) $c1(The nick) $c2($2-) $c1(is too long) | cleanup %ID } 
  else { 
    set $+(%,stats.rsn.,%ID) $replace($2-,$chr(32),-,+,-) 
    sockopen $+(stats.,%ID) spaldox.com 80 
  } 
} 
on *:sockopen:stats.*: { 
  var %id = $gettok($sockname,2,46) 
  sockwrite -n $sockname GET /statbots/BotStats.php?user= $+ $($+(%,stats.rsn.,%ID),2) HTTP/1.0 
  sockwrite -n $sockname Host: spaldox.com $+ $crlf $+ $crlf 
} 
on *:sockread:stats.*: { 
  var %ID = $gettok($sockname,2,46) 
  if ($sockerr > 0) { $($+(%,stats.display.,%ID),2) $c1(Socket error - try again later) | cleanup %ID } 
  var %t 
  sockread %t 
  tokenize 32 %t 
  echo -a $1- 
  if ($replace($1,$chr(32),+) == $($+(%,stats.rsn.,%ID),2) $+ :) { 
    if (NIH == $gettok($1-,2,58) ) { 
      $($+(%,stats.display.,%ID),2) $c1(The nick) $c2($($+(%,stats.rsn.,%ID),2)) $c1(does not appear in the hi-scores) 
      cleanup %ID 
    } 
    else set $+(%,stats.message.,%ID) $($+(%,stats.message.,%ID),2) $c1($+($2,:)) $c2($4) 
  } 
} 
on *:sockclose:stats.*: { 
  var %ID = $gettok($sockname,2,46) 
  if (!$($+(%,stats.message.,%ID),2)) $($+(%,stats.display.,%ID),2) $c1(The nick) $c2($($+(%,stats.rsn.,%ID),2)) $c1(does not appear in the hi-scores) 
  else { 
    $($+(%,stats.display.,%ID),2) $c1(Stats for) $c2($($+(%,stats.rsn.,%ID),2)) $+ $c1(:) 
    $($+(%,stats.display.,%ID),2) $($+(%,stats.message.,%ID),2) 
  } 
  cleanup %ID 
} 
alias cleanup { 
  unset $+(%,stats.*.,$1) 
  sockclose $+(Stats.,$1) 
}