Kith/Stats/Cards.pm

   1 package Kith::Stats::Cards;
   2
   3 use strict;
   4 use Kith::SQL '$sql';
   5 use Exporter 'import';
   6 BEGIN {
   7         our @EXPORT = qw(show_hand show_hand_ext);
   8 }
   9 my $prefix = main::PREFIX();
  10 my $query;
  11
  12 sub show_hand($) {
  13         my ($nick) = shift;
  14         my $output;
  15         my @hand = $sql->selectrow_array("SELECT hand1,hand2,hand3,hand4,hand5 FROM players WHERE name = '$nick'");
  16         for (my $i = 0;$i < 5;$i++) {
  17                 my ($cardname,$level) = $sql->selectrow_array("SELECT name,lvl FROM cardstats WHERE r_id = '$hand[$i]'");
  18                 if (!defined $output) { $output = "$cardname - Lvl. \002$level\002 "; }
  19                 else { $output .= "| $cardname - Lvl. \002$level\002 "; }
  20         }
  21         $main::irc->yield(privmsg => $nick => "[Hand] $output");
  22 }
  23
  24 sub show_hand_ext($) {
  25         my ($nick) = shift;
  26         my $output;
  27         my @hand = $sql->selectrow_array("SELECT hand1,hand2,hand3,hand4,hand5 FROM players WHERE name = '$nick'");
  28         for (my $i = 0;$i < 5;$i++) {
  29                 my ($cardname,$hp,$mhp,$level) = $sql->selectrow_array("SELECT name,hp,mhp,lvl FROM cardstats WHERE r_id = '$hand[$i]'");
  30                 if (!defined $output) { $output = "$cardname - HP: \002$hp/$mhp\002 - lvl. \002$level\002 "; }
  31                 else { $output .= "| $cardname - HP: \002$hp/$mhp\002 - lvl. \002$level\002 "; }
  32         }
  33         $main::irc->yield(privmsg => $nick => "[HandExt] $output");
  34 }
  35
  36 1;