Mercurial > vba-clojure

comparison clojure/com/aurellem/gb/status.clj @ 179:d63886d63b2f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
cleaned up code; added gb.saves
author Robert McIntyre <rlm@mit.edu>
date Wed, 21 Mar 2012 23:02:45 -0500
parents 95b2758dd517
children 893c753f8088
comparison
equal deleted inserted replaced
178:8d9e2804af9b 179:d63886d63b2f
1 (ns com.aurellem.gb.status 1 (ns com.aurellem.gb.status
2 (:use (com.aurellem.gb gb-driver util constants)) 2 (:use (com.aurellem.gb gb-driver util constants pokemon))
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)
16 :paralyzed (Integer/parseInt "01000000" 2)}) 16 :paralyzed (Integer/parseInt "01000000" 2)})
17 17
18 (def status-code->status-name 18 (def status-code->status-name
19 (zipmap (vals status-name->status-code) 19 (zipmap (vals status-name->status-code)
20 (keys status-name->status-code))) 20 (keys status-name->status-code)))
21
22 21
23 (def pokemon-1-status-address 0xD16E) 22 (def pokemon-1-status-address 0xD16E)
24 23
25 (defn pokemon-status-address [poke-num] 24 (defn pokemon-status-address [poke-num]
26 (+ pokemon-1-status-address 25 (+ pokemon-1-status-address