43 lines
828 B
Perl
43 lines
828 B
Perl
|
#=========================================================================
|
||
|
|
#
|
||
|
|
# 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);
|
||
|
|
#}
|
||
|
|
|
||
|
|
|