view 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
line wrap: on
line source
1 (ns com.aurellem.save-corruption
2 (:use (com.aurellem gb-driver vbm title)))
4 (use 'clojure.repl)
6 (defn-memo activate-menu []
7 (->> (intro)
8 (advance [:b] [:a :b :start])))
10 (defn-memo save-game []
11 (->> (activate-menu)
12 (advance [] [:d])
13 (play-moves [[] [] [] [:d] [] [] [] [:d] [] [] [:a]])
14 scroll-text))