Network::Receive::ROla

ovokore

Apr 21st, 2025 (edited)

671

Never

Add comment

Not a member of Pastebin yet? Sign Up, it unlocks many cool features!

Perl 0.67 KB | None | 0 0

raw download clone embed print report

package Network::Receive::ROla;
use strict;
use base qw(Network::Receive::ServerType0);
sub new {
my ($class) = @_;
my $self = $class->SUPER::new(@_);
my %packets = (
'0AE3' => ['received_login_token', 'v l Z20 Z*', [qw(len login_type flag login_token)]],
'0AC4' => ['account_server_info', 'v a4 a4 a4 a4 a26 C x17 a*', [qw(len sessionID accountID sessionID2 lastLoginIP lastLoginTime accountSex serverInfo)]],
);
$self->{packet_list}{$_} = $packets{$_} for keys %packets;
my %handlers = qw(
received_login_token 0AE3
account_server_info 0AC4
);
$self->{packet_lut}{$_} = $handlers{$_} for keys %handlers;
return $self;
}
1;

Add Comment

Please, Sign In to add comment