21 lines
548 B
OCaml
21 lines
548 B
OCaml
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 ()
|