U-331 Gets Punished

[U-Bones]

I have been playing around with damage/repair settings, and also was interested in the thread about log files here and this sort of happened out of it.

If anyone is mildly entertained, its paid for

Oh yea, SH4 better have permanent logging capability with html options. If you forget to save prior to quitting in SH3 the logs go to the bit bucket.

[Grey Legion]

Looks Amazing !!

Couple of questions if you don't mind.

#1 Please provide all the damage mods you use with NYGM ??

#2 what program/editor did you use to create that list ??

Thank you in adavance !!

[U-Bones]

Originally Posted by Grey Legion

Looks Amazing !!

Couple of questions if you don't mind.

#1 Please provide all the damage mods you use with NYGM ??

#2 what program/editor did you use to create that list ??

Thank you in adavance !!

The damage stuff is my own, based on nvdrifter's observation about crew efficiency, almost completely contained in zones.cfg and cfg/basic.cfg. See this thread http://www.subsim.com/radioroom/showthread.php?t=94238

I used a simple perl script to get the log info one line text entries. I htmlized it by hand afterwards. Real programmers please don't lol.
Win usage: type logfile | perl sh3log.pl >newlogfile

#!/usr/bin/perl -w
use Getopt::Std;
use Cwd;
$entries = 0 ;
$lines = 0 ;
$stamp = "0";
$now = "0";
$atype = "0";
$who = "0";
$entry = "New Log\n";
$speaker = "";

while (<STDIN>) {
$dummy = "";
( $dummy, $filler )=split("\=");
if ($dummy eq "Type") { $atype = $filler ; } #not used
if ($dummy eq "EntryText") { $entry = $filler }
if ($dummy eq "Date") { $stamp = $filler } #new day line later
if ($dummy eq "Time") { $now = $filler }
if ($dummy eq "Categ") { $who = $filler }
if ($who == 0) { $speaker = "CE" }
if ($who == 1) { $speaker = "NA" }
if ($who == 2) { $speaker = "WE" }
if ($who == 3) { $speaker = "RA" }
if ($who == 4) { $speaker = "SO" }
if ($who == 5) { $speaker = "WO" }
$lines ++;
if ($dummy =~ /Log.Entry/ ) { $entries++ ; next; }
if ($dummy =~ /\n/ ) {printf "%8d:%4.4d %s: %s", $stamp, $now, $speaker, $entry;}
}

if ($lines > 0) { printf "%d Lines %d Entries\n",$lines,$entries; exit }
{ printf "0\n"; }

[Grey Legion]

So it looks to be a longer operation than I thought ??

Hmmm...I'll have to look into that at a later date.