# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1332932773 18000
# Node ID 7918c0dcc0bd24bf4bd917557f6d26ee3ffa2e36
# Parent  0e31aff20d5fd10e993b7e51ad0a4a71aafe74c4# Parent  33c546273619d5fa7b1dba5f619496a72481e8f5
merge

diff -r 33c546273619 -r 7918c0dcc0bd clojure/com/aurellem/gb/pokedex.clj
--- a/clojure/com/aurellem/gb/pokedex.clj	Wed Mar 28 05:56:37 2012 -0500
+++ b/clojure/com/aurellem/gb/pokedex.clj	Wed Mar 28 06:06:13 2012 -0500
@@ -90,3 +90,13 @@
             (set-pokedex-captured n true)))
       state (range 1 152)))
   ([] (give-full-pokedex @current-state)))
+
+(defn give-empty-pokedex
+  ([^SaveState state]
+     (reduce
+      (fn [state n]
+        (-> state
+            (set-pokedex-seen n false)
+            (set-pokedex-captured n false)))
+      state (range 1 152)))
+  ([] (give-empty-pokedex @current-state)))