mirror of
https://gitlab.com/xonotic/xonotic
synced 2024-12-16 11:55:20 +00:00
81 lines
3.1 KiB
Perl
81 lines
3.1 KiB
Perl
# Xonotic rcon2irc plugin by Merlijn Hofstra licensed under GPL - ping-pl.pl
|
|
# Place this file inside the same directory as rcon2irc.pl and add the full filename to the plugins.
|
|
# Don't forget to edit the options below to suit your needs.
|
|
|
|
# This script monitors players ping and packet loss, people with really large values here are
|
|
# lagging a lot, and this lag appears to other players as well as seeing the lagging player move
|
|
# with lots of stutter. Bare in mind that even those of us on very good connections may lose a
|
|
# packet or have a high ping every once in the while.
|
|
# PLEASE CHOOSE SANE VALUES HERE !!!
|
|
|
|
{ my %pp = (
|
|
max_ping => 350,
|
|
max_pl => 10,
|
|
warn_player => 1, # send a tell command to the player to notify of bad connection (0 or 1)
|
|
warn_irc => 1, # send a warning to irc to notify that a player has a bad connection (0 or 1)
|
|
warnings => 3, # how many times must ping/pl exceed the limit before a warning
|
|
kick => 0, # how many times must ping/pl exceed the limit before a kick (0 to disable)
|
|
timeframe => 20, # minutes until a count is forgotten
|
|
warnmsg => 'You are having connection problems, causing you to lag - please fix them',
|
|
kickmsg => 'You are getting kicked for having connection problems.'
|
|
);
|
|
|
|
$store{plugin_ping-pl} = \%pp; }
|
|
|
|
sub out($$@);
|
|
|
|
# Check users ping and packet loss
|
|
[ dp => q{\^\d(\S+)\s+(\d+)\s+(\d+)\s+(\S+)\s+(-?\d+)\s+\#(\d+)\s+\^\d(.*)} => sub {
|
|
my ($ip, $pl, $ping, $time, $frags, $no, $name) = ($1, $2, $3, $4, $5, $6, $7);
|
|
my $id = $store{"playerid_byslot_$no"};
|
|
return 0 unless ( defined $id );
|
|
return 0 if ($frags == -666 || $ip eq 'bot');
|
|
my $pp = $store{plugin_ping-pl};
|
|
|
|
#does the player violate one of our limits?
|
|
my $warn = 0;
|
|
if ($ping >= $pp->{max_ping} || $pl >= $pp->{max_pl}) {
|
|
#add a violation
|
|
push @{ $pp->{"violation_$id"} }, time();
|
|
$warn = 1;
|
|
}
|
|
|
|
#maybe we need to clear the oldest violation
|
|
shift @{ $pp->{"violation_$id"} } if (defined ${ $pp->{"violation_$id"} }[0] && (${ $pp->{"violation_$id"} }[0] + (60 * $pp->{timeframe})) <= time());
|
|
|
|
#do we have to kick the user?
|
|
if ((scalar @{ $pp->{"violation_$id"} }) >= $pp->{kick} && $pp->{kick} > 0) {
|
|
if ($pp->{warn_player}) {
|
|
out dp => 0, "tell #$no " . $pp->{kickmsg};
|
|
}
|
|
if ($pp->{warn_irc}) {
|
|
out irc => 0, "PRIVMSG $config{irc_channel} :\00304* kicking\017 " . $store{"playernick_byid_$id"} . "\017 for having a bad connection" .
|
|
" (current ping/pl: \00304$ping/$pl\017)";
|
|
}
|
|
out dp => 0, "kick # $no bad connection";
|
|
$pp->{"violation_$id"} = undef;
|
|
return 0;
|
|
}
|
|
|
|
#do we have to warn the user?
|
|
if ($warn && (scalar @{ $pp->{"violation_$id"} }) && ((scalar @{ $pp->{"violation_$id"} }) % $pp->{warnings}) == 0) {
|
|
if ($pp->{warn_player}) {
|
|
out dp => 0, "tell #$no " . $pp->{warnmsg};
|
|
}
|
|
if ($pp->{warn_irc}) {
|
|
out irc => 0, "PRIVMSG $config{irc_channel} :\00308* warning\017 " . $store{"playernick_byid_$id"} . "\017 has a bad connection" .
|
|
" (current ping/pl: \00304$ping/$pl\017)";
|
|
}
|
|
}
|
|
return 0;
|
|
} ],
|
|
|
|
# For now will just empty our data at the end of a match
|
|
[ dp => q{^:end} => sub {
|
|
my $pp = $store{plugin_ping-pl};
|
|
foreach ( keys %{ $pp } ) {
|
|
$pp->{$_} = undef if ($_ =~ m/^violation/);
|
|
}
|
|
return 0;
|
|
} ],
|