|
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) |
