Mercurial > vba-clojure

     1 (ns com.aurellem.gb.types

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

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

     4 

     5 (def type-code->type-name

     6   {0x00 :normal

     7    0x01 :fighting

     8    0x02 :flying

     9    0x03 :poision

    10    0x04 :ground

    11    0x05 :rock

    12    0x07 :bug

    13    0x08 :ghost

    14    0x14 :fire

    15    0x15 :water

    16    0x16 :grass

    17    0x17 :electric

    18    0x18 :psychic

    19    0x19 :ice

    20    0x1A :dragon})

    21 

    22 (def type-name->type-code

    23   (zipmap (vals type-code->type-name)

    24           (keys type-code->type-name)))

    25 

    26 (def pokemon-1-type-start-address 0xD16F)

    27 

    28 (defn pokemon-type-start-address [poke-num]

    29   (+ pokemon-1-type-start-address

    30      (* pokemon-record-width poke-num)))

    31 

    32 (defn give-type

    33   ([^SaveState state poke-num types]

    34      (assert (<= 0 poke-num 5))

    35      (let [types*

    36            (if (= (count types) 1)

    37              [(first types) (first types)]

    38              types)]

    39        (set-memory-range

    40         state

    41         (pokemon-type-start-address poke-num)

    42         (map type-name->type-code types))))

    43   ([poke-num types]

    44      (give-type @current-state poke-num types)))

    45 

    46 (defn read-type

    47   ([^SaveState state poke-num]

    48      (assert (<= 0 poke-num 5))

    49      (let [types-start (pokemon-type-start-address poke-num)

    50            [type-1 type-2]

    51            (subvec (vec (memory state))

    52                    types-start (+ 2 types-start))]

    53        (if (= type-1 type-2)

    54          [(type-code->type-name type-1)]

    55          (mapv type-code->type-name [type-1 type-2]))))

    56   ([poke-num]

    57      (read-type @current-state poke-num)))

    58
author	Robert McIntyre <rlm@mit.edu>
date	Fri, 23 Mar 2012 00:30:34 -0500
parents	9a7a46c4aa1b
children	85a2c2e2d318