Mercurial > vba-clojure

     1 (ns com.aurellem.save-corruption

     2   (:use (com.aurellem gb-driver vbm title)))

     3 

     4 (use 'clojure.repl)

     5 

     6 (defn-memo start-walking [] 

     7   (->> (finish-title)

     8        (advance [:b] [:b :r])))

     9 

    10 (def walk (partial advance []))

    11 

    12 (defn-memo walk-to-stairs []

    13   (->> (start-walking)

    14        (walk [:u])

    15        (walk [:u])

    16        (walk [:u])

    17        (walk [:u])

    18        (walk [:u])

    19        (walk [:r])

    20        (walk [:r])

    21        (walk [:r])))

    22 

    23 (defn-memo walk-to-door []

    24   (->> (walk-to-stairs)

    25        (walk [:d])

    26        (walk [:d])

    27        (walk [:d])

    28        (walk [:d])

    29        (walk [:d])

    30        (walk [:d])

    31        (walk [:l])

    32        (walk [:l])

    33        (walk [:l])

    34        (walk [:l])))

    35   

    36 

    37 (defn-memo activate-menu []

    38   (->> (walk-to-door)

    39        (advance [:b] [:a :b :start])))

    40 

    41 (defn-memo save-game []

    42   (->> (activate-menu)

    43        (advance [] [:d])

    44        (play-moves [[] [] [] [:d] [] [] [] [:d] [] [] [:a]])

    45        scroll-text))

    46 

    47 (defn-memo corrupt-save []

    48   (->> (save-game)

    49        (play-moves

    50         ;; this section is copied from speedrun-2942

    51         ;; and corrupts the save so that the end-of-list marker

    52         ;; for the pokemon roster is destroyed, but the save is still

    53         ;; playable.

    54          [[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

    55          [] [] [] [] [] [] [] [] [] [] [:select] [:restart]])))

    56 

    57 (defn-memo skip-title-again []

    58   (->> (corrupt-save)

    59        (play-moves

    60         (first (title)))))

    61 

    62 (defn-memo start-game []

    63   (->> (skip-title-again)

    64        (advance [] [:start])

    65        (advance [] [:a])))       

    66 

    67 (defn warp-to-elite-four

    68   "This is copied from speedrun-2942 to ensure that everything is good

    69    up to this point."

    70   []

    71   (->> (corrupt-save)

    72        (play-moves

    73         [ [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

    74         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

    75         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

    76         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

    77         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

    78         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

    79         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

    80         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

    81         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

    82         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

    83         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

    84         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

    85         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

    86         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

    87         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

    88         [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] []

    89         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

    90         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

    91         [] [] [] [] [] [] [:start] [] [] [] [] [] [] [] [] [] [] [] []

    92         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

    93         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

    94         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

    95         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

    96         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

    97         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

    98         [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] []

    99         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   100         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   101         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   102         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   103         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   104         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   105         [] [] [] [] [] [] [] [] [] [:start] [] [] [] [] [] [] [] [] []

   106         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   107         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:a]

   108         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   109         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   110         [] [] [] [] [] [] [] [:start] [] [] [] [] [] [] [] [] [] [] []

   111         [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] []

   112         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:d]

   113         [] [] [] [:a] [] [] [:d] [] [] [:a] [] [] [] [] [] [] [] [] []

   114         [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] []

   115         [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] []

   116         [] [] [:d] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] []

   117         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   118         [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] [:a] [] [] [:d]

   119         [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] [] [:u] [] []

   120         [] [] [:u] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] []

   121         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   122         [] [] [] [] [] [] [] [] [] [] [] [:b] [] [] [] [] [] [] [] []

   123         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   124         [] [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [:a] [] []

   125         [] [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] [:d] []

   126         [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] []

   127         [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d]

   128         [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] []

   129         [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] []

   130         [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] []

   131         [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] []

   132         [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] []

   133         [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] []

   134         [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d]

   135         [] [] [] [] [] [] [] [] [] [] [] [] [] [:b] [] [] [] [] [] []

   136         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:select] [] []

   137         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   138         [] [] [] [] [] [] [] [] [] [] [:b] [] [] [] [] [] [] [] [] []

   139         [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] [] [] [] []

   140         [] [:b] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   141         [] [] [] [:select] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   142         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   143         [:b] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] []

   144         [] [] [] [] [] [] [] [] [] [:b] [] [] [] [] [] [] [] [] [] []

   145         [] [] [] [] [] [:d] [] [] [] [] [:b] [] [] [] [] [] [] [] []

   146         [] [] [] [] [] [] [] [] [:select] [] [] [] [] [] [] [] [] []

   147         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:b] [] [] [] []

   148         [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] [] [] [] []

   149         [:d] [] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] []

   150         [] [] [] [:d] [] [] [] [] [] [] [] [] [] [] [] [:select] [] []

   151         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   152         [] [] [] [] [] [] [] [] [] [:a] [] [] [:d] [] [] [:a] [:u] []

   153         [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u]

   154         [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] []

   155         [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u]

   156         [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] []

   157         [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u]

   158         [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] []

   159         [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u]

   160         [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] []

   161         [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [:a] [] [] [] []

   162         [] [:a] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] []

   163         [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] []

   164         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:b] [] [] [] [] []

   165         [] [] [] [:b] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d]

   166         [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d]

   167         [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d]

   168         [:d] [:d] [:d] [:d] [:d] [:d] [:d] [] [] [] [] [] [] [] [] []

   169         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   170         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   171         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   172         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   173         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   174         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   175         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   176         [:a] [] [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] []

   177         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   178         [:a] [] [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] []

   179         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   180         [:a] [] [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] []

   181         [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] []

   182         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:a] []

   183         [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] []

   184         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:a] []

   185         [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] []

   186         [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] []

   187         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] []

   188         [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] []

   189         [] [] [] [:b]])))

   190 

   191         

   192        

   193 

   194
author	Robert McIntyre <rlm@mit.edu>
date	Sun, 11 Mar 2012 13:53:27 -0500
parents	778cb84a2244
children	7f7cc8858d2e