Mercurial > vba-clojure

comparison clojure/com/aurellem/gb/items.clj @ 339:93e74ed34305

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
rewriting basic-writer assemly so that it is valid items
author Robert McIntyre <rlm@mit.edu>
date Sun, 08 Apr 2012 03:00:51 -0500
parents b7f682bb3090
children 3b3cd62b6106
comparison
equal deleted inserted replaced
338:92f0011925d2 339:93e74ed34305
140 0xE8 :TM32 ;; double team 140 0xE8 :TM32 ;; double team
141 0xE9 :TM33 ;; reflect 141 0xE9 :TM33 ;; reflect
142 0xEA :TM34 ;; bide 142 0xEA :TM34 ;; bide
143 0xEB :TM35 ;; metronome 143 0xEB :TM35 ;; metronome
144 0xEC :TM36 ;; self destruct 144 0xEC :TM36 ;; self destruct
145 0xED :TM37 ;; eggbomb 145 0xED :TM37 ;; egg bomb
146 0xEE :TM38 ;; fire blast 146 0xEE :TM38 ;; fire blast
147 0xEF :TM39 ;; swift 147 0xEF :TM39 ;; swift
148 0xF0 :TM40 ;; skull bash 148 0xF0 :TM40 ;; skull bash
149 0xF1 :TM41 ;; softboiled 149 0xF1 :TM41 ;; softboiled
150 0xF2 :TM42 ;; dream eater 150 0xF2 :TM42 ;; dream eater
165 165
166 (def item-name->item-code 166 (def item-name->item-code
167 (zipmap (vals item-code->item-name) 167 (zipmap (vals item-code->item-name)
168 (keys item-code->item-name))) 168 (keys item-code->item-name)))
169 169
170 (defn inventory [^SaveState state] 170 (defn raw-inventory->inventory
171 (let [items (item-list state)] 171 [raw-inventory]
172 (map 172 (map
173 (fn [[item-code quantity]] 173 (fn [[item-code quantity]]
174 [(item-code->item-name 174 [(item-code->item-name
175 item-code 175 item-code
176 item-code) 176 item-code)
177 quantity]) 177 quantity])
178 (partition 178 (partition
179 2 179 2
180 (next (take-while (partial not= 255) items)))))) 180 raw-inventory)))
181
182 (defn inventory [^SaveState state]
183 (let [items (item-list state)]
184 (raw-inventory->inventory
185 (next (take-while (partial not= 255) items)))))
181 186
182 (defn print-inventory 187 (defn print-inventory
183 ([] (print-inventory @current-state)) 188 ([] (print-inventory @current-state))
184 ([^SaveState state] 189 ([^SaveState state]
185 (println 190 (println