Mercurial > vba-clojure
comparison clojure/com/aurellem/gb/pokemon.clj @ 193:da1a5ed61a8d
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 |