Mercurial > vba-clojure

annotate clojure/com/aurellem/gb/saves.clj @ 503:4703b74f1fb1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
saving progress
author Robert McIntyre <rlm@mit.edu>
date Thu, 14 Jun 2012 00:47:15 -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)