Mercurial > vba-clojure

     1 (ns com.aurellem.run.save-corruption

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

     3   (:use (com.aurellem.run title)))

     4 

     5 (use 'clojure.repl)

     6 

     7 (defn-memo start-walking [] 

     8   (->> (finish-title)

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

    10 

    11 (def walk (partial advance []))

    12 

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

    14   (->> (start-walking)

    15        (walk [:u])

    16        (walk [:u])

    17        (walk [:u])

    18        (walk [:u])

    19        (walk [:u])

    20        (walk [:r])

    21        (walk [:r])

    22        (walk [:r])))

    23 

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

    25   (->> (walk-to-stairs)

    26        (walk [:d])

    27        (walk [:d])

    28        (walk [:d])

    29        (walk [:d])

    30        (walk [:d])

    31        (walk [:d])

    32        (walk [:l])

    33        (walk [:l])

    34        (walk [:l])

    35        (walk [:l])))

    36   

    37 

    38 (defn-memo activate-menu []

    39   (->> (walk-to-door)

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

    41 

    42 (defn-memo save-game []

    43   (->> (activate-menu)

    44        (advance [] [:d])

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

    46        scroll-text))

    47 

    48 (defn-memo corrupt-save []

    49   (->> (save-game)

    50        (play-moves

    51         ;; this section is copied from speedrun-2942

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

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

    54         ;; playable.

    55          [[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

    56          [] [] [] [] [] [] [] [] [] [] [:select] [:restart]])))

    57 

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

    59   (->> (corrupt-save)

    60        (play-moves

    61         (first (title)))))

    62 

    63 (defn-memo start-game []

    64   (->> (skip-title-again)

    65        (advance [] [:start])

    66        (advance [] [:a])

    67        (advance [:a] [:a :start])))

    68 

    69 (defn-memo destroy-item-end-of-list-marker []

    70   (->> (start-game)

    71        (play-moves

    72         [

    73          [:start] [] [] [] [] [] [] [] [] [] [] []

    74         [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] []

    75         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:d]

    76         [] [] [] [:a] [] [] [:d] [] [] [:a] [] [] [] [] [] [] [] [] []

    77         [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] []

    78         [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] []

    79         [] [] [:d] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] []

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

    81         [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] [:a] [] [] [:d]

    82         [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] [] [:u] [] []

    83         [] [] [:u] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] []

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

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

    86 

    87         ;; [:b] [] [] [] [] [] [] [] []

    88         ;; [] [] [] [] [] [] [] [] [] [] [] [] [] [] [][][][][] [] []

    89         ;; [] [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [:a] [] []

    90         ;; [] [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] [:d] []

    91         ])))

    92         

    93 

    94 

    95 (defn warp-to-elite-four

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

    97    up to this point."

    98   []

    99   (->> (corrupt-save)

   100        (play-moves

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

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

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

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

   105         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

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

   107         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

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

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

   110         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   111         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   112         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   113         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   114         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   115         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

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

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

   118         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   119         [] [] [] [] [] [] [:start] [] [] [] [] [] [] [] [] [] [] [] []

   120         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

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

   122         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

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

   124         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   125         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   126         [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] []

   127         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   128         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   129         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   130         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   131         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   132         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   133         [] [] [] [] [] [] [] [] [] [:start] [] [] [] [] [] [] [] [] []

   134         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   135         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:a]

   136         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

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

   138         [] [] [] [] [] [] [] [:start] [] [] [] [] [] [] [] [] [] [] []

   139         [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] []

   140         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:d]

   141         [] [] [] [:a] [] [] [:d] [] [] [:a] [] [] [] [] [] [] [] [] []

   142         [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] []

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

   144         [] [] [:d] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] []

   145         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   146         [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] [:a] [] [] [:d]

   147         [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] [] [:u] [] []

   148         [] [] [:u] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] []

   149         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   150         [] [] [] [] [] [] [] [] [] [] [] [:b] [] [] [] [] [] [] [] []

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

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

   153         [] [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] [:d] []

   154         [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] []

   155         [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d]

   156         [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] []

   157         [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] []

   158         [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] []

   159         [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] []

   160         [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] []

   161         [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] []

   162         [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d]

   163         [] [] [] [] [] [] [] [] [] [] [] [] [] [:b] [] [] [] [] [] []

   164         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:select] [] []

   165         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   166         [] [] [] [] [] [] [] [] [] [] [:b] [] [] [] [] [] [] [] [] []

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

   168         [] [:b] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   169         [] [] [] [:select] [] [] [] [] [] [] [] [] [] [] [] [] [] []

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

   171         [:b] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] []

   172         [] [] [] [] [] [] [] [] [] [:b] [] [] [] [] [] [] [] [] [] []

   173         [] [] [] [] [] [:d] [] [] [] [] [:b] [] [] [] [] [] [] [] []

   174         [] [] [] [] [] [] [] [] [:select] [] [] [] [] [] [] [] [] []

   175         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:b] [] [] [] []

   176         [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] [] [] [] []

   177         [:d] [] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] []

   178         [] [] [] [:d] [] [] [] [] [] [] [] [] [] [] [] [:select] [] []

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

   180         [] [] [] [] [] [] [] [] [] [:a] [] [] [:d] [] [] [:a] [:u] []

   181         [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u]

   182         [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] []

   183         [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u]

   184         [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] []

   185         [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u]

   186         [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] []

   187         [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u]

   188         [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] []

   189         [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [:a] [] [] [] []

   190         [] [:a] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] []

   191         [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] []

   192         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:b] [] [] [] [] []

   193         [] [] [] [:b] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d]

   194         [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d]

   195         [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d]

   196         [:d] [:d] [:d] [:d] [:d] [:d] [:d] [] [] [] [] [] [] [] [] []

   197         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   198         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   199         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   200         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   201         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   202         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   203         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   204         [:a] [] [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] []

   205         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   206         [:a] [] [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] []

   207         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   208         [:a] [] [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] []

   209         [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] []

   210         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:a] []

   211         [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] []

   212         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:a] []

   213         [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] []

   214         [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] []

   215         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] []

   216         [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] []

   217         [] [] [] [:b]])))

   218 

   219         

   220        

   221 

   222
author	Robert McIntyre <rlm@mit.edu>
date	Fri, 23 Mar 2012 00:30:34 -0500
parents	09caf6a5bbf4
children	b7f682bb3090