Mercurial > hg > batmud > misc

annotate icesusplaque.pl @ 104:fb5a3f75cfa3 misc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added script for generating 'weekly' exp plaques from icesus top player plaque logs, made for Nuane by request.
author Matti Hamalainen <ccr@tnsp.org>
date Wed, 18 Aug 2010 17:28:44 +0000
parents
children b2685ec16e67
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
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
2 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
3 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
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
5 ### 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
6 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
7 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
8 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
9 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
10
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 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
12 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
13 $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
14 } 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
15 $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
16 } 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
17 $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
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 }
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
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 ### 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
22 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
23 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
24 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
25 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
26 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
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 ### 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
29 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
30 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
31 $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
32 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
33 $stamp = str2time($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
34 } elsif ($state == 0 && $line =~ /^\| +The top 150 players of Icesus +lvl +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
35 $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
36 } 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
37 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
38 $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
39 $$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
40 } 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
41 # 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
42 $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
43 $$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
44 $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
45
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 # 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
47 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
48 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
49 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
50 $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
51 }
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 }
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 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
54
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 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
56
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
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 ### 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
59 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
60 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
61 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
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 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
64 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
65 $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
66 }
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 }
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
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("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
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
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 ### 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
73 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
74 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
75 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
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 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
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 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
80 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
81 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
82 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
83 $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
84 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
85 $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
86 $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
87 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
88 $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
89 $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
90 $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
91 }
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 $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
93 $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
94 }
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 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
96 } 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
97 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
98 }
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
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 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
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 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
104 $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
105 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
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 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
109 {
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 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
111 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
112 } 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
113 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
114 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
115 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
116 }
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
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 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
120 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
121
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 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
123 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
124 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
125 # 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
126 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
127 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
128 # 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
129 $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
130 "| %-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
131 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
132 $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
133 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
134 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
135 );
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 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
137 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
138 $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
139 $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
140 }
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 } 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
142 # 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
143 $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
144 "| %-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
145 $$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
146 );
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 }
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
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
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 ### 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
152 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
153
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 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
155 $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
156 "Pos", "Name", "Lvl", "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
157 $sbar =~ 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
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 "" . 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
160 "$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
161 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
162 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
163 }
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 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
165 }
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
166
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 ### 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
169 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
170 $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
171 "Exp gain", "% (*)", "Total 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
172 $sbar =~ 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
173
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 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
175 " (".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
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 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
178 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
179 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
180 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
181 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
182 }
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 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
184 }