diff options
| -rwxr-xr-x | tools/questdbconverter.pl | 86 |
1 files changed, 86 insertions, 0 deletions
diff --git a/tools/questdbconverter.pl b/tools/questdbconverter.pl new file mode 100755 index 000000000..9c59d434d --- /dev/null +++ b/tools/questdbconverter.pl @@ -0,0 +1,86 @@ +#!/usr/bin/perl +# +# Copyright (c) Hercules Dev Team, licensed under GNU GPL. +# See the LICENSE file +# Base Author: Dastgir @ http://hercules.ws +# +# This Script converts quest_db.txt to quest_db.conf format. +# usage example: perl tools/questdbconverter.pl < db/quest_db.txt > db/quest_db.conf +# +use strict; +use warnings; + +sub parse_questdb (@) { + my @input = @_; + foreach (@input) { + chomp $_; +# Quest ID,Time Limit,Target1,Val1,Target2,Val2,Target3,Val3,Quest Title + if( $_ =~ qr/^ + (?<prefix>(?:\/\/[^0-9]*)?) + (?<QuestID>[0-9]+)[^,]*,[\s\t]* + (?<TimeLimit>[0-9]+)[^,]*,[\s\t]* + (?<Target1>[0-9]+)[^,]*,[\s\t]* + (?<Val1>[0-9]+)[^,]*,[\s\t]* + (?<Target2>[0-9]+)[^,]*,[\s\t]* + (?<Val2>[0-9]+)[^,]*,[\s\t]* + (?<Target3>[0-9]+)[^,]*,[\s\t]* + (?<Val3>[0-9]+)[^,]*,[\s\t]* + "(?<QuestTitle>[^"]*)" + /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{QuestID}\n"; + print "\tName: \"$cols{QuestTitle}\"\n"; + print "\tTimeLimit: $cols{TimeLimit}\n" if $cols{TimeLimit}; + print "\tTargets: (\n" if $cols{Target1} || $cols{Target2} || $cols{Target3}; + print "\t{\n" if $cols{Target1}; + print "\t\tMobId: $cols{Target1}\n" if $cols{Target1}; + print "\t\tCount: $cols{Val1}\n" if $cols{Target1}; + print "\t},\n" if $cols{Target1}; + print "\t{\n" if $cols{Target2}; + print "\t\tMobId: $cols{Target2}\n" if $cols{Target2}; + print "\t\tCount: $cols{Val2}\n" if $cols{Target2}; + print "\t},\n" if $cols{Target2}; + print "\t{\n" if $cols{Target3}; + print "\t\tMobId: $cols{Target3}\n" if $cols{Target3}; + print "\t\tCount: $cols{Val3}\n" if $cols{Target3}; + print "\t},\n" if $cols{Target3}; + print "\t)\n" if $cols{Target1} || $cols{Target2} || $cols{Target3}; + 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"; +quest_db: ( +// Quest Database +/****************************************************************************** + ************* Entry structure ************************************************ + ****************************************************************************** +{ + Id: Quest ID [int] + Name: Quest Name [string] + TimeLimit: Time Limit (seconds) [int, optional] + Targets: ( [array, optional] + { + MobId: Mob ID [int] + Count: [int] + }, + ... (can repeated up to MAX_QUEST_OBJECTIVES times) + ) +}, +******************************************************************************/ + +EOF + +parse_questdb(<>); + +print ")\n"; |