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 (defn-memo start-walking

     6   ([script] 

     7      (->> script

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

     9   ([] (start-walking (finish-title))))

    10   

    11 (defn-memo walk-to-stairs

    12   ([] (walk-to-stairs (start-walking)))

    13   ([script]

    14      (->> script

    15           (move [:u])

    16           (move [:u])

    17           (move [:u])

    18           (move [:u])

    19           (move [:u])

    20           (move [:r])

    21           (move [:r])

    22           (move [:r]))))

    23 

    24 (defn-memo walk-to-door

    25   ([] (walk-to-door (walk-to-stairs)))

    26   ([script]

    27      (->> script

    28           (move [:d])

    29           (move [:d])

    30           (move [:d])

    31           (move [:d])

    32           (move [:d])

    33           (move [:d])

    34           (move [:l])

    35           (move [:l])

    36           (move [:l])

    37           (move [:l]))))

    38 

    39 (defn-memo activate-menu

    40   ([] (activate-menu (walk-to-door)))

    41   ([script]

    42      (->> script

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

    44 

    45 (defn-memo save-game

    46   ([] (save-game (activate-menu)))

    47   ([script]

    48      (->> script

    49           (advance [] [:d])

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

    51           scroll-text)))

    52 

    53 (defn-memo corrupt-save

    54   ([] (corrupt-save (save-game)))

    55   ([script]

    56      (->>

    57       script

    58       (play-moves

    59        ;; this section is copied from speedrun-2942 and corrupts

    60        ;; the save so that the end-of-list marker for the pokemon

    61        ;; roster is destroyed, but the save is still playable.

    62        [[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

    63         [] [] [] [] [] [] [] [] [] [] [] [:select] [:restart]]))))

    64 

    65 (defn-memo start-game

    66   ([] (start-game (corrupt-save)))

    67   ([script]

    68      (->> script

    69           (title)

    70           (advance [] [:start])

    71           (advance [] [:a])

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

    73 

    74 (defn-memo destroy-item-end-of-list-marker

    75   ([] (destroy-item-end-of-list-marker (start-game)))

    76   ([script]

    77      (->>

    78       script

    79       (play-moves

    80        [[:start] [] [] [] [] [] [] [] [] [] [] [] [] [] []

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

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

    83         [] [] [:d] [] [] [] [:a] [] [] [:d] [] [] [:a] [] []

    84         [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] []

    85         [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] []

    86         [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] []

    87         [:d] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] []

    88         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

    89         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:d]

    90         [] [] [] [:a] [] [] [:d] [] [] [:a] [] [] [] [] []

    91         [] [] [] [] [] [] [] [] [:u] [] [] [] [] [:u] [] []

    92         [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

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

    94         [] [] [] [] [] [] [] [] [] [] [] []]))))

    95 

    96 (defn warp-to-elite-four

    97   "This is copied from speedrun-2942 to ensure that

    98    everything is good up to this point."

    99   []

   100   (->> (corrupt-save)

   101        (play-moves

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

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

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

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

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

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

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

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

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

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

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

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

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

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

   116         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

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

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

   119         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

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

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

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

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

   124         [] [] [] [] [] [] [] [] [:start] [] [] [] [] [] []

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

   126         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

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

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

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

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

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

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

   133         [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] []

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

   135         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

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

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

   138         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   139         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   140         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   141         [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   142         [:start] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   143         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   144         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   145         [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   146         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   147         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   148         [:start] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   149         [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] []

   150         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   151         [] [] [:d] [] [] [] [:a] [] [] [:d] [] [] [:a] [] []

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

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

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

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

   156         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

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

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

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

   160         [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   161         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   162         [] [] [] [] [] [] [] [] [] [] [] [] [:b] [] [] [] []

   163         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   164         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   165         [] [] [] [] [:d] [] [] [:a] [] [] [] [] [] [] [] []

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

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

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

   169         [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] []

   170         [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] []

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

   172         [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] []

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

   174         [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] []

   175         [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d]

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

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

   178         [] [] [] [] [] [] [] [] [] [:b] [] [] [] [] [] [] []

   179         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:select]

   180         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   181         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:b]

   182         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   183         [] [] [] [] [:d] [] [] [] [] [] [] [] [] [:b] [] []

   184         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   185         [] [] [:select] [] [] [] [] [] [] [] [] [] [] [] []

   186         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   187         [] [] [] [] [] [:b] [] [] [] [] [] [] [] [] [] [] []

   188         [] [] [] [] [:d] [] [] [] [] [] [] [] [] [] [] []

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

   190         [:d] [] [] [] [] [:b] [] [] [] [] [] [] [] [] [] []

   191         [] [] [] [] [] [] [:select] [] [] [] [] [] [] [] []

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

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

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

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

   196         [] [] [] [] [] [] [] [] [] [:select] [] [] [] [] []

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

   198         [] [] [] [] [] [] [] [] [] [] [:a] [] [] [:d] [] []

   199         [:a] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] []

   200         [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u]

   201         [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] []

   202         [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u]

   203         [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] []

   204         [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u]

   205         [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] []

   206         [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u]

   207         [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] []

   208         [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u]

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

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

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

   212         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:b] [] []

   213         [] [] [] [] [] [] [:b] [:d] [:d] [:d] [:d] [:d] [:d]

   214         [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d]

   215         [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d]

   216         [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d]

   217         [:d] [:d] [:d] [:d] [] [] [] [] [] [] [] [] [] [] []

   218         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   219         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   220         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   221         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   222         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   223         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   224         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   225         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   226         [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] []

   227         [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] []

   228         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:a] [] []

   229         [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] []

   230         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   231         [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] []

   232         [:a] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   233         [:a] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   234         [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] []

   235         [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] []

   236         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:a]

   237         [] [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] []

   238         [] [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] []

   239         [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   240         [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] []

   241         [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] [] []

   242         [:b]])))
author	Robert McIntyre <rlm@mit.edu>
date	Mon, 02 Apr 2012 20:30:02 -0500
parents	8e63b0bb8ea3
children	9a4d3f801c89