#!/usr/bin/perl
#
# This file is part of Hercules.
# http://herc.ws - http://github.com/HerculesWS/Hercules
#
# Copyright (C) 2013-2020 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/>.
# Base Author: Haru @ http://herc.ws
# This script converts an item_db(2).txt to the new item_db(2).conf format.
# usage example: perl tools/itemdbconverter.pl < db/item_db2.txt > db/item_db2.conf
use strict;
use warnings;
sub prettifyscript ($) {
my ($orig) = @_;
$orig =~ s/^[\s\t]*//; $orig =~ s/[\s\t]*$//;
return '' unless $orig =~ /[^\s\t]/;
my ($p, $script) = ($orig, '');
my ($curly, $lines, $comment) = (2, 0, 0);
my ($linebreak, $needindent) = (0, 0);
while ($p =~ /[^\s\t]/) {
$linebreak = 0;
if ($comment && $p =~ s|^\s*\*/\s*||) {
$comment = 0;
next;
} elsif ($p =~ s/^\s*({)\s*//) {
$curly++ unless $comment;
$comment++ if $comment;
$script .= " ";
$linebreak = 1;
$lines++;
} elsif ($p =~ s/^\s*(})\s*//) {
$curly-- unless $comment;
$comment-- if $comment - 1 > 0;
$linebreak = 1;
$lines++;
} elsif ($p =~ s/^\s*(;)\s*//) {
if ($p && (!$comment || $p !~ m|^[\s\t]*(?:\*/)[\s\t]*$|)) {
$linebreak = 1;
$lines++
}
} elsif ($p =~ s/^("[^"]*")//) {
} elsif ($p =~ s|^\s*/\*\s*||) {
$comment = 1;
next;
} elsif ($p !~ s/^(.)//) {
last;
}
$script .= "\t" x $curly if $needindent;
$script .= "//" . ("\t" x ($comment-1)) if ($comment && ($needindent || $script eq ''));
$script .= "$1";
if ($linebreak) {
$script .= "\n";
$needindent = 1;
} else {
$needindent = 0;
}
}
if ($curly != 2) {
printf STDERR "Parse error, curly braces count ". ($curly-2) .". returning unmodified script:\n$orig\n\n";
return $orig;
}
if ($lines) {
$script = "\n\t\t$script\n\t";
} else {
$script = " $script ";
}
return $script;
}
sub parsedb (@) {
my @input = @_;
foreach (@input) {
chomp $_;
# ID,AegisName,Name,Type,Buy,Sell,Weight,ATK,DEF,Range,Slots,Job,Upper,Gender,Loc,wLV,eLV,Refineable,View,{ Script },{ OnEquip_Script },{ OnUnequip_Script }
if( $_ =~ qr/^
(?<prefix>(?:\/\/[^0-9]*)?)
(?<ID>[0-9]+)[^,]*,
(?<AegisName>[^,]+),
(?<Name>[^,]+),[\s\t]*
(?<Type>[0-9]+)[^,]*,[\s\t]*
(?<Buy>[0-9]*)[^,]*,[\s\t]*
(?<Sell>[0-9]*)[^,]*,[\s\t]*
(?<Weight>[0-9]*)[^,]*,[\s\t]*
(?<ATK>[0-9-]*)[^,:]*(?<hasmatk>:[\s\t]*(?<MATK>[0-9-]*))?[^,]*,[\s\t]*
(?<DEF>[0-9-]*)[^,]*,[\s\t]*
(?<Range>[0-9]*)[^,]*,[\s\t]*
(?<Slots>[0-9]*)[^,]*,[\s\t]*
(?<Job>[x0-9A-Fa-f]*)[^,]*,[\s\t]*
(?<Upper>[0-9]*)[^,]*,[\s\t]*
(?<Gender>[0-9]*)[^,]*,[\s\t]*
(?<Loc>[0-9]*)[^,]*,[\s\t]*
(?<wLV>[0-9]*)[^,]*,[\s\t]*
(?<eLV>[0-9]*)[^,:]*(?<hasmaxlv>:[\s\t]*(?<eLVmax>[0-9]*))?[^,]*,[\s\t]*
(?<Refineable>[0-9]*)[^,]*,[\s\t]*
(?<View>[0-9]*)[^,]*,[\s\t]*
\{(?<Script>.*)},
\{(?<OnEquip>.*)},
\{(?<OnUnequip>.*)}
/x ) {
my %cols = map { $_ => $+{$_} } keys %+;
print "/*\n" if $cols{prefix};
print "$cols{prefix}\n" if $cols{prefix} and $cols{prefix} !~ m|^//[\s\t]*$|;
print "{\n";
print "\tId: $cols{ID}\n";
print "\tAegisName: \"$cols{AegisName}\"\n";
print "\tName: \"$cols{Name}\"\n";
print "\tType: $cols{Type}\n";
print "\tBuy: $cols{Buy}\n" if $cols{Buy} || $cols{Buy} eq '0';
print "\tSell: $cols{Sell}\n" if $cols{Sell} || $cols{Sell} eq '0';
print "\tWeight: $cols{Weight}\n" if $cols{Weight};
print "\tAtk: $cols{ATK}\n" if $cols{ATK};
print "\tMatk: $cols{MATK}\n" if $cols{MATK};
print "\tDef: $cols{DEF}\n" if $cols{DEF};
print "\tRange: $cols{Range}\n" if $cols{Range};
print "\tSlots: $cols{Slots}\n" if $cols{Slots};
$cols{Job} = '0xFFFFFFFF' unless $cols{Job};
print "\tJob: $cols{Job}\n" unless $cols{Job} =~ /0xFFFFFFFF/i;
print "\tUpper: $cols{Upper}\n" if $cols{Upper} && (($cols{hasmatk} && $cols{Upper} != 0x3f) || (!$cols{hasmatk} && $cols{Upper} != 7));
$cols{Gender} = '2' unless $cols{Gender};
print "\tGender: $cols{Gender}\n" unless $cols{Gender} eq '2';
print "\tLoc: $cols{Loc}\n" if $cols{Loc};
print "\tWeaponLv: $cols{wLV}\n" if $cols{wLV};
if ($cols{hasmaxlv} and $cols{eLVmax}) {
$cols{eLV} = 0 unless $cols{eLV};
print "\tEquipLv: [$cols{eLV}, $cols{eLVmax}]\n";
} else {
print "\tEquipLv: $cols{eLV}\n" if $cols{eLV};
}
print "\tRefine: false\n" if !$cols{Refineable} and ($cols{Type} == 4 or $cols{Type} == 5);
print "\tView: $cols{View}\n" if $cols{View};
$cols{Script} = prettifyscript($cols{Script});
print "\tScript: <\"$cols{Script}\">\n" if $cols{Script};
$cols{OnEquip} = prettifyscript($cols{OnEquip});
print "\tOnEquipScript: <\"$cols{OnEquip}\">\n" if $cols{OnEquip};
$cols{OnUnequip} = prettifyscript($cols{OnUnequip});
print "\tOnUnequipScript: <\"$cols{OnUnequip}\">\n" if $cols{OnUnequip};
print "},\n";
print "*/\n" if $cols{prefix};
} elsif( $_ =~ /^\/\/(.*)$/ ) {
my $s = $1;
print "// $s\n" unless $s =~ /^[\s\t]*$/;
} elsif( $_ !~ /^\s*$/ ) {
print "// Error parsing: $_\n";
}
}
}
print <<"EOF";
item_db: (
/******************************************************************************
************* Entry structure ************************************************
******************************************************************************
{
// =================== Mandatory fields ===============================
Id: ID (int)
AegisName: "Aegis_Name" (string, optional if Inherit: true)
Name: "Item Name" (string, optional if Inherit: true)
// =================== Optional fields ================================
Type: Item Type (int, defaults to 3 = etc item)
Buy: Buy Price (int, defaults to Sell * 2)
Sell: Sell Price (int, defaults to Buy / 2)
Weight: Item Weight (int, defaults to 0)
Atk: Attack (int, defaults to 0)
Matk: Magical Attack (int, defaults to 0, ignored in pre-re)
Def: Defense (int, defaults to 0)
Range: Attack Range (int, defaults to 0)
Slots: Slots (int, defaults to 0)
Job: Job mask (int, defaults to all jobs = 0xFFFFFFFF)
Upper: Upper mask (int, defaults to any = 0x3f)
Gender: Gender (int, defaults to both = 2)
Loc: Equip location (int, required value for equipment)
WeaponLv: Weapon Level (int, defaults to 0)
EquipLv: Equip required level (int, defaults to 0)
EquipLv: [min, max] (alternative syntax with min / max level)
Refine: Refineable (boolean, defaults to true)
View: View ID (int, defaults to 0)
BindOnEquip: true/false (boolean, defaults to false)
Script: <"
Script
(it can be multi-line)
">
OnEquipScript: <" OnEquip Script (can also be multi-line) ">
OnUnequipScript: <" OnUnequip Script (can also be multi-line) ">
// =================== Optional fields (item_db2 only) ================
Inherit: true/false (boolean, if true, inherit the values
that weren't specified, from item_db.conf,
else override it and use default values)
},
******************************************************************************/
EOF
parsedb(<>);
print ")\n";
