ojalá alguien pueda ayudarme a hacerlo funcionar nuevamente.
explico de que se trata: es un script para ver la lista de asesinos por asi decirlo con mas muertes, de un juego llamado Helbreath, entonces saca de cada txt los "EK" enemy killed y los ordena para ver el TOP 10 de asesinos con mas muertes.
Código:
nota: he agregado el inicio de php con <?php pero aun asi nada, no se si habra que activar algun modulo en php5. <?
Error_reporting(0);
/*
-=--=--=--=--=--=--=--=--=-
HB Pyknic, Helbreath
Private Server Resources
http://hb.magsec4.net
-=--=--=--=--=--=--=--=--=-
notes:
Thanks again to DarkZero for original top10 script,
this one is edited to display top10 people with most eks.
enjoy.
version: 1.0
*/
/*-----------Edit the line below this-------------*/
$chardir = "C:\\xxx\\Server\\Character";
/*-----------Edit the line above this-------------*/
$asc = 65;
while($asc < 122){
$handle = $chardir;
$handle .= '\\ASCII';
$handle .= $asc;
$filename = $handle;
if(!is_readable($filename)){ }
elseif($handle = opendir($filename)){
while($file = readdir($handle)){
if ($file != "." && $file != ".." && $file != "" && $file != ".txt") {
$filename = ''.$chardir.'\\ASCII'.$asc.'\\'.$file.'';
$filepath = $filename;
$moo = ereg_replace(".bak","\n",$filepath);
if(!is_readable($moo)){ }
else{
$lines = file($filepath);
$aexp = substr($lines[32], 20);
$aname = ereg_replace("= ","",substr($lines[6], 20));
$alevel = ereg_replace(" ","",substr($lines[23], 20));
$alocation = substr($lines[12], 23, 7);
$blocation = substr($lines[12], 23, 6);
$aek = ereg_replace("character-EK-Count =","\n",$lines[39]);
if($alocation == "aresden"){
$arexp = array_merge($arexp,$aexp);
$arlevel = array_merge($arlevel, $alevel);
$arname = array_merge($arname, $aname);
$arek = array_merge($arek, $aek);
}
elseif($blocation == "elvine"){
$elexp = array_merge($elexp,$aexp);
$ellevel = array_merge($ellevel, $alevel);
$elname = array_merge($elname, $aname);
$elek = array_merge($elek, $aek);
}
}
}
}
}
$asc = $asc + 1;
}
if(!$arexp){ }
elseif(!$elexp){ }
else{
array_multisort($arek, SORT_DESC, SORT_NUMERIC, $arlevel, $arname, $arexp);
array_multisort($elek, SORT_DESC, SORT_NUMERIC, $ellevel, $elname, $elexp);
}
/*--------Edit below this is you wish to change how the top 10 list looks------*/
echo "<body bgcolor=\"#000000\" text=\"#00FFFF\" link=\"#000000\">
<font face=arial>
<p align=center>Top 10 Aresden EKers
<table width=\"90\" border=\"2\">
</em>
<tr>
<td>Position</td>
<td>Player</td>
<td>Level</td>
<td>Experience</td>
<td>EK Count</td>
</tr>
<tr>
<td>1</td>
<td>$arname[0]</td>
<td>$arlevel[0]</td>
<td>$arexp[0]</td>
<td>$arek[0]</td>
</tr>
<tr>
<td>2</td>
<td>$arname[1]</td>
<td>$arlevel[1]</td>
<td>$arexp[1]</td>
<td>$arek[1]</td>
</tr>
<tr>
<td>3</td>
<td>$arname[2]</td>
<td>$arlevel[2]</td>
<td>$arexp[2]</td>
<td>$arek[2]</td>
</tr>
<tr>
<td>4</td>
<td>$arname[3]</td>
<td>$arlevel[3]</td>
<td>$arexp[3]</td>
<td>$arek[3]</td>
</tr>
<tr>
<td>5</td>
<td>$arname[4]</td>
<td>$arlevel[4]</td>
<td>$arexp[4]</td>
<td>$arek[4]</td>
</tr>
<tr>
<td>6</td>
<td>$arname[5]</td>
<td>$arlevel[5]</td>
<td>$arexp[5]</td>
<td>$arek[5]</td>
</tr>
<tr>
<td>7</td>
<td>$arname[6]</td>
<td>$arlevel[6]</td>
<td>$arexp[6]</td>
<td>$arek[6]</td>
</tr>
<tr>
<td>8</td>
<td>$arname[7]</td>
<td>$arlevel[7]</td>
<td>$arexp[7]</td>
<td>$arek[7]</td>
</tr>
<tr>
<td>9</td>
<td>$arname[8]</td>
<td>$arlevel[8]</td>
<td>$arexp[8]</td>
<td>$arek[8]</td>
</tr>
<tr>
<td>10</td>
<td>$arname[9]</td>
<td>$arlevel[9]</td>
<td>$arexp[9]</td>
<td>$arek[9]</td>
</tr>
</table>
<body bgcolor=\"#666666\" text=\"#CCCCCC\" link=\"#000000\">
<font face=arial>
<p align=center>Top 10 Elvine EKers
<table width=\"90\" border=\"2\">
</em>
<tr>
<td>Position</td>
<td>Player</td>
<td>Level</td>
<td>Experience</td>
<td>EK Count</td>
</tr>
<tr>
<td>1</td>
<td>$elname[0]</td>
<td>$ellevel[0]</td>
<td>$elexp[0]</td>
<td>$elek[0]</td>
</tr>
<tr>
<td>2</td>
<td>$elname[1]</td>
<td>$ellevel[1]</td>
<td>$elexp[1]</td>
<td>$elek[1]</td>
</tr>
<tr>
<td>3</td>
<td>$elname[2]</td>
<td>$ellevel[2]</td>
<td>$elexp[2]</td>
<td>$elek[2]</td>
</tr>
<tr>
<td>4</td>
<td>$elname[3]</td>
<td>$ellevel[3]</td>
<td>$elexp[3]</td>
<td>$elek[3]</td>
</tr>
<tr>
<td>5</td>
<td>$elname[4]</td>
<td>$ellevel[4]</td>
<td>$elexp[4]</td>
<td>$elek[4]</td>
</tr>
<tr>
<td>6</td>
<td>$elname[5]</td>
<td>$ellevel[5]</td>
<td>$elexp[5]</td>
<td>$elek[5]</td>
</tr>
<tr>
<td>7</td>
<td>$elname[6]</td>
<td>$ellevel[6]</td>
<td>$elexp[6]</td>
<td>$elek[6]</td>
</tr>
<tr>
<td>8</td>
<td>$elname[7]</td>
<td>$ellevel[7]</td>
<td>$elexp[7]</td>
<td>$elek[7]</td>
</tr>
<tr>
<td>9</td>
<td>$elname[8]</td>
<td>$ellevel[8]</td>
<td>$elexp[8]</td>
<td>$elek[8]</td>
</tr>
<tr>
<td>10</td>
<td>$elname[9]</td>
<td>$ellevel[9]</td>
<td>$elexp[9]</td>
<td>$elek[9]</td>
</tr>
</table>";
?>
<center>
<?
$fp = fopen("http://hb.magsec4.net/ek10.txt", "r");
$temp = fread($fp, 1024);
fclose($fp);
$temp2 = explode("\n", $temp);
$rv = "$temp2[0]";
$fv = "1.0";
if($rv == $fv){
echo "EK10 Script by Magsec4, version <font color=lime>$fv</font>.";
}
else{
echo "<font color=red>Script outdated, version <a href=http://hb.magsec4.net>$rv</a> available.</font>";
}
?>
</center>
