[PHP] Updated Character List Script (Request)

[Bolto]

Some one got a updated php script for online list please?

[jeremic]

Didn't edit out the unneeded code as Im lazy but if you know any php its easy to see.

Code:

<?
include 'config.php';
include 'opendb.php';

mysql_query ("DELETE FROM `onlinelist`");

$world = "Dolera";
$file = "http://www.tibia.com/community/?subtopic=whoisonline&world=$world";
$text = file_get_contents($file) or die("World Does not exist.");
preg_match_all('/\&name=[^">]*">([^<]+)</i', $text, $matches);
preg_match_all('/<\/TD><TD WIDTH=10\%>(.*)<\/[^>]+>/U', $text, $level);

$count = count($matches[0]);
$script = 1;

if($count > 0) {
    echo "$count players online on $world<br><br>";
    for ($label = 0; $label < $count; $label++ ) {
            
            
            $matches[1][$label] = str_replace("%27","'",$matches[1][$label]);
            $matches[1][$label] = str_replace(" "," ",$matches[1][$label]);
            $matches[1][$label] = addslashes($matches[1][$label]);
            mysql_query("INSERT INTO onlinelist (name,script,level) VALUES ('".$matches[1][$label]."','$script','".$level[1][$label]."')") or die(mysql_error());
            mysql_query("UPDATE `character` SET day0=day0 + 5 WHERE name='".$matches[1][$label]."'") or die(mysql_error());

            
            
            $script++;
            if ($script > 7) {
                $script = 1;
            }
    }
}

else {
    echo "<font color=red>This world does not exist</color>";
}

mysql_query ("DELETE FROM `onlinelist` WHERE name='Nudan'");

include 'closedb.php';
?>