This is a wiki for a reason. Anyone can contribute. If you see something that is inaccurate or can be improved, don't ask that it be fixed--just improve it.
[ Disclaimer, Create new user --- Wiki markup help, Install P99 ]

Difference between revisions of "Magelo Blue:Wiggon"

From Project 1999 Wiki
Jump to: navigation, search
m
m
Line 16: Line 16:
 
* BaseCHA: 45
 
* BaseCHA: 45
  
−
* Neck: Tattered Gorget
+
* Charm:
 +
* Ears1:
 
* Head: Small Scarab Helm
 
* Head: Small Scarab Helm
−
* Ears1:
+
* Face: Small Tattered Mask
−
* Ears2:
+
* Ears2:
−
* Face: Tattered Mask
+
* Neck: Small Tattered Gorget
−
* Chest: Scarab Breastplate
+
−
* Arms: Patchwork Sleeves
+
−
* Back: Small Ringmail Cape
+
−
* Waist: Cloth Cord
+
 
* Shoulders: Small Bronze Pauldron
 
* Shoulders: Small Bronze Pauldron
−
* Wrists1: Bronze Bracers
+
* Arms: Small Patchwork Sleeves
−
* Wrists2: Tattered Wristbands
+
* Back: Small Ringmail Cape
−
* Legs: Patchwork Pants
+
* Wrists1: Small Bronze Bracers
−
* Hands: Tattered Gloves
+
* Wrists2: Small Tattered Wristbands
−
* Fingers1:
+
* Range:
−
* Fingers2:
+
* Hands: Small Tattered Gloves
−
* Feet: Small Bronze Boots
+
−
 
+
 
* Primary: Gem-Encrusted Scepter
 
* Primary: Gem-Encrusted Scepter
 
* Secondary: Small Lantern
 
* Secondary: Small Lantern
−
* Range:  
+
* 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 ==
 +
 +
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.
 +
 +
    print qq{* $location: $name\n};
 +
};
 +
 +
close $input_fh or croak qq{ERROR: $OS_ERROR};
 +
</pre>
 +
 +
Questions or comments, pm greppy on the forums.

Revision as of 01:37, 8 September 2012

Wiggon
Guild:
< None
>
8 Cleric
Dwarf - Brell Serilis
HP
MANA
AC
ATK		 163
207
127
69
STR
STA
AGI
DEX		 95
95
75
90
WIS
INT
CHA		 118
60
45
POISON
MAGIC
DISEASE
FIRE
COLD		 20
30
15
25
25
WEIGHT 0 / 95
-
-
-
-

[edit] Extra

Thanks to Stagnasis for the Gem-Encrusted Scepter!

[edit] Perl code

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.

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

close $input_fh or croak qq{ERROR: $OS_ERROR};

Questions or comments, pm greppy on the forums.

Retrieved from "https://wiki.project1999.com/index.php?title=Magelo_Blue:Wiggon&oldid=51606"