RO-fan

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

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;
}