1.1 --- a/clojure/com/aurellem/gb/pokemon_presets.clj	Wed Apr 04 03:25:14 2012 -0500
     1.2 +++ b/clojure/com/aurellem/gb/pokemon_presets.clj	Wed Apr 04 14:55:43 2012 -0500
     1.3 @@ -1,25 +1,19 @@
     1.4  (ns com.aurellem.gb.pokemon-presets)
     1.5  
     1.6 -
     1.7 -(def base-mew
     1.8 -  {:species :mew
     1.9 +(def pokemon-base
    1.10 +  {:dv {:attack 15 :hp 15 :defense 15
    1.11 +        :special 15 :speed 15}
    1.12 +   :species :ditto
    1.13 +   :original-trainer "RLM"
    1.14     :ID 5195
    1.15 -   :original-trainer "RLM"
    1.16 -
    1.17 -   :dv
    1.18 -   {:hp 15
    1.19 -    :attack 15
    1.20 -    :defense 15
    1.21 -    :speed 15
    1.22 -    :special 15}
    1.23 -      
    1.24 +   :status :normal
    1.25     :experience
    1.26 -   {:main-exp 20
    1.27 -    :hp-exp 0xFFFF
    1.28 +   {:main-exp 500
    1.29      :attack-exp 0xFFFF
    1.30      :defense-exp 0xFFFF
    1.31      :speed-exp 0xFFFF
    1.32 -    :special-exp 0xFFFF}
    1.33 +    :special-exp 0xFFFF
    1.34 +    :hp-exp 0xFFFF}
    1.35  
    1.36     :stats
    1.37     {:level 2
    1.38 @@ -29,8 +23,14 @@
    1.39      :defense 10
    1.40      :speed 10
    1.41      :special 10}
    1.42 -   
    1.43 -   :moves [:pound]})
    1.44 +      
    1.45 +   :moves [[:transform {:pp-ups 0 :current-pp 5}]]})
    1.46 +
    1.47 +(def base-mew
    1.48 +  (merge
    1.49 +   pokemon-base
    1.50 +   {:species :mew
    1.51 +    :moves [:pound]}))
    1.52     
    1.53  (def HM-mew
    1.54    (merge
    1.55 @@ -38,35 +38,10 @@
    1.56     {:moves [:fly :flash :cut :strength]}))
    1.57  
    1.58  (def ideal-pikachu
    1.59 -  {:species :pikachu
    1.60 -   :ID 5195
    1.61 -   :original-trainer "RLM"
    1.62 -
    1.63 -   :dv
    1.64 -   {:hp 15
    1.65 -    :attack 15
    1.66 -    :defense 15
    1.67 -    :speed 15
    1.68 -    :special 15}
    1.69 -   
    1.70 -   :experience
    1.71 -   {:main-exp 20
    1.72 -    :hp-exp 0xFFFF
    1.73 -    :attack-exp 0xFFFF
    1.74 -    :defense-exp 0xFFFF
    1.75 -    :speed-exp 0xFFFF
    1.76 -    :special-exp 0xFFFF}
    1.77 -
    1.78 -   :stats
    1.79 -   {:level 2
    1.80 -    :current-hp 15
    1.81 -    :hp 15
    1.82 -    :attack 9
    1.83 -    :defense 8
    1.84 -    :speed 10
    1.85 -    :special 8}
    1.86 -
    1.87 -   :moves [:thundershock :growl :surf]})
    1.88 +  (merge
    1.89 +   pokemon-base
    1.90 +   {:species :pikachu
    1.91 +    :moves [:thundershock :growl :surf]}))
    1.92  
    1.93  
    1.94  (def young-jigglypuff
    1.95 @@ -82,3 +57,64 @@
    1.96     :stats {:level 3, :current-hp 5, :hp 20, :attack 8, :defense 6,
    1.97             :speed 6, :special 7}, 
    1.98     :ID 5195})
    1.99 +
   1.100 +(def tauros
   1.101 +  (merge
   1.102 +   pokemon-base
   1.103 +   {:species :tauros
   1.104 +    :stats {:level 3, :current-hp 20, :hp 20,
   1.105 +            :attack 13, :defense 13, :speed 14, :special 11}
   1.106 +    :moves [:body-slam :hyper-beam
   1.107 +            :earthquake :blizzard]}))
   1.108 +
   1.109 +(def chansey
   1.110 +  (merge
   1.111 +   pokemon-base
   1.112 +   {:species :chansey
   1.113 +    :stats {:level 3, :current-hp 30, :hp 30,
   1.114 +            :attack 8, :defense 8, :speed 10, :special 14}
   1.115 +    :moves [:ice-beam :thunderbolt
   1.116 +            :softboiled :thunder-wave]}))
   1.117 +
   1.118 +(def starmie
   1.119 +  (merge
   1.120 +   pokemon-base
   1.121 +   {:species :starmie
   1.122 +    :stats {:level 3, :current-hp 19, :hp 19,
   1.123 +            :attack 12, :defense 12, :speed 14, :special 13}
   1.124 +    :moves [:thunderbolt :blizzard
   1.125 +            :thunder-wave :recover]}))
   1.126 +
   1.127 +(def golem
   1.128 +  (merge
   1.129 +   pokemon-base
   1.130 +   {:species :golem
   1.131 +    :stats {:level 3, :current-hp 20, :hp 20,
   1.132 +            :attack 14, :defense 15, :speed 10, :special 11}
   1.133 +    :moves [:earthquake :body-slam
   1.134 +            :rock-slide :explosion]}))
   1.135 +
   1.136 +(def exeggutor
   1.137 +  (merge
   1.138 +   pokemon-base
   1.139 +   {:species :exeggutor
   1.140 +    :stats {:level 3, :current-hp 21, :hp 21,
   1.141 +            :attack 13, :defense 12, :speed 11, :special 15}
   1.142 +    :moves [:psychic :sleep-powder
   1.143 +            :mega-drain :explosion]}))
   1.144 +
   1.145 +(def alakazam
   1.146 +  (merge
   1.147 +   pokemon-base
   1.148 +   {:species :alakazam
   1.149 +    :stats {:level 3, :current-hp 19, :hp 19,
   1.150 +            :attack 10, :defense 10, :speed 14, :special 15}
   1.151 +    :moves [:psychic :thunder-wave
   1.152 +            :recover :seismic-toss]}))
   1.153 +            
   1.154 +(def zapdos
   1.155 +  (merge
   1.156 +   pokemon-base
   1.157 +   {:species :zapdos
   1.158 +    :moves [:thunderbolt :drill-peck
   1.159 +            :thunder-wave :agility]}))
   1.160 \ No newline at end of file