Модератор: 4epT
Код: Выделить всё
RO Packet Finder v.0.1
Loading assembly ... done
Searching PLF ... done [41b3b0]
Extracting packets length ... done
Searching PSF ... done [418fb0]
Extracting packets:
-----------------------------------------------------
Searching Sync ... done [54dd90]
[Sync 00A7 0C sync:08]
Код: Выделить всё
sub sendSkillUseLoc {
my ($self, $ID, $lv, $x, $y) = @_;
my $msg;
# 0> 8C 00/01L00/19S00/33x00 /38 37 35 00/6Ey00 ......3.875.n.
# 0> 8C 00/01 00/19 00/32 00 /65 35 39 00/6E 00 ......2.e59.n.
$msg = pack("C*", 0x8C, 0x00) . pack("v", $lv) . pack("v*", $ID) . pack("v*", $x) . pack("x4") . pack("v*", $y);
$self->sendToServer($msg);
debug "Skill Use on Location: $ID, ($x, $y)\n", "sendPacket", 2;
}
Код: Выделить всё
sub sendStorageGet {
###
# 0> 9B 00 02 00 00 00 63 33 65 62 37 30 31 63 63 63 ......c3eb701ccc
# 16> 63 00 03 00 c...
# 0> 9B 00 01 00 00 00 39 61 33 64 37 30 31 39 39 39 ......9a3d701999
# 16> 39 00 03 00 9...
# 0> 9B 00/02 00 00 00/65 37 63 64 37 30 31 65 65 65 ......e7cd701eee
# 16> 65 00/03 00 e...
my $self = shift;
my $index = shift;
my $amount = shift;
my $msg;
$msg = pack("C*", 0x9B, 0x00) . pack("V*", $amount) . pack("x12") . pack("v", $index) ;
$self->sendToServer($msg);
debug "Sent Storage Get: $index x $amount\n", "sendPacket", 2;
}
Код: Выделить всё
sub sendStorageAdd {
my $self = shift;
my $index = shift;
my $amount = shift;
my $msg;
###
# 0> A2 00/03 00 10 00 00 00/38 39 35 36 34 30 31 00 ........8956401.
# 0> A2 00/03i00/0Fk00 00 00/61 34 36 33 37 30 31 00 ........a463701.
$msg = pack("C*", 0xA2, 0x00) . pack("v", $index) . pack("V", $amount) . pack("x8") ;
$self->sendToServer($msg);
debug "Sent Storage Add: $index x $amount\n", "sendPacket", 2;
}
Код: Выделить всё
sub sendStorageClose {
###
my ($self) = @_;
my $msg;
$msg = pack("C*", 0x13, 0x01);
$self->sendToServer($msg);
debug "Sent Storage Done\n", "sendPacket", 2;
}
Код: Выделить всё
sub sendGetCharacterName {
my ($self, $ID) = @_;
my $msg;
$msg = pack("C*", 0x89, 0x00) . $ID . pack("x6") ;
#### 89 00/25 04 12 00/30 35 62 32 35 00
$self->sendToServer($msg);
debug "Sent get character name: ID - ".getHex($ID)."\n", "sendPacket", 2;
}