elias/ark-ac-server-tools
1
0
Fork 0
mirror of https://github.com/eliasstepanik/ark-ac-server-tools.git synced 2026-01-27 00:38:27 +00:00
Code Issues Packages Projects Releases Wiki Activity

Count players with names

Browse Source
This commit is contained in:
Ben Peddell 2016-08-01 10:43:47 +10:00
parent 91916e0763
commit eb1cdbb72b
1 changed files with 22 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
tools/arkmanager
View File

@ -616,7 +616,17 @@ function numPlayersConnected(){
} }
ord(substr($data, 4, 1)) != 0x44 and (print "-1" and exit(1)); ord(substr($data, 4, 1)) != 0x44 and (print "-1" and exit(1));
my $players = ord(substr($data, 5, 1)); my $players = ord(substr($data, 5, 1));
print "$players\n"; my $active = 0;
my $pdata = substr($data, 6);
for my $i (0 .. $players) {
my $idx = ord(substr($pdata, 0, 1));
my ($name, $rest) = split(/\x00/, substr($pdata, 1), 2);
$pdata = substr($rest, 8);
if ($name != "") {
$active = $active + 1;
}
}
print "$active\n";
' "$(getQueryPort)" "${ark_MultiHome:-127.0.0.1}" ' "$(getQueryPort)" "${ark_MultiHome:-127.0.0.1}"
else else
perl -MSocket -e ' perl -MSocket -e '
@ -2114,7 +2124,17 @@ printStatus(){
} }
ord(substr($data, 4, 1)) != 0x44 and (print ("A2S_PLAYERS Response: : " . unpack("H*", $data)) and exit(1)); ord(substr($data, 4, 1)) != 0x44 and (print ("A2S_PLAYERS Response: : " . unpack("H*", $data)) and exit(1));
my $players = ord(substr($data, 5, 1)); my $players = ord(substr($data, 5, 1));
print "Active Players: $players\n"; my $active = 0;
my $pdata = substr($data, 6);
for my $i (0 .. $players) {
my $idx = ord(substr($pdata, 0, 1));
my ($name, $rest) = split(/\x00/, substr($pdata, 1), 2);
$pdata = substr($rest, 8);
if ($name != "") {
$active = $active + 1;
}
}
print "Active Players: $active\n";
' "$(getQueryPort)" "${ark_MultiHome:-127.0.0.1}" ' "$(getQueryPort)" "${ark_MultiHome:-127.0.0.1}"
if isTheServerOnline; then if isTheServerOnline; then