rlm@98: (ns com.aurellem.items rlm@98: (:use (com.aurellem gb-driver vbm title)) rlm@99: ;; this is bullshit rlm@98: (:import [com.aurellem.gb_driver SaveState])) rlm@98: rlm@98: (defn game-name [] rlm@98: (map char (subvec (vec (memory)) 0x134 0x142))) rlm@98: rlm@99: (def item-list-start 0xD31C) rlm@98: rlm@99: (defn item-list [^SaveState state] rlm@99: (subvec rlm@99: (vec (memory state)) rlm@99: item-list-start rlm@99: (+ item-list-start 60))) rlm@98: rlm@98: (def item-hack-3 (read-state 77557)) rlm@98: rlm@99: (def item-code->item-name rlm@99: (hash-map rlm@99: 1 :master-ball rlm@99: 2 :ultra-ball rlm@99: 3 :great-ball rlm@99: 4 :poke-ball rlm@99: 5 :town-map rlm@99: 6 :bicycle rlm@99: 8 :safari-ball rlm@99: 9 :pokedex rlm@99: 10 :moon-stone rlm@99: 11 :antidote rlm@99: 12 :burn-heal rlm@99: 13 :ice-heal rlm@99: 14 :awakening rlm@99: 15 :parlyz-heal rlm@99: 16 :full-restore rlm@99: 17 :max-potion rlm@99: 18 :hyper-potion rlm@99: 19 :super-potion rlm@99: 20 :potion rlm@99: 21 :boulderbadge rlm@99: 22 :cascadebadge rlm@99: 23 :thunderbadge rlm@99: 24 :rainbowbadge rlm@99: 25 :soulbadge rlm@99: 26 :marshbadge rlm@99: 27 :volcanobadge rlm@99: 28 :earthbadge rlm@99: 29 :escape-rope rlm@99: 30 :repel rlm@99: 31 :old-amber rlm@99: 32 :fire-stone rlm@99: 33 :thunderstone rlm@99: 34 :water-stone rlm@99: 35 :hp-up rlm@99: 36 :protein rlm@99: 37 :iron rlm@99: 38 :carbos rlm@99: 39 :calcium rlm@99: 40 :rare-candy rlm@99: 41 :dome-fossil rlm@99: 42 :helix-fossil rlm@99: 43 :secret-key rlm@99: 45 :bike-voucher rlm@99: 46 :x-accuracy rlm@99: 47 :leaf-stone rlm@99: 48 :card-key rlm@99: 49 :nugget rlm@99: 50 :pp-up rlm@99: 51 :poke-doll rlm@99: 52 :full-heal rlm@99: 53 :revive rlm@99: 54 :max-revive rlm@99: 55 :guard-spec rlm@99: 56 :super-repel rlm@99: 57 :max-repel rlm@99: 58 :dire-hit rlm@99: 59 :coin rlm@99: 60 :fresh-water rlm@99: 61 :soda-pop rlm@99: 62 :lemonade rlm@99: 63 :s.s.ticket rlm@99: 64 :gold-teeth rlm@99: 65 :x-attach rlm@99: 66 :x-defend rlm@99: 67 :x-speed rlm@99: 68 :x-special rlm@99: 69 :coin-case rlm@99: 70 :oaks-parcel rlm@99: 71 :itemfinder rlm@99: 72 :silph-scope rlm@99: 73 :poke-flute rlm@99: 74 :lift-key rlm@99: 75 :exp.all rlm@99: 76 :old-rod rlm@99: 77 :good-rod rlm@99: 78 :super-rod rlm@99: 79 :pp-up rlm@99: 80 :ether rlm@99: 81 :max-ether rlm@99: 82 :elixer rlm@99: 83 :max-elixer rlm@99: 196 :HM01 rlm@99: 197 :HM02 rlm@99: 198 :HM03 rlm@99: 199 :HM04 rlm@99: 200 :HM05 rlm@99: 201 :TM01 rlm@99: 202 :TM02 rlm@99: 203 :TM03 rlm@99: 204 :TM04 rlm@99: 205 :TM05 rlm@99: 206 :TM06 rlm@99: 207 :TM07 rlm@99: 208 :TM08 rlm@99: 209 :TM09 rlm@99: 210 :TM10 rlm@99: 211 :TM11 rlm@99: 212 :TM12 rlm@99: 213 :TM13 rlm@99: 214 :TM13 rlm@99: 215 :TM15 rlm@99: 216 :TM16 rlm@99: 217 :TM17 rlm@99: 218 :TM18 rlm@99: 219 :TM19 rlm@99: 220 :TM20 rlm@99: 221 :TM21 rlm@99: 222 :TM22 rlm@99: 223 :TM23 rlm@99: 224 :TM24 rlm@99: 225 :TM25 rlm@99: 226 :TM26 rlm@99: 227 :TM27 rlm@99: 228 :TM28 rlm@99: 229 :TM29 rlm@99: 230 :TM30 rlm@99: 231 :TM31 rlm@99: 232 :TM32 rlm@99: 233 :TM33 rlm@99: 234 :TM34 rlm@99: 235 :TM35 rlm@99: 236 :TM36 rlm@99: 237 :TM37 rlm@99: 238 :TM38 rlm@99: 239 :TM39 rlm@99: 240 :TM40 rlm@99: 241 :TM41 rlm@99: 242 :TM42 rlm@99: 243 :TM43 rlm@99: 244 :TM44 rlm@99: 245 :TM45 rlm@99: 246 :TM46 rlm@99: 247 :TM47 rlm@99: 248 :TM48 rlm@99: 249 :TM49 rlm@99: 250 :TM50 rlm@99: 251 :TM51 rlm@99: 252 :TM52 rlm@99: 253 :TM53 rlm@99: 254 :TM54 rlm@99: 255 :end-of-list-sentinel)) rlm@98: rlm@99: (def item-name->item-code rlm@99: (zipmap (vals item-code->item-name) rlm@99: (keys item-code->item-name))) rlm@98: rlm@99: (defn inventory [^SaveState state] rlm@99: (let [items (item-list state)] rlm@99: (map rlm@99: (fn [[item-code quantity]] rlm@99: [(item-code->item-name item-code) rlm@99: quantity]) rlm@99: (partition rlm@99: 2 rlm@99: (next (take-while (partial not= 255) items)))))) rlm@98: rlm@99: (defn print-inventory [^SaveState state] rlm@99: (println rlm@99: (let [inv (inventory state)] rlm@99: (reduce rlm@99: str rlm@99: (concat rlm@99: ["+-------------------+----------+\n" rlm@99: "|##| Item | Quantity |\n" rlm@99: "+--+----------------+----------+\n"] rlm@98: rlm@99: (map rlm@99: (fn [index [item-name quantity]] rlm@99: (str rlm@99: (format "|%-2d| %-14s | %3d |\n" index rlm@99: (apply str (rest (str item-name))) rlm@99: quantity))) rlm@99: (range 0 (count inv)) inv) rlm@99: ["+--+----------------+----------+\n"]))))) rlm@98: rlm@99: (defn inventory-codes [inventory] rlm@99: (flatten rlm@99: (concat [(count inventory)] rlm@99: (map (fn [[item-name quantity]] rlm@99: [(item-name->item-code item-name) rlm@99: quantity]) inventory) rlm@99: [(item-name->item-code :end-of-list-sentinel)]))) rlm@98: rlm@99: (defn set-inventory [^SaveState state new-inventory] rlm@99: (set-state! state) rlm@99: (let [mem (memory state) rlm@99: inv (inventory-codes new-inventory)] rlm@98: rlm@99: (dorun (map (fn [index val] rlm@99: (aset mem index val)) rlm@99: (range item-list-start rlm@99: (+ item-list-start (count inv))) inv)) rlm@99: (write-memory! mem) rlm@99: (update-state))) rlm@98: