Mercurial > hg > batmud > misc

annotate icesusplaque.pl @ 334:0a62974ff1f3 misc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use modern [] style array definitions instead of array() in PHP output.
author Matti Hamalainen <ccr@tnsp.org>
date Thu, 31 Dec 2015 06:33:23 +0200
parents c79dd30a368f
children 14b3b8dfc797
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
104
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1 #!/usr/bin/perl -w
134
b2685ec16e67 Update copyrights, add comments.
Matti Hamalainen <ccr@tnsp.org>
parents: 104
diff changeset
2 #
b2685ec16e67 Update copyrights, add comments.
Matti Hamalainen <ccr@tnsp.org>
parents: 104
diff changeset
3 # Icesus top player plaque parser
b2685ec16e67 Update copyrights, add comments.
Matti Hamalainen <ccr@tnsp.org>
parents: 104
diff changeset
4 # Developed by Matti Hämäläinen (Ggr Pupunen) <ccr@tnsp.org>
b2685ec16e67 Update copyrights, add comments.
Matti Hamalainen <ccr@tnsp.org>
parents: 104
diff changeset
5 # (C) Copyright 2010 Tecnic Software productions (TNSP)
b2685ec16e67 Update copyrights, add comments.
Matti Hamalainen <ccr@tnsp.org>
parents: 104
diff changeset
6 #
b2685ec16e67 Update copyrights, add comments.
Matti Hamalainen <ccr@tnsp.org>
parents: 104
diff changeset
7 # Inputs a logfile with multiple Icesus top player plaque listings
b2685ec16e67 Update copyrights, add comments.
Matti Hamalainen <ccr@tnsp.org>
parents: 104
diff changeset
8 # and outputs a plaque with changed positions etc.
b2685ec16e67 Update copyrights, add comments.
Matti Hamalainen <ccr@tnsp.org>
parents: 104
diff changeset
9 #
104
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
10 use strict;
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
11 use Date::Parse;
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
12
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
13 ### Settings
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
14 my $opt_sep = 0;
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
15 my $opt_topexp = 0;
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
16 my $opt_plaque = 0;
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
17 my $opt_filename = shift or die("Usage: [perl] $0 <logfilename> [-p] [-s] [-t]\n");
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
18
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
19 while (defined(my $opt = shift)) {
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
20 if ($opt eq "-s") {
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
21 $opt_sep = 1;
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
22 } elsif ($opt eq "-t") {
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
23 $opt_topexp = 1;
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
24 } elsif ($opt eq "-p") {
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
25 $opt_plaque = 1;
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
26 }
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
27 }
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
28
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
29 ### Initialize common global variables
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
30 my $cplaque = {};
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
31 my @plaques = ();
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
32 my $state = 0;
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
33 my $stamp = undef;
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
34 my $stamps = 0;
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
35
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
36 ### Parse input logfile for plaque data
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
37 open(INFILE, "<", $opt_filename) or die("Could not open '".$opt_filename."'!\n");
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
38 while (defined(my $line = <INFILE>)) {
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
39 $line =~ s/[\r\n]+$//;
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
40 if ($line =~ /^Server time: (.+)/) {
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
41 $stamp = str2time($1);
240
c79dd30a368f Cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents: 134
diff changeset
42 } elsif ($state == 0 && $line =~ /^\| +The top \d+ players of Icesus +lvl +Exp +\|/) {
104
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
43 $state = 1;
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
44 } elsif ($state == 1 && $line =~ /^\| +(\d+) +([A-Z][a-z]+) +(\d+) +([0-9][0-9,]+) +\|/) {
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
45 my ($pos, $name, $level, $exp) = ($1, $2, $3, $4);
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
46 $exp =~ s/,//g;
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
47 $$cplaque{$name} = { "pos" => $pos, "level" => $level, "exp" => int($exp) };
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
48 } elsif ($state == 1 && $line =~ /\`---------------------------------------------------------\'/) {
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
49 # Save plaque data to array
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
50 $state = 0;
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
51 $$cplaque{0} = $stamp;
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
52 $stamp = undef;
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
53
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
54 # We keep maximum of 100 plaques in memory
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
55 shift(@plaques) if (scalar(@plaques) > 100);
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
56 push(@plaques, $cplaque);
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
57 undef($cplaque);
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
58 $cplaque = {};
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
59 }
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
60 }
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
61 close(INFILE);
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
62
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
63 die("Not enough plaque data in input.\n") unless (scalar(@plaques) >= 2);
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
64
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
65
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
66 ### Find plaques with time difference of a week
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
67 my $p0 = undef;
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
68 my $p1 = pop(@plaques);
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
69 die("No timestamp found for primary comparision plaque.\n") unless defined($$p1{0});
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
70
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
71 foreach my $plaque (@plaques) {
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
72 if (defined($$plaque{0}) && $$plaque{0} <= $$p1{0} - (7*24*60*60)) {
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
73 $p0 = $plaque;
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
74 }
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
75 }
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
76
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
77 die("Could not find old enough plaque to make a weekly comparision.\n") unless defined($p0);
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
78
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
79
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
80 ### Compute results
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
81 my @paskat = (30*24*60*60, 7*24*60*60, 24*60*60, 60*60, 60);
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
82 my @opaskat = ("months", "weeks", "days", "hours", "minutes");
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
83 my @upaskat = ("month", "week", "day", "hour", "minute");
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
84
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
85 sub get_period($)
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
86 {
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
87 my $cur = $_[0];
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
88 if ($cur >= 0) {
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
89 my $str = "";
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
90 my ($r, $k, $p, $n);
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
91 $n = 0;
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
92 foreach my $div (@paskat) {
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
93 $r = int($cur / $div);
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
94 $k = ($cur % $div);
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
95 if ($r > 0) {
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
96 $p = ($r > 1) ? $opaskat[$n] : $upaskat[$n];
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
97 $str .= ", " if ($str ne "");
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
98 $str .= sprintf("%d %s", $r, $p);
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
99 }
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
100 $cur = $k;
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
101 $n++;
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
102 }
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
103 return $str;
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
104 } else {
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
105 return "?";
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
106 }
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
107 }
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
108
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
109 sub fmt_num($)
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
110 {
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
111 my $s = sprintf("%1.0f", $_[0]);
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
112 $s =~ s/\d{1,3}(?=(\d{3})+(?!\d))/$&,/g if ($opt_sep);
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
113 return $s;
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
114 }
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
115
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
116 sub fmt_value($$$)
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
117 {
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
118 if ($_[0] == $_[1]) {
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
119 return sprintf("%".$_[2]."s", fmt_num($_[0]));
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
120 } else {
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
121 my $val = $_[0] - $_[1];
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
122 return sprintf("%".$_[2]."s (%s%.0f)",
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
123 fmt_num($_[0]), $val < 0 ? "" : "+", $val);
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
124 }
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
125 }
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
126
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
127 my %final = ();
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
128 my %expers = ();
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
129
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
130 foreach my $name (keys %{$p1}) {
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
131 my $entry1 = $$p1{$name};
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
132 next if ($name eq 0);
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
133 # Check if player is on the previous plaque
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
134 if (defined($$p0{$name})) {
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
135 my $entry0 = $$p0{$name};
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
136 # Yes, print a "diff" line
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
137 $final{$$entry1{"pos"}} = sprintf(
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
138 "| %-10s | %-12s | %-10s | %-30s |\n",
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
139 fmt_value($$entry1{"pos"}, $$entry0{"pos"}, 3),
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
140 $name,
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
141 fmt_value($$entry1{"level"}, $$entry0{"level"}, 3),
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
142 fmt_value($$entry1{"exp"}, $$entry0{"exp"}, 15)
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
143 );
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
144 my $exp = $$entry1{"exp"} - $$entry0{"exp"};
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
145 if ($exp > 0) {
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
146 $expers{$exp}{"name"} = $name;
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
147 $expers{$exp}{"total"} = $$entry1{"exp"};
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
148 }
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
149 } else {
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
150 # No, print a normal line
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
151 $final{$$entry1{"pos"}} = sprintf(
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
152 "| %-10s | %-12s | %-10s | %-30s |\n",
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
153 $$entry1{"pos"}, $name, $$entry1{"level"}, $$entry1{"exp"}
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
154 );
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
155 }
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
156 }
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
157
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
158
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
159 ### Print output
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
160 my ($shead, $sbar);
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
161
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
162 if ($opt_plaque) {
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
163 $sbar = $shead = sprintf "| %-10s | %-12s | %-10s | %-30s |",
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
164 "Pos", "Name", "Lvl", "Exp";
240
c79dd30a368f Cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents: 134
diff changeset
165 $sbar =~ tr/\|/+/;
c79dd30a368f Cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents: 134
diff changeset
166 $sbar =~ s/[^\+]/-/g;
104
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
167
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
168 print "" . scalar localtime($$p0{0})." to ".scalar localtime($$p1{0})." (".get_period($$p1{0} - $$p0{0}).")\n".
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
169 "$sbar\n$shead\n$sbar\n";
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
170 foreach my $place (sort { $a <=> $b } keys %final) {
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
171 print $final{$place};
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
172 }
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
173 print "$sbar\n";
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
174 }
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
175
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
176
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
177 ### Bestestest expmakers
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
178 if ($opt_topexp) {
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
179 $sbar = $shead = sprintf "| %-15s | %7s | %-15s | %-15s |",
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
180 "Exp gain", "% (*)", "Total exp", "Name";
240
c79dd30a368f Cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents: 134
diff changeset
181 $sbar =~ tr/\|/+/;
c79dd30a368f Cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents: 134
diff changeset
182 $sbar =~ s/[^\+]/-/g;
104
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
183
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
184 print "" . scalar localtime($$p0{0})." to ".scalar localtime($$p1{0}).
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
185 " (".get_period($$p1{0} - $$p0{0}).")\n" unless ($opt_plaque);
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
186
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
187 print "\nTop exp gainers:\n$sbar\n$shead\n$sbar\n";
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
188 foreach my $exp (sort { $b <=> $a } keys %expers) {
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
189 my $s = sprintf("%4.2f%%", ($exp * 100.0) / $expers{$exp}{"total"});
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
190 printf "| %15s | %7s | %15s | %-15s |\n",
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
191 fmt_num($exp), $s, fmt_num($expers{$exp}{"total"}), $expers{$exp}{"name"};
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
192 }
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
193 print "$sbar\n(*) = Gain % of total experience.\n";
fb5a3f75cfa3 Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
194 }