zydronium/SBSPSS
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Browse source
This commit is contained in:
Daveo 2000-08-29 16:26:01 +00:00
commit 47aee91ef4
396 changed files with 32003 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

48
tools/Perl/pl/mkstr.pl Normal file
View file

@ -0,0 +1,48 @@
#=========================================================================
#
# MKSTR.PL
#
# Author: Gary Liddon @ Climax
# Created:
# Project: Diablo PSX
# Purpose: Makes some bse files from a base file
# Usage: pl mkstr.pl <base file> <data dir> <gfx dir> <music dir> <stream sfx dir> <sfx dir>
#
# Copyright (c) 1997 Climax Development Ltd
#
#===========================================================================
#MAIN
#{
local ($BaseFile,$DataDir,$GfxDir,$VagDir,$SfxDir,$OutFile)=@ARGV;
#die if ($BaseFile eq "" or $DataDir eq "" or $GfxDir eq "" or $MusicDir eq "" or $StreamSfxDir eq "" or $SfxDir or $OutFile eq "");
$OUTFILE=">";
$OUTFILE.=$OutFile;
local ($INFILE)=$BaseFile;
open(OUTFILE) || die "Can't open output file $OutFile: $!";
open(INFILE) || die "Can't open monst inffile $InfFile; $!";
while (<INFILE>)
{
s/\[DATA\]/$DataDir/g;
s/\[GFX\]/$GfxDir/g;
s/\[VAG\]/$VagDir/g;
s/\[SFX\]/$SfxDir/g;
s/\//\\/g;
print (OUTFILE $_);
}
print "written $OutFile\n";
close(INFILE);
close($OUTFILE);
#}