ootAI/oot/item.ml

open import "prelude.ml"
open import "../dolphin.ml"
open import "../pretty.ml"
open import "../mem/decode.ml"
open import "../mem/int.ml"

type item =
| DekuSticks
| NoItem
| UnknownItem of int

instance decode item begin
  let decode addr =
    let code = Dolphin.read_value_8 addr
    match code with
    | 0 -> DekuSticks
    | 255 -> NoItem
    | x -> UnknownItem x
end

instance show item begin
  let show = function
  | DekuSticks -> "Deku Sticks"
  | NoItem -> "No Item"
  | UnknownItem x -> "Unknown Item " ^ (show x)
end