extended dialogue example

1 files changed, 19 insertions, 0 deletions

diff --git a/examples/dialogue/LightsFin.gf b/examples/dialogue/LightsFin.gf
new file mode 100644
index 000000000..5e51e0951
--- /dev/null
+++ b/examples/dialogue/LightsFin.gf
@@ -0,0 +1,19 @@
+--# -path=.:present:prelude
+
+concrete LightsFin of Lights = 
+  DialogueFin ** open LangFin, ParadigmsFin, AuxFin in {
+
+  lin
+    Light       = UseN (regN "valo") ;
+    Room        = UseN (regN "huone") ;
+    SwitchOnIn  = dirV3 (regV "sytyttää")  inessive ;
+    SwitchOffIn = dirV3 (regV "sammuttaa") inessive ;
+    SwitchOn    = dirV2 (regV "sytyttää") ;
+    SwitchOff   = dirV2 (regV "sammuttaa") ;
+
+    LivingRoom  = defN (regN "olohuone") ;
+    Kitchen     = defN (regN "keittiö") ;
+
+    MorningMode = mkMove ["aamuvalaistus"] ;
+
+}