added new serverType

src/Network/Receive/kRO/RagexeRE_2020_04_01b.pm

@@ -0,0 +1,30 @@
+#########################################################################
+#  OpenKore - Packet Receiveing
+#  This module contains functions for Receiveing 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.
+########################################################################
+# Korea (kRO) # by ya4ept
+# The majority of private servers use eAthena, this is a clone of kRO
+package Network::Receive::kRO::RagexeRE_2020_04_01b;
+use strict;
+use base qw(Network::Receive::kRO::RagexeRE_2020_03_04a);
+
+sub new {
+	my ($class) = @_;
+	my $self = $class->SUPER::new(@_);
+
+	$self->{vender_items_list_item_pack} = 'V v2 C V C3 a16 a25 V v';
+	$self->{npc_store_info_pack} = "V V C V";
+	$self->{buying_store_items_list_pack} = "V v C V";
+	$self->{makable_item_list_pack} = "V4";
+
+	return $self;
+}
+
+1;

src/Network/Send/kRO/RagexeRE_2020_04_01b.pm

@@ -0,0 +1,47 @@
+#########################################################################
+#  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.
+########################################################################
+#  by ya4ept
+package Network::Send::kRO::RagexeRE_2020_04_01b;
+
+use strict;
+use base qw(Network::Send::kRO::RagexeRE_2020_03_04a);
+
+sub new {
+	my ($class) = @_;
+	my $self = $class->SUPER::new(@_);
+
+	my %packets = (
+		'0064' => ['master_login', 'V Z24 Z24 C', [qw(version username password master_version)]],
+	);
+
+	$self->{packet_list}{$_} = $packets{$_} for keys %packets;
+
+	my %handlers = qw(
+		master_login 0064
+	);
+
+	$self->{packet_lut}{$_} = $handlers{$_} for keys %handlers;
+
+	$self->{send_buy_bulk_pack} = "v V";
+	$self->{send_sell_buy_complete} = 1;
+
+	#buyer shop
+	$self->{buy_bulk_openShop_size} = "(a10)*";
+	$self->{buy_bulk_openShop_size_unpack} = "V v V";
+
+	$self->{buy_bulk_buyer_size} = "(a8)*";
+	$self->{buy_bulk_buyer_size_unpack} = "a2 V v";
+
+	return $self;
+}
+
+1;