A simple MUD (Continued) in ::SHE+ILA:: [$56]

More about A simple MUD (Continued) in ::SHE+ILA:: [$56]

Command <:: &{ (input, verb, noun);
Sayget (IP, ("What now ", name, "? >"), &input);
(input, &verb, &noun) <:> table; // Unify input against table; };
table <:: (2, 6) $# ( ("get", "drop", "look", "inventory", "score", "quit"),
(&Get, &Drop, &Look, &Inventory, &Score, &Quit) );};
Get <:: &{Locate (noun, here.location); Move (noun, my.location);}
Drop <:: &{Locate(noun, my.location), Move (noun, here.location);}
Look <:: &{ttyout(IP, here.description, CRLF, here.contents.description; CRLF);};
Inventory <:: &{ ttyout(IP, "You are carrying: ", CRLF, my.contents.name);};
Score <:: &{ ttyout(IP, my.value, my.stamina, CRLF); };
Quit <:: &{ttyout(IP, "^D");}; // Remember all segments are automatically checkpointed -- no need to save :);
}; // Maybe more soon??? ;