Mercurial > vba-clojure
diff clojure/com/aurellem/gb/pokemon.clj @ 326:8484e6f6db2c
saving progress before trip to Liberal.
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Wed, 04 Apr 2012 14:55:43 -0500 |
parents | ff37bc3004a7 |
children | fe6fd2323264 |
line wrap: on
line diff
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