1.1 --- a/clojure/com/aurellem/run/bootstrap_0.clj	Tue Apr 03 04:16:20 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/bootstrap_0.clj	Tue Apr 03 23:17:33 2012 -0500
     1.3 @@ -1,5 +1,6 @@
     1.4  (ns com.aurellem.run.bootstrap-0
     1.5 -  (:use (com.aurellem.gb gb-driver util items vbm characters money))
     1.6 +  (:use (com.aurellem.gb saves gb-driver util
     1.7 +                         items vbm characters money))
     1.8    (:use (com.aurellem.run util title save-corruption))
     1.9    (:use (com.aurellem.exp item-bridge))
    1.10    (:import [com.aurellem.gb.gb_driver SaveState]))
    1.11 @@ -317,6 +318,26 @@
    1.12       (->> script 
    1.13            (walk [↑ ↑ ←]))))
    1.14  
    1.15 +
    1.16 +
    1.17 +;; useful addresses
    1.18 +52262 ;; --- current-cursor-offset
    1.19 +52278 ;; --- current screen-offset
    1.20 +
    1.21 +
    1.22 +(defn exp-item-list []
    1.23 +  (clojure.pprint/pprint
    1.24 +   (apply harmonic-compare 
    1.25 +          (map read-state 
    1.26 +               ["up-1" "down-1"
    1.27 +                "up-2" "down-2"
    1.28 +                "up-3" "down-3"
    1.29 +                "up-4" "down-4"
    1.30 +                "up-5" "down-5"
    1.31 +                "up-6"]))))
    1.32 +			
    1.33 +
    1.34 +
    1.35  (defn buy-item
    1.36    "Assumes that the main item-screen is up, and buys
    1.37     quantity of the nth item in the list, assuming that you