RO-fan

piroJOKE писал(а):Апдейт "большой сборки" до SVN-5607,
включая сегодняшние изыскания по rRO:
viewtopic.php?t=2

piroJOKE писал(а):Тэк, а вот это уже "кандидат" (см.атач):

* * *

Credits:

Grivba - информация по версиям в servers.txt
japplegame - распознавание и код минимального набора пакетов
Lims - багтракинг, префиксы PP и xKore-PP в servers.txt
darzanebor - педагогическая помосчь начинающим
sanchez - первичная сборка
pj - разные полезные мелочи ))

Кто нибудь знает как в впе поставить таймаут 600000?...личноу меня максимум 10000..=(

Или подскажите какой-нибудь другой снифер с более широкими настройками.....

Код: Выделить всё

sub sendHomunculusFeed {
   my $self = shift;
   my $msg = pack("C*", 0x2D, 0x02, 0x00, 0x00, 0x01);
   $self->sendToServer($msg);
   debug "Sent Feed Homunculus\n", "sendPacket", 2;
}

sub sendHomunculusGetStats {
   my $self = shift;
   my $msg = pack("C*", 0x2D, 0x02, 0x00, 0x00, 0x00);
   $self->sendToServer($msg);
   debug "Sent Get Homunculus Stats\n", "sendPacket", 2;
}

sub sendHomunculusMove {
   my $self = shift;
   my $homunID = shift;
   my $x = int scalar shift;
   my $y = int scalar shift;
   my $msg = pack("C*", 0x32, 0x02) . $homunID . getCoordString($x, $y);
   $self->sendToServer($msg);
   debug "Sent Homunculus move to: $x, $y\n", "sendPacket", 2;
}

sub sendHomunculusAttack {
   my $self = shift;
   my $homunID = shift;
   my $targetID = shift;
   my $flag = shift;
   my $msg = pack("C*", 0x33, 0x02) . $homunID . $targetID . pack("C1", $flag);
   $self->sendToServer($msg);
   debug "Sent Homunculus attack: ".getHex($targetID)."\n", "sendPacket", 2;
}

sub sendHomunculusStandBy {
   my $self = shift;
   my $homunID = shift;
   my $msg = pack("C*", 0x34, 0x02) . $homunID;
   $self->sendToServer($msg);
   debug "Sent Homunculus standby\n", "sendPacket", 2;
}