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

comparison clojure/com/aurellem/run/bootstrap_0.clj @ 333:61a096a53330

fixed problem with rival's name.

author	Robert McIntyre <rlm@mit.edu>
date	Fri, 06 Apr 2012 14:41:28 -0500
parents	5c2041d1cdda
children	57f4c57d2897

comparison

equal deleted inserted replaced

-:5c2041d1cdda
+:61a096a53330
 (play-moves
 [[]
 [] [] [:r] [] [:d] [:a]           ;; L
 [:r] [] [:r] [] [:r] [] [:r] []
 [:r] [] [:d] [] [:d] [:a]         ;; [PK]
-[:u] [] [:l] [] [:l] [] [:l] []
+[:u] [] [:l] [] [:l] []
-[:l] [] [:l] [] [:a]              ;; U
+[:l] [] [:l] [] [:l] [:a]         ;; U
-[:r] [] [:r] [] [:r] [] [:r] []
+[:r] [] [:r] [] [:r] []
-[:r] [] [] [:d] [:a]              ;; [PK]
+[:r] [] [:r] [] [:d] [:a]         ;; [PK]
 [] [:a]                           ;; [PK]
 [] [:a]                           ;; [PK]
 [:r] [] [:d] [:a]                 ;; END
 ]))))
-;; (defn-memo name-rival-bootstrap
-;;   ([] (name-rival-bootstrap (to-rival-name)))
-;;   ([script]
-;;      (->> script
-;;          (first-difference [] [:a] AF)
-;;          (first-difference [] [:r] DE)
-;;          (play-moves
-;;           [[]
-;;            [] [] [:r] []
-;;            [:r] [] [:r] [] [:r] [] [:r] []
-;;            [:r] [] [:d] [] [:d] [] [:d] [:a];; PK
-;;            [] [:a]                          ;; PK
-;;            [:u] [] [:l] [] [:l] [] [:l] []
-;;            [:l] [] [:l] [:a]                ;; U
-;;            [:d] [] [:r] [] [:r] [] [:r] []
-;;            [:r] [] [:r] [:a]                ;; PK
-;;            [:u] [] [:l] [] [:l] [] [:l] []
-;;            [:l] [] [:l] [] [:u] [:a]        ;; L
-;;            [:d] [] [:r] [] [:r] [] [:r] []
-;;            [:r] [] [:r] [] [:d] [:a]        ;; PK
-;;            [:r] [] [:d] [:a]                ;; END
-;;            ]))))
 (defn-memo leave-house
 ([] (leave-house (name-rival-bootstrap)))
 ([script]
 (->> script
 [↓ ↓ ← ↓
 ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓
 → → → ↓])
 (walk-thru-grass
-[↓ ↓ ↓ ↓])
+[↓ ↓ ↓])
-(walk [← ← ↓ ↓ ↓ ↓ ↓ ↓])
+(walk [↓ ← ← ↓ ↓ ↓ ↓ ↓ ↓])
 (walk-thru-grass
 [↓ ↓ ↓ ↓ ↓ ↓])
 (walk [↓ ↓ ↓ ← ↓ ↓ ↓
 ([^SaveState state]
 (let [mem (memory state)]
 (+ (aget mem list-screen-offset-address)
 (aget mem list-cursor-offset-address))))
 ([] (list-offset @current-state)))
 (defn exp-item-selection []
 (clojure.pprint/pprint
 (apply memory-compare
 (map read-state
 (def menu do-nothing )
 (defn close-menu [script]
 (first-difference [] [:b] AF script))
-;; (defn select-menu-entry* [script]
-;;   (let [wait-time
-;;         (- (dec (count (first (set-cursor-relative 1 script))))
-;;            (count (first script)))]
-;;     (println "wait-time" wait-time)
-;;     (play-moves (concat (repeat wait-time []) [[:a] []]) script)))
 (defn purchase-item
 "Assumes that the cursor is over the desired item, and purchases
 quantity of that item."
 [n script]
 (->> script
 (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)
+(corrupted-checkpoint)
-(do-save-corruption)
+;;(do-save-corruption)
 ))
 ([script]
 (->> script
 activate-start-menu
 (set-cursor 1)        ; select "POKEMON" from
 select-menu-entry
 (repeat-until-different [] list-offset)
 (set-cursor 9)
 select-menu-entry     ; switch 6th with 10th
 close-menu
-close-menu )))
+close-menu)))
 (defn-memo get-lots-of-money
 "Sell 0xFE cancel buttons to make a tremendous amount of money."
 ([] (get-lots-of-money (corrupt-item-list)))
 ([script]
 (repeat-until-different [] list-offset)
 select-menu-entry
 (set-quantity 0xFF 0xF7)
 (first-difference [] [:a] AF)
 select-menu-entry
-close-menu
+close-menu)))
-)))
 (defn note [str script]
 (println str) script)
 (defn-memo buy-bootstrapping-items
 (repeat-until-different [] list-offset)
 (set-cursor 9)                  ; goto 10th pokemon
 select-menu-entry               ; do switch
 close-menu
 close-menu)))
-(defn-memo viridian-store->viridian-poke-center
+(defn leave-viridian-store
-([] (viridian-store->viridian-poke-center
+([] (leave-viridian-store (corrupt-item-list-again)))
-(corrupt-item-list-again)))
 ([script]
 (->> script
 ;; leave store
-(walk [↓ ↓
+(walk [↓ ↓ → ↓])
-→ ↓ ↓])
+(do-nothing 1))))
-(walk [← ← ←
-↓ ↓ ↓ ↓ ↓
+(defn force-encounter [direction script]
-← ← ← ↑]))))
+(delayed-improbability-search
+600
+#(search-string % "Wild")
+(partial move direction) script))
+(defn-memo fight-wild-pokemon
+([] (fight-wild-pokemon (leave-viridian-store)))
+([script]
+(->> script
+(walk [↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓
+← ← ← ← ← ← ← ←
+↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓])
+(force-encounter →))))
+(defn-memo run-from-pokemon
+([] (run-from-pokemon (fight-wild-pokemon)))
+([script]
+(->> script
+(scroll-text)
+(wait-until select-menu-entry)
+(set-cursor 1)
+(first-difference [] → AF)
+(scroll-text)
+(scroll-text))))
 (defn-memo to-poke-center-computer
 ([] (to-poke-center-computer
-(viridian-store->viridian-poke-center)))
+(run-from-pokemon)))
 ([script]
 (->> script
-(walk [→ →
+(walk-thru-grass [→ ↑])
+(walk [↑ ← ← ←
+↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑
+← ←
+↑ ↑ ↑ ↑
+→ → → → ↑])
+(walk [→ →
 ↑ ↑ ↑
-→ → → → → → → → →])
+→ → → → → → → → →]))))
-(do-nothing 1))))
 (defn-memo begin-deposits
 ([] (begin-deposits
 (to-poke-center-computer)))
 ([script]
 (->> script
 5
 [0xFF 0x01])
 [;; first part of item manipulation program
 0x00
-0x21   ;; load target + 1  into HL
+0x21   ;; load target into HL
-0x95   ;; this is the target address + 1
+0x94   ;; this is the target address
 0xD5
 0x00   ;; relative jump back to first part
 0x18

Mercurial > vba-clojure

comparison clojure/com/aurellem/run/bootstrap_0.clj @ 333:61a096a53330