1.1 --- a/clojure/com/aurellem/gb/pokemon.clj	Wed Apr 04 03:25:14 2012 -0500
     1.2 +++ b/clojure/com/aurellem/gb/pokemon.clj	Wed Apr 04 14:55:43 2012 -0500
     1.3 @@ -1,7 +1,7 @@
     1.4  (ns com.aurellem.gb.pokemon
     1.5    (:use (com.aurellem.gb gb-driver util constants characters
     1.6                           moves types items status dv species
     1.7 -                         experience stats
     1.8 +                         experience stats pokemon-presets
     1.9                           ))
    1.10    (:import [com.aurellem.gb.gb_driver SaveState]))
    1.11  
    1.12 @@ -356,32 +356,6 @@
    1.13    ([status]
    1.14       (give-status-all @current-state status)))
    1.15  
    1.16 -
    1.17 -(def pokemon-base
    1.18 -  {:dv {:attack 15 :hp 15 :defense 15
    1.19 -        :special 15 :speed 15}
    1.20 -   :species :ditto
    1.21 -   :original-trainer "RLM"
    1.22 -   :ID 5195
    1.23 -   :status :normal
    1.24 -   :experience
    1.25 -   {:main-exp 500
    1.26 -    :attack-exp 0xFFFF
    1.27 -    :defense-exp 0xFFFF
    1.28 -    :speed-exp 0xFFFF
    1.29 -    :special-exp 0xFFFF
    1.30 -    :hp-exp 0xFFFF}
    1.31 -
    1.32 -   :stats
    1.33 -   {:level 7
    1.34 -    :current-hp 30
    1.35 -    :hp 30
    1.36 -    :attack 18
    1.37 -    :defense 18
    1.38 -    :speed 18
    1.39 -    :special 18}
    1.40 -   :moves [[:transform {:pp-ups 0 :current-pp 5}]]})
    1.41 -
    1.42  (defn expand-pokemon
    1.43    "Given a map describing a pokemon, fill in any missing
    1.44     values based on the ones already present."
    1.45 @@ -463,3 +437,16 @@
    1.46                            new-pokemon-data)))
    1.47    ([poke-num new-pokemon-data]
    1.48       (edit-pokemon @current-state poke-num new-pokemon-data)))
    1.49 +
    1.50 +(defn give-powerful-party
    1.51 +  ([^SaveState state]
    1.52 +     (-> state
    1.53 +          (give-pokemon 0 tauros)
    1.54 +          (give-pokemon 1 chansey)
    1.55 +          (give-pokemon 2 alakazam)
    1.56 +          (give-pokemon 3 golem)
    1.57 +          (give-pokemon 4 exeggutor)
    1.58 +          (give-pokemon 5 starmie)
    1.59 +
    1.60 +          ))
    1.61 +  ([] (give-powerful-party @current-state)))
    1.62 \ No newline at end of file