[ Disclaimer, Create new user --- Wiki markup help, Install P99 ]
Difference between revisions of "Magelo Blue:Wiggon"
From Project 1999 Wiki
m |
m (update level and update to magelo.pl script.) |
||
| (2 intermediate revisions by one user not shown) | |||
| Line 4: | Line 4: | ||
* Class: Cleric | * Class: Cleric | ||
* Race: Dwarf | * Race: Dwarf | ||
| − | * Level: | + | * Level: 10 |
* Guild: | * Guild: | ||
* Religion: Brell Serilis | * Religion: Brell Serilis | ||
| Line 16: | Line 16: | ||
* BaseCHA: 45 | * BaseCHA: 45 | ||
| − | * | + | * Charm: |
| + | * Ears1: | ||
* Head: Small Scarab Helm | * Head: Small Scarab Helm | ||
| − | + | * Face: Small Tattered Mask | |
| − | + | * Ears2: | |
| − | * Face: Tattered Mask | + | * Neck: Small Tattered Gorget |
| − | * | + | |
| − | * | + | |
| − | + | ||
| − | + | ||
* Shoulders: Small Bronze Pauldron | * Shoulders: Small Bronze Pauldron | ||
| − | * Wrists1: Bronze Bracers | + | * Arms: Small Patchwork Sleeves |
| − | * Wrists2: Tattered Wristbands | + | * Back: Small Ringmail Cape |
| − | * | + | * Wrists1: Small Bronze Bracers |
| − | * Hands: Tattered Gloves | + | * Wrists2: Small Tattered Wristbands |
| − | + | * Range: | |
| − | + | * Hands: Small Tattered Gloves | |
| − | + | ||
| − | + | ||
* Primary: Gem-Encrusted Scepter | * Primary: Gem-Encrusted Scepter | ||
* Secondary: Small Lantern | * Secondary: Small Lantern | ||
| − | * | + | * Fingers1: |
| − | * Ammo: | + | * Fingers2: |
| + | * Chest: Small Scarab Breastplate | ||
| + | * Legs: Small Patchwork Pants | ||
| + | * Feet: Small Bronze Boots | ||
| + | * Waist: Small Cloth Cord | ||
| + | * Ammo: | ||
| + | * Held: | ||
| + | |||
* Inv1: | * Inv1: | ||
| Line 53: | Line 55: | ||
Thanks to Stagnasis for the Gem-Encrusted Scepter! | 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. | ||
Latest revision as of 07:50, 17 September 2012
[edit] Extra
Thanks to Stagnasis for the Gem-Encrusted Scepter!
[edit] 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.
