Mercurial > vba-clojure

comparison clojure/com/aurellem/gb/status.clj @ 192:fd549c8f42ae

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fixed compilation problems, added more functionality to pokemon-info
author Robert McIntyre <rlm@mit.edu>
date Thu, 22 Mar 2012 22:35:57 -0500
parents 893c753f8088
children
comparison
equal deleted inserted replaced
191:893c753f8088 192:fd549c8f42ae
1 (ns com.aurellem.gb.status 1 (ns com.aurellem.gb.status
2 (:use (com.aurellem.gb gb-driver util constants pokemon)) 2 (:use (com.aurellem.gb gb-driver util constants))
3 (:import [com.aurellem.gb.gb_driver SaveState])) 3 (:import [com.aurellem.gb.gb_driver SaveState]))
4 4
5 (def status-name->status-code 5 (def status-name->status-code
6 {:normal (Integer/parseInt "00000000" 2) 6 {:normal (Integer/parseInt "00000000" 2)
7 :sleep-1 (Integer/parseInt "00000001" 2) 7 :sleep-1 (Integer/parseInt "00000001" 2)
42 (assert status-code) 42 (assert status-code)
43 (set-memory state 43 (set-memory state
44 (pokemon-status-address poke-num) 44 (pokemon-status-address poke-num)
45 status-code))) 45 status-code)))
46 ([poke-num status] 46 ([poke-num status]
47 (give-stat @current-state poke-num status)) 47 (give-status @current-state poke-num status))
48 ([status] 48 ([status]
49 (give-stat @current-state 0 status))) 49 (give-status @current-state 0 status)))
50 50
51 (defn give-status-all
52 ([^SaveState state status]
53 (reduce (fn [state num]
54 (give-stat state num status))
55 state
56 (range (party-number state))))
57 ([status]
58 (give-stat-all @current-state status)))