You try.
Code: Select all
#########################################################################
# OpenKore - Packet sending
# This module contains functions for sending packets to the server.
#
# This software is open source, licensed under the GNU General Public
# License, version 2.
# Basically, this means that you're allowed to modify and distribute
# this software. However, if you distribute modified versions, you MUST
# also distribute the source code.
# See http://www.gnu.org/licenses/gpl.html for the full license.
########################################################################
package Network::Send::kRO::RagexeRE_2015_11_04a;
use strict;
use base 'Network::Send::kRO::RagexeRE_2017_05_17';
sub new {
my ($class) = @_;
my $self = $class->SUPER::new(@_);
my %packets = (
'0437' => ['actor_action', 'a4 C', [qw(targetID type)]],
'0894' => ['actor_info_request', 'a4', [qw(ID)]],
'088D' => ['actor_look_at', 'v C', [qw(head body)]],
'087B' => ['actor_name_request', 'a4', [qw(ID)]],
'091B' => ['buy_bulk_buyer', 'a4 a4 a*', [qw(buyerID buyingStoreID itemInfo)]], #Buying store
'089F' => ['buy_bulk_closeShop'],
'0367' => ['buy_bulk_openShop', 'a4 c a*', [qw(limitZeny result itemInfo)]], #Selling store
'0946' => ['buy_bulk_request', 'a4', [qw(ID)]], #6
'08A8' => ['character_move','a3', [qw(coords)]],
'0960' => ['friend_request', 'a*', [qw(username)]],# len 26
'0958' => ['homunculus_command', 'v C', [qw(commandType, commandID)]],
'093B' => ['item_drop', 'v2', [qw(index amount)]],
'0945' => ['item_list_res', 'v V2 a*', [qw(len type action itemInfo)]],
'0964' => ['item_take', 'a4', [qw(ID)]],
'0923' => ['map_login', 'a4 a4 a4 V C', [qw(accountID charID sessionID tick sex)]],
'0899' => ['party_join_request_by_name', 'Z24', [qw(partyName)]],
'0815' => ['skill_use', 'v2 a4', [qw(lv skillID targetID)]],
'0868' => ['skill_use_location', 'v4', [qw(lv skillID x y)]],
'08AA' => ['storage_item_add', 'v V', [qw(index amount)]],
'088C ' => ['storage_item_remove', 'v V', [qw(index amount)]],
'0947' => ['storage_password'],
'08A2' => ['sync', 'V', [qw(time)]],
);
$self->{packet_list}{$_} = $packets{$_} for keys %packets;
my %handlers = qw(
actor_action 0437
actor_info_request 0894
actor_look_at 088D
actor_name_request 087B
buy_bulk_buyer 091B
buy_bulk_closeShop 089F
buy_bulk_openShop 0367
buy_bulk_request 0946
character_move 08A8
friend_request 0960
homunculus_command 0958
item_drop 093B
item_take 0964
map_login 0923
party_join_request_by_name 0899
skill_use 0815
skill_use_location 0868
storage_item_add 08AA
storage_item_remove 088C
storage_password 0947
sync 08A2
);
while (my ($k, $v) = each %packets) { $handlers{$v->[0]} = $k}
$self->{packet_lut}{$_} = $handlers{$_} for keys %handlers;
# $self->cryptKeys(, , );
return $self;
}
1;