Send-Sakexe_2008_01_02a modified

#########################################################################
#  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.
#
#  $Revision: 6687 $
#  $Id: kRO.pm 6687 2009-04-19 19:04:25Z technologyguild $
########################################################################
# Korea (kRO)
# The majority of private servers use eAthena, this is a clone of kRO

package Network::Send::kRO::Sakexe_2008_01_02a;

use strict;
use base qw(Network::Send::kRO::Sakexe_2007_11_27a);

use Log qw(message warning error debug);

sub new {
    my ($class) = @_;
#   return $class->SUPER::new(@_);
    my $self = $class->SUPER::new(@_);
    my %packets = (
#add from Sakexe_2006_03_27a.pm
        '0072' => ['skill_use', 'v x4 V v x9 a4', [qw(lv skillID targetID)]],#25
    );

    $self->{packet_list}{$_} = $packets{$_} for keys %packets;

    $self;
}

# 0x01df,6,gmreqaccname,2
sub sendGMReqAccName {
    my ($self, $targetID) = @_;
    my $msg = pack('v V', 0x01DF, $targetID);
    $self->sendToServer($msg);
    debug "Sent GM Request Account Name.\n", "sendPacket", 2;
}

=pod
//custom 0072, 009f, 00bb, 0112, 0193
0x0072,25,useskilltoid,6:10:21
0x009f,14,useitem,4:10
0x00bb,5,statusup,2:4
0x0112,4,skillup,2
0x0193,2,closekafra,0
//2008-01-02aSakexe
0x01df,6,gmreqaccname,2
0x02e8,-1
0x02e9,-1
0x02ea,-1
0x02eb,13
0x02ec,67
0x02ed,59
0x02ee,60
0x02ef,8
=cut

1;