vba-clojure: clojure/com/aurellem/run/bootstrap

comparison clojure/com/aurellem/run/bootstrap_0.clj @ 329:a452deec2882

improved efficiency of delayed-difference

author	Robert McIntyre <rlm@mit.edu>
date	Fri, 06 Apr 2012 07:22:18 -0500
parents	fe6fd2323264
children	ecff37d22293

comparison

equal deleted inserted replaced

-:35960b03693f
+:a452deec2882
 (def item-quantity-selected-address 65432)
 (defn item-quantity-selected
 ([^SaveState state]
+(println "items:" (aget (memory state) item-quantity-selected-address))
 (aget (memory state) item-quantity-selected-address))
 ([] (item-quantity-selected @current-state)))
 (defn set-cursor-relative
 "Assumes the arrow keys currently control the cursor.
 [n [moves state :as script]]
 (let [current-position (list-offset state)
 difference (- n current-position)]
 (println difference)
 (set-cursor-relative difference script)))
-(defn buy-item
+(defn set-quantity
-"Assumes that the main item-screen is up, and buys
+"Set the quantity of an item to buy or sell to the desired value
-quantity of the nth item in the list, assuming that you
+using the fewest possible button presses."
-have enough money."
+[total-quantity desired-quantity [moves state :as script]]
-[n quantity script]
+(let [current-quantity (item-quantity-selected state)
-(if (= 0  quantity)
+loop-point (if (> total-quantity 99) 0xFF 99)
-script
+distance (- desired-quantity current-quantity)
-(let [after-initial-pause
+loop-distance (int(* -1 (Math/signum (float distance))
-(do-nothing 20  script)
+(- loop-point (Math/abs distance))))
-move-to-item
+best-path (first (sort-by #(Math/abs %)
-(reduce (fn [script _]
+[distance loop-distance]))
-(->> script
+direction (if (< 0 best-path) ↑ ↓)]
-(play-moves [[:d]])
+(println "best-path" best-path)
-(do-nothing 3)))
+(reduce
-after-initial-pause
+(fn [script _]
-(range n))
+(delayed-difference [] direction 200 item-quantity-selected
-select-item
+script))
-(play-moves [[:a]] move-to-item)
-request-items
-(reduce (fn [script _]
-(->> script
-(play-moves [[:u]])
-(do-nothing 1)))
-select-item
-(range (dec quantity)))
-buy-items
-(->> request-items
-(do-nothing 10)
-(play-moves [[:a]])
-(scroll-text)
-(scroll-text)
-(do-nothing 10)
-(play-moves [[:a]])
-(scroll-text))]
-buy-items)))
+script
-(defn buy-items
+(range (Math/abs best-path)))))
-"Given a list of [item-no quantity], buys the quantity
-from the shop's list. Assumes that the item list is
-already up."
-[item-pairs script]
-(let [item-lookup (into {0 0 1 0 2 0 3 0 4 0} item-pairs)
-initial-purchase
-(->> script
-(buy-item 0 (item-lookup 0))
-(buy-item 1 (item-lookup 1))
-(buy-item 2 (item-lookup 2)))]
-(cond
-(and
-(not= 0 (item-lookup 3))
-(not= 0 (item-lookup 4)))
-(->> initial-purchase
-(do-nothing 20)
-(play-moves [[:d]])
-(do-nothing 3)
-(play-moves [[:d]])
-(do-nothing 3)
-(play-moves [[:d]])
-(do-nothing 10)
-(buy-item 0 (item-lookup 3))
-(do-nothing 20)
-(play-moves [[:d]])
-(do-nothing 3)
-(play-moves [[:d]])
-(do-nothing 3)
-(play-moves [[:d]])
-(do-nothing 10)
-(buy-item 0 (item-lookup 4)))
-(and (= 0 (item-lookup 3))
-(not= 0 (item-lookup 4)))
-(->> initial-purchase
-(do-nothing 20)
-(play-moves [[:d]])
-(do-nothing 3)
-(play-moves [[:d]])
-(do-nothing 3)
-(play-moves [[:d]])
-(do-nothing 10)
-(play-moves [[:d]])
-(do-nothing 10)
-(buy-item 0 (item-lookup 4)))
-(and (not= 0 (item-lookup 3))
-(= 0 (item-lookup 4)))
-(->> initial-purchase
-(do-nothing 20)
-(play-moves [[:d]])
-(do-nothing 3)
-(play-moves [[:d]])
-(do-nothing 3)
-(play-moves [[:d]])
-(do-nothing 10)
-(buy-item 0 (item-lookup 3)))
-(and (= 0 (item-lookup 3))
-(= 0 (item-lookup 4)))
-initial-purchase)))
-(defn test-buy-items
-([] (test-buy-items
-(walk-to-counter)))
-([script]
-(->> [(first script) (set-money (second script)
-999999)]
-(play-moves
-[[] [:a] []])
-(scroll-text)
-(do-nothing 100)
-(play-moves [[:a]])
-(do-nothing 100)
-(buy-items
-[[0 1]
-[1 15]
-[2 1]
-[3 20]
-[4 95]
-]))))
-(defn-memo buy-initial-items
-([] (buy-initial-items
-(walk-to-counter)))
-([script]
-(->> script
-(play-moves
-[[] [:a] []])
-(scroll-text)
-(do-nothing 100)
-(play-moves [[:a]])
-(do-nothing 100)
-(buy-items
-[[0 1]
-[1 1]
-[2 1]
-[3 1]
-[4 1]])
-(do-nothing 100)
-(play-moves [[:b]])
-(do-nothing 100)
-(play-moves [[:b]])
-(do-nothing 100)
-(play-moves [[:b] []])
-(first-difference [:b] [:b :start] AF))))
 (defn-memo do-save-corruption
 ([] (do-save-corruption
-(buy-initial-items)))
+(walk-to-counter)))
 ([script]
 (->> script
-(first-difference [] [:d] AF)
+(first-difference [] [:start] AF)
-(play-moves [[] [] [] [:d]
+(set-cursor 4)
-[] [] [] [:d]
+(do-nothing 5)
-[] [] [] [:d]
+(play-moves [[:a]])
-[] [] [:a]])
+(play-moves (repeat 85 [:b]))
-scroll-text
+(play-moves [[:a]])
 (play-moves
 ;; this section is copied from speedrun-2942 and corrupts
 ;; the save so that the total number of pokemon is set to
 ;; 0xFF, allowing manipulation of non-pokemon data in RAM
 ;; via the pokemon interface.
 [[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
 [] [] [] [] [] [] [] [] [] [] [] [:select] [:restart]])
 (title)
 (first-difference [] [:start] AF)
+(first-difference [] [:a] AF))))
+(defn gen-corrupted-checkpoint! []
+(let [[cor-moves cor-save] (do-save-corruption)]
+(write-moves! cor-moves "cor-checkpoint")
+(write-state! cor-save "cor-checkpoint")))
+(defn corrupted-checkpoint []
+[(read-moves "cor-checkpoint")
+(read-state "cor-checkpoint")])
+(def menu do-nothing )
+(defn-memo corrupt-item-list
+"Corrupt the num-of-items variable by switching a corrupted pokemon
+into out-of-bounds memory."
+([] (corrupt-item-list
+(corrupted-checkpoint)))
+([script]
+(->> script
+(first-difference [:a] [:a :start] AF)
+(set-cursor 1)                    ; select "POKEMON" from
+(first-difference [] [:a] AF)     ; from main menu
+(set-cursor 5)                    ; select 6th pokemon
 (first-difference [] [:a] AF)
-(first-difference [:a] [:a :start] AF))))
+(set-cursor 1)
+(first-difference [] [:a] AF)
-(def menu do-nothing )
+(repeat-until-different [] list-offset)
+(set-cursor 9)
-(defn-memo corrupt-item-list
+(first-difference [] [:a] AF)     ; switch 6th with 10th
-([] (corrupt-item-list
+(first-difference [] [:b] AF)
-(do-save-corruption)))
+(first-difference [] [:b] AF))))
-([script]
-(->> script
+(defn get-lots-of-money
-(do-nothing 200)
+"Sell 0xFE cancel buttons to make a tremendous amount of money."
-(menu [↓ [:a]])               ; select "POKEMON" from
+([] (get-lots-of-money (corrupt-item-list)))
-; from main menu
+([script]
-(menu [↓ ↓ ↓ ↓ ↓ ↓            ; go to 6th pokemon
+(->> script
-[:a] ↓ [:a]            ; select "switch"
+(first-difference [] [:a] AF)
-↓ ↓ ↓ [:a]])           ; switch with 9th "pokemon"
+(repeat-until-different [] list-offset)
+(set-cursor 1)
-(do-nothing 1))))
+(first-difference [] [:a] AF)
+(repeat-until-different [] list-offset)
+(first-difference [] [:a] AF)
+(set-quantity 0xFF 0xFE)
+(do-nothing 1)
+)))
+(def buy-items do-nothing)
 (defn-memo get-burn-heals
 ([] (get-burn-heals
 (corrupt-item-list)))
 ([script]
 (->> script

Mercurial > vba-clojure

comparison clojure/com/aurellem/run/bootstrap_0.clj @ 329:a452deec2882