# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1332873224 18000
# Node ID aa9b8d9d5b768a35b7504fc16f1feab816401a9d
# Parent  7ecea582ec9dc9ac4770002725d4944c68934d56
script: save corruption

diff -r 7ecea582ec9d -r aa9b8d9d5b76 clojure/com/aurellem/run/bootstrap_0.clj
--- a/clojure/com/aurellem/run/bootstrap_0.clj	Tue Mar 27 13:10:48 2012 -0500
+++ b/clojure/com/aurellem/run/bootstrap_0.clj	Tue Mar 27 13:33:44 2012 -0500
@@ -546,9 +546,80 @@
             [1 1]
             [2 1]
             [3 1]
-            [4 1]
-            ]))))
+            [4 1]])
+          (do-nothing 100)
+          (play-moves [[:b]])
+          (do-nothing 100)
+          (play-moves [[:b]])
+          (do-nothing 100)
+          (play-moves [[:b] []]))))
 
 
+(defn do-save-corruption
+  ([] (do-save-corruption
+       (buy-initial-items)))
+  ([script]
+     (->> script
+          (do-nothing 100)
           
-     
\ No newline at end of file
+          (play-moves
+           [[:start]])
+          (do-nothing 500)
+          (play-moves [[:d]])
+          (do-nothing 100)
+
+          (play-moves
+           [[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+           [][] [] [] [] [] [] [] [] [] [] [] [] [] []
+           [] [] [] [] [] [] [] [] [] [:d] [] [] [] [:d] [] [] [] [:d]
+           [] [] [:a] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b]
+           [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b]
+           [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b]
+           [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b]
+           [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b]
+           [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b]
+           [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b]
+           [:a :b] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+           [] [] [] [] [] [] [] [] [] [] [] [] [] [:select] [:restart]
+           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+           [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+           [] [] [] [:start] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+           [] [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] []
+           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+           [:start] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+           [] [] [] [] [] [] [] [] [] [] [] [] [] [:start] [:a] [:a]
+           [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a]
+           [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a]
+           [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a]
+           [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a]
+           [:a] [:a :start] []]))))