Mercurial > vba-clojure

view clojure/com/aurellem/gb/badges.clj @ 263:a44a2c459aeb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Corrected hxc-evolution so that pokemon with branched evolutions (i.e. eevee) will be fully included. As a result, altered hxc-evolution to return a list of hashes, one per evolution.
author Dylan Holmes <ocsenave@gmail.com>
date Mon, 26 Mar 2012 21:25:10 -0500
parents edce489c3c21
children
line wrap: on
line source
     1 (ns com.aurellem.gb.badges



     2   (:use (com.aurellem.gb gb-driver util constants))



     3   (:import [com.aurellem.gb.gb_driver SaveState]))



     4 



     5 (def badges



     6   '(:boulder :cascade :thunder :rainbow



     7              :soul :marsh :volcano :earth))



     8 



     9 (defn get-badges



    10   "Returns a list of the current badges held by the player."



    11   ([state]



    12     ((fn this [coll n]



    13       (cond (zero? n) '()



    14             (zero? (rem n 2)) (recur (pop coll) (int (/ n 2)))



    15             :else (cons



    16                    (peek coll)



    17                    (this (pop coll) (int (/ n 2))))))



    18      badges



    19      (aget (memory state) 0xD355)))



    20   ([] (get-badges @current-state)))



    21 



    22 (defn set-badges



    23   "Sets the badges held by the player. badge-list may contain



    24    :boulder :cascade :thunder :marsh :rainbow :soul :volcano."



    25   ([state badge-list]



    26      (let [has-badge (set badge-list)]



    27        (->>



    28         ((fn [n coll]



    29            (cond



    30              (empty? coll) n



    31              (has-badge (peek coll)) (recur (inc(* 2 n)) (pop coll))



    32              :else (recur (* 2 n) (pop coll))))



    33          0



    34          (vec badges))



    35         (set-memory state 0xD355))))



    36   ([badge-list] (set-badges @current-state badge-list)))



    37 



    38 (defn give-all-badges



    39   ([^SaveState state]



    40      (set-badges state badges))



    41   ([] (give-all-badges @current-state)))



    42