# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1332932760 18000
# Node ID 0e31aff20d5fd10e993b7e51ad0a4a71aafe74c4
# Parent  57e0314e488d1a2c3d50e79f853ab34da741149e
added give-empty-pokedex

diff -r 57e0314e488d -r 0e31aff20d5f clojure/com/aurellem/gb/pokedex.clj
--- a/clojure/com/aurellem/gb/pokedex.clj	Wed Mar 28 05:08:24 2012 -0500
+++ b/clojure/com/aurellem/gb/pokedex.clj	Wed Mar 28 06:06:00 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)))