ootAI/dolphin.ml

13 lines
493 B
OCaml
Raw Normal View History

2021-03-09 03:55:25 +00:00
open import "prelude.ml"
module Dolphin = struct
external val read_value_8 : int -> int = "ReadValue8"
external val read_value_16 : int -> int = "ReadValue16"
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"
2021-03-09 03:55:25 +00:00
external val msg_box : string -> int -> () = "MsgBox"
external val set_screen_text : string -> () = "SetScreenText"
2021-03-09 03:55:25 +00:00
end