# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1331430272 21600
# Node ID 778cb84a224447ac0f26468c6ef9064c26378e89
# Parent  2f478abe57d05f399df604d1f2a1b72cc449a8cf
added save corruption

diff -r 2f478abe57d0 -r 778cb84a2244 clojure/com/aurellem/save_corruption.clj
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/clojure/com/aurellem/save_corruption.clj	Sat Mar 10 19:44:32 2012 -0600
@@ -0,0 +1,20 @@
+(ns com.aurellem.save-corruption
+  (:use (com.aurellem gb-driver vbm title)))
+
+(use 'clojure.repl)
+
+(defn-memo activate-menu []
+  (->> (intro)
+       (advance [:b] [:a :b :start])))
+
+(defn-memo save-game []
+  (->> (activate-menu)
+       (advance [] [:d])
+       (play-moves [[] [] [] [:d] [] [] [] [:d] [] [] [:a]])
+       scroll-text))
+
+
+
+       
+
+