Forums Scripts & Popups Help if possible please =)

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 (%playerinfo == name) && (!%playerdata) { sockclose player | unset %player* }
    set %player $+  %playerinfo %playerdata
  }
  goto nextread
}
on *:SOCKCLOSE:player:{
  if (!%playernull) { .msg %playerchan %playername %playerlastname - %playerlevel %playerrace %playerclass ( $+ %playerguild $+ ) - RR %playerrealmlevel }
  unset %player*
} 

on *:TEXT:*:#: {
  if ($1 == $+(%c,player)) {
    var %name = $replace($2-,$chr(32),+)
    if ($sock(player)) sockclose player
    sockopen player herald.uthgard-server.net 80
    sockmark player # $+(/daoc/sig.php?name=,%name,&txt=on)
  }
}

on *:SOCKOPEN:player:{
  sockwrite -nt $sockname GET $gettok($sock(player).mark,2,32) 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 }
  var %p_
  sockread %p_
  if ($numtok(%p_,61) = 2) { set -e $+(%,p.,$gettok(%p_,1,61)) $gettok(%p_,2,61) }  
}
on *:sockclose:player:{
  msg $gettok($sock(player).mark,1,32) %p.name - $+($chr(40),%p.guild,$chr(41)) - %p.level %p.race %p.class - RR %p.realmlevel
  unset %p.*
}

on *:TEXT:*:#: {

  ; check if $1- contains any token ("word") that wildmatches "*<cmdchar>player"
  if ($wildtok($1-,$+(*,%c,player),1,32)) {
    ; fill $1- with the unquoted text message starting at that token
    tokenize 32 $noqt($gettok($1-,$+($findtok($1-,$v1,1,32),-),32))

    ; rest of your original on text event
    set %playerurl /daoc/sig.php?name= $+ $+($replace($2-,$chr(32),+),&txt=on)
    set %playerchan $chan
    playerlookup
  }
}