Memento Mori
Narys
Kapitonas
Pranešimai: 706
Įstojęs: 2009 Gru. 24 16:12:56
Sveiki taigi reikia php serverių listo koduko kokio gražesnio pvz.: http://dmg.lt/news.php nesakau ,kad reikia kopijos ,bet daug kur esu matęs tokį.
Tai gal kad pasharinsit linką ar patį kodą?
Kaip ir turiu tokį tik gal kas galėtų prirašyti kodo ,kad atvaizduotų dar serverio statusą ir pvz.: paveikslėlį priekyje counter-strike
<?php
echo '
<table border="1">
<tr>
<th>Serveris</th>
<th>IP adresas</th>
<th>Žaideju</th>
<th>Žemelapis</th>
</tr>';
?>
<?php
$packet = "\xFF\xFF\xFF\xFFTSource Engine Query\x00";
function getnextstring(&$data)
{
$temp="";
$counter=0;
while (ord($data[$counter++])!=0) $temp.=$data[$counter-1];
$data=substr($data,strlen($temp)+1);
return $temp;
}
function getnextbytevalue(&$data)
{
$temp=ord($data[0]);
$data=substr($data,1);
return $temp;
}
if(!$live_server = fsockopen("udp://cs.gamebox.lt:27015"))
{
$output = "on";
}
else
{
fwrite($live_server, $packet);
socket_set_timeout($live_server,1,0);
$junk = fread($live_server,5);
$status = socket_get_status($live_server);
$do = 1;
$server_info= "";
while($do)
{
$str_1 = fread($live_server,1);
$server_info .= $str_1;
$status = socket_get_status($live_server);
if($status["unread_bytes"] == 0) {$do = 0;}
}
fclose($live_server);
if (strlen($server_info) > 0)
{
$success = 1;
$junk = getnextstring($server_info);
$servername = getnextstring($server_info);
$map = getnextstring($server_info);
$junk = getnextstring($server_info);
$junk = getnextstring($server_info);
$players = getnextbytevalue($server_info);
$maxplayers = getnextbytevalue($server_info);
}
if ($players != "")
{
$players = $players;
}
else
{
$players = "0";
}
if ($maxplayers != "")
{
$maxplayers = $maxplayers;
}
else
{
$maxplayers = "0";
}
if ($players < $maxplayers)
{
$output = "";
}
else
{
$output = "Full";
}
if ($output != "Full" and $players != "0" or $maxplayers != "0")
{
$output = $output;
}
else
{
$output = "";
}
if ($map != "")
{
$map = $map;
}
else
{
$map = "nera";
}
}
echo'
<tr>
<td>Server 1</td>
<td>cs.gamebox.lt:27015</td>
<td>'.$players.'/'.$maxplayers.'</td>
<td>'.$map.'</td>
</tr>
';
?>
<?php
$packet = "\xFF\xFF\xFF\xFFTSource Engine Query\x00";
function getnextstring2(&$data)
{
$temp="";
$counter=0;
while (ord($data[$counter++])!=0) $temp.=$data[$counter-1];
$data=substr($data,strlen($temp)+1);
return $temp;
}
function getnextbytevalue2(&$data)
{
$temp=ord($data[0]);
$data=substr($data,1);
return $temp;
}
if(!$live_server = fsockopen("udp://cs.gamebox.lt:27016"))
{
$output = "on";
}
else
{
fwrite($live_server, $packet);
socket_set_timeout($live_server,1,0);
$junk = fread($live_server,5);
$status = socket_get_status($live_server);
$do = 1;
$server_info= "";
while($do)
{
$str_1 = fread($live_server,1);
$server_info .= $str_1;
$status = socket_get_status($live_server);
if($status["unread_bytes"] == 0) {$do = 0;}
}
fclose($live_server);
if (strlen($server_info) > 0)
{
$success = 1;
$junk = getnextstring2($server_info);
$servername = getnextstring2($server_info);
$map = getnextstring2($server_info);
$junk = getnextstring2($server_info);
$junk = getnextstring2($server_info);
$players = getnextbytevalue2($server_info);
$maxplayers = getnextbytevalue2($server_info);
}
if ($players != "")
{
$players = $players;
}
else
{
$players = "0";
}
if ($maxplayers != "")
{
$maxplayers = $maxplayers;
}
else
{
$maxplayers = "0";
}
if ($players < $maxplayers)
{
$output = "";
}
else
{
$output = "Full";
}
if ($output != "Full" and $players != "0" or $maxplayers != "0")
{
$output = $output;
}
else
{
$output = "";
}
if ($map != "")
{
$map = $map;
}
else
{
$map = "nera";
}
}
echo'
<tr>
<td>Server 2</td>
<td>cs.gamebox.lt:27016</td>
<td>'.$players.'/'.$maxplayers.'</td>
<td>'.$map.'</td>
</tr>
';
?>
<?php echo "</table>"; ?>
DEMONAS.LT
Narys
Nuolatinis
Pranešimai: 160
Įstojęs: 2011 Vas. 16 23:02:54
o gal tiesiog parsisiųsk įskiepį ir bus tau lygiai toks pats?
Memento Mori
Narys
Kapitonas
Pranešimai: 706
Įstojęs: 2009 Gru. 24 16:12:56
Na jei turėčiau phpfusion saitą tai gal ir būtų gerai tačiau saitas html tik server.php puslapis būtų php kalboje tad reiktų koduko Nebent aš kažką ne taip supratau...
MaFetas
Administratorius
Ekspertas
Pranešimai: 3453
Įstojęs: 2005 Lie. 16 13:07:41
Niekas čia už dyką nedarys Teks pačiam ieškotis ir persidarinėt arba kažkam šiek tiek pamokėtAdminas - ban'o laisvė
www.KIETEKAS.com
Žmogus
Narys
Viršesnis už Dievą
Pranešimai: 5621
Įstojęs: 2006 Gru. 8 17:12:08
http://www.czaries.net/scripts/
čia yra CS servo scriptas
MariukasR
Narys
Pulkininkas
Pranešimai: 390
Įstojęs: 2011 Vas. 23 08:02:52
MaFetas parašė:
Niekas čia už dyką nedarys
Teks pačiam ieškotis ir persidarinėt arba kažkam šiek tiek pamokėt
Už pinigus ir temokat suteikti pagalbą ...
MaFetas
Administratorius
Ekspertas
Pranešimai: 3453
Įstojęs: 2005 Lie. 16 13:07:41
-Mariukas - o jūs ant tiek esat tinginei, jog nesugebat nieko susirasti bei pradėti mokytis, sugebat tik visko prašyt ir tai kad už dyką būtų. Mes padedadam, tačiau viskas turi savo ribas (PIRMIAUSIAI pagalvok, jog mes čia dirbam savanoriškai o ne už algą, jei būtų algą tai viską darytume for free...)
P.S mes bent kažką sugebam ir mokam Adminas - ban'o laisvė
www.KIETEKAS.com
MariukasR
Narys
Pulkininkas
Pranešimai: 390
Įstojęs: 2011 Vas. 23 08:02:52
Nieko susirast ? Tai kad nėra ... Jai surandu tada nžn .... Bet kam rašyt tokius vėjus dar + būdamas administratoriu
MaFetas parašė:
Niekas čia už dyką nedarys Teks pačiam ieškotis ir persidarinėt arba kažkam šiek tiek pamokėt
Manau nusišnekėjai eilinį kartą
Ir beje kai esi adminitratorius IR TURI PADĖTI NARIUI nor ir tos sušiktos algos nemoka ... o ne sedėti ir bumbėti ....
MaFetas
Administratorius
Ekspertas
Pranešimai: 3453
Įstojęs: 2005 Lie. 16 13:07:41
Klausyk durneli proelum geriau patylėk, nes vėl už nesąmones gausi porą grupių ir vėl verksi... Jei esi žioplys ir nesugebi elementariausiu programavimo pagrindų išmokt tai nešnekėk nesąmonių ir kitų nekaltink. Ir nereik čia rašinėt savo bereikšmių postų. Permesk akim į savo sukurtas temas ir pateiktus klausimus ir aiškų bus, jog arba esi žioplys arba esi visiškas tinginys... Manau aišku viskas. Jei dar turi kokių kvailų klausimų ar pastebėjimų parašyk PM arba į skype...
Ir beje kai esi adminitratorius IR TURI PADĖTI NARIUI
Padedu ir tikrai nemažai. AtsimerkAdminas - ban'o laisvė
www.KIETEKAS.com Redagavo
MaFetas 2011 Lap. 1 14:11:16
Memento Mori
Narys
Kapitonas
Pranešimai: 706
Įstojęs: 2009 Gru. 24 16:12:56
Nesipykit žmonės. Beja pats radau ko reikia.
Peršokti į forumą:
Žaliems
Nebeegzistuojančios svetainės
Bendri PHP-F klausimai
WordPress
Kiti PHP, HTML, MySQL klausimai
Expert PHP, MySQL klausimai
Kitos TVS
C#, Python, Java, JS, C++ klausimai
Naujų modų pristatymai
Mods, Panels & Infusions
Themes
Dalinuosi, dovanoju!
Jūsų saitai
Klausimai apie domenus ir hostingus
VPS/DS serverių konfigūravimas ir valdymas
Viskas apie skaitliukus, top'us ir lankomumą
Dizaino konkursai
Parduodu - perku dizainą, banerį
Parduodu - perku - keičiuosi reklama
Parduodu - perku domeną, tinklapį
Siūlau - ieškau hostingo/VPS serverio
Parduodu - perku skriptą, modifikaciją, tvs
Socialiniai tinklai - Facebook ir kiti
Legalus verslas, teisiniai klausimai
Visa kita kas susiję su darbu ir pinigais
LTStartups.com - Lietuvos startuolių bendruomenė
Off-Topic diskusijos
IT naujienos
Portalo informacija
Narių pasiūlymai
Geležis ir programinė įranga
Grafika
Out Of Place
Su e-verslu nesusijęs darbas ir prekyba
Dalinuosi, dovanoju!