Mercurial > vba-clojure
view clojure/com/aurellem/gb/status.clj @ 466:b31cd6651375
working on noise.
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Fri, 04 May 2012 04:13:13 -0500 |
parents | fd549c8f42ae |
children |
line wrap: on
line source
1 (ns com.aurellem.gb.status2 (:use (com.aurellem.gb gb-driver util constants))3 (:import [com.aurellem.gb.gb_driver SaveState]))5 (def status-name->status-code6 {:normal (Integer/parseInt "00000000" 2)7 :sleep-1 (Integer/parseInt "00000001" 2)8 :sleep-2 (Integer/parseInt "00000010" 2)9 :sleep-3 (Integer/parseInt "00000011" 2)10 :sleep-4 (Integer/parseInt "00000100" 2)11 :sleep-5 (Integer/parseInt "00000101" 2)12 :sleep-6 (Integer/parseInt "00000111" 2)13 :poisoned (Integer/parseInt "00001000" 2)14 :burned (Integer/parseInt "00010000" 2)15 :frozen (Integer/parseInt "00100000" 2)16 :paralyzed (Integer/parseInt "01000000" 2)})18 (def status-code->status-name19 (zipmap (vals status-name->status-code)20 (keys status-name->status-code)))22 (def pokemon-1-status-address 0xD16E)24 (defn pokemon-status-address [poke-num]25 (+ pokemon-1-status-address26 (* poke-num pokemon-record-width)))28 (defn read-status29 ([^SaveState state poke-num]30 (assert (<= 0 poke-num 5))31 (status-code->status-name32 (aget (memory state)33 (pokemon-status-address poke-num))))34 ([poke-num]35 (read-status @current-state poke-num)))37 (defn give-status38 ([^SaveState state poke-num status]39 (assert (<= 0 poke-num 5))40 (let [status-code41 (status-name->status-code status)]42 (assert status-code)43 (set-memory state44 (pokemon-status-address poke-num)45 status-code)))46 ([poke-num status]47 (give-status @current-state poke-num status))48 ([status]49 (give-status @current-state 0 status)))