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

comparison clojure/com/aurellem/run/bootstrap_1.clj @ 368:08f8284e2f1b

cleaning up code

author	Robert McIntyre <rlm@mit.edu>
date	Tue, 10 Apr 2012 03:32:47 -0500
parents	845b2d88bef9
children	abcc522a3242

comparison

equal deleted inserted replaced

-:845b2d88bef9
+:08f8284e2f1b
 0x18  ;; relative jump backwards
 0xCD  ;; literal -51 == TM05; go back to input section
 0x01  ;; (item-hack) will never reach this instruction
 ]
-(repeat 8 [0x00 0x01])
+(repeat 8 [0x00 0x02]);; these can be anything
 [;; jump to actual program
 0x00
 0x37  ;; (item-hack) set carry flag no-op
 (defn wait-for-quantity
 [[moves state :as script]]
 (if (not= (item-quantity-selected state) 1)
 (repeat-until-different [] item-quantity-selected script)
 script))
+;; TODO use this:
+;;(wait-until (partial set-cursor-relative 1))
 (defn wait-for-cursor
 [[moves state :as script]]
 (if (not= (list-offset state) 0)
 (repeat-until-different [] list-offset script)
 "Assumes that you are facing something that initiates text and
 causes it to do so."
 [script]
 (->> script
 (delayed-difference [] [:a] 100
-#(aget (memory %) text-address))))
+first-character)))
 (defn-memo get-money-floor-two
 ([] (get-money-floor-two (go-to-floor-two)))
 ([script]
 (->> script
 activate-rlm-pc
 begin-withdraw
 (widthdraw-pc-item 0 99)
 (widthdraw-pc-item 0 1)
 (widthdraw-pc-item 2 0xFE)
-(widthdraw-pc-item 3 0xFE))))
+(widthdraw-pc-item 3 0xFE)
+close-menu)))
 (defn-memo hacking-4
 ([] (hacking-4 (hacking-3)))
 ([script]
 (->> script
-close-menu
 begin-deposit
 (deposit-held-item 19 243)
 (deposit-held-item-named :lemonade 16)
 (deposit-held-item 18 224))))
 (deposit-held-item-named :ice-heal 55)
 (deposit-held-item-named :fire-stone 23)
 (deposit-held-item-named :burn-heal 12)
 close-menu)))
+(defn switch-items [item-fn idx-1 idx-2 script]
+(->> script
+(wait-until select-menu-entry)
+(set-cursor idx-1)
+(wait-until select-menu-entry)
+(play-moves [[][:select][]])
+(set-cursor idx-2)
+(delayed-difference [] [:select] 100
+#(item-fn % (list-offset %)))))
+(def switch-pc-items (partial switch-items nth-pc-item))
+(def switch-held-items (partial switch-items nth-item))
+(defn combine-pc-items [idx-1 script]
+(->> script
+(switch-pc-items idx-1 (inc idx-1))))
 (defn combine-items [idx-1 script]
 (->> script
 (wait-until select-menu-entry)
 (set-cursor idx-1)
 (wait-until select-menu-entry)
 (widthdraw-pc-item 8 1)
 (widthdraw-pc-item 8 1)
 (widthdraw-pc-item 9 0xFE)
 (multiple-times
 7
-(partial combine-items 2))
+(partial combine-pc-items 2))
 close-menu)))
 (defn-memo hacking-10
 ([] (hacking-10 (hacking-9)))
 ([script]
 (delayed-difference [] [:a] 100 #(search-string % "Is"))
 (scroll-text)
 select-menu-entry
 (scroll-text))))
-(defn hacking-13
+(defn-memo hacking-13
 ([] (hacking-13 (hacking-12)))
 ([script]
 (->> script
 (set-cursor-relative 1)
 (select-menu-entry)
 (toss-pc-item 1 1)
 (toss-pc-item 0 156)
-(toss-pc-item 0 11)
+(toss-pc-item 0 11))))
-close-menu)))
+(defn confirm-pattern []
+(let [start-address (inc pc-item-list-start)
+target-pattern (pc-item-writer-program)
+actual-pattern
+(subvec (vec (memory (second (hacking-13))))
+start-address
+(+ start-address (count target-pattern)))]
+(println target-pattern)
+(println actual-pattern)
+(= target-pattern actual-pattern)))
+;; this will be useful for starting program
+(defn-memo go-to-mansion-for-the-lulz
+([] (go-to-mansion-for-the-lulz (hacking-13)))
+([script]
+(->> script
+close-menu
+close-menu
+end-text ;;grr
+(walk [↓ ← ← ← ← ← ← ← ← ← ↓ ↓ ↓])
+(walk (repeat 17 ←))
+(walk [↑ → → → → ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑])
+(walk [↓ ← ↑])
+(walk [↓ ↓ ↓ ↓ ↓ ↓ ↓
+← ← ← ← ↑ ↑ ↑ ← ↑])
+(talk)
+(scroll-text 2)
+close-menu)))
+(defn get-cursor [script]
+(wait-until (partial set-cursor-relative 1) script))
+(defn-memo launch-bootstrap-program
+([] (launch-bootstrap-program
+(go-to-mansion-for-the-lulz)))
+([script]
+(->> script
+;; must corrupt item list again by switching pokemon
+activate-start-menu
+;;get-cursor
+(set-cursor 0)
+select-menu-entry
+;;get-cursor
+(select-menu-entry)
+;;get-cursor
+(set-cursor 1)
+(select-menu-entry)
+;;get-cursor
+(set-cursor 3)
+(delayed-difference [] [:a] 50 first-character)
+close-menu
+;; now, open items and set map-function
+;;get-cursor
+(set-cursor 1)
+(select-menu-entry)
+(toss-held-item 22 12)
+(switch-held-items 22 40)
+close-all-menus)))

Mercurial > vba-clojure

comparison clojure/com/aurellem/run/bootstrap_1.clj @ 368:08f8284e2f1b