extended dialogue example

1 files changed, 19 insertions, 0 deletions

diff --git a/examples/dialogue/LightsEng.gf b/examples/dialogue/LightsEng.gf
new file mode 100644
index 000000000..eceaa487d
--- /dev/null
+++ b/examples/dialogue/LightsEng.gf
@@ -0,0 +1,19 @@
+--# -path=.:present:prelude
+
+concrete LightsEng of Lights = 
+  DialogueEng ** open LangEng, ParadigmsEng, AuxEng, Prelude in {
+
+  lin
+    Light       = UseN (regN "light") ;
+    Room        = UseN (regN "room") ;
+    SwitchOnIn  = dirV3 (partV (regV "switch") "on")  (mkPreposition "in") ;
+    SwitchOffIn = dirV3 (partV (regV "switch") "off") (mkPreposition "in") ;
+    SwitchOn    = dirV2 (partV (regV "switch") "on") ;
+    SwitchOff   = dirV2 (partV (regV "switch") "off") ;
+
+    LivingRoom  = defN (regN ["living-room"]) ;
+    Kitchen     = defN (regN ["kitchen"]) ;
+
+    MorningMode = mkMove (optStr "the" ++ ["morning mode"]) ;
+
+}