Mercurial > vba-clojure

comparison clojure/com/aurellem/gb/species.clj @ 166:76b031d2f586

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
determined position of pokemon color maps
author Robert McIntyre <rlm@mit.edu>
date Tue, 20 Mar 2012 18:50:49 -0500
parents 8f1b32d3f229
children 9a7a46c4aa1b
comparison
equal deleted inserted replaced
165:8f1b32d3f229 166:76b031d2f586
1 (ns com.aurellem.gb.species 1 (ns com.aurellem.gb.species
2 (:use (com.aurellem.gb gb-driver util)) 2 (:use (com.aurellem.gb gb-driver util))
3 (:import [com.aurellem.gb.gb_driver SaveState])) 3 (:import [com.aurellem.gb.gb_driver SaveState]))
4
5 4
6 (def species-code->species-name 5 (def species-code->species-name
7 {0x01 :rhydon 6 {0x01 :rhydon
8 0x02 :kangaskhan 7 0x02 :kangaskhan
9 0x03 :nidoran-male 8 0x03 :nidoran-male
171 170
172 (set-memory state (+ species-ID-1 pokemon-num) 171 (set-memory state (+ species-ID-1 pokemon-num)
173 species-code))) 172 species-code)))
174 ([pokemon-num species-name] 173 ([pokemon-num species-name]
175 (set-species @current-state pokemon-num species-name))) 174 (set-species @current-state pokemon-num species-name)))
175
176