SBSPSS/tools/Perl/pl/mkbig.pl

43 lines
828 B
Perl
Raw Normal View History

2000-08-29 18:26:01 +02:00
#=========================================================================
#
# 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,$BinDir,$OutFile)=@ARGV;
$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/\[BINDIR\]/$BinDir/g;
s/\//\\/g;
print (OUTFILE $_);
}
print "written $OutFile\n";
close(INFILE);
close($OUTFILE);
#}