Erm.. after sorting all that out in the editor, it didnt work, but I'd got it to work anyway.. before I came back and read this.

Code:
alias tib.s {
  sockclose Tibia
  sockopen Tibia www.tibia.4players.de 80
  if ($1-) {
    .sockmark Tibia $+(/community/?subtopic=character&name=,$replace($1-,$chr(32),$eval(%20,0)))
    set %c $1-
  }
}
on *:sockopen:Tibia:{
  if ($sockerr) {
    echo $color(info) -s *** Socket Error (on open) \ $sockname - $sock($sockname).ip
    return
  }
  sockwrite -n $sockname GET $sock($sockname).mark HTTP/1.1
  sockwrite -n $sockname Accept: */*
  sockwrite -n $sockname Host: www.tibia.4players.de
  sockwrite -n $sockname $crlf
}
on *:sockread:Tibia:{
  if ($sockerr) {
    echo $color(info) -s *** Socket Error (on read) \ $sockname - $sock($sockname).ip
    return
  }
var %tmp
  sockread -fn %tmp
  if (doesn't exist. isin %tmp) {
    echo -s This character doesnt exist
    halt
  }
  if (Character Information isin %tmp) {
    echo -a Character Information:
    echo -s Name: $left($removehtml($gettok($iif(%tmp == $null,-,%tmp),2,58)),$len(%c))
    echo -s Sex: $uperl($iif(female isin $removehtml($gettok($iif(%tmp == $null,-,%tmp),3,58)), $&
      $left($removehtml($gettok($iif(%tmp == $null,-,%tmp),3,58)),6),$left($removehtml($gettok( $&
      $iif(%tmp == $null,-,%tmp),3,58)),4)))
    echo -s Profession: $remove($removehtml($gettok($iif(%tmp == $null,-,%tmp),4,58)),level)
    echo -s Level: $remove($removehtml($gettok($iif(%tmp == $null,-,%tmp),5,58)),world)
    echo -s World: $remove($removehtml($gettok($iif(%tmp == $null,-,%tmp),6,58)),residence)
    echo -s Residence: $remove($removehtml($gettok($iif(%tmp == $null,-,%tmp),7,58)),last login)
    echo -s - 
  }
  halt
}
alias removehtml {  
  var %a
  !.echo -q $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,,%a)
  return %a
}
alias -l uperl return $+($upper($left($1-,1)),$right($1-,-1))


Thanks though

Last edited by Hammer; 26/02/03 04:23 PM.
Experience The Void.. Are You Ready?