Changeset 262 for veekun/trunk/lib/Vee/Bot.pm

Timestamp:

07/19/07 11:46:56 (3 years ago)

Author:

eevee

Message:

Added EV support to Perlbui's IV calculator.
Also gave Perlbui a slightly more reasonable default IRC channel to connect to: #veekun.

Files:

• veekun/trunk/lib/Vee/Bot.pm (modified) (4 diffs)

veekun/trunk/lib/Vee/Bot.pm

@@ -95 +95 @@
         (\d+)   \s+
         with
-        ( (?: \s+ \d+ ){6} )
+        ( (?: \s+ \d+ (?: \+ \d+ )? ){6} )
     $/ix);
 
@@ -101 +101 @@
         # didn't match
         return "Syntax for that command is 'ivs for {nature} {pokemon} " .
-               "at level {level} with {hp} {atk} {def} {spatk} {spdef} {spd}'.";
+               "at level {level} with {hp} {atk} {def} {spatk} {spdef} {spd}'.  " .
+               "You may specify EVs as +{effort} immediately after a stat.";
     }
 
     # I cheat here and use the special ' ' delimeter to avoid the leading empty
     # string I'd get otherwise.  It IS documented, trust me.
-    my @stats = split ' ', $stats;
+    my (@stats, @evs);
+    for my $stat_string (split ' ', $stats) {
+        my ($iv, $ev) = split /\+/, $stat_string;
+        push @stats, $iv;
+        push @evs,   $ev || 0;
+    }
 
     my $pokemon_id = get_pokemon($pokemon_name)
@@ -136 +142 @@
         my ($min, $max);
         for my $iv (0 .. 31) {
-            my $calculated = $func->($base, $level, $iv, 0);
+            my $calculated = $func->($base, $level, $iv, $evs[$s]);
             $calculated = int( $calculated * $nature_changes[$s] );
             if ($calculated == $stats[$s]) {
@@ -149 +155 @@
 
         for my $iv (reverse $min .. 31) {
-            my $calculated = $func->($base, $level, $iv, 0);
+            my $calculated = $func->($base, $level, $iv, $evs[$s]);
             $calculated = int( $calculated * $nature_changes[$s] );
             if ($calculated == $stats[$s]) {