view clojure/com/aurellem/gb/saves.clj @ 316:d263df762c59

greatly speed up scroll-text by using binary-search.
author Robert McIntyre <rlm@mit.edu>
date Mon, 02 Apr 2012 21:20:54 -0500
parents 073600cba28a
children 9a4d3f801c89
line wrap: on
line source
1 (ns com.aurellem.gb.saves
2 (:use (com.aurellem.gb gb-driver))
3 (:import [com.aurellem.gb.gb_driver SaveState]))
5 (defn pre-wild-battle []
6 (read-state "prepare-for-battle"))
8 (defn pre-trainer-battle []
9 (read-state "pre-trainer-battle"))
11 (defn rlm-pallet-town []
12 (read-state "rlm-pallet-town"))
14 (defn talk-to-oak []
15 (read-state "talk-to-oak"))
17 (defn normal-conv []
18 (read-state "normal-conversation"))
20 (defn oak-battle []
21 (read-state "oak-battle"))