Mercurial > vba-clojure
diff clojure/com/aurellem/gb/status.clj @ 192:fd549c8f42ae
fixed compilation problems, added more functionality to pokemon-info
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Thu, 22 Mar 2012 22:35:57 -0500 |
parents | 893c753f8088 |
children |
line wrap: on
line diff
1.1 --- a/clojure/com/aurellem/gb/status.clj Thu Mar 22 20:10:09 2012 -0500 1.2 +++ b/clojure/com/aurellem/gb/status.clj Thu Mar 22 22:35:57 2012 -0500 1.3 @@ -1,5 +1,5 @@ 1.4 (ns com.aurellem.gb.status 1.5 - (:use (com.aurellem.gb gb-driver util constants pokemon)) 1.6 + (:use (com.aurellem.gb gb-driver util constants)) 1.7 (:import [com.aurellem.gb.gb_driver SaveState])) 1.8 1.9 (def status-name->status-code 1.10 @@ -44,15 +44,7 @@ 1.11 (pokemon-status-address poke-num) 1.12 status-code))) 1.13 ([poke-num status] 1.14 - (give-stat @current-state poke-num status)) 1.15 + (give-status @current-state poke-num status)) 1.16 ([status] 1.17 - (give-stat @current-state 0 status))) 1.18 + (give-status @current-state 0 status))) 1.19 1.20 -(defn give-status-all 1.21 - ([^SaveState state status] 1.22 - (reduce (fn [state num] 1.23 - (give-stat state num status)) 1.24 - state 1.25 - (range (party-number state)))) 1.26 - ([status] 1.27 - (give-stat-all @current-state status)))