ocaml

bin/main.ml

@@ -0,0 +1,21 @@
+open Meat
+
+let () =
+  match Sys.getenv_opt "MEATS" with
+  | Some _ ->
+      if Array.length Sys.argv >= 2 then
+        match String.lowercase_ascii (Array.get Sys.argv 1) with
+        | "yum" -> yum ()
+        | "cook" -> cook ()
+        | "poke" -> poke ()
+        | "gut" -> gut ()
+        | "trade" -> trade ()
+        | "look" -> look ()
+        | "fresh" -> fresh ()
+        | "hunt" -> hunt ()
+        | "ritual" -> ritual ()
+        | _ -> help ()
+      else help ()
+  | None ->
+      meat_print "NO PATH TO RUNESTONE FOUND!";
+      help ()