Some MISP shorthands

Author: Blecki

DefaultDatabase/DefaultDatabase.csproj

@@ -43,6 +43,9 @@
     <Compile Include="Properties\AssemblyInfo.cs" />
   </ItemGroup>
   <ItemGroup>
+    <None Include="database\demo-area\admin-ball.mud">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </None>
     <None Include="database\lists.mud">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </None>

DefaultDatabase/MudEngine2012.dll

@@ -0,0 +1,29 @@
+(prop "@base" (load "object"))
+(prop "short" "crystal ball")
+(prop "nouns" ["ball"])
+(prop "adjectives" ["crystal"])
+
+(prop "description" *(if (is-held-by this actor)
+	("The ball feels warm in your hands. Gazing deep into it's misty interior, you see a faint glow, and in that glow, writing.\n'This object demonstrates a few things. First, the description changes when you are holding it. Second, it grants it's holder the verb 'divine'. So long as you are holding this ball, you can use the verb 'divine something', where 'something' is the name of a database object. The name of this one happens to be demo-area/admin-ball, try that first.'")
+	("You see nothing particurally interesting about the crystal ball.")
+))
+	
+(add-verb this "divine" 
+	(m-sequence [
+		(m-if-exclusive (m-rest "text") 
+			(m-nop)
+			(m-fail "What will you look at?\n")
+		)
+		(m-definer-held-by "actor")
+	])
+	
+	(lambda "ldivine" [matches actor] [] 
+		(if (first matches).fail 
+			(echo actor (first matches):fail)
+			(echo actor "Diving the location of ((first matches).text)...\n(asstring (load (first matches).text).location 2)\n")
+		)
+	)
+	
+	"Divine the location of named database objects."
+)
+	

DefaultDatabase/MudServer.exe

@@ -1,6 +1,8 @@
 (prop "@base" (load "room"))
 (prop "long" 
-	"A balcony.")
+	"A small balcony on the side of the tower. Creeping vines cover the sides of the tower and twist through the wrought-iron railing. Small pink flowers dot the vines here and there. The view to the west would be astounding, except for all the fog. The tower ends abruptly a dozen feet below, swallowed whole by the swirling mist.")
+	
+(add-adjective-detail this "mist" ^("swirling") "The mist swirls.")
 
 (open-link this "demo-area/start-room" ^("east" "e"))
 

DefaultDatabase/database/demo-area/admin-ball.mud

@@ -83,4 +83,6 @@
 		(prop "short" "quill")
 		(prop "nouns" ^("quill"))
 	)))
+	
+	(add-object this "on" (load "demo-area/admin-ball"))
 )))

DefaultDatabase/database/demo-area/balcony.mud

@@ -21,11 +21,17 @@
 			*(nop
 				(add-verb from name (m-nothing)
 					(make-link-lambda to (first names))
-					"Move (first names)."
+					"Move (name)."
 				)
 				(add-verb from "go" (m-complete (m-keyword name))
 					(make-link-lambda to (first names))
-					"Move (first names)."
+					"Move (name)."
+				)
+				(add-verb from "look" (m-complete (m-keyword name))
+					(lambda "llook-direction" ^("matches" "actor") ^("to" "names")
+						*(echo actor "To the (first names) you see...\n\n((load to):description)")
+					)
+					"Look (name)."
 				)
 			)
 		)

DefaultDatabase/database/demo-area/start-room.mud

@@ -31,7 +31,7 @@
 (defun "short_list_with_on" ^("list") ^()
 	*(if 
 		(equal (length list) 1)
-		*("is ((first list):a)(on_list (first list)).")
+		*("is ((first list):a)(on-list (first list)).")
 		*("(isare list) (strcat
 			$(mapi "i" list
 				*(if 

DefaultDatabase/database/go.mud

@@ -1,7 +1,7 @@
 (add-global-verb "look"
 
 	(m-filter-failures
-		(m-sequence ^(
+		(m-sequence [
 			(m-optional (m-keyword "at"))
 			(m-switch ^(
 				^((m-nothing) (m-set-object-here))
@@ -27,26 +27,26 @@
 				))
 				(m-fail "I don't see that here.")
 			)
-		))
+		])
 	)
 
-	(defun "" ^("matches" "actor") ^()
-		*(if (notequal (first matches).fail null)
-			*(echo actor (first matches):fail)
-			*(nop
+	(defun "" [matches actor] []
+		(if (notequal (first matches).fail null)
+			(echo actor (first matches):fail)
+			(nop
 				(if (greaterthan (length matches) 1) *(echo actor "[Multiple possible matches. Accepting first match.]\n"))
-				(let ^(^("match" (first matches)))
-					*(if (match.look-preposition)
-						*(nop
+				(let ^([match (first matches)])
+					(if (match.look-preposition)
+						(nop
 							(echo actor "[Looking (match.preposition) (match.object:the).]\n")
 							(echo actor "^(match.preposition) (match.object:the) (short_list match.object.(match.preposition))\n")
 						)
-						*(if (and (notequal match.object actor.location.object) (notequal match.object.location.object actor.location.object))
-							*(nop
+						(if (and (notequal match.object actor.location.object) (notequal match.object.location.object actor.location.object))
+							(nop
 								(echo actor "[Looking at (match.object:a) from (match.object.location.list) (match.object.location.object:the).]\n")
 								(echo actor "(match.object:description)\n")
 							)
-							*(nop
+							(nop
 								(echo actor "[Looking at (match.object:a).]\n")
 								(echo actor "(match.object:description)\n")
 							)

DefaultDatabase/database/lists.mud

@@ -1,17 +1,17 @@
 /* Matchers for building command parsers */
 
-(defun "m-or" ^("A" "B") ^() 
-	*(defun "" ^("matches") ^("A" "B") 
+(defun "m-or" ["function A" "function B"] [] 
+	*(defun "" ["list matches"] [A B] 
 		*(cat (A matches) (B matches))))
 
-(defun "m-keyword" ^("word") ^() 
-	*(lambda "lkeyword" ^("matches") ^("word") 
+(defun "m-keyword" ["string word"] [] 
+	*(lambda "lkeyword" ["list matches"] [word] 
 		*(map "match"
 			(where "match" (where "match" matches *(not (equal null match.token))) *(equal word match.token.word))
 			*(clone match ^("token" match.token.next)))))
 
 (defun "m-nothing" ^() ^() 
-	*(lambda "lnone" ^("matches") ^() 
+	*(lambda "lnone" ^("list matches") ^() 
 		*(where "match" matches *(equal null match.token))))
 
 (defun "m-rest" ^("into") ^() 
@@ -23,14 +23,14 @@
 	)
 )
 
-(defun "m-sequence" ^("matcher_list") ^()
-	*(lambda "lsequence" ^("matches") ^("matcher_list")
-		*(for "matcher" matcher_list *(var "matches" (matcher matches)))
+(defun "m-sequence" ^("list matcher-list") ^()
+	*(lambda "lsequence" ^("list matches") ^("matcher-list")
+		*(for "matcher" matcher-list *(var "matches" (matcher matches)))
 	)
 )
 
-(defun "m-optional" ^("matcher") ^()
-	*(lambda "loptional" ^("matches") ^("matcher")
+(defun "m-optional" ^("function matcher") ^()
+	*(lambda "loptional" ^("list matches") ^("matcher")
 		*(cat (matcher matches) matches)))
 
 (defun "m-anyof" ^("word_list" "into") ^()
@@ -45,6 +45,17 @@
 	)
 )
 
+(defun "m-?-adjectives" ^("list word-list") ^()
+	*(lambda "lm-?-adjectives" ^("list matches") ^("word-list")
+		*(let ^(^("anyof" (m-anyof word-list "-")) ^("temp" null))
+			*(lastarg
+				(while *(notequal (length (var "temp" (anyof matches))) 0) *(var "matches" temp))
+				matches
+			)
+		)
+	)
+)
+
 (defun "m-always-pass" ^() ^()
 	*(lambda "lanything" ^("matches") ^() *(matches)))
 
@@ -280,5 +291,16 @@
 	"m-switch list tail: Implements a chain of m-if-exclusive. Each item in the list is the else clause of the item before it. Tail is the final else."
 )
 
+(defun "m-definer-held-by" [relative] [] 
+	(lambda "lm-definer-held-by" [matches] [relative] 
+		(where "match" matches 
+			(and 
+				(equal match.verb.defined-on.location.object match.(relative))
+				(equal match.verb.defined-on.location.list "held")
+			)
+		)
+	)
+	"Usefull for creating objects that enable a verb only when they are held."
+)