Mercurial > vba-clojure
annotate clojure/com/aurellem/gb/pokemon_presets.clj @ 304:fefe5ce49b21
improve testing program
| author | Robert McIntyre <rlm@mit.edu> |
|---|---|
| date | Sat, 31 Mar 2012 00:41:14 -0500 |
| parents | ff37bc3004a7 |
| children | 8484e6f6db2c |
| rev | line source |
|---|---|
| rlm@228 | 1 (ns com.aurellem.gb.pokemon-presets) |
| rlm@228 | 2 |
| rlm@228 | 3 |
| rlm@237 | 4 (def base-mew |
| rlm@228 | 5 {:species :mew |
| rlm@228 | 6 :ID 5195 |
| rlm@228 | 7 :original-trainer "RLM" |
| rlm@237 | 8 |
| rlm@237 | 9 :dv |
| rlm@237 | 10 {:hp 15 |
| rlm@237 | 11 :attack 15 |
| rlm@237 | 12 :defense 15 |
| rlm@237 | 13 :speed 15 |
| rlm@237 | 14 :special 15} |
| rlm@237 | 15 |
| rlm@228 | 16 :experience |
| rlm@237 | 17 {:main-exp 20 |
| rlm@228 | 18 :hp-exp 0xFFFF |
| rlm@228 | 19 :attack-exp 0xFFFF |
| rlm@228 | 20 :defense-exp 0xFFFF |
| rlm@228 | 21 :speed-exp 0xFFFF |
| rlm@228 | 22 :special-exp 0xFFFF} |
| rlm@237 | 23 |
| rlm@237 | 24 :stats |
| rlm@237 | 25 {:level 2 |
| rlm@237 | 26 :current-hp 17 |
| rlm@237 | 27 :hp 17 |
| rlm@237 | 28 :attack 10 |
| rlm@237 | 29 :defense 10 |
| rlm@237 | 30 :speed 10 |
| rlm@237 | 31 :special 10} |
| rlm@237 | 32 |
| rlm@237 | 33 :moves [:pound]}) |
| rlm@237 | 34 |
| rlm@237 | 35 (def HM-mew |
| rlm@237 | 36 (merge |
| rlm@237 | 37 base-mew |
| rlm@237 | 38 {:moves [:fly :flash :cut :strength]})) |
| rlm@235 | 39 |
| rlm@235 | 40 (def ideal-pikachu |
| rlm@235 | 41 {:species :pikachu |
| rlm@235 | 42 :ID 5195 |
| rlm@235 | 43 :original-trainer "RLM" |
| rlm@235 | 44 |
| rlm@235 | 45 :dv |
| rlm@235 | 46 {:hp 15 |
| rlm@235 | 47 :attack 15 |
| rlm@235 | 48 :defense 15 |
| rlm@235 | 49 :speed 15 |
| rlm@235 | 50 :special 15} |
| rlm@235 | 51 |
| rlm@235 | 52 :experience |
| rlm@235 | 53 {:main-exp 20 |
| rlm@235 | 54 :hp-exp 0xFFFF |
| rlm@235 | 55 :attack-exp 0xFFFF |
| rlm@235 | 56 :defense-exp 0xFFFF |
| rlm@235 | 57 :speed-exp 0xFFFF |
| rlm@235 | 58 :special-exp 0xFFFF} |
| rlm@235 | 59 |
| rlm@235 | 60 :stats |
| rlm@235 | 61 {:level 2 |
| rlm@235 | 62 :current-hp 15 |
| rlm@235 | 63 :hp 15 |
| rlm@235 | 64 :attack 9 |
| rlm@235 | 65 :defense 8 |
| rlm@235 | 66 :speed 10 |
| rlm@235 | 67 :special 8} |
| rlm@235 | 68 |
| rlm@235 | 69 :moves [:thundershock :growl :surf]}) |
| rlm@237 | 70 |
| rlm@237 | 71 |
| rlm@237 | 72 (def young-jigglypuff |
| rlm@237 | 73 {:name "JIGGLYPUFF", :species :jigglypuff, :species2 :jigglypuff, |
| rlm@237 | 74 :status :normal, |
| rlm@237 | 75 :moves [[:sing {:pp-ups 0, :current-pp 4}]], |
| rlm@237 | 76 :dv {:attack 15, :defense 15, :speed 15, :special 15, :hp 15}, |
| rlm@237 | 77 :experience |
| rlm@237 | 78 {:main-exp 21, :hp-exp 0xFF, :attack-exp 0xFF, |
| rlm@237 | 79 :defense-exp 0xFF, :speed-exp 0xFF, :special-exp 0xFF}, |
| rlm@237 | 80 :type [:normal], |
| rlm@237 | 81 :original-trainer "RLM", |
| rlm@237 | 82 :stats {:level 3, :current-hp 5, :hp 20, :attack 8, :defense 6, |
| rlm@237 | 83 :speed 6, :special 7}, |
| rlm@237 | 84 :ID 5195}) |