imported>Greppy: update level and update to magelo.pl script.

2012-09-17T07:50:17Z

update level and update to magelo.pl script.

New page

startMageloProfile

* Name: Wiggon
* Class: Cleric
* Race: Dwarf
* Level: 10
* Guild:
* Religion: Brell Serilis

* BaseSTR: 95
* BaseSTA: 95
* BaseAGI: 75
* BaseDEX: 90
* BaseWIS: 118
* BaseINT: 60
* BaseCHA: 45

* Charm:
* Ears1:
* Head: Small Scarab Helm
* Face: Small Tattered Mask
* Ears2:
* Neck: Small Tattered Gorget
* Shoulders: Small Bronze Pauldron
* Arms: Small Patchwork Sleeves
* Back: Small Ringmail Cape
* Wrists1: Small Bronze Bracers
* Wrists2: Small Tattered Wristbands
* Range:
* Hands: Small Tattered Gloves
* Primary: Gem-Encrusted Scepter
* Secondary: Small Lantern
* Fingers1:
* Fingers2:
* Chest: Small Scarab Breastplate
* Legs: Small Patchwork Pants
* Feet: Small Bronze Boots
* Waist: Small Cloth Cord
* Ammo:
* Held:

* Inv1:
* Inv2:
* Inv3:
* Inv4:
* Inv5:
* Inv6:
* Inv7:
* Inv8:

endMageloProfile

== Extra ==

Thanks to Stagnasis for the Gem-Encrusted Scepter!

== Perl code ==

On Microsoft Windows I recommend http://strawberryperl.com/

I wrote a quick perl script to take the result of /outputfile inventory c:\temp\inventory.txt and dump out text that can be dumped into here.

It only does your equipped items, nothing in inventory. Copy and paste the below text into a file, like magelo.pl and then run it:

<code>magelo.pl --input wiggon_inventory.pl</code>

<pre>
#!/usr/bin/perl

use strict;
use warnings;
use Getopt::Long;
use English qw( -no_match_vars );
use Carp;

my $input_file;
my %seen;

my $options_ok = GetOptions(
'input=s' => \$input_file,
);

open my $input_fh, '<', $input_file or croak qq{ERROR: $OS_ERROR};

while ( my $line = <$input_fh> ) {
chomp $line;
my ( $location, $name, $id, $count, $slots ) = split /\t/, $line;
next if $location =~ m{\A(General|(Shared)?Bank|Location)}xms;

# add an s and a number to multislots
if ( $location =~ m{\A(Ear|Wrist|Finger)}xms ) {
if ( not defined $seen{$location} ) {
$seen{$location} = 1;
$location = qq{$location}.q{s1};
}
elsif ( $seen{$location} == 1 ) {
$location = qq{$location}.q{s2};
}
}

$location =~ s{ss}{s}g; # otherwise we have "Fingerss1"
$name =~ s{Empty}{}; # remove the "Empty" text.
$name =~ s{[*]}{}; # remove the * from newbie item names

print qq{* $location: $name\n};
};

close $input_fh or croak qq{ERROR: $OS_ERROR};
</pre>

Copy and paste the output into your Magelo wiki page in place of the equipped items area.

Questions or comments, pm greppy on the forums.

Magelo Blue:Wiggon - Revision history

imported>Greppy: update level and update to magelo.pl script.