Added converter script from const.txt to constants.conf

Signed-off-by: Haru <haru@dotalux.com>

1 files changed, 114 insertions, 0 deletions

diff --git a/tools/constdbconverter.pl b/tools/constdbconverter.pl
new file mode 100755
index 000000000..31e84abef
--- /dev/null
+++ b/tools/constdbconverter.pl
@@ -0,0 +1,114 @@
+#!/usr/bin/perl
+#
+# This file is part of Hercules.
+# http://herc.ws - http://github.com/HerculesWS/Hercules
+#
+# Copyright (C) 2016  Hercules Dev Team
+#
+# Hercules is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+# This Script converts const.txt to constants.conf format.
+# usage example: perl tools/constdbconverter.pl < db/const.txt > db/constants.conf
+
+use strict;
+use warnings;
+
+sub parse_questdb (@) {
+	my @input = @_;
+	foreach (@input) {
+		chomp $_;
+#		Constant Name,Value,{is parameter}
+#		Constant Name\tValue\t{is parameter}
+		if( $_ =~ qr/^
+			(?<prefix>(?:\/\/[^A-Za-z0-9'_]*)?)
+			(?<ConstantName>[A-Za-z0-9'_]+)
+			(?:,|[\s\t]+)(?<Value>(?:0x[a-fA-F0-9]+|-?[0-9]+))
+			(?:(?:,|[\s\t]+)(?<IsParameter>([01])))?
+		/x ) {
+			my %cols = map { $_ => $+{$_} } keys %+;
+			$cols{prefix} = '// ' if !$cols{prefix} and $cols{ConstantName} =~ /^\s*(true|false)\s*$/;
+			if ($cols{IsParameter} and $cols{IsParameter} eq 1) {
+				print "/*\n" if $cols{prefix};
+				print "\t$cols{prefix}\n" if $cols{prefix} and $cols{prefix} !~ m|^//[\s\t]*$|;
+				print "\t$cols{ConstantName}: {\n";
+				print "\t\tValue: $cols{Value}\n";
+				print "\t\tParameter: true\n";
+				print "\t}\n";
+				print "*/\n" if $cols{prefix};
+				next;
+			}
+			print "\t$cols{prefix}" if $cols{prefix};
+			print "\t$cols{ConstantName}: $cols{Value}\n";
+		} elsif( $_ =~ /^\/\/(.*)$/ ) {
+			my $s = $1;
+			print "\t// $s\n" unless $s =~ /^[\s\t]*$/;
+		} elsif( $_ !~ /^\s*$/ ) {
+			print "// Error parsing: $_\n";
+		}
+	}
+}
+my $year = (localtime)[5] + 1900;
+print <<'EOF';
+//================= Hercules Database =====================================
+//=       _   _                     _
+//=      | | | |                   | |
+//=      | |_| | ___ _ __ ___ _   _| | ___  ___
+//=      |  _  |/ _ \ '__/ __| | | | |/ _ \/ __|
+//=      | | | |  __/ | | (__| |_| | |  __/\__ \
+//=      \_| |_/\___|_|  \___|\__,_|_|\___||___/
+//================= License ===============================================
+EOF
+print << "EOF";
+//= This file is part of Hercules.
+//= http://herc.ws - http://github.com/HerculesWS/Hercules
+//=
+//= Copyright (C) 2016-$year  Hercules Dev Team
+//=
+//= Hercules is free software: you can redistribute it and/or modify
+//= it under the terms of the GNU General Public License as published by
+//= the Free Software Foundation, either version 3 of the License, or
+//= (at your option) any later version.
+//=
+//= This program is distributed in the hope that it will be useful,
+//= but WITHOUT ANY WARRANTY; without even the implied warranty of
+//= MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+//= GNU General Public License for more details.
+//=
+//= You should have received a copy of the GNU General Public License
+//= along with this program.  If not, see <http://www.gnu.org/licenses/>.
+//=========================================================================
+//= Script Constants Database
+//=========================================================================
+
+constants_db: {
+/************* Entry structure (short) ************************************
+	Identifier: value            // (int)
+ ************* Entry structure (full) *************************************
+	Identifier: {
+		Value: value         // (int)
+		Parameter: true      // (boolean)      Defaults to false.
+		Deprecated: true     // (boolean)      Defaults to false.
+	}
+**************************************************************************/
+// NOTE:
+//   Parameters are special in that they retrieve certain runtime values
+//   depending on the specified ID in field Value. Depending on the
+//   implementation values assigned by scripts to parameters will affect
+//   runtime values, such as Zeny, as well (see pc_readparam/pc_setparam).
+
+EOF
+
+parse_questdb(<>);
+
+print "}\n";