Bot::BasicBot::Pluggable::Module::WoWPVP - Fetch information about pvp grades for World Of Warcraft

Bot-BasicBot-Pluggable-Module-WoWPVP documentation Contained in the Bot-BasicBot-Pluggable-Module-WoWPVP distribution.

Index

Code Index:

NAME

Top

Bot::BasicBot::Pluggable::Module::WoWPVP - Fetch information about pvp grades for World Of Warcraft

VERSION

Top

Version 0.01

SYNOPSIS

Top

Quick summary of what the module does.

Perhaps a little code snippet.

    use Bot::BasicBot::Pluggable::Module::WoWPVP;

    my $foo = Bot::BasicBot::Pluggable::Module::WoWPVP->new();
    ...

    will display the information like this:
    Adygma <Cercle De L Anneau Rond> # Night Elf Priestlevel 60 # Position 44 (Grade 10 Lieutenant Commander)
    HK/DK 14564/37 rating 40470 (Progression  89%)

FUNCTIONS

Top

init

AUTHOR

Top

Franck CUNY, <franck at breizhdev.net>

BUGS

Top

Please report any bugs or feature requests to bug-bot-basicbot-pluggable-module-wowpvp at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Bot-BasicBot-Pluggable-Module-WoWPVP. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

Top

You can find documentation for this module with the perldoc command.

    perldoc Bot::BasicBot::Pluggable::Module::WoWPVP

You can also look for information at:

* AnnoCPAN: Annotated CPAN documentation

http://annocpan.org/dist/Bot-BasicBot-Pluggable-Module-WoWPVP

* CPAN Ratings

http://cpanratings.perl.org/d/Bot-BasicBot-Pluggable-Module-WoWPVP

* RT: CPAN's request tracker

http://rt.cpan.org/NoAuth/Bugs.html?Dist=Bot-BasicBot-Pluggable-Module-WoWPVP

* Search CPAN

http://search.cpan.org/dist/Bot-BasicBot-Pluggable-Module-WoWPVP

ACKNOWLEDGEMENTS

Top

COPYRIGHT & LICENSE

Top

Copyright 2006 Franck CUNY, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Bot-BasicBot-Pluggable-Module-WoWPVP documentation Contained in the Bot-BasicBot-Pluggable-Module-WoWPVP distribution. 
package Bot::BasicBot::Pluggable::Module::WoWPVP;

use warnings;
use strict;

use Bot::BasicBot::Pluggable::Module;
use base qw(Bot::BasicBot::Pluggable::Module);
use Games::WoW::PVP;


our $VERSION = '0.02';


sub init {
    my ($self) = @_;
}

sub help {
    my ($self) = @_;
    my $mess;
    $mess = "pouet pouet";
    return $mess;
}

sub said {
    my ( $self, $mess, $pri ) = @_;

    return unless $pri == 2;
    return unless $mess->{body} =~ /^!pvp/;

    my $body    = $mess->{body};
    my $who     = $mess->{who};
    my $channel = $mess->{channel};

    $body =~ /^!pvp (\w+)/;
    my $character = $1;

    my ($realm)   = $body =~ /-r (\w.+) (-\w|$)/;
    my ($country) = $body =~ /-c (EU|US)/;
    my ($faction) = $body =~ /-f (h|a)/i;

    $realm   ||= 'conseil des ombres';
    $country ||= 'EU';
    $faction ||= 'h';

    $character = ucfirst $character;
    $realm =~ s/\s/+/g;

    my $WoW = Games::WoW::PVP->new();

    my %hash = $WoW->search_player(
        {   country   => $country,
            realm     => $realm,
            faction   => $faction,
            character => $character,
        }
    );

    if ( !defined $hash{characterName} ) {
        $self->tell( $channel, $who . ": no informations for $character" );
        return;
    }

    my $text = chr(3) . "9" . $hash{characterName};
    $text .= " <" . $hash{guildName} . ">" if defined $hash{guildName};
    $text .= chr(3) . "0 # "
        . $hash{raceLabel} . " "
        . $hash{classLabel} . "level"
        . chr(3) . "9 "
        . $hash{level}
        . chr(3) . "0";
    $text .= " # Position "
        . $hash{position}
        . " (Grade "
        . $hash{rank} . " "
        . $hash{rankLabel} . ")";
    $self->tell( $channel, $text );

    $text = "HK/DK " . $hash{lhk} . "/" . $hash{ldk};
    $text .= " rating "
        . $hash{rating}
        . " (Progression"
        . chr(3) . "9 "
        . $hash{percent} . "%"
        . chr(3) . "0) ";

    $self->tell( $channel, $text );

}


1;    # End of Bot::BasicBot::Pluggable::Module::WoWPVP