Further file organization
Further file organization
This commit is contained in:
Jaysyn904
259
nwn/nwnprc/trunk/tools/look2daint.pl
Normal file
259
nwn/nwnprc/trunk/tools/look2daint.pl
Normal file
@@ -0,0 +1,259 @@
|
||||
# Perl script for generating the Spell Router scripts.
|
||||
# by OldManWhistler
|
||||
|
||||
# spells.2da should exist in the same directory as this script.
|
||||
# The new dem_router.2da and spells.2da files will be created
|
||||
# in a sub-directory called tmp.
|
||||
|
||||
# This script makes it very fast to create a new hakpak for a
|
||||
# modified spells.2DA file.
|
||||
# If you are trying to run perl on a Windows machine,
|
||||
# then install http://www.activestate.com/Products/ActivePerl/
|
||||
|
||||
use strict;
|
||||
use FileHandle;
|
||||
|
||||
# Name and location of the files we are working with.
|
||||
my $input_file = "../2das/spells.2da";
|
||||
#my $router_file = "dem_router.2da";
|
||||
my $lookup_file = "../scripts/look2daint.nss";
|
||||
|
||||
my $debug = 0;
|
||||
|
||||
my %feats = ();
|
||||
|
||||
main();
|
||||
|
||||
sub main() {
|
||||
if ( !-f $input_file ) {
|
||||
print "Could not find $input_file.\n";
|
||||
<STDIN>;
|
||||
exit(0);
|
||||
}
|
||||
#if (! -d "tmp") { system("mkdir tmp"); }
|
||||
#my $rfh = new FileHandle(">$router_file")
|
||||
# || die "Error: could not open $router_file for writing\n";
|
||||
my $lfh = new FileHandle(">$lookup_file")
|
||||
|| die "Error: could not open $lookup_file for writing\n";
|
||||
|
||||
# First pass, identify feats
|
||||
my $ifh = new FileHandle("$input_file")
|
||||
|| die "Error: could not open $input_file for reading\n";
|
||||
while (<$ifh>) {
|
||||
chomp;
|
||||
my @data = split( /\s+/, $_ );
|
||||
my $num = $data[0];
|
||||
my $altmsg = $data[50];
|
||||
my $featid = $data[52];
|
||||
|
||||
if ( ( $altmsg !~ m/\*\*\*\*/ ) || ( $featid !~ m/\*\*\*\*/ ) ) {
|
||||
if ($debug) { print "$data[1] is a feat.\n"; }
|
||||
$feats{$num} = 1;
|
||||
}
|
||||
else {
|
||||
$feats{$num} = 0;
|
||||
}
|
||||
}
|
||||
close($ifh);
|
||||
|
||||
# Second pass, read in the original file and set up innate overrides for sub-radial spells.
|
||||
# ie: spell X has subradial spells Y and Z. The innate columns for Y/Z are not defined
|
||||
# but the innate columns for X are defined. So make Y/Z copy the innate column for X.
|
||||
my %innate_bard = ();
|
||||
my %innate_cleric = ();
|
||||
my %innate_druid = ();
|
||||
my %innate_paladin = ();
|
||||
my %innate_ranger = ();
|
||||
my %innate_wizsorc = ();
|
||||
my %innate_innate = ();
|
||||
$ifh = new FileHandle("$input_file")
|
||||
|| die "Error: could not open $input_file for reading\n";
|
||||
|
||||
while (<$ifh>) {
|
||||
chomp;
|
||||
my @data = split( /\s+/, $_ );
|
||||
my $num = $data[0];
|
||||
|
||||
# Skip over empty lines.
|
||||
if ( ( $num =~ m/2DA/ ) || ( $num eq "" ) ) {
|
||||
next;
|
||||
}
|
||||
|
||||
my $bard = $data[10];
|
||||
my $cleric = $data[11];
|
||||
my $druid = $data[12];
|
||||
my $paladin = $data[13];
|
||||
my $ranger = $data[14];
|
||||
my $wizsorc = $data[15];
|
||||
my $innate = $data[16];
|
||||
my $subrad1 = $data[39];
|
||||
my $subrad2 = $data[40];
|
||||
my $subrad3 = $data[41];
|
||||
my $subrad4 = $data[42];
|
||||
my $subrad5 = $data[43];
|
||||
|
||||
|
||||
foreach ( $num, $subrad1, $subrad2, $subrad3, $subrad4, $subrad5 ) {
|
||||
if ( $_ =~ m/\*\*\*\*/ ) {
|
||||
next;
|
||||
}
|
||||
if ($debug) {
|
||||
print "$data[1]: Setting up innate data for spell # $_\n";
|
||||
}
|
||||
&updateInnate( $_, \%innate_bard, $bard, $num );
|
||||
&updateInnate( $_, \%innate_cleric, $cleric, $num );
|
||||
&updateInnate( $_, \%innate_druid, $druid, $num );
|
||||
&updateInnate( $_, \%innate_paladin, $paladin, $num );
|
||||
&updateInnate( $_, \%innate_ranger, $ranger, $num );
|
||||
&updateInnate( $_, \%innate_wizsorc, $wizsorc, $num );
|
||||
&updateInnate( $_, \%innate_innate, $innate, $num );
|
||||
if ($debug) {
|
||||
print "\t$bard\t$cleric\t$druid\t$paladin\t$ranger\t$wizsorc\t$innate\n";
|
||||
print "\t$innate_bard{$_}\t$innate_cleric{$_}\t$innate_druid{$_}\t$innate_paladin{$_}\t$innate_ranger{$_}\t$innate_wizsorc{$_}\t$innate_innate{$_}\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
close($ifh);
|
||||
|
||||
# Third pass, read in the original file and write out the routed files.
|
||||
$ifh = new FileHandle("$input_file")
|
||||
|| die "Error: could not open $input_file for reading\n";
|
||||
|
||||
printf $lfh "void main()\n{\n";
|
||||
while (<$ifh>) {
|
||||
chomp;
|
||||
my @data = split( /\s+/, $_ );
|
||||
my $num = $data[0];
|
||||
my $label = $data[1];
|
||||
my $script = $data[9];
|
||||
|
||||
if ( $label =~ m/Label/ ) {
|
||||
|
||||
# This is the label line.
|
||||
# print $rfh " Label SpellScript\n";
|
||||
# print $lfh "$_\n";
|
||||
next;
|
||||
}
|
||||
|
||||
if ( ( $num =~ m/2DA/ ) || ( $num eq "" ) ) {
|
||||
|
||||
# This is a header line.
|
||||
# print $rfh "$_\n";
|
||||
# print $lfh "$_\n";
|
||||
next;
|
||||
}
|
||||
|
||||
my $routed_script = "Spell_Hak";
|
||||
if ( $feats{$num} ) {
|
||||
$routed_script = $script;
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
# SetLocalString(module, "PRC_PACK_SPELL_TYPE_" + IntToString(spell_id), element);
|
||||
#SetLocalString(module, "PRC_PACK_SPELL_TYPE_0",element);
|
||||
|
||||
#if (($label ne "****"))
|
||||
#{
|
||||
|
||||
if (($data[10] ne "****") || ($data[11] ne "****") || ($data[12] ne "****") || ($data[13] ne "****") || ($data[14] ne "****") || ($data[15] ne "****"))
|
||||
{
|
||||
|
||||
if ($data[2] ne "****"){
|
||||
printf $lfh " SetLocalString(GetModule(), \"PRC_PACK_SPELL_NAME_%s\", \"%s\");\n",$num,$data[2];
|
||||
}
|
||||
if ($data[2] eq "****"){
|
||||
printf $lfh " SetLocalString(GetModule(), \"PRC_PACK_SPELL_NAME_%s\", \"\");\n",$num,$data[2];
|
||||
}
|
||||
|
||||
if ($data[37] ne "****"){
|
||||
printf $lfh " SetLocalString(GetModule(), \"PRC_PACK_SPELL_TYPE_%s\", \"%s\");\n",$num,$data[37];
|
||||
}
|
||||
if ($data[37] eq "****"){
|
||||
printf $lfh " SetLocalString(GetModule(), \"PRC_PACK_SPELL_TYPE_%s\", \"\");\n",$num,$data[37];
|
||||
}
|
||||
|
||||
if ($data[16] ne "****"){
|
||||
printf $lfh " SetLocalString(GetModule(), \"PRC_PACK_SPELL_INNATE_LEVEL_%s\", \"%s\");\n",$num,$data[16];
|
||||
}
|
||||
if ($data[16] eq "****"){
|
||||
printf $lfh " SetLocalString(GetModule(), \"PRC_PACK_SPELL_INNATE_LEVEL_%s\", \"\");\n",$num,$data[16];
|
||||
}
|
||||
|
||||
if ($innate_wizsorc{$num} ne "****"){
|
||||
printf $lfh " SetLocalString(GetModule(), \"PRC_PACK_SPELL_LEVEL_%s\", \"%s\");\n",$num,$innate_wizsorc{$num};
|
||||
}
|
||||
if ($innate_wizsorc{$num} eq "****"){
|
||||
printf $lfh " SetLocalString(GetModule(), \"PRC_PACK_SPELL_LEVEL_%s\", \"\");\n",$num,$innate_wizsorc{$num};
|
||||
}
|
||||
|
||||
if ($innate_cleric{$num} ne "****"){
|
||||
printf $lfh " SetLocalString(GetModule(), \"PRC_PACK_SPELL_CLERIC_LEVEL_%s\", \"%s\");\n",$num,$innate_cleric{$num};
|
||||
}
|
||||
if ($innate_cleric{$num} eq "****"){
|
||||
printf $lfh " SetLocalString(GetModule(), \"PRC_PACK_SPELL_CLERIC_LEVEL_%s\", \"\");\n",$num,$innate_cleric{$num};
|
||||
}
|
||||
|
||||
if ($data[6] ne "****"){
|
||||
printf $lfh " SetLocalString(GetModule(), \"PRC_PACK_SPELL_VS_%s\", \"%s\");\n",$num,$data[6];
|
||||
}
|
||||
if ($data[6] eq "****"){
|
||||
printf $lfh " SetLocalString(GetModule(), \"PRC_PACK_SPELL_VS_%s\", \"\");\n",$num,$data[6];
|
||||
}
|
||||
|
||||
if ($data[4] ne "****"){
|
||||
printf $lfh " SetLocalString(GetModule(), \"PRC_PACK_SPELL_SCHOOL_%s\", \"%s\");\n",$num,$data[4];
|
||||
}
|
||||
if ($data[4] eq "****"){
|
||||
printf $lfh " SetLocalString(GetModule(), \"PRC_PACK_SPELL_SCHOOL_%s\", \"\");\n",$num,$data[4];
|
||||
}
|
||||
|
||||
if ($data[51] ne "****"){
|
||||
printf $lfh " SetLocalString(GetModule(), \"PRC_PACK_SPELL_HOSTILESETTING_%s\", \"%s\");\n",$num,$data[51];
|
||||
}
|
||||
if ($data[51] eq "****"){
|
||||
printf $lfh " SetLocalString(GetModule(), \"PRC_PACK_SPELL_HOSTILESETTING_%s\", \"\");\n",$num,$data[51];
|
||||
}
|
||||
|
||||
print $lfh "\n";
|
||||
}
|
||||
#}
|
||||
}
|
||||
printf $lfh "}";
|
||||
|
||||
close($ifh);
|
||||
#close($rfh);
|
||||
close($lfh);
|
||||
}
|
||||
|
||||
# This updates a reference for an innate value based on the result.
|
||||
|
||||
sub updateInnate {
|
||||
my ( $i, $ref, $innate_val, $parent_spell ) = @_;
|
||||
|
||||
# If the current spell is a feat then do not update its
|
||||
# subradial spells.
|
||||
if ( ( $feats{$parent_spell} )
|
||||
&& ( $i ne $parent_spell ) )
|
||||
{
|
||||
return;
|
||||
}
|
||||
|
||||
if ( !defined $ref->{$i} ) {
|
||||
$ref->{$i} = $innate_val;
|
||||
}
|
||||
if (
|
||||
( !$feats{$i} ) && # Don't update the innate values for feats
|
||||
( !$feats{$parent_spell} ) && # Don't update the innate values for feats
|
||||
( $innate_val !~ m/\*\*\*\*/ )
|
||||
&& # Don't update the innate value with garbage
|
||||
( ( $ref->{$i} =~ m/\*\*\*\*/ ) || ( $innate_val < $ref->{$i} ) )
|
||||
)
|
||||
{
|
||||
if ($debug) {
|
||||
print "\t$i switching innate $ref->{$i} for $innate_val\n";
|
||||
}
|
||||
$ref->{$i} = $innate_val;
|
||||
}
|
||||
}
|
||||
Reference in New Issue
Block a user