mbest.pl

#!/usr/bin/env perl
# mbest.pl version 1.3 12/14/16
#
# 1.3 - Added Greivous wound to verbose.
#
# Constants
$GAME_LOG="/Applications/Games/Minions of Mirth Undead Wars/MinionsOfMirth.app/Contents/logs/game.txt";
$BEST_REP="/Users/mike/Documents/minionsbest.report";

@temp = @toon;
@toon = sort @temp;

# Set options based on command line
$verbose = 0;
foreach (@ARGV) {
    if (/-v/) { $verbose = 1; }
    if (/-o/) { $old = 1; }
    if (/-1/) {
	$GAME_LOG=
	    "/Applications/Games/Minions of Mirth Undead Wars/MinionsOfMirth.app/Contents/logs/game.txt";
	$BEST_REP="/Users/mike/Documents/minionsbest.report";
    }
    if (/-2/) {
	$GAME_LOG=
	    "/Applications/Games/Minions of Mirth Undead Wars 2nd/MinionsOfMirth2.app/Contents/logs/game.txt";
	$BEST_REP="/Users/mike/Documents/minions2best.report";
    }
}

# Short term Boolean flags
$cr_changed = 0;
$gr_changed = 0;

if ($old) {
    $verbose = 1;
    print "Using previous log!\n";
    $GAME_LOG = $GAME_LOG . ".1";
}

if ($verbose) {
    print "Log to parse: " . $GAME_LOG . "\n";
    print "Data file   : " . $BEST_REP . "\n";
}

open REP, "$BEST_REP" or die $!;
while (<REP>) {
	if (/^(\S+)\s*(\d*)\s*(\d*)/) {
		push @toon, $1;
		$critical{"$1"}=$2;
		$grievous{"$1"}=$3;
	}
}
close REP;

foreach $TOON (@toon) {
    open LOG, $GAME_LOG || die $! ;
    while (<LOG>) {
	    if (/$TOON critically/i) {
		$line = s/.* (.*) .*$/$1/;
		if ($verbose) {
		    print $TOON . " " . $_ ;
		}
		if ($_ > $critical{"$TOON"}) {
		    $critical{"$TOON"} = $_;
		    chomp($critical{"$TOON"});
		    $cr_changed = 1;
		}
	    } # patern found
	    if (/$TOON grievously/i) {
		$line = s/.* (.*) .*$/$1/;
	      #  print $_;
		if ($verbose) {
		    print $TOON . " Grievous wound " . $_ ;
		}
		if ($_ > $grievous{"$TOON"}) {
		    $grievous{"$TOON"} = $_;
		    chomp($grievous{"$TOON"});
		    $gr_changed = 1;
		}
	    }
    } # while
    close LOG;
}

chomp($critical{"$TOON"});
print "Character         Critical  Grievous\n";
foreach $TOON (@toon) {
    printf "%-16s%10d%10d\n", $TOON, $critical{$TOON}, $grievous{$TOON};
}
if ($cr_changed) {
	print "Critically wound has changed\n";
}
if ($gr_changed) {
	print "Grievously wound has changed\n";
}
open REP, ">$BEST_REP" or die $!;
foreach $TOON (@toon) {
    print REP "$TOON " . $critical{"$TOON"} . " " . $grievous{"$TOON"} . "\n";
}
close REP;
This source has been viewed 2 times.
Sunday, 5 May 2024 Michael J. Chappell Contact me at: mcsuper5@freeshell.org