Mercurial > vba-clojure

diff clojure/com/aurellem/gb/moves.clj @ 225:0587f266a735

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added functions for setting rival's name and text speed
author Robert McIntyre <rlm@mit.edu>
date Sat, 24 Mar 2012 05:26:33 -0500
parents 62969eb07e04
children ca1afcef3542
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/gb/moves.clj	Sat Mar 24 04:29:37 2012 -0500
     1.2 +++ b/clojure/com/aurellem/gb/moves.clj	Sat Mar 24 05:26:33 2012 -0500
     1.3 @@ -288,7 +288,7 @@
     1.4    {
     1.5     :absorb        20
     1.6     :acid          30
     1.7 -   :acid-armor    40 ;; WTF happens with 3 PP-UPs??!
     1.8 +   :acid-armor    40 ;; WTF happens with 3 PP-UPs??! (answer: 61PP!)
     1.9     :agility       30
    1.10     :amnesia       20
    1.11     :aurora-beam   20
    1.12 @@ -453,5 +453,7 @@
    1.13     :wrap          20})
    1.14  
    1.15  (defn max-pp [name pp-ups]
    1.16 -  (int (* (+ 1 (* (/ 1 5) pp-ups))
    1.17 -          (move-name->move-pp name))))
    1.18 \ No newline at end of file
    1.19 +  (if (= 40 (move-name->move-pp name))
    1.20 +    (+ 40 (* 7 pp-ups))
    1.21 +    (int (* (+ 1 (* (/ 1 5) pp-ups))
    1.22 +            (move-name->move-pp name)))))
    1.23 \ No newline at end of file