diff clojure/com/aurellem/gb/items.clj @ 181:4ea8ff49af87

modified give-items to work with glitched items.
author Robert McIntyre <rlm@mit.edu>
date Thu, 22 Mar 2012 02:02:07 -0500
parents 8665160f0f3d
children f0c1e5574e81
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/gb/items.clj	Thu Mar 22 01:25:39 2012 -0500
     1.2 +++ b/clojure/com/aurellem/gb/items.clj	Thu Mar 22 02:02:07 2012 -0500
     1.3 @@ -24,6 +24,7 @@
     1.4     0x04 :poke-ball
     1.5     0x05 :town-map
     1.6     0x06 :bicycle
     1.7 +   0x07 :surfboard
     1.8     0x08 :safari-ball
     1.9     0x09 :pokedex
    1.10     0x0A :moon-stone
    1.11 @@ -170,7 +171,7 @@
    1.12       (fn [[item-code quantity]]
    1.13         [(item-code->item-name
    1.14           item-code
    1.15 -         (str ":0x" (.toUpperCase (Integer/toHexString item-code))))
    1.16 +         item-code)
    1.17             quantity])
    1.18       (partition
    1.19        2
    1.20 @@ -202,7 +203,7 @@
    1.21    (flatten
    1.22     (concat [(count inventory)]
    1.23             (map (fn [[item-name quantity]]
    1.24 -                  [(item-name->item-code item-name)
    1.25 +                  [(item-name->item-code item-name item-name)
    1.26                     quantity]) inventory)
    1.27             [(item-name->item-code :end-of-list-sentinel)])))
    1.28