changeset 287:7918c0dcc0bd

merge
author Robert McIntyre <rlm@mit.edu>
date Wed, 28 Mar 2012 06:06:13 -0500 (2012-03-28)
parents 0e31aff20d5f (diff) 33c546273619 (current diff)
children eec3e69500d9
files
diffstat 1 files changed, 10 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/gb/pokedex.clj	Wed Mar 28 05:56:37 2012 -0500
     1.2 +++ b/clojure/com/aurellem/gb/pokedex.clj	Wed Mar 28 06:06:13 2012 -0500
     1.3 @@ -90,3 +90,13 @@
     1.4              (set-pokedex-captured n true)))
     1.5        state (range 1 152)))
     1.6    ([] (give-full-pokedex @current-state)))
     1.7 +
     1.8 +(defn give-empty-pokedex
     1.9 +  ([^SaveState state]
    1.10 +     (reduce
    1.11 +      (fn [state n]
    1.12 +        (-> state
    1.13 +            (set-pokedex-seen n false)
    1.14 +            (set-pokedex-captured n false)))
    1.15 +      state (range 1 152)))
    1.16 +  ([] (give-empty-pokedex @current-state)))