View Single Post
Old 06-23-06, 04:59 PM   #3
U-Bones
Grey Wolf
 
Join Date: Mar 2005
Location: Treading Water
Posts: 847
Downloads: 56
Uploads: 0
Default

Quote:
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"; }
U-Bones is offline   Reply With Quote