то что больше всего мозолило глаза я занёс в SVN7941
но это далеко не все пакеты, там ещё куча целая таких пробелов..
ещё вопрос по поводу "входящих" сервертипов.. рассмотрим файл RagexeRE_2008_08_27a.pm:
Код: Выделить всё
package Network::Receive::kRO::RagexeRE_2008_08_27a;
use strict;
use base qw(Network::Receive::kRO::Sakexe_2009_04_08a);
use Log qw(message warning error debug);
use Utils qw(getTickCount getHex getCoordString);
# TODO: maybe we should try to not use globals in here at all but instead pass them on?
use Globals qw($char);
sub new {
my ($class) = @_;
my $self = $class->SUPER::new(@_);
my %packets = (
'007C' => ['actor_display', 'C a4 v14 C2 a3 C4', [qw(object_type ID walk_speed opt1 opt2 option hair_style weapon lowhead type shield tophead midhead hair_color clothes_color head_dir stance sex coords xSize ySize unknown1 unknown2)]], #spawning (eA does not send this for players) # 44
# 0x02e2,20
# 0x02e3,22
# 0x02e4,11
# 0x02e5,9
);
foreach my $switch (keys %packets) {
$self->{packet_list}{$switch} = $packets{$switch};
}
return $self;
}
Код: Выделить всё
use Log qw(message warning error debug);
use Utils qw(getTickCount getHex getCoordString);
# TODO: maybe we should try to not use globals in here at all but instead pass them on?
use Globals qw($char);
может лишку удалить??
PS: и кстати "RagexeRE_0.pm" - это спецом придуманный сТ чтоб не смотреть номер последнего?