Mercurial > vba-clojure

comparison clojure/com/aurellem/gb/items.clj @ 173:8665160f0f3d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
saved corrupted save.
author Robert McIntyre <rlm@mit.edu>
date Wed, 21 Mar 2012 03:31:12 -0500
parents cd7979aa544e
children 4ea8ff49af87 c8ec477beeac
comparison
equal deleted inserted replaced
172:63ec3db6f6d1 173:8665160f0f3d
6 (defn game-name [] 6 (defn game-name []
7 (map char (subvec (vec (memory)) 0x134 0x142))) 7 (map char (subvec (vec (memory)) 0x134 0x142)))
8 8
9 (def item-list-start 0xD31C) 9 (def item-list-start 0xD31C)
10 10
11 (defn item-list [^SaveState state] 11 (defn item-list
12 (subvec 12 ([^SaveState state]
13 (vec (memory state)) 13 (subvec
14 item-list-start 14 (vec (memory state))
15 (+ item-list-start 150))) 15 item-list-start
16 16 (+ item-list-start 255)))
17 ([] (item-list @current-state)))
18
17 (def item-code->item-name 19 (def item-code->item-name
18 (hash-map 20 (hash-map
19 0x01 :master-ball 21 0x01 :master-ball
20 0x02 :ultra-ball 22 0x02 :ultra-ball
21 0x03 :great-ball 23 0x03 :great-ball
76 0x3C :fresh-water 78 0x3C :fresh-water
77 0x3D :soda-pop 79 0x3D :soda-pop
78 0x3E :lemonade 80 0x3E :lemonade
79 0x3F :s.s.ticket 81 0x3F :s.s.ticket
80 0x40 :gold-teeth 82 0x40 :gold-teeth
81 0x41 :x-attach 83 0x41 :x-attack
82 0x42 :x-defend 84 0x42 :x-defend
83 0x43 :x-speed 85 0x43 :x-speed
84 0x44 :x-special 86 0x44 :x-special
85 0x45 :coin-case 87 0x45 :coin-case
86 0x46 :oaks-parcel 88 0x46 :oaks-parcel