changeset 90:778cb84a2244

added save corruption
author Robert McIntyre <rlm@mit.edu>
date Sat, 10 Mar 2012 19:44:32 -0600
parents 2f478abe57d0
children 613353b7e012
files clojure/com/aurellem/save_corruption.clj
diffstat 1 files changed, 20 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
     1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/clojure/com/aurellem/save_corruption.clj	Sat Mar 10 19:44:32 2012 -0600
     1.3 @@ -0,0 +1,20 @@
     1.4 +(ns com.aurellem.save-corruption
     1.5 +  (:use (com.aurellem gb-driver vbm title)))
     1.6 +
     1.7 +(use 'clojure.repl)
     1.8 +
     1.9 +(defn-memo activate-menu []
    1.10 +  (->> (intro)
    1.11 +       (advance [:b] [:a :b :start])))
    1.12 +
    1.13 +(defn-memo save-game []
    1.14 +  (->> (activate-menu)
    1.15 +       (advance [] [:d])
    1.16 +       (play-moves [[] [] [] [:d] [] [] [] [:d] [] [] [:a]])
    1.17 +       scroll-text))
    1.18 +
    1.19 +
    1.20 +
    1.21 +       
    1.22 +
    1.23 +