on *:TEXT:*:#:{ 

  if ( $1 == !stats || $1 == !stat ) {
    $getStats($2, /notice $nick ) 
  }
  if ( $1 == !estats || $1 == !estat) { 
    $getStats($2, /msg $chan ) 
  }
}

on *:sockopen:myb.*:{
  .sockwrite -n $sockname GET /gimpstats.php?charname= $+ %bitka HTTP/1.1
  .sockwrite -n $sockname Host: gimpchimp.etilader.com
  .sockwrite -n $sockname $crlf
}

on 1:SOCKREAD:myb.*: {
  if ($sockerr > 0) return
  set %i. $+ $sockname 0
  :nextread
  ;sockread %temp. $+ $sockname
  sockread %temp
  if ($sockbr == 0) return
  ;if (%temp. [ $+ [ $sockname ] ] == $null) set %temp. $+ $sockname -
  if (%temp == $null) set %temp -
  set %wayne. $+ $sockname $pos( %temp, Ywain, 1)
  if (%wayne. [ $+ [ $sockname ] ] != $null) {
    $sock($sockname).mark %temp
  }
  ;echo 4 %i %temp

  inc %i. [ $+ [ $sockname ] ]
  goto nextread

}


alias getStats {
  %bitka = $$1
  var %sock myb. $+ $right($ticks,6)
  sockclose %sock
  sockopen %sock gimpchimp.etilader.com 80
  sockmark %sock $2  
}