Mercurial > vba-clojure

comparison clojure/com/aurellem/exp/item_bridge.clj @ 250:b7f682bb3090

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
updated title and save_corruption to work with all the recent updates
author Robert McIntyre <rlm@mit.edu>
date Mon, 26 Mar 2012 03:49:33 -0500
parents 22f58fa47c3c
children 8e63b0bb8ea3
comparison
equal deleted inserted replaced
248:e94d20ad853e 250:b7f682bb3090
93 ;; and corrupts the save so that the end-of-list marker 93 ;; and corrupts the save so that the end-of-list marker
94 ;; for the pokemon roster is destroyed, but the save is still 94 ;; for the pokemon roster is destroyed, but the save is still
95 ;; playable. 95 ;; playable.
96 [[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] 96 [[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
97 [] [] [] [] [] [] [] [] [] [] [:select] [:restart]]) 97 [] [] [] [] [] [] [] [] [] [] [:select] [:restart]])
98 (play-moves 98 (title)
99 (first (title)))
100 (advance [] [:start]) 99 (advance [] [:start])
101 (advance [] [:a]) 100 (advance [] [:a])
102 (advance [:a] [:a :start]))) 101 (advance [:a] [:a :start])))
103 [[]])) 102 [[]]))
104 103
113 112
114 (defn mid-game-corrupt [] 113 (defn mid-game-corrupt []
115 (read-state "corrupt-mid-game")) 114 (read-state "corrupt-mid-game"))
116 115
117 (defn gen-start-game-corrupt [] 116 (defn gen-start-game-corrupt []
118 (->> (finish-title) 117 (->> (second (intro))
119 (advance [:b] [:a :b :start]) 118 (advance [:b] [:a :b :start])
120 (play-moves (corrupt-moves)))) 119 (play-moves (corrupt-moves))))
121 120
122 (defn start-game-corrupt [] 121 (defn start-game-corrupt []
123 (read-state "corrupt-start-game")) 122 (read-state "corrupt-start-game"))