Mercurial > vba-clojure
comparison clojure/com/aurellem/gb/status.clj @ 179:d63886d63b2f
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 |