Mercurial > vba-clojure

annotate clojure/com/aurellem/gb/saves.clj @ 583:21e4ab461506

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fixed glyph display bug, going to apply cosmetic corrections now and remove testing cruft.
author Robert McIntyre <rlm@mit.edu>
date Sat, 01 Sep 2012 09:54:48 -0500
parents 3b3cd62b6106
children
rev   line source
rlm@179 1 (ns com.aurellem.gb.saves
rlm@179 2 (:use (com.aurellem.gb gb-driver))
rlm@179 3 (:import [com.aurellem.gb.gb_driver SaveState]))
rlm@179 4
rlm@235 5 (defn pre-wild-battle []
rlm@235 6 (read-state "prepare-for-battle"))
rlm@179 7
rlm@179 8 (defn pre-trainer-battle []
rlm@235 9 (read-state "pre-trainer-battle"))
rlm@235 10
rlm@235 11 (defn rlm-pallet-town []
rlm@235 12 (read-state "rlm-pallet-town"))
rlm@235 13
rlm@314 14 (defn talk-to-oak []
rlm@314 15 (read-state "talk-to-oak"))
rlm@235 16
rlm@314 17 (defn normal-conv []
rlm@316 18 (read-state "normal-conversation"))
rlm@316 19
rlm@316 20 (defn oak-battle []
rlm@318 21 (read-state "oak-battle"))
rlm@318 22
rlm@318 23 (defn crit-fight []
rlm@318 24 (read-state "battle-rival"))
rlm@319 25
rlm@319 26 (defn grass-edge []
rlm@319 27 (read-state "grass' edge"))
rlm@319 28
rlm@319 29 (defn end-oak-conv []
rlm@319 30 (read-state "end-oak-conversation"))
rlm@320 31
rlm@320 32
rlm@320 33 (defmacro gen-save [save-name]
rlm@320 34 `(defn ~save-name
rlm@320 35 ~(str "load " save-name " from disk.")
rlm@320 36 []
rlm@320 37 (read-state ~(str save-name))))
rlm@320 38
rlm@320 39 (gen-save cursor-item-1)
rlm@320 40 (gen-save cursor-item-2)
rlm@320 41 (gen-save cursor-item-3)
rlm@320 42 (gen-save cursor-item-4)
rlm@320 43 (gen-save cursor-item-5)
rlm@345 44 (gen-save cursor-item-6)
rlm@345 45
rlm@345 46 (gen-save at-mat)