Mercurial > vba-clojure

annotate clojure/com/aurellem/gb/pokemon_presets.clj @ 293:4a0dbaed7078

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
preliminary idea for a better pre-bootstrapping program.
author Robert McIntyre <rlm@mit.edu>
date Fri, 30 Mar 2012 18:14: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})