extended dialogue example

This commit is contained in:
aarne
2006-05-16 20:44:33 +00:00
parent 5082ebd0f4
commit 29d04d8a90
16 changed files with 369 additions and 34 deletions

View File

@@ -0,0 +1,19 @@
--# -path=.:present:prelude
concrete LightsSwe of Lights =
DialogueSwe ** open LangSwe, ParadigmsSwe, AuxSwe in {
lin
Light = UseN (regN "lampa") ;
Room = UseN (mkN "rum" "rummet" "rum" "rummen") ;
SwitchOnIn = dirV3 (regV "tänder") (mkPreposition "i") ;
SwitchOffIn = dirV3 (regV "släcker") (mkPreposition "i") ;
SwitchOn = dirV2 (regV "tänder") ;
SwitchOff = dirV2 (regV "släcker") ;
LivingRoom = defN (mkN "vardagsrum" "vardagsrummet" "vardagsrum" "vardagsrummen") ;
Kitchen = defN (mk2N "kök" "kök") ;
MorningMode = mkMove ["morgonläget"] ;
}