diff --git a/dolphin.ml b/dolphin.ml index a51c4a8..02cbd6d 100644 --- a/dolphin.ml +++ b/dolphin.ml @@ -8,6 +8,9 @@ module Dolphin = struct external val read_value_32 : int -> int = "ReadValue32" external val read_value_float : int -> float = "ReadValueFloat" external val read_value_string : int -> int -> string = "ReadValueString" + + external val press_button : string -> () = "PressButton" + external val release_button : string -> () = "ReleaseButton" external val msg_box : string -> int -> () = "MsgBox" external val set_screen_text : string -> () = "SetScreenText" diff --git a/main.ml b/main.ml index e9461a3..c84822b 100644 --- a/main.ml +++ b/main.ml @@ -5,6 +5,7 @@ open import "./pretty.ml" open import "./dolphin.ml" open import "./mem/decode.ml" +open import "./mem/int.ml" open import "./oot/save_context.ml"