Mercurial > vba-clojure

comparison clojure/com/aurellem/gb/pokemon.clj @ 193:da1a5ed61a8d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
minor reformatting.
author Robert McIntyre <rlm@mit.edu>
date Thu, 22 Mar 2012 22:37:35 -0500
parents fd549c8f42ae
children 1844bdd56314
comparison
equal deleted inserted replaced
192:fd549c8f42ae 193:da1a5ed61a8d
217 nickname (pokemon-nickname state poke-num) 217 nickname (pokemon-nickname state poke-num)
218 status (read-status state poke-num) 218 status (read-status state poke-num)
219 stats (read-stats state poke-num) 219 stats (read-stats state poke-num)
220 experience (read-experience state poke-num) 220 experience (read-experience state poke-num)
221 OT-name (read-OT-name state poke-num) 221 OT-name (read-OT-name state poke-num)
222 ID (read-OT-id state poke-num) 222 ID (read-OT-id state poke-num)]
223 ] 223 {;; persistent
224 224 :name nickname
225 {:name nickname
226 :species species 225 :species species
227 :species2 species2 226 :species2 species2
228 :type type 227 :type type
229 :dv dv-values 228 :dv dv-values
230 :original-trainer OT-name 229 :original-trainer OT-name
231 :ID ID 230 :ID ID
232
233 :moves (zipmap moves moves-pp) 231 :moves (zipmap moves moves-pp)
234 232
233 ;; ephemerial
235 :satus status 234 :satus status
236 :stats stats 235 :stats stats
237 :experience experience 236 :experience experience
238 237 }))
239 }
240 ))
241 ([poke-num] 238 ([poke-num]
242 (pokemon-info @current-state poke-num))) 239 (pokemon-info @current-state poke-num)))
243 240
244 241
245 (defn give-status-all 242 (defn give-status-all