Bom, fiquei com medo de eu divulgar e modificarem os créditos, mas ai vi que algo simples poderia ser feito futuramente, então resolvi postar.
tibia.php
<?phpif ($_GET["consulta"] == "0" || !$_GET["consulta"]){ echo "<form method=get action=tibia.php><input type=hidden name=consulta value=1>Nome do character:<input type=text name=nome><br><input type=submit value=OK></form>";}elseif($_GET["consulta"] == "1"){$nome = $_GET["nome"];$nome = str_replace(" ", "%20", $nome);$pagina = implode('', file("http://www.tibia.com/community/?subtopic=character&name=$nome"));$procura = explode("<TD>",$pagina);if(!preg_match("/Char não encontrado./i",$pagina)){$nomechar = $procura[21];$sexo = $procura[23];$vocation = $procura[25];$level = $procura[27];$mundo = $procura[29];$cidade = $procura[31];if(preg_match("/Comment/i",$procura[37])){ $comment = $procura[38]; $house = $procura[33]; $guild = $procura[35]; $status = $procura[40];}elseif(preg_match("/Comment/i",$procura[35]) && preg_match("/House/i",$procura[32])){ $guild = "N/A"; $comment = $procura[36]; $status = $procura[38]; $house = $procura[33];}elseif(preg_match("/Comment/i",$procura[35])){ $house = "N/A"; $guild = $procura[33]; $status = $procura[38]; $comment = $procura[36];}elseif(preg_match("/Comment/i",$procura[33])){ $house = "N/A"; $guild = "N/A"; $comment = $procura[34]; $status = $procura[36];}elseif(preg_match("/Account/i",$procura[34])){ $status = $procura[35]; $house = "N/A"; $guild = "N/A";}list ($nomechar) = split ("</TD>", $nomechar);echo "Nome do character: $nomechar<br>";list ($sexo) = split ("</TD></TR><TR BGCOLOR=#F1E0C6>", $sexo);if ($sexo == "female"){ $sexo = "Feminino";}else{ $sexo = "Masculino";}echo "Sexo: $sexo<br>";list ($vocation) = split ("</TD>", $vocation);echo "Vocação: $vocation<br>";list ($level) = split ("</TD>", $level);echo "Level: $level<br>";list ($mundo) = split ("</TD>", $mundo);echo "Mundo: $mundo<br>";list ($cidade) = split ("</TD></TR><TR BGCOLOR=#F1E0C6>", $cidade);echo "Cidade: $cidade<br>";list ($guild) = split ("</TD>", $guild);echo "Status em guild: $guild<br>";list ($house) = split ("</TD>", $house);echo "Casa: $house<br>";if($comment == ""){echo "Comentário do character: N/A<br>";}else{echo "Comentário do character: <br>$comment<br>";}echo "Status da conta: $status";}else{ echo "Esse character não existe!";break;} }?>
Espero que gostem, e que usem como base para outros scripts.