annotate clojure/com/aurellem/save_corruption.clj @ 90:778cb84a2244

added save corruption
author Robert McIntyre <rlm@mit.edu>
date Sat, 10 Mar 2012 19:44:32 -0600
parents
children 613353b7e012
rev   line source
rlm@90 1 (ns com.aurellem.save-corruption
rlm@90 2 (:use (com.aurellem gb-driver vbm title)))
rlm@90 3
rlm@90 4 (use 'clojure.repl)
rlm@90 5
rlm@90 6 (defn-memo activate-menu []
rlm@90 7 (->> (intro)
rlm@90 8 (advance [:b] [:a :b :start])))
rlm@90 9
rlm@90 10 (defn-memo save-game []
rlm@90 11 (->> (activate-menu)
rlm@90 12 (advance [] [:d])
rlm@90 13 (play-moves [[] [] [] [:d] [] [] [] [:d] [] [] [:a]])
rlm@90 14 scroll-text))
rlm@90 15
rlm@90 16
rlm@90 17
rlm@90 18
rlm@90 19
rlm@90 20