[ 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.) |
||
| Line 4: | Line 4: | ||
* Class: Cleric | * Class: Cleric | ||
* Race: Dwarf | * Race: Dwarf | ||
| − | * Level: | + | * Level: 10 |
* Guild: | * Guild: | ||
* Religion: Brell Serilis | * Religion: Brell Serilis | ||
| Line 67: | Line 67: | ||
<pre> | <pre> | ||
| − | |||
#!/usr/bin/perl | #!/usr/bin/perl | ||
| Line 100: | Line 99: | ||
$location = qq{$location}.q{s2}; | $location = qq{$location}.q{s2}; | ||
} | } | ||
| − | } | + | } |
$location =~ s{ss}{s}g; # otherwise we have "Fingerss1" | $location =~ s{ss}{s}g; # otherwise we have "Fingerss1" | ||
$name =~ s{Empty}{}; # remove the "Empty" text. | $name =~ s{Empty}{}; # remove the "Empty" text. | ||
| + | $name =~ s{[*]}{}; # remove the * from newbie item names | ||
print qq{* $location: $name\n}; | print qq{* $location: $name\n}; | ||
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.
