Mercurial > vba-clojure

comparison 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
comparison
equal deleted inserted replaced
224:10e26e7ceedb 225:0587f266a735
286 286
287 (def move-name->move-pp 287 (def move-name->move-pp
288 { 288 {
289 :absorb 20 289 :absorb 20
290 :acid 30 290 :acid 30
291 :acid-armor 40 ;; WTF happens with 3 PP-UPs??! 291 :acid-armor 40 ;; WTF happens with 3 PP-UPs??! (answer: 61PP!)
292 :agility 30 292 :agility 30
293 :amnesia 20 293 :amnesia 20
294 :aurora-beam 20 294 :aurora-beam 20
295 :barrage 20 295 :barrage 20
296 :barrier 30 296 :barrier 30
451 :wing-attack 35 451 :wing-attack 35
452 :withdraw 40 452 :withdraw 40
453 :wrap 20}) 453 :wrap 20})
454 454
455 (defn max-pp [name pp-ups] 455 (defn max-pp [name pp-ups]
456 (int (* (+ 1 (* (/ 1 5) pp-ups)) 456 (if (= 40 (move-name->move-pp name))
457 (move-name->move-pp name)))) 457 (+ 40 (* 7 pp-ups))
458 (int (* (+ 1 (* (/ 1 5) pp-ups))
459 (move-name->move-pp name)))))