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		 173
215
203
145
STR
STA
AGI
DEX		 96
96
75
89
WIS
INT
CHA		 123
60
44
POISON
MAGIC
DISEASE
FIRE
COLD		 20
30
15
25
25
WEIGHT 38 / 96
-
-
-
-
Small Scarab Helm
Item 629.png

Slot: HEAD
AC: 4
CHA: -1
WT: 1.5 Size: SMALL
Class: ALL except NEC WIZ MAG ENC
Race: DWF HFL GNM
Small Tattered Mask
Item 771.png

Slot: FACE
AC: 2
WT: 0.3 Size: SMALL
Class: ALL except MNK NEC WIZ MAG ENC
Race: ELF HIE DEF DWF HFL GNM
Small Scarab Breastplate
Item 624.png

Slot: CHEST
AC: 14
STR: +1 DEX: -1 STA: +1 HP: +10
WT: 6.0 Size: MEDIUM
Class: WAR CLR PAL RNG SHD DRU MNK BRD ROG SHM
Race: DWF HFL GNM
Small Tattered Gorget
Item 643.png

Slot: NECK
AC: 2
WT: 0.4 Size: SMALL
Class: ALL except MNK NEC WIZ MAG ENC
Race: ELF HIE DEF DWF HFL GNM
Small Patchwork Sleeves
Item 634.png

Slot: ARMS
AC: 3
WT: 1.1 Size: SMALL
Class: ALL except MNK NEC WIZ MAG ENC
Race: ELF HIE DEF DWF HFL GNM
Small Ringmail Cape
Item 661.png

Slot: BACK
AC: 6
WT: 4.0 Size: LARGE
Class: WAR CLR PAL RNG SHD BRD ROG SHM
Race: ELF HIE DEF DWF HFL GNM
Small Cloth Cord
Item 572.png

Slot: WAIST
AC: 1
WT: 0.2 Size: SMALL
Class: ALL
Race: ELF HIE DEF DWF HFL GNM
Small Bronze Pauldron
Item 798.png

Slot: SHOULDERS
AC: 8
WT: 4.2 Size: SMALL
Class: WAR CLR PAL SHD BRD
Race: ELF HIE DEF DWF HFL GNM
Small Bronze Bracers
Item 516.png

Slot: WRIST
AC: 7
WT: 3.8 Size: SMALL
Class: WAR CLR PAL SHD BRD
Race: ELF HIE DEF DWF HFL GNM
Small Tattered Wristbands
Item 637.png

Slot: WRIST
AC: 2
WT: 0.8 Size: SMALL
Class: ALL except MNK NEC WIZ MAG ENC
Race: ELF HIE DEF DWF HFL GNM
Small Patchwork Pants
Item 635.png

Slot: LEGS
AC: 4
WT: 3.0 Size: MEDIUM
Class: ALL except MNK NEC WIZ MAG ENC
Race: ELF HIE DEF DWF HFL GNM
Small Tattered Gloves
Item 636.png

QUEST ITEM
Slot: HANDS
AC: 3
WT: 1.1 Size: SMALL
Class: ALL except MNK NEC WIZ MAG ENC
Race: ELF HIE DEF DWF HFL GNM
Small Bronze Boots
Item 524.png

Slot: FEET
AC: 8
WT: 6.1 Size: MEDIUM
Class: WAR CLR PAL SHD BRD
Race: ELF HIE DEF DWF HFL GNM
Gem-Encrusted Scepter
Item 822.png

MAGIC ITEM
Slot: PRIMARY
Skill: 1H Blunt Atk Delay: 28
DMG: 7
WIS: +5
WT: 4.5 Size: MEDIUM
Class: CLR DRU BRD SHM
Race: ALL
Small Lantern
Item 684.png

Slot: SECONDARY
WT: 0.7 Size: SMALL
Class: ALL
Race: ALL

[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"