Mercurial > vba-clojure

annotate clojure/com/aurellem/gb/pokemon_presets.clj @ 486:3f0156038802

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added image.clj
author Robert McIntyre <rlm@mit.edu>
date Mon, 07 May 2012 11:15:44 -0500
parents 8484e6f6db2c
children
rev   line source
rlm@228 1 (ns com.aurellem.gb.pokemon-presets)
rlm@228 2
rlm@326 3 (def pokemon-base
rlm@326 4 {:dv {:attack 15 :hp 15 :defense 15
rlm@326 5 :special 15 :speed 15}
rlm@326 6 :species :ditto
rlm@326 7 :original-trainer "RLM"
rlm@228 8 :ID 5195
rlm@326 9 :status :normal
rlm@228 10 :experience
rlm@326 11 {:main-exp 500
rlm@228 12 :attack-exp 0xFFFF
rlm@228 13 :defense-exp 0xFFFF
rlm@228 14 :speed-exp 0xFFFF
rlm@326 15 :special-exp 0xFFFF
rlm@326 16 :hp-exp 0xFFFF}
rlm@237 17
rlm@237 18 :stats
rlm@237 19 {:level 2
rlm@237 20 :current-hp 17
rlm@237 21 :hp 17
rlm@237 22 :attack 10
rlm@237 23 :defense 10
rlm@237 24 :speed 10
rlm@237 25 :special 10}
rlm@326 26
rlm@326 27 :moves [[:transform {:pp-ups 0 :current-pp 5}]]})
rlm@326 28
rlm@326 29 (def base-mew
rlm@326 30 (merge
rlm@326 31 pokemon-base
rlm@326 32 {:species :mew
rlm@326 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@326 41 (merge
rlm@326 42 pokemon-base
rlm@326 43 {:species :pikachu
rlm@326 44 :moves [:thundershock :growl :surf]}))
rlm@237 45
rlm@237 46
rlm@237 47 (def young-jigglypuff
rlm@237 48 {:name "JIGGLYPUFF", :species :jigglypuff, :species2 :jigglypuff,
rlm@237 49 :status :normal,
rlm@237 50 :moves [[:sing {:pp-ups 0, :current-pp 4}]],
rlm@237 51 :dv {:attack 15, :defense 15, :speed 15, :special 15, :hp 15},
rlm@237 52 :experience
rlm@237 53 {:main-exp 21, :hp-exp 0xFF, :attack-exp 0xFF,
rlm@237 54 :defense-exp 0xFF, :speed-exp 0xFF, :special-exp 0xFF},
rlm@237 55 :type [:normal],
rlm@237 56 :original-trainer "RLM",
rlm@237 57 :stats {:level 3, :current-hp 5, :hp 20, :attack 8, :defense 6,
rlm@237 58 :speed 6, :special 7},
rlm@237 59 :ID 5195})
rlm@326 60
rlm@326 61 (def tauros
rlm@326 62 (merge
rlm@326 63 pokemon-base
rlm@326 64 {:species :tauros
rlm@326 65 :stats {:level 3, :current-hp 20, :hp 20,
rlm@326 66 :attack 13, :defense 13, :speed 14, :special 11}
rlm@326 67 :moves [:body-slam :hyper-beam
rlm@326 68 :earthquake :blizzard]}))
rlm@326 69
rlm@326 70 (def chansey
rlm@326 71 (merge
rlm@326 72 pokemon-base
rlm@326 73 {:species :chansey
rlm@326 74 :stats {:level 3, :current-hp 30, :hp 30,
rlm@326 75 :attack 8, :defense 8, :speed 10, :special 14}
rlm@326 76 :moves [:ice-beam :thunderbolt
rlm@326 77 :softboiled :thunder-wave]}))
rlm@326 78
rlm@326 79 (def starmie
rlm@326 80 (merge
rlm@326 81 pokemon-base
rlm@326 82 {:species :starmie
rlm@326 83 :stats {:level 3, :current-hp 19, :hp 19,
rlm@326 84 :attack 12, :defense 12, :speed 14, :special 13}
rlm@326 85 :moves [:thunderbolt :blizzard
rlm@326 86 :thunder-wave :recover]}))
rlm@326 87
rlm@326 88 (def golem
rlm@326 89 (merge
rlm@326 90 pokemon-base
rlm@326 91 {:species :golem
rlm@326 92 :stats {:level 3, :current-hp 20, :hp 20,
rlm@326 93 :attack 14, :defense 15, :speed 10, :special 11}
rlm@326 94 :moves [:earthquake :body-slam
rlm@326 95 :rock-slide :explosion]}))
rlm@326 96
rlm@326 97 (def exeggutor
rlm@326 98 (merge
rlm@326 99 pokemon-base
rlm@326 100 {:species :exeggutor
rlm@326 101 :stats {:level 3, :current-hp 21, :hp 21,
rlm@326 102 :attack 13, :defense 12, :speed 11, :special 15}
rlm@326 103 :moves [:psychic :sleep-powder
rlm@326 104 :mega-drain :explosion]}))
rlm@326 105
rlm@326 106 (def alakazam
rlm@326 107 (merge
rlm@326 108 pokemon-base
rlm@326 109 {:species :alakazam
rlm@326 110 :stats {:level 3, :current-hp 19, :hp 19,
rlm@326 111 :attack 10, :defense 10, :speed 14, :special 15}
rlm@326 112 :moves [:psychic :thunder-wave
rlm@326 113 :recover :seismic-toss]}))
rlm@326 114
rlm@326 115 (def zapdos
rlm@326 116 (merge
rlm@326 117 pokemon-base
rlm@326 118 {:species :zapdos
rlm@326 119 :moves [:thunderbolt :drill-peck
rlm@326 120 :thunder-wave :agility]}))