rlm@179: (ns com.aurellem.gb.saves
rlm@179:   (:use (com.aurellem.gb gb-driver))
rlm@179:   (:import [com.aurellem.gb.gb_driver SaveState]))
rlm@179: 
rlm@235: (defn pre-wild-battle []
rlm@235:   (read-state "prepare-for-battle"))
rlm@179: 
rlm@179: (defn pre-trainer-battle []
rlm@235:   (read-state "pre-trainer-battle"))
rlm@235: 
rlm@235: (defn rlm-pallet-town []
rlm@235:   (read-state "rlm-pallet-town"))
rlm@235: 
rlm@314: (defn talk-to-oak []
rlm@314:   (read-state "talk-to-oak"))
rlm@235: 
rlm@314: (defn normal-conv []
rlm@316:   (read-state "normal-conversation"))
rlm@316: 
rlm@316: (defn oak-battle []
rlm@318:   (read-state "oak-battle"))
rlm@318: 
rlm@318: (defn crit-fight []
rlm@318:   (read-state "battle-rival"))
rlm@319: 
rlm@319: (defn grass-edge []
rlm@319:   (read-state "grass' edge"))
rlm@319: 
rlm@319: (defn end-oak-conv []
rlm@319:   (read-state "end-oak-conversation"))
rlm@320: 
rlm@320: 
rlm@320: (defmacro gen-save [save-name]
rlm@320:   `(defn ~save-name
rlm@320:      ~(str "load " save-name " from disk.")
rlm@320:      []
rlm@320:      (read-state ~(str save-name))))
rlm@320: 
rlm@320: (gen-save cursor-item-1)
rlm@320: (gen-save cursor-item-2)
rlm@320: (gen-save cursor-item-3)
rlm@320: (gen-save cursor-item-4)
rlm@320: (gen-save cursor-item-5)
rlm@345: (gen-save cursor-item-6)
rlm@345: 
rlm@345: (gen-save at-mat)