Mercurial > vba-clojure

     1 (ns com.aurellem.gb.saves

     2   (:use (com.aurellem.gb gb-driver))

     3   (:import [com.aurellem.gb.gb_driver SaveState]))

     4 

     5 (defn pre-wild-battle []

     6   (read-state "prepare-for-battle"))

     7 

     8 (defn pre-trainer-battle []

     9   (read-state "pre-trainer-battle"))

    10 

    11 (defn rlm-pallet-town []

    12   (read-state "rlm-pallet-town"))

    13 

    14 (defn talk-to-oak []

    15   (read-state "talk-to-oak"))

    16 

    17 (defn normal-conv []

    18   (read-state "normal-conversation"))

    19 

    20 (defn oak-battle []

    21   (read-state "oak-battle"))

    22 

    23 (defn crit-fight []

    24   (read-state "battle-rival"))

    25 

    26 (defn grass-edge []

    27   (read-state "grass' edge"))

    28 

    29 (defn end-oak-conv []

    30   (read-state "end-oak-conversation"))

    31 

    32 

    33 (defmacro gen-save [save-name]

    34   `(defn ~save-name

    35      ~(str "load " save-name " from disk.")

    36      []

    37      (read-state ~(str save-name))))

    38 

    39 (gen-save cursor-item-1)

    40 (gen-save cursor-item-2)

    41 (gen-save cursor-item-3)

    42 (gen-save cursor-item-4)

    43 (gen-save cursor-item-5)

    44 (gen-save cursor-item-6)

    45 

    46 (gen-save at-mat)
author	Robert McIntyre <rlm@mit.edu>
date	Fri, 31 Aug 2012 09:37:18 -0500
parents	3b3cd62b6106
children