From a2279cbe997c2e70c077ed973f4bc991719429a7 Mon Sep 17 00:00:00 2001 From: Devine Lu Linvega Date: Sun, 19 May 2024 12:42:48 -0700 Subject: [PATCH] Multi-word move support --- src/paradise.modal | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/paradise.modal b/src/paradise.modal index 61cbee6..0f99348 100644 --- a/src/paradise.modal +++ b/src/paradise.modal @@ -23,6 +23,8 @@ <> ((?x (a ?q)) parse) ((?x ?q) parse) <> ((?x (the ?q)) parse) ((?x ?q) parse) <> ((?x (?a (?b ()))) parse) ((?x (?a\s?b ())) parse) +<> ((?x (?a (?b (in (the (?c ())))))) parse) ((?x (?a\s?b (?c ()))) parse) +<> ((?x (?a (?b (in (the (?c (?d ()))))))) parse) ((?x (?a\s?b (?c\s?d ()))) parse) ?(?-) (Physics) @@ -155,7 +157,7 @@ (sight > $ :?V ?C) ((:?B ?c) ?r) ) -<> (((move (?a (in (the (?b ()))))) parse sight > $ :?V ?C) ((:?v ?c) ?r)) ( +<> (((move (?a (?b ()))) parse sight > $ :?V ?C) ((:?v ?c) ?r)) ( ((move ?a ?b) wait :?V ?C) ((-> ?b :?v ?c) ?r) )