A quick whip-up (not the prettiest maybe):
Code:
on *:TEXT:!player*:#: {
  if ($1 == %c $+ player) {
    set %playerurl /daoc/sig.php?name= $+ $+($replace($2-,$chr(32),+),&txt=on)
    set %playerchan $chan
    playerlookup
  }
}

alias playerlookup {
  sockopen player herald.uthgard-server.net 80
}

on *:SOCKOPEN:player: {
  sockwrite -nt $sockname GET %playerurl HTTP/1.1
  sockwrite -nt $sockname Accept-Language: en-us
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.2; rv:1.7.3) Gecko/20040913 Firefox/0.10.1
  sockwrite -nt $sockname Host: herald.uthgard-server.net
  sockwrite -nt $sockname Connection: keep-alive
  sockwrite -t $sockname $str($crlf,2)
}

on *:SOCKREAD:player:{
  if ($sockerr > 0) { return }
  :nextread
  sockread %player
  if ($sockbr == 0) { return }
  if (%player == [player] { set %playerget on | goto nextread }
  if (%playerget) {
    var %playerinfo = $gettok(%player,1,61)
    var %playerdata = $gettok(%player,2,61)
    if (!%playerdata) { set %playernull on }
    set %player $+  %playerinfo %playerdata
  }
  goto nextread
}
on *:SOCKCLOSE:player:{
  if (!%playernull) { .msg %playerchan %playername %playerlastname ( $+ %playerlevel $+ , %playerclass $+ ) - %playerguild - %playerrealmlevel ( $+ %playerrealmpoints $+ ) }
  unset %player*
}


P.S. The if-statement in the on TEXT event seems to be obsolete. I don't think you need it.

EDIT: changed it so you don't output data for a non-existing player.

Last edited by 5618; 08/06/09 03:26 PM.