I am actually still working on this.

Author: Blecki

DefaultDatabase/DefaultDatabase.csproj

@@ -63,6 +63,9 @@
     <Compile Include="Properties\AssemblyInfo.cs" />
   </ItemGroup>
   <ItemGroup>
+    <None Include="database\static\templates\basic-human-male.mud">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </None>
     <None Include="database\static\chat.mud">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </None>
@@ -78,6 +81,9 @@
     <None Include="database\static\character-generation.mud">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </None>
+    <None Include="database\static\quantum-sink.mud">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </None>
     <None Include="database\static\wear-remove.mud">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </None>

DefaultDatabase/MudEngine2012.dll

@@ -2,6 +2,14 @@
 (defun "load-account" [name] (load "players/(name)/account"))
 (defun "load-player-character" [account-name character-name] (load "players/(account-name)/(character-name)"))
 
+(defun "create-account" [name password]
+	(let (^("account-object" (create "players/(name)/account")))
+		(lastarg
+			(set account-object "password" (hash password name))
+			account-object
+		)
+	)
+)
 
 (defun "create-player-character" [account name]
 	(let ^(^("result" (create "players/(account)/(name)")))

DefaultDatabase/MudServer.exe

@@ -1,18 +1,18 @@
 
 (defun "basic-formatter-list-objects" ^("list list" "prepend-isare" "list-on") 
 	(if (equal (length list) 1)
-		(if (prepend-isare) 
-			"is ((first list):a)(basic-formatter-list-objects-on (first list) list-on)"
-			"((first list):a)(basic-formatter-list-objects-on (first list) list-on)"
+		(if prepend-isare 
+			"is ((first list):list-short)(basic-formatter-list-objects-on (first list) list-on)"
+			"((first list):list-short)(basic-formatter-list-objects-on (first list) list-on)"
 		)
-		(if (prepend-isare) "are (strcat 
+		"(if prepend-isare "are " "")(strcat 
 			$(mapi "i" list
 				(if (equal i (subtract (length list) 1)) 
-					"and ((index list i):a)(basic-formatter-list-objects-on (index list i) list-on)" 
-					"((index list i):a)(basic-formatter-list-objects-on (index list i) list-on), "
+					"and ((index list i):list-short)(basic-formatter-list-objects-on (index list i) list-on)" 
+					"((index list i):list-short)(basic-formatter-list-objects-on (index list i) list-on), "
 				)
 			)
-		)")
+		)"
 	)
 )
 
@@ -26,7 +26,7 @@
 (defun "basic-formatter-list-links" ^("list links")
 	(strcat 
 		$(map "link" links 
-			"(link.name) (if link.door "[through (link.door:a)] " "")"
+			"(link.name) (if link.door "[through (link.door:list-short)] " "")"
 		)
 	)
 )

DefaultDatabase/database/static/account.mud

@@ -15,7 +15,7 @@
 				(if actor.creation-finished (nop)
 					(nop
 						(echo actor "The voice says \"Proceed east from the locker room to the termination center for recycling.\"\n")
-						(invoke 10 voice-sequence actor)
+						/*(invoke 10 voice-sequence actor)*/
 					)
 				)
 			)
@@ -53,14 +53,14 @@
 			(lfun "start-scan-sequence" [actor] 
 				(nop
 					((load "stats").generate-character-stats actor)
-					(invoke 5 scan-sequence-one actor)
+					(invoke 5 scan-sequence-four actor)
 				)
 			)
 
 			(multi-set start-room [
 				[@base (load "room")]
 				[short "Dank tiled stall"]
-				[long "A thousand streams of dirty water run down the walls, which might once have been white tile, to a drain nearly clogged with muck and slime. A single florescent light flickers overhead."]
+				[long "A thousand streams of dirty water run down the walls, which might once have been white tile, to a drain nearly clogged with muck and slime. A single florescent light flickers overhead.\n[This area is designed to teach the basics of interacting with the game world. You might start with 'read sign', and then you can 'go left' or 'go right'.]"]
 				])
 			(open-direct-link start-room scanning-room ^("left" "l" "girl") 
 				(lambda "lchoose-girl" [actor] 
@@ -99,7 +99,7 @@
 			(multi-set locker-room [
 				[@base (load "room")]
 				[short "Musty Locker Room"]
-				[long ""]
+				[long "Lockers squat against the walls of this room. The floor is dirty and stained by old puddles.\n[You'll find items of clothing in the world that can be worn.]\n[If a command is ambiguous, or doesn't seem to be affecting the object you intend, try being more specific. For example, to exit this room, you'll need to 'open north door'.]"]
 				])
 
 			(set scanning-room "door" (create-direct-door scanning-room locker-room ^("north" "n")))
@@ -123,16 +123,28 @@
 			(multi-set locker-room.in-door [
 				["locked" true]
 				["short" "steel door"]
-				["adjectives" ^("steel")]
+				["adjectives" ^("steel" "south" "s")]
 				])
 
 			(multi-set (create-direct-door locker-room null ^("east" "e")) [
 				["locked" true]
 				["short" "striped door"]
 				["description" "This door is painted in diagonal yellow stripes."]
-				["adjectives" ^("striped")]
+				["adjectives" ^("striped" "east" "e")]
 				])
 
+			(add-object locker-room "contents" (record
+				[@base (load "object")]
+				[short "worn denim pants"]
+				[nouns ^("pants")]
+				[adjectives ^("worn" "denim")]
+				[can-wear true]
+			))
+
+			(add-object locker-room "contents" ((load "quantum-sink").create))
+			(create-door locker-room "new-haven/start-room" ^("north" "n")
+				(lambda "" [actor] (set actor "creation-finished" true)))
+
 		start-room)
 	)
 )

DefaultDatabase/database/static/basic-formatter.mud

@@ -6,7 +6,7 @@
 			(echo actor "^(door:the) is closed.\n")
 			(nop
 				(echo to.contents "^(actor:short) arrived.\n")
-				(move-object actor door.to "contents")
+				(move-object actor to "contents")
 				(echo previous.contents "^(actor:short) went (name). [Through (door:the)]\n")
 				(echo actor "You went (name). [Through (door:the)]\n")
 				(if on-follow (on-follow actor))
@@ -20,19 +20,20 @@
 	(lambda "lgo" ["matches" "actor"] (implement-door-link door (load door.to) name actor on-follow))
 )
 
-(lfun "make-door-record" [to] 
+(lfun "make-door-record" [to names] 
 	(record
 		^("short" "door")
 		^("nouns" ^("door"))
 		^("to" to)
 		^("@base" (load "object"))
 		^("can-open" true)
 		^("open" null)
+		^("adjectives" names)
 	)
 )
 
 (defun "create-door" ^("from" "to" "names" "function ?on-follow")
-	(let ^(^("door" (make-door-record to)))
+	(let ^(^("door" (make-door-record to names)))
 	(lastarg
 		(prop-add from "links" (record ^("name" (first names)) ^("door" door)))
 		(for "name" names
@@ -66,7 +67,7 @@
 )
 
 (defun "create-direct-door" [from to names "function ?on-follow"]
-	(let ^(^("door" (make-door-record to)))
+	(let ^(^("door" (make-door-record to names)))
 	(lastarg
 		(prop-add from "links" (record ^("name" (first names)) ^("door" door)))
 		(for "name" names

DefaultDatabase/database/static/character-generation.mud

@@ -1,13 +1,23 @@
 (depend "character-generation")
 
-(let (
-	^("display-characters" 
-		(lambda "" [client characters]
-			(mapi "i" characters (echo client "[(i)]: (index characters i) [type 'connect (i)' to choose this character.]\n"))
+(lfun "menu-choices" [client choices callback]
+	(nop
+		(for "item" choices (echo client "[(item.key)]: (item.name)\n"))
+		(set client "command-handler"
+			(lambda "handle-choice" [client full-command token switch]
+				(callback client (first (where "item" choices (equal item.key token.word))))
+			)
 		)
 	)
+)
+
+(lfun "menu-option" [key name value] (record ^("key" key) ^("name" name) ^("value" value)))
+
+(lfun "build-menu" ^("function name" "list items")
+	(mapi "i" items 
+		(menu-option (itoa (add (atoi "A") i)) (name (index items i)) (index items i))
 	)
-(nop
+)
 
 (defun "handle-frontend-command" [client full-command token switch]
 	(let (^("words" (mapex "token" token token.word token.next)))
@@ -21,100 +31,88 @@
 	)
 )
 
-(defun "handle-login-command" [client account-name password]
-	(let (^("account-object" (load-account account-name)))
-		(if account-object
-			(if (greaterthan (count "connected-client" clients (equal connected-client.account account-object)) 0)
-				(echo client "You are already logged in.\n")
-				(if (equal (hash password account-name) account-object.password)
-					(let ^(^("characters" (list-player-characters account-name)))
+(lfun "connect" [client player-object]
+	(nop
+		(set client "player" player-object)
+		(set client "logged_on" true)
+		(set player-object "account" client.account-object)
+		(move-object player-object (load "new-haven/start-room") "contents")
+		(set client "command-handler" handle-verb-command)
+		(command player-object "look")
+	)
+)
+
+(lfun "display-create-menu" [client]
+	(menu-choices 
+		client
+		(build-menu (lambda "" [item] (path-leaf item)) (enumerate-database "templates"))
+		(lambda "callback" [client choice]
+			(if (not choice)
+				(echo client "Huh?")
+				(nop
+					(let (^("player" (create-player-character client.account-name choice.value)))
 						(nop
-							(if (equal (length characters) 0)
-								(echo client "You have no characters.\n")
-								(display-characters client characters)
-							)
-							(echo client "Valid commands are connect, create, and delete.\n")
-							(set client "command-handler" handle-front-end-character-menu-command)
-							(set client "account-name" account-name)
-							(set client "account-object" account-object)
+							(echo client choice)
+							(set player "@base" (load "(choice.value)"))
+							(connect client player)
 						)
 					)
-					
+				)
+			)
+		)
+	)
+)
 
-					
-					(echo client "Wrong password.\n")
+(lfun "display-characters" [client]
+	(menu-choices 
+		client
+		(cat 
+			(build-menu (lambda "" [item] (path-leaf item)) (list-player-characters client.account-name)) 
+			^((menu-option "0" "Create new character" null))
+		)
+		(lambda "callback" [client choice]
+			(if (not choice)
+				(echo client "Huh?")
+				(if (choice.value)
+					(connect client (load-player-character client.account-name choice.value))
+					(display-create-menu client)
 				)
 			)
-			(echo client "I couldn't find that account.\n")
 		)
 	)
 )
 
-(defun "handle-register-command" [client account-name password]
+
+
+
+(defun "handle-login-command" [client account-name password]
 	(let (^("account-object" (load-account account-name)))
 		(if account-object
-			(echo client "That account already exists.\n")
-			(nop
-				(var "account-object" (create "players/(account-name)/account"))
-				(if account-object
+			(if (greaterthan (count "connected-client" clients (equal connected-client.account account-object)) 0)
+				(echo client "You are already logged in.\n")
+				(if (equal (hash password account-name) account-object.password)
 					(nop
-						(multi-set account-object ^(^("player" "player") ^("password" (hash password account-name))))
-						(handle-login-command client account-name password)
+						(set client "account-name" account-name)
+						(set client "account-object" account-object)
+						(display-characters client)
 					)
+					(echo client "Wrong password.\n")
 				)
 			)
+			(echo client "I couldn't find that account.\n")
 		)
 	)
 )
 
-(defun "handle-front-end-character-menu-command" [client full-command token switch]
-	(let (^("words" (mapex "token" token token.word token.next)))
-		(if (equal (index words 0) "connect")
-			(let (^("choice" (index (list-player-characters client.account-name) (index words 1))))
-				(if choice
-					(let ^(^("player-object" (load-player-character client.account-name choice)))
-						(nop
-							(set client "player" player-object)
-							(set client "logged_on" true)
-							(set player-object "account" client.account-object)
-							(move-object player-object (load "new-haven/start-room") "contents")
-							(set client "command-handler" handle-verb-command)
-							(command player-object "look")
-						)
-					)
-				)
-			)
-			(if (equal (index words 0) "create")
-				(let (^("name" (index words 1)))
-					(let (^("player-object" (create-player-character client.account-name name)))
-						(if player-object
-							(nop
-								(set client "player" player-object)
-								(set client "logged_on" true)
-								(set player-object "account" client.account-object)
-								(move-object player-object (create-character-generation-area player-object) "contents")
-								(set client "command-handler" handle-verb-command)
-								(command player-object "look")
-							)
-							(echo client "I couldn't create that character.\n")
-						)
-					)
-				)
-				(if (equal (index words 0) "delete")
-					(echo client "Not implemented.\n")
-					(let (^("characters" (list-player-characters client.account-name)))
-						(nop
-							(if (equal (length characters) 0)
-								(echo client "You have no characters.\n")
-								(display-characters client characters)
-							)
-							(echo client "Valid commands are connect, create, and delete.\n")
-						)
-					)
-				)
+(defun "handle-register-command" [client account-name password]
+	(let (^("account-object" (load-account account-name)))
+		(if account-object
+			(echo client "That account already exists.\n")
+			(let (^("account-object" (create-account account-name password)))
+				(handle-login-command client account-name password)
 			)
 		)
 	)
 )
 
-))
+

DefaultDatabase/database/static/door.mud

@@ -20,7 +20,7 @@
 /* Opens an indirect link */
 (defun "open-link" ^("from" "to" "names" "function ?on-follow")
 	*(nop
-		(prop-add from "links" (first names))
+		(prop-add from "links" (record ^("name" (first names))))
 		(for "name" names
 			*(nop
 				(add-verb from name (m-nothing)