Mercurial > vba-clojure

     1 (ns com.aurellem.run.bootstrap-1

     2   (:use (com.aurellem.gb saves gb-driver util

     3                          items vbm characters money))

     4   (:use (com.aurellem.run util title save-corruption bootstrap-0))

     5   (:use (com.aurellem.exp item-bridge))

     6   (:import [com.aurellem.gb.gb_driver SaveState]))

     7 

     8 (defn pc-item-writer-program

     9   []

    10   (let [limit 201

    11         [target-high target-low] (disect-bytes-2 0xD162)]

    12     (flatten

    13      [[0x00  ;; (item-hack) set increment stack pointer no-op

    14        0x1E  ;; load limit into E

    15        limit

    16        0x3F  ;; (item-hack) set carry flag no-op

    17 

    18        ;; load 2 into C.

    19        0x0E   ;; C == 1 means input-first nybble

    20        0x04   ;; C == 0 means input-second nybble

    21 

    22        0x21 ;; load target into HL

    23        target-low

    24        target-high

    25        0x37 ;; (item-hack) set carry flag no-op

    26 

    27        0x00 ;; (item-hack) no-op

    28        0x37 ;; (item-hack) set carry flag no-op

    29        

    30        0x00 ;; (item-hack) no-op

    31        0xF3 ;; disable interrupts

    32        ;; Input Section

    33 

    34        0x3E ;; load 0x20 into A, to measure buttons

    35        0x10 

    36 

    37        0x00 ;; (item-hack) no-op

    38        0xE0 ;; load A into [FF00]

    39        0x00

    40 

    41        0xF0 ;; load 0xFF00 into A to get

    42        0x00 ;; button presses

    43        

    44        0xE6

    45        0x0F ;; select bottom four bits of A

    46        0x37 ;; (item-hack) set carry flag no-op

    47 

    48        0x00 ;; (item-hack) no-op

    49        0xB8 ;; see if input is different (CP A B)

    50 

    51        0x00 ;; (item-hack) (INC SP)

    52        0x28 ;; repeat above steps if input is not different

    53        ;; (jump relative backwards if B != A)

    54        0xED ;; (literal -19) (item-hack) -19 == egg bomb (TM37)

    55 

    56        0x47 ;; load A into B

    57        

    58        0x0D ;; dec C

    59        0x37 ;; (item-hack) set-carry flag

    60        ;; branch based on C:

    61        0x20 ;; JR NZ

    62        23 ;; skip "input second nybble" and "jump to target" below

    63        

    64        ;; input second nybble

    65 

    66        0x0C ;; inc C

    67        0x0C ;; inc C

    68 

    69        0x00 ;; (item-hack) no-op

    70        0xE6 ;; select bottom bits

    71        0x0F

    72        0x37 ;; (item-hack) set-carry flag no-op

    73 

    74        0x00 ;; (item-hack) no-op

    75        0xB2 ;; (OR A D) -> A

    76 

    77        0x22 ;; (do (A -> (HL)) (INC HL))

    78 

    79        0x1D ;; (DEC E)

    80 

    81        0x00 ;; (item-hack) 

    82        0x20 ;; jump back to input section if not done

    83        0xDA ;; literal -36 == TM 18 (counter)

    84        0x01 ;; (item-hack) set BC to literal (no-op)

    85 

    86        ;; jump to target

    87        0x00  ;; (item-hack) these two bytes can be anything.

    88        0x01 

    89 

    90        0x00   ;; (item-hack) no-op

    91        0xBF   ;; (CP A A) ensures Z

    92        

    93        0xCA   ;; (item-hack) jump if Z

    94        target-low

    95        target-high

    96        0x01   ;; (item-hack) will never be reached.

    97        

    98        ;; input first nybble

    99        0x00

   100        0xCB

   101        0x37  ;; swap nybbles on A

   102 

   103        0x57  ;; A -> D

   104 

   105        0x37  ;; (item-hack) set carry flag no-op

   106        0x18  ;; relative jump backwards

   107        0xCD  ;; literal -51 == TM05; go back to input section

   108        0x01  ;; (item-hack) will never reach this instruction

   109 

   110        ]

   111       (repeat 8 [0xFF 0x01])

   112 

   113       [;; jump to actual program

   114        0x00

   115        0x37  ;; (item-hack) set carry flag no-op

   116 

   117        0x2E  ;; 0x3A -> L

   118        0x3A

   119 

   120 

   121        0x00  ;; (item-hack) no-op

   122        0x26  ;; 0xD5 -> L

   123        0xD5  

   124        0x01  ;; (item-hack) set-carry BC

   125 

   126        0x00  ;; (item-hack) these can be anything

   127        0x01  

   128 

   129        0x00

   130        0xE9 ;; jump to (HL)

   131        ]])))

   132 

   133 (defn view-desired-item-layout []

   134   (clojure.pprint/pprint

   135    (raw-inventory->inventory (pc-item-writer-program))))

   136 

   137 (defn pc-item-writer-state []

   138     (-> (read-state "bootstrap-init")

   139       (set-memory pc-item-list-start 50)

   140       (set-memory-range

   141        map-function-address-start

   142        [0x8B 0xD5])

   143       (set-memory-range

   144        (inc pc-item-list-start)

   145        (pc-item-writer-program))))

   146 

   147 (defn test-pc-item-writer []

   148   (let [orig (read-state "pc-item-writer")]

   149     (-> orig

   150     (print-listing 0xD162 (+ 0xD162 20))

   151     (run-moves (reduce concat

   152                 (repeat 10 [[:a :b :start :select] []])))

   153     ((fn [_] (println "===========") _))

   154     (print-listing 0xD162 (+ 0xD162 20)))))

   155 

   156 (defn close-all-menus [[moves state :as script]]

   157   (loop [s script]

   158     (let [depth (current-depth (second (do-nothing 50 s)))]

   159       (println "depth" depth)

   160       (if (= depth 1)

   161         s

   162         (recur (close-menu s))))))

   163 

   164 (defn-memo name-rival

   165   ([] (name-rival (to-rival-name)))

   166   ([script]

   167      (->> script

   168           (first-difference [] [:a] AF)

   169           (first-difference [] [:r] DE)

   170           (play-moves

   171            [[]

   172             [] [] [:r] [] [:d] [:a]           ;; L

   173             [:r] [] [:r] [] [:r] [] [:r] [] 

   174             [:r] [] [:d] [] [:d] [:a]         ;; [PK]

   175             [:d] [] [:r] [:a]

   176             ]))))

   177 

   178 (defn-memo to-room-pc

   179   ([] (to-room-pc (name-rival)))

   180   ([script]

   181      (->> script

   182           finish-title

   183           (walk [← ← ↑ ← ↑ ↑ ↑]))))

   184 

   185 (defn-memo bootstrap-corrupt-save

   186   ([] (bootstrap-corrupt-save (to-room-pc)))

   187   ([script]

   188    (->> script

   189         (do-save-corruption 2)

   190         (corrupt-item-list 0)

   191         close-all-menus)))

   192 

   193 (defn-memo begin-initial-deposits

   194   ([] (begin-initial-deposits

   195        (bootstrap-corrupt-save)))

   196   ([script]

   197      (->> script

   198           (first-difference [] [:a] AF)

   199           (scroll-text)

   200           (set-cursor 1)

   201           select-menu-entry)))

   202 

   203 (defn wait-for-quantity

   204   [[moves state :as script]]

   205   (if (not= (item-quantity-selected state) 1)

   206     (repeat-until-different [] item-quantity-selected script)

   207     script))

   208 

   209 (defn wait-for-cursor

   210   [[moves state :as script]]

   211   (if (not= (list-offset state) 0)

   212     (repeat-until-different [] list-offset script)

   213     script))

   214 

   215 (defn deposit-held-item [n quantity [moves state :as script]]

   216   (let [total-quantity (second (nth-item state n))]

   217     (println "total-quantity" total-quantity)

   218     (->> script

   219          (set-cursor n)

   220          (select-menu-entry 1)

   221          (wait-for-quantity)

   222          (set-quantity total-quantity quantity)

   223          (delayed-difference [] [:a] 100 #(search-string % "stored"))

   224          (scroll-text))))

   225 

   226 (defn sell-held-item [n quantity [moves state :as script]]

   227   (let [total-quantity (second (nth-item state n))]

   228     (->> script

   229          (wait-for-cursor)  ;; when selling, the cursor always

   230          (set-cursor n)     ;; returns to the top of the list.

   231          (select-menu-entry 1)

   232          (wait-for-quantity)

   233          (set-quantity total-quantity quantity)

   234          (delayed-difference [] [:a] 100 current-depth)

   235          (play-moves (repeat 20 [:b]))

   236          (delayed-difference [] [:a] 100 #(search-string % "What"))

   237          )))

   238 

   239 (defn widthdraw-pc-item [n quantity [moves state :as script]]

   240   (let [total-quantity (second (nth-pc-item state n))]

   241     (->> script

   242          (set-cursor n)

   243          (select-menu-entry 1)

   244          (wait-for-quantity)

   245          (set-quantity total-quantity quantity)

   246          (delayed-difference [] [:a] 100 #(search-string % "Withdrew"))

   247          (scroll-text))))

   248 

   249 (defn toss-held-item [n quantity [moves state :as script]]

   250   (let [total-quantity (second (nth-item state n))]

   251     (->> script

   252          (set-cursor n)

   253          (select-menu-entry 1)

   254          (set-cursor-relative 1)

   255          (select-menu-entry -1)

   256          (wait-for-quantity)

   257          (set-quantity total-quantity quantity)

   258          (play-moves [[:a]])

   259          (scroll-text)

   260          (delayed-difference [] [:a] 100 #(search-string % "Threw"))

   261          (scroll-text)

   262          )))

   263 

   264 

   265 (def desired-zero-quantities

   266   (map second (filter (comp (partial = 0) first)

   267                       (partition 2 (pc-item-writer-program)))))

   268   

   269 (defn-memo initial-deposits

   270   ([] (initial-deposits (begin-initial-deposits)))

   271   ([script]

   272      (->> script

   273           (deposit-held-item 1 0x2)

   274           ((fn [script]

   275              (reduce 

   276               (fn [script item] (deposit-held-item item 0xFF script))

   277               script

   278               (range 3 (+ 12 3)))))

   279           close-all-menus)))

   280 

   281 

   282 (defn-memo prepare-celadon-warp

   283   ([] (prepare-celadon-warp (initial-deposits)))

   284   ([script]

   285      (->> script

   286           (activate-start-menu)

   287           (set-cursor-relative 1)

   288           (select-menu-entry)

   289           (toss-held-item 35 0xFA)

   290           (close-all-menus))))

   291 

   292 

   293 ;;0 -- 256

   294 ;;1 -- 254

   295 ;;2 -- 254

   296 ;;3 -- 255

   297 

   298 (defn-memo restore-items

   299   ([] (restore-items (prepare-celadon-warp)))

   300   ([script]

   301      (->> script

   302           (first-difference [] [:a] AF)

   303           (scroll-text)

   304           (select-menu-entry)

   305           (widthdraw-pc-item 0 1)

   306           (widthdraw-pc-item 0 99)

   307           (widthdraw-pc-item 1 1)

   308           (widthdraw-pc-item 2 5)

   309           ;; (widthdraw-pc-item 3 99)

   310           ;; (widthdraw-pc-item 3 99)

   311           ;; (widthdraw-pc-item 3 57)  ;; take all

   312           ;; (widthdraw-pc-item 2 99)

   313           ;; (widthdraw-pc-item 2 99)

   314           ;; (widthdraw-pc-item 2 56)  ;; take all

   315           ;; (widthdraw-pc-item 1 99)

   316           ;; (widthdraw-pc-item 1 99)

   317           ;; (widthdraw-pc-item 1 55)  ;; leave one

   318           ;; (widthdraw-pc-item 0 99)

   319           ;; (widthdraw-pc-item 0 99)

   320           ;; (widthdraw-pc-item 0 57)  ;; leave one

   321           (close-all-menus))))

   322 

   323 (defn-memo to-celadon

   324   ([] (to-celadon (restore-items)))

   325   ([script]

   326      (->> script

   327           (walk [→ → → → → → → ↑

   328                  ↓ ↓ ↓ ↓ ↓ ← ← ← ←

   329                  ↓ ↓]))))

   330 

   331 

   332 ;; celadon store inventory

   333 

   334 ;; Floor 2

   335 ;;=====================================

   336 ;; Great Ball        TM32 (double-team)

   337 ;; Super Potion      TM33 (reflect)

   338 ;; Revive            TM02 (razor-wind)

   339 ;; Super Repel       TM07 (horn-drill)

   340 ;; Antidote          TM37 (egg-bomb)

   341 ;; Burn Heal         TM01 (mega-punch)

   342 ;; Ice Heal          TM05 (mega-kick)

   343 ;; Awakening         TM09 (take-down)

   344 ;; Parlyz Heal       TM17 (submission)

   345 

   346 

   347 ;; Floor 3

   348 ;;=====================================       

   349 ;; TM18 (counter)

   350 

   351 

   352 ;; Floor 4

   353 ;;=====================================

   354 ;; Poke Doll

   355 ;; Fire Stone

   356 ;; Thunder Stone

   357 ;; Water Stone

   358 ;; Leaf Stone

   359 

   360 ;; Floor 5

   361 ;;=====================================

   362 ;; X Accuracy         HP UP

   363 ;; Guard Spec.        Protein

   364 ;; Dire Hit           Iron

   365 ;; X Attack           Carbos

   366 ;; X Defend           Calcium

   367 ;; X Speed            

   368 ;; X Special

   369 

   370 ;; Roof

   371 ;;=====================================

   372 ;; Fresh Water        TM13 (ice-beam)

   373 ;; Soda Pop           TM48 (rock-slide)

   374 ;; Lemonade :)        TM49 (tri-attack)

   375 

   376 

   377 (defn-memo go-to-floor-two

   378   ([] (go-to-floor-two (to-celadon)))

   379   ([script]

   380      (->> script

   381           (walk [↑ → → → → → → → → → → →

   382                  ↑ ↑ ↑ ↑ ↑ ↑

   383                  ← ← ← ← 

   384                  ↓ ↓ ↓

   385                  ← ←])

   386           (first-difference [] ↑ AF))))

   387 

   388 (defn talk

   389   "Assumes that you are facing a person and engages in conversation"

   390   [[moves state :as script]]

   391   (delayed-difference [] [:a] 100

   392                       #(aget (memory %) text-address)

   393                       script))

   394   

   395 

   396 (defn get-money-floor-two

   397   ([] (get-money-floor-two (go-to-floor-two)))

   398   ([script]

   399      (->> script

   400           talk

   401           (set-cursor 1)

   402           (select-menu-entry)

   403           (sell-held-item 2 1)

   404           (sell-held-item 2 1)

   405           

   406           ;; (sell-held-item 11)

   407           ;; (sell-held-item 10)

   408           ;; (sell-held-item 9)

   409           ;; (sell-held-item 8)

   410           ;; (sell-held-item 7)

   411           ;; (sell-held-item 6)

   412           (do-nothing 40))))

   413           

   414           

   415      

   416 

   417 (defn floor-two-TMs

   418   [])

   419 

   420 (defn floor-two-items

   421   [])

   422 

   423 (defn go-to-floor-three

   424   [])

   425 

   426 (defn get-TM18

   427   [])

   428 

   429 (defn go-to-floor-four

   430   [])

   431 

   432 (defn floor-four-items

   433   [])

   434 

   435 (defn go-to-floor-five

   436   [])

   437 

   438 (defn floor-five-items

   439   [])

   440 

   441 (defn go-to-roof

   442   [])

   443 

   444 (defn roof-drinks

   445   [])

   446 

   447 (defn get-TM13

   448   [])

   449   

   450
author	Robert McIntyre <rlm@mit.edu>
date	Mon, 09 Apr 2012 05:36:56 -0500
parents	82e3ba144773
children	4141489d1406