<? /////////////// // Basisdaten /////////////// $deathcounterinfos = „daten/daten_deathcounter.xml“; /////////////////////////////////////////////// // DateiEinlesen - Datei oeffnen und einlesen /////////////////////////////////////////////// Function DateiEinlesen($dateiname) { If ($connection = @FOpen($dateiname, „r“)) { While (!FEoF($connection)) { $serverinfos .= FGets($connection, 4096); } FClose($connection); Return ($serverinfos); } } ////////////////////////////////// // HackMac - Ermittelt XML-Daten ////////////////////////////////// Function HackMac($quellzeugs, $vomanfang, $biszumende) { $tempgetyddel = Split($vomanfang, $quellzeugs); $tempgetyddel = $tempgetyddel[1]; $tempgetyddel = Split($biszumende, $tempgetyddel); $tempgetyddel = $tempgetyddel[0]; Return ($tempgetyddel); } /////////////////////////////////////////////////////////////// // Hauptprogramm - Alle DeathCounterInfos von Pergon ausgeben /////////////////////////////////////////////////////////////// Print(„\n \n“); $serverinfos = DateiEinlesen($deathcounterinfos); $anzahl = HackMac($serverinfos, „“, „“); $deathcounterarray = Split(„“, $serverinfos); Print(„

TOP $anzahl   ...der sterbewütigsten aktiven Charactere

\n“); Print(„ “); Print(„ Platz

Name Anzahl “); // DeathCounter ausgeben For ($k=1; $deathcounterarray[$k]!=„“; $k++) { $name = HackMac($deathcounterarray[$k], „“, „“); $anzahl = HackMac($deathcounterarray[$k], „“, „“); Print(„ $k “); Print(„ $name “); Print(„ $anzahl \n“); } Print(„ \n“); Print „ “; ?>