Mercurial > hg > batmud > misc
changeset 86:3e301f23b20d misc
Change order of output.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Sun, 25 Apr 2010 01:07:24 +0000 |
parents | 9aa648df2366 |
children | 28e24f92e957 |
files | magestats.pl |
diffstat | 1 files changed, 26 insertions(+), 21 deletions(-) [+] |
line wrap: on
line diff
--- a/magestats.pl Sun Apr 25 01:03:26 2010 +0000 +++ b/magestats.pl Sun Apr 25 01:07:24 2010 +0000 @@ -46,7 +46,7 @@ ### Print out help if no arguments given ### my $prog_name = "Magestats"; -my $prog_version = "0.5"; +my $prog_version = "0.6"; my $opt_mode = shift or die( "$prog_name v$prog_version - BatMUD Mage guild statistics generator Developed by Matti Hamalainen (Ggr \@ bat), <ccr\@tnsp.org> @@ -386,7 +386,32 @@ <p> Generated with $prog_name v$prog_version by Matti Hämäläinen aka Ggr Pupunen. </p> +|; +print OUT " +<h2>Mage staff development</h2> +<table class=\"info\"> + <tr> + <th>Blasts</th> + <th>Major blasts</th> + <th>Singles</th> + <th>Areas</th> + <th>Staff short description</th> + </tr> +"; + +foreach my $foo (@{$spells->{"staff"}{"data"}}) { + print OUT "<tr><td>".$foo->{"blasts"}."</td><td>". + $foo->{"major"}."</td><td>".$foo->{"single"}."</td><td>". + $foo->{"area"}."</td><td>".htmlentities($foo->{"desc"})."</td></tr>\n"; +} + +print OUT " +</table> +"; + + +print OUT qq| <h2>Blasts, essence, etc</h2> <table class="info"> <tr> @@ -451,26 +476,6 @@ print OUT "<br /> Total essence gained: <b>".$spells->{"total"}{"essence"}."</b><br /> </p> - -<h2>Mage staff development</h2> -<table class=\"info\"> - <tr> - <th>Blasts</th> - <th>Major blasts</th> - <th>Singles</th> - <th>Areas</th> - <th>Staff short description</th> - </tr> -"; - -foreach my $foo (@{$spells->{"staff"}{"data"}}) { - print OUT "<tr><td>".$foo->{"blasts"}."</td><td>". - $foo->{"major"}."</td><td>".$foo->{"single"}."</td><td>". - $foo->{"area"}."</td><td>".htmlentities($foo->{"desc"})."</td></tr>\n"; -} - -print OUT " -</table> "; print OUT "