Magelo Blue:Wiggon

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:

magelo.pl --input wiggon_inventory.pl

#!/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};

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.