diff options
| -rw-r--r-- | tools/itemdb_jobmask_converter.pl | 100 |
1 files changed, 100 insertions, 0 deletions
diff --git a/tools/itemdb_jobmask_converter.pl b/tools/itemdb_jobmask_converter.pl new file mode 100644 index 000000000..11a5e7a5f --- /dev/null +++ b/tools/itemdb_jobmask_converter.pl @@ -0,0 +1,100 @@ +#!/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/>. + +# Base Author: Dastgir @ http://herc.ws + +# This script converts item_db.conf Jobmask field into groups format +# usage example: perl tools/itemdb_jobmask_converter.pl < db/item_db2.conf > db/item_db_out.conf + +use strict; +use warnings; + +sub parsedb (@) { + my @input = @_; + my @jobNames = ( + "Novice", + "Swordsman", + "Magician", + "Archer", + "Acolyte", + "Merchant", + "Thief", + "Knight", + "Priest", + "Wizard", + "Blacksmith", + "Hunter", + "Assassin", + "Unused", + "Crusader", + "Monk", + "Sage", + "Rogue", + "Alchemist", + "Bard", + "Unused", + "Taekwon", + "Star_Gladiator", + "Soul_Linker", + "Gunslinger", + "Ninja", + "Gangsi", + "Death_Knight", + "Dark_Collector", + "Kagerou", + "Rebellion" + ); + my $jobSize = $#jobNames + 1; + + foreach (@input) { + chomp $_; + if ($_ =~ /^\s*Job\s*:\s*(?<Job>(?:0x)?[0-9A-Fa-f]+)/x) { + my %cols = map { $_ => $+{$_} } keys %+; + my $jobMask = hex($cols{Job}); + my $allJobs = 0xFFFFFFFF; + my $allJobsExceptNovice = 0xFFFFFFFE; + if ($jobMask < 0 || $jobMask eq "") { + print "$_\n"; + next; + } + print "\tJob: {\n"; + if (($jobMask&$allJobs) == $allJobs) { + print "\t\tAll: true\n"; + } elsif (($jobMask&$allJobsExceptNovice) == $allJobsExceptNovice) { + print "\t\tAll: true\n"; + print "\t\tNovice: false\n"; + } elsif ($jobMask == 0) { + print "\t\tAll: false\n"; + } else { + for (my $i = 0; $i < $jobSize; $i++) { + my $currBit = 1<<$i; + if (($jobMask & $currBit) == $currBit) { + print "\t\t$jobNames[$i]: true\n" unless $jobNames[$i] eq "Unused"; + } + } + } + print "\t}\n"; + } else { + print "$_\n"; + } + } +} + +parsedb(<>); |