vba-clojure: clojure/com/aurellem/gb/pokemon.clj comparison

saving progress before trip to Liberal.

comparison

equal deleted inserted replaced

-:a5cdb2f76307
+:8484e6f6db2c
 (ns com.aurellem.gb.pokemon
 (:use (com.aurellem.gb gb-driver util constants characters
 moves types items status dv species
-experience stats
+experience stats pokemon-presets
 ))
 (:import [com.aurellem.gb.gb_driver SaveState]))
 (def pokemon-names-start 0xD2B4)
 state
 (range (party-number state))))
 ([status]
 (give-status-all @current-state status)))
-(def pokemon-base
-{:dv {:attack 15 :hp 15 :defense 15
-:special 15 :speed 15}
-:species :ditto
-:original-trainer "RLM"
-:ID 5195
-:status :normal
-:experience
-{:main-exp 500
-:attack-exp 0xFFFF
-:defense-exp 0xFFFF
-:speed-exp 0xFFFF
-:special-exp 0xFFFF
-:hp-exp 0xFFFF}
-:stats
-{:level 7
-:current-hp 30
-:hp 30
-:attack 18
-:defense 18
-:speed 18
-:special 18}
-:moves [[:transform {:pp-ups 0 :current-pp 5}]]})
 (defn expand-pokemon
 "Given a map describing a pokemon, fill in any missing
 values based on the ones already present."
 [pokemon]
 (-> (merge pokemon-base pokemon)
 (give-pokemon state poke-num
 (merge (pokemon state poke-num)
 new-pokemon-data)))
 ([poke-num new-pokemon-data]
 (edit-pokemon @current-state poke-num new-pokemon-data)))
+(defn give-powerful-party
+([^SaveState state]
+(-> state
+(give-pokemon 0 tauros)
+(give-pokemon 1 chansey)
+(give-pokemon 2 alakazam)
+(give-pokemon 3 golem)
+(give-pokemon 4 exeggutor)
+(give-pokemon 5 starmie)
+))
+([] (give-powerful-party @current-state)))

Mercurial > vba-clojure