vba-clojure: clojure/com/aurellem/gb/saves.clj annotate

edit to image.clj

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)

Mercurial > vba-clojure