Mercurial > vba-clojure

comparison clojure/com/aurellem/gb/pokemon.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 8d9e2804af9b
children f0c1e5574e81
comparison
equal deleted inserted replaced
178:8d9e2804af9b 179:d63886d63b2f
2 (:use (com.aurellem.gb gb-driver util constants characters)) 2 (:use (com.aurellem.gb gb-driver util constants characters))
3 (:import [com.aurellem.gb.gb_driver SaveState])) 3 (:import [com.aurellem.gb.gb_driver SaveState]))
4 4
5 (def pokemon-names-start 0xD2B4) 5 (def pokemon-names-start 0xD2B4)
6 6
7 (defn change-party-number [^SaveState state new-num] 7 (defn set-party-number
8 (set-memory state 0xD162 new-num)) 8 ([^SaveState state new-party-num]
9 (set-memory state 0xD162 new-party-num))
10 ([new-party-num]
11 (set-party-number @current-state new-party-num)))
9 12
10 (def party-number-address 0xD162) 13 (def party-number-address 0xD162)
11 14
12 (defn party-number 15 (defn party-number
13 ([^SaveState state] 16 ([^SaveState state]