ootAI/main.ml

26 lines
490 B
OCaml
Raw Normal View History

2021-03-09 03:55:25 +00:00
open import "prelude.ml"
open import "./pretty.ml"
open import "./dolphin.ml"
open import "./mem/decode.ml"
open import "./oot/save_context.ml"
2021-03-09 03:55:25 +00:00
let base_address = 0xf64120
let g_save_ctx_address = 0x11a5d0
let onScriptStart () = ()
let onScriptCancel () = ()
let onScriptUpdate () =
let save_ctx : save_context = decode (base_address + g_save_ctx_address)
let text : string = pretty save_ctx 0
Dolphin.set_screen_text text
2021-03-09 03:55:25 +00:00
let onStateLoaded () = ()
2021-03-09 03:55:25 +00:00
let onStateSaved () = ()