# Dump of perlmoo database on Mon Oct 26 18:17:28 1998
Db::Version('13');
Db::MakeThing('Room', id => 10);
Db::MakeThing('Thing', id => 1);
Db::MakeThing('GuestAllocator', id => 11);
Db::MakeThing('Container', id => 2);
Db::MakeThing('LoginRoom', id => 12);
Db::MakeThing('Person', id => 3);
Db::MakeThing('HelpObject', id => 13);
Db::MakeThing('Room', id => 4);
Db::MakeThing('Exit', id => 5);
Db::MakeThing('Builder', id => 6);
Db::MakeThing('Programmer', id => 7);
Db::MakeThing('Wizard', id => 8);
Db::MakeThing('Generics', id => 9);
$temp = {
  'perms_r' => {},
  'location' => '',
  'name' => 'Void',
  'parent' => $Db->FindByNum(4),
  'aliases' => [],
  'description' => 'A lot of nothing, ready to be shaped into something.',
  'id' => 10
};
$Db->FindByNum(10)->merge_all($temp);

$temp = {
  'name' => 'generic thing',
  'verbs' => {
    'rename' => bless( {
      'indirect_object' => 'any',
      'direct_object' => 'this',
      'sub' => 'verb_rename',
      'preposition' => 'any',
      'command' => 'rename'
    }, 'Verb' ),
    'help' => bless( {
      'indirect_object' => 'any',
      'direct_object' => 'this',
      'sub' => 'verb_help',
      'preposition' => 'any',
      'command' => 'help'
    }, 'Verb' ),
    'describe' => bless( {
      'indirect_object' => 'any',
      'direct_object' => 'this',
      'sub' => 'verb_describe',
      'preposition' => 'any',
      'command' => 'describe'
    }, 'Verb' )
  },
  'aliases' => [],
  'description' => 'Looks uninteresting',
  'take_fail_msg' => 'You can\'t pick that up.',
  'perms_r' => {
    'commandaliases' => 1,
    'name' => 1,
    'verbs' => 1,
    'aliases' => 1,
    'methods' => 1,
    'description' => 1,
    'take_fail_msg' => 1,
    'perms_r' => 1,
    'help' => 1,
    'home' => 1,
    'location' => 1,
    'parent' => 1,
    'fertile' => 1,
    'drop_msg' => 1,
    'take_msg' => 1,
    'owner' => 1,
    'perms_w' => 1,
    'id' => 1
  },
  'home' => $Db->FindByNum(10),
  'help' => {
    'rename' => 'Change the name of an object, and optionally set aliases for it.
Syntax: rename <object> to <name>[,<aliases>]

The optional list of aliases is a comma-seperated list of other names that can be used for the object.',
    'help' => 'Outputs help on a given command.
Syntax: help <topic>
        help <object> <topic>

The first syntax queries a variety of objects to see if any can give you help on the specified topic.

The second syntax asks a specific object to show its help text on the topic.',
    'describe' => 'Changes the description of an object.
Syntax: describe <object> as "<text>"

The description is what a user sees when they look at the object.'
  },
  'location' => '',
  'owner' => $Db->FindByNum(8),
  'drop_msg' => 'You drop $name.',
  'take_msg' => 'You pick up $name.',
  'fertile' => 1,
  'perms_w' => {
    'location' => 1
  },
  'id' => 1
};
$Db->FindByNum(1)->merge_all($temp);

$temp = {
  'name' => 'guest',
  'aliases' => [],
  'password' => 'x',
  'guestlist' => [
    'red_guest',
    'yellow_guest',
    'blue_guest',
    'green_guest',
    'purple_guest',
    'orange_guest',
    'cyan_guest',
    'tan_guest',
    'magenta_guest',
    'turquoise_guest'
  ],
  'maxguests_msg' => 'Sorry, there are too many guests already logged in. Come back later.',
  'perms_r' => {
    'guestlist' => 1,
    'maxguests_msg' => 1
  },
  'location' => '',
  'parent' => $Db->FindByNum(3),
  'fertile' => undef,
  'id' => 11,
  'perms_w' => {
    'location' => 0
  }
};
$Db->FindByNum(11)->merge_all($temp);

$temp = {
  'name' => 'generic container',
  'aliases' => [],
  'empty_msg' => 'It is empty.',
  'filled_msg' => 'The $name contains:
	$list.',
  'perms_r' => {
    'empty_msg' => 1,
    'filled_msg' => 1,
    'contents' => 1,
    'put_msg' => 1
  },
  'location' => '',
  'parent' => $Db->FindByNum(1),
  'perms_w' => {
    'contents' => 1
  },
  'id' => 2,
  'contents' => [],
  'put_msg' => 'You put $thing in $name.'
};
$Db->FindByNum(2)->merge_all($temp);

$temp = {
  'perms_r' => {},
  'location' => '',
  'name' => 'perlmoo',
  'parent' => $Db->FindByNum(4),
  'aliases' => [],
  'description' => 'An experimental perl moo. If you have an account here, type "connect name password" to login. Otherwise, you can log in as a guest user ("connect guest"). If you find something that looks like a bug, send joey@kitenet.net a transcript. Once you log in, type "help intro" to get started.',
  'id' => 12
};
$Db->FindByNum(12)->merge_all($temp);

$temp = {
  'commandaliases' => {
    ':' => 'emote ',
    '"' => 'say ',
    '-' => 'sayto ',
    '\'' => 'whisper '
  },
  'name' => 'generic person',
  'verbs' => {
    'mo*ve' => bless( {
      'indirect_object' => 'any',
      'direct_object' => 'any',
      'sub' => 'verb_put',
      'preposition' => 'any',
      'command' => 'mo*ve'
    }, 'Verb' ),
    'whisper' => bless( {
      'indirect_object' => 'any',
      'direct_object' => 'any',
      'sub' => 'verb_whisper',
      'preposition' => 'any',
      'command' => 'whisper'
    }, 'Verb' ),
    'quit' => bless( {
      'sub' => 'verb_logout',
      'command' => 'quit'
    }, 'Verb' ),
    'p*ut' => bless( {
      'indirect_object' => 'any',
      'direct_object' => 'any',
      'sub' => 'verb_put',
      'preposition' => 'any',
      'command' => 'p*ut'
    }, 'Verb' ),
    'version' => bless( {
      'sub' => 'verb_version',
      'command' => 'version'
    }, 'Verb' ),
    'home' => bless( {
      'sub' => 'verb_home',
      'command' => 'home'
    }, 'Verb' ),
    'i' => bless( {
      'sub' => 'verb_inventory',
      'command' => 'i'
    }, 'Verb' ),
    'g*et' => bless( {
      'indirect_object' => 'any',
      'direct_object' => 'any',
      'sub' => 'verb_get',
      'preposition' => 'any',
      'command' => 'g*et'
    }, 'Verb' ),
    'give' => bless( {
      'indirect_object' => 'any',
      'direct_object' => 'any',
      'sub' => 'verb_put',
      'preposition' => 'any',
      'command' => 'give'
    }, 'Verb' ),
    'who' => bless( {
      'sub' => 'verb_who',
      'command' => 'who'
    }, 'Verb' ),
    't*ake' => bless( {
      'indirect_object' => 'any',
      'direct_object' => 'any',
      'sub' => 'verb_get',
      'preposition' => 'any',
      'command' => 't*ake'
    }, 'Verb' ),
    'sayto' => bless( {
      'indirect_object' => 'any',
      'direct_object' => 'any',
      'sub' => 'verb_sayto',
      'preposition' => 'any',
      'command' => 'sayto'
    }, 'Verb' ),
    'password' => bless( {
      'direct_object' => 'any',
      'sub' => 'verb_password',
      'preposition' => 'any',
      'command' => 'password'
    }, 'Verb' ),
    'delete' => bless( {
      'direct_object' => 'any',
      'sub' => 'verb_delete',
      'command' => 'delete'
    }, 'Verb' ),
    'uptime' => bless( {
      'sub' => 'verb_uptime',
      'command' => 'uptime'
    }, 'Verb' ),
    'sethome' => bless( {
      'sub' => 'verb_sethome',
      'command' => 'sethome'
    }, 'Verb' ),
    'lastlog' => bless( {
      'sub' => 'verb_lastlog',
      'command' => 'lastlog'
    }, 'Verb' ),
    'audit' => bless( {
      'direct_object' => 'any',
      'sub' => 'verb_audit',
      'command' => 'audit'
    }, 'Verb' ),
    'inv*entory' => bless( {
      'sub' => 'verb_inventory',
      'command' => 'inv*entory'
    }, 'Verb' ),
    'logout' => bless( {
      'sub' => 'verb_logout',
      'command' => 'logout'
    }, 'Verb' ),
    'page' => bless( {
      'indirect_object' => 'any',
      'direct_object' => 'any',
      'sub' => 'verb_page',
      'preposition' => 'any',
      'command' => 'page'
    }, 'Verb' ),
    'd*rop' => bless( {
      'direct_object' => 'any',
      'sub' => 'verb_drop',
      'command' => 'd*rop'
    }, 'Verb' ),
    'chown' => bless( {
      'indirect_object' => 'any',
      'direct_object' => 'any',
      'sub' => 'verb_chown',
      'preposition' => 'any',
      'command' => 'chown'
    }, 'Verb' )
  },
  'close_callback' => sub { "DUMMY" },
  'aliases' => [],
  'question_callback' => '',
  'description' => 'Someone who should describe themselves with "describe me as ..."',
  'help' => {
    'whisper' => 'Send someone a private message
Syntax: whisper "<text>" to <person>

Sends <text> to the specified person, so that noone elase can see it.',
    'get take' => 'Pick up an object.
Syntax: get <object>
        take <object>
        get <object> from <container>
        take <object> from <container>

The first two forms pick up the named object and place it in your inventory.
The remaining forms move the named object from inside the named container into your inventory.

Note that you can use \'all\' as the object to get all objects.',
    'version' => 'Show moo version number
Syntax: version

This shows the version number of perlmoo that is running this moo, along with the version of perl it is running under.',
    'home' => 'Teleport home
Syntax: home

Instantly teleports you to your designated home room.
You can change your designated home; see \'help sethome\' for details.',
    'exits' => 'List exits in a room
Syntax: exits

Prints a list of all exits from a room.',
    'who' => 'List logged in users.
Syntax: who

This lists all connected users, along with how long they have been connected, how long they have been idle, and where they are currently in the moo.',
    'inventory' => 'Show what you\'re carrying
Syntax: inventory
        i

This prints a list of every object you are carrying.',
    'put move' => 'Change the location of an object.
Syntax: put <object> in <container>
        move <object> to <container>

Move the object into the container. Note that people and rooms are valid containers. This can also be useful for teleporting yourself and other objects around.',
    'sayto' => 'Say something directed to a specific person
Syntax: sayto <person> <message> ...
        -<person> <message> ...

This is like \'say\' (\'help say\'), in that it makes you say something that can be heard by everyone in the same location as you. The difference is that what you say with this command is directed to a specific person in the room. This is especially useful in a crowded room with many conversations going on at once, or when you need to get someone\'s attention.',
    'password' => 'Change your password
Syntax: password <old-password> <new-password>

Changes your password (as typed in the \'connect\' command when you log in) to <new-password>. For security reasons, you are required to type your current (soon to be old) password as the first argument.

Your password is stored in an encrypted form in the moo database; in principle, not even the wizards can tell what it is, though they can change it, of course. It is recommended that your password not be your name or a common word; passwords have been stolen or cracked in the past. Your password is your security; choose a safe one.',
    'delete' => 'Remove an object from the moo
Syntax: delete <object>

Destroys the indicated object utterly and irretrievably. Naturally, you may only do this to objects that you own (unless you are a wizard).',
    'uptime' => 'Show how long the moo has been running
Syntax: uptime

This simply shows you how long the moo has been running.',
    'drop' => 'Drop an object
Syntax: drop <object>

This removes an object you are carrying from your inventory and puts it in your current room.
You can use \'drop all\' to drop every object you are holding.',
    'sethome' => 'Set your designated home
Syntax: sethome

Sets your designated home (see help home\') to be the room you\'re in now. Note that this is also the room you will appear in when you log on.',
    'lastlog' => 'Show recent logins to the moo.
Syntax: lastlog

This lists all people who have logged into the moo, with those who have logged in most recently first. It tells when they last logged in, if they are currently connected, and what host theylogged on from.',
    'audit' => 'List all the objects you or someone else owns
Syntax: audit
        audit <person>

The first form lists all objects you own. The second lists all objects someone else owns.',
    'logout quit' => 'Disconnect from the moo.
Syntax: logout
        quit

This breaks your network connection and leaves your character sleeping.',
    'page' => 'Send a message to a person
Syntax: page <person> [[with] <text>]

Sends a message to the person, no matter where they are in the moo. If <text> is omitted, the person will just be informed you have paged them.',
    'chown' => 'Changes the ownership of the specified object
Syntax: chown <object> to <person>

Each object in the moo has an owner - a person who can modify the object and see all its properties. The chown command changes the owner of an object.'
  },
  'parent' => $Db->FindByNum(2),
  'fertile' => '',
  'lastlogin' => '',
  'id' => 3,
  'lastactive' => '',
  'connected' => '',
  'password' => 'x',
  'empty_msg' => '',
  'filled_msg' => 'Carrying:
	$list',
  'perms_r' => {
    'lastactive' => 1,
    'connected' => 1,
    'output_callback' => 1,
    'lastlogin' => 1,
    'host' => 1
  },
  'location' => '',
  'perms_w' => {
    'location' => 0
  },
  'output_callback' => sub { "DUMMY" },
  'host' => ''
};
$Db->FindByNum(3)->merge_all($temp);

$temp = {
  'perms_r' => {},
  'help' => {
    'index' => 'Help is available on the following general topics:

introduction  -- The basics of perlmoo and what\'s going on here.

self          -- Setting characteristics of yourself.
movement      -- Moving between rooms.
communication -- Communicating with other users.
manipulation  -- Moving or using other objects.
miscellaneous -- Commands that don\'t fit anywhere else.

building      -- Extending and modifying the moo.
programming   -- Adding code to the moo.
wizindex      -- Wizardly topics

Type \'help <topic>\' for information on a particular topic.',
    's///' => 'Recall a command, modify it, and re-execute it
Syntax: s/<from>/<to>/<flags>

This command recalls your last command, does a substitution on it, and immediatly sends the result to the moo as if the result was the command you had typed. This can be very useful for correcting typos in a command. It can also be quite annoying if overused on things like \'say\' commands that output things to others in the room.

<from> is the regular expression to match in the last command you entered.
<to> is the value to replace matches with.
<flags> is a set of flags to control the s/// command\'s operation. Use \'g\' to repeat the modification as many times as possible. Use \'i\' to make the matching of <from> case-insensative. The flags can appear in any order.

This is a dumbed down version of the perl s/// operator. See the perlop man page for details on the regexps and on all the neat things you can do with it (many of them vastly overkill for the simple purposes this command is used for in the moo).',
    'newuser' => 'Here is the process to follow to add a new user to the moo:
	create $person named linus
	describe linus as "We all know what linus looks like, right?"
	setpassword linus to linux
	chown linus to linus
Now linus can log in with a password of \'linux\'

You may want to set up some people with higher permissions than a default person has. Just substitute $builder, $programmer, or even $wizard for $person above.',
    'manipulation' => 'Here are some commands you can use to manipulate objects:

get  -- pick an object up and place it in your inventory
drop -- remove an object from your inventory and place it in the room
put  -- take an object from your inventory and place it in a container
give [5~-- hand an object to some other person
look -- see what an object looks like',
    'self' => 'There are a number of commands for modifying various characteristics of the object representing you in Perlmoo. Help on them is available in the following topics:

describe -- setting what others see when they look at you
password -- changing your password
sethome  -- changing your designated home room
rename   -- changing your name and/or aliases',
    'introduction' => 'Perlmoo is a kind of virtual reality, in which people move about from place to place manipulating their environment in what we hope are amusing, entertaining, or enlightening ways.

Perlmoo is more of a pastime than a game in the usual sense; there is no score kept, there are no specific goals to attain in general, and there\'s no competition involved. Perlmoo participants explore the virtual world, talk to the other participants, try out the weird gadgets that others have built, and create new places and things for others to encounter and enjoy.

Most commands have the form of simple English sentences:
	<verb>
	<verb> <direct object>
	<verb> <direct object> <preposition> <indirect object>
Don\'t use English articles (e.g. \'a\', \'an\', or \'the\') in your commands; Perlmoo won\'t understand them. You can refer to yourself as \'me\' and the room you\'re in as \'here\'. You can use \'it\' to refer to the last object you referred to. Commands can often be shortened, for example, you can use \'inv\' as a shorthand for \'inventory\'. You can also shorten the names of objects you refer to.

The first five things you\'ll want to know are listed below. Type \'help <thing>\' for details on any of them:

look     -- getting a description of the current room or any other object
say      -- speaking to the other people in the same room as you
who      -- showing which people are currently connected to Perlmoo
movement -- how to move around in Perlmoo, from room to room
quit     -- disconnecting from Perlmoo',
    'wizindex' => 'Wizards have many special powers - they can examine and change all properties of all objects. They also have some special commands:

listall     -- listing every object in the whole moo
shout       -- broadcasting a message to all users
setpassword -- changing a user\'s password
dumpdb      -- immediatly saving the database

Here are some other help texts wizards may find helpful:

newuser     -- adding a new user to the moo
loginroom   -- customizing the login room',
    'movement' => 'The descriptions of most rooms outline the directions in which exits exist. Typical directions include the eight compass points (\'north\', \'south\', \'east\', \'west\', \'northeast\', \'southeast\', \'northwest\', and \'southwest\'), \'up\', \'down\', and \'out\'. You can sometimes use the \'exits\' command (see \'help exits\') to view the exits from a room.

To go in a particular direction, simply type the name of that direction (e.g, \'north\', \'up\').  The name of the direction can usually be abbreviated to one or two characters (e.g., \'n\', \'sw\').  You can also type \'go <direction>\' to move; this is particularly useful if you know you\'re going to type several movement commands in a row (see \'help go\').

You can also use the \'home\' command to teleport you to your designated home (see \'help home\' for more details).',
    'programming' => 'Perlmoo can be programmed to create interesting new objects. This can only be done by programmers - normal users will not have permission to use these commands:

eval     -- immediatly execute perl code
teach    -- adding a new verb to an object
verbcode -- adding/changing the code that is executed for a verb
code     -- adding/changing an object\'s method

Of course, Perlmoo is programmed in perl, and you use perl code in the above commands. See the fine perl documentation to learn more about programming in perl.',
    'miscellaneous' => 'Here are some commands that didn\'t fit in any other categories:

lastlog -- finding out when somone last connected
who     -- showing who is logged on
quit    -- disconnecting from Perlmoo
help    -- displaying help
s///    -- recalling and modifying a command
version -- show perlmoo version
uptime  -- show how long the moo has been running',
    'building' => 'There are a number of commands available to people for modifying the moo:

describe -- changing what an object looks like
rename   -- changing an object\'s name and aliases
chown    -- changes who owns an object
audit    -- list all the objects you or someone else owns
delete   -- remove an object from the moo

These commands are mostly only of use to builders - normal users will not have permission to execute them:

dig      -- conveniently building new rooms and exits
create   -- making other kinds of objects
show     -- listling properties of objects',
    'loginroom' => 'The login room is the room people first see when they login. You may want to change the room\'s description and name to customize what people see when they connect to the moo. To do this, just refer to $loginroom. For example:
	rename $loginroom to MyMoo
	describe $loginroom as "Welcome to my moo!"',
    'communication' => 'There are several commands available to allow you to communicate with others in the moo. Help is available on the following communication-related topics:

say     -- talking to the other people in the same room
whisper -- talking privately to someone in the same room
emote   -- non-verbal communication with others in the same room
sayto   -- say something directed to sonother person
page    -- communicate with someone in another room'
  },
  'location' => '',
  'name' => 'generic help object',
  'parent' => $Db->FindByNum(1),
  'aliases' => [],
  'id' => 13
};
$Db->FindByNum(13)->merge_all($temp);

$temp = {
  'perms_r' => {
    'exit_msg' => 1,
    'exits' => 1
  },
  'exit_msg' => '$name to $roomname.
',
  'help' => {
    'emote' => 'Non-verbal communication with others in the room
Syntax: emote <anything> ...
        :<anything> ...
        ::<anything> ...

Announces <anything> to everyone in the same room, prepending your name. This is commonly used for various forms of non-verbal communication. In fact, it is so commonly used that there\'s a special abbreviation for it: any command line starting with \':\' is treated as an \'emote\' command.

The alternate form, \'::\' (less commonly \'emote :\'), does not insert the space between your name and the text.',
    'say' => 'Say something to people in the room
Syntax: say <text> ...
        "<text> ...

Says <anything> out loud, so that everyone in the same room hears it. This is used so often that there is a special abbreviation for it - any command line starting with a double quote is treated as a \'say\' command.',
    'look' => 'Look at an object.
Syntax: look
        look <object>
        look <object> in <container>

The first form, with no arguments, shows you the name and description of the room you\'re in, along with a list of the other objects that are there.

The second form, lets you look at a specific object. Most objects have descriptions that may be read this way. You can look at your own description using \'look me\'. You can set the description for an object or room, including yourself, with the \'describe\' command (see \'help describe\').

The third form shows you the description of an object that is inside some other object, including objects being carried by another person.',
    'go' => 'Move from room to room
Syntax: go <exit> ..

Goes to the named exits in the named order. If multiple exits are specified, you will move through multiple rooms in a single command.'
  },
  'location' => '',
  'name' => 'generic room',
  'verbs' => {
    'help' => bless( {
      'direct_object' => 'any',
      'sub' => 'verb_help',
      'command' => 'help'
    }, 'Verb' ),
    'emote' => bless( {
      'indirect_object' => 'any',
      'direct_object' => 'any',
      'sub' => 'verb_emote',
      'preposition' => 'any',
      'command' => 'emote'
    }, 'Verb' ),
    'exits' => bless( {
      'sub' => 'verb_exits',
      'command' => 'exits'
    }, 'Verb' ),
    'say' => bless( {
      'indirect_object' => 'any',
      'direct_object' => 'any',
      'sub' => 'verb_say',
      'preposition' => 'any',
      'command' => 'say'
    }, 'Verb' ),
    'go' => bless( {
      'indirect_object' => 'any',
      'direct_object' => 'any',
      'sub' => 'verb_go',
      'preposition' => 'any',
      'command' => 'go'
    }, 'Verb' ),
    'l*ook' => bless( {
      'indirect_object' => 'any',
      'direct_object' => 'any',
      'sub' => 'verb_look',
      'preposition' => 'any',
      'command' => 'l*ook'
    }, 'Verb' )
  },
  'parent' => $Db->FindByNum(2),
  'aliases' => [],
  'perms_w' => {
    'exits' => 1
  },
  'exits' => [],
  'empty_msg' => '',
  'id' => 4,
  'filled_msg' => 'You see $list here.'
};
$Db->FindByNum(4)->merge_all($temp);

$temp = {
  'name' => 'generic exit',
  'verbs' => {
    'go' => bless( {
      'indirect_object' => 'any',
      'direct_object' => 'this',
      'sub' => 'verb_go',
      'preposition' => 'any',
      'command' => 'go'
    }, 'Verb' )
  },
  'destination' => undef,
  'aliases' => [],
  'message' => '',
  'perms_r' => {
    'destination' => 1,
    'message' => 1
  },
  'location' => '',
  'parent' => $Db->FindByNum(1),
  'perms_w' => {
    'location' => 1
  },
  'id' => 5
};
$Db->FindByNum(5)->merge_all($temp);

$temp = {
  'name' => 'generic builder',
  'verbs' => {
    'show' => bless( {
      'direct_object' => 'any',
      'sub' => 'verb_show',
      'command' => 'show'
    }, 'Verb' ),
    'dig' => bless( {
      'indirect_object' => 'any',
      'direct_object' => 'any',
      'sub' => 'verb_dig',
      'preposition' => 'any',
      'command' => 'dig'
    }, 'Verb' ),
    'cre*ate' => bless( {
      'indirect_object' => 'any',
      'direct_object' => 'any',
      'sub' => 'verb_create',
      'preposition' => 'any',
      'command' => 'cre*ate'
    }, 'Verb' )
  },
  'aliases' => [],
  'password' => 'x',
  'perms_r' => {},
  'location' => '',
  'help' => {
    'show' => 'Show an object\'s properties
Syntax: show <object>

This prints out a comprehensive list of all of the object\'s properties.

This command may only be used by builders.',
    'dig' => 'Conveniently build new rooms and exits
Syntax: dig "<new-room-name>"
        dig <exit-spec> to "<new-room-name>"
        dig <exit-spec> to "<old-room>"

This is the basic building tool. It\'s much easier to make rooms and exits this way rather than with plain old \'create\'.

First a word about topology. A room is any place a person can be. Rooms are connected by exits - an exit simply allows you to go from one room to another. Exits often, but not always come in pairs, so you can go back to whence you came.

The first form of the command creates a new room with the given name. The new room is not connected to anywhere else; it is floating in limbo. The \'dig\' command tells you its object number, though, so you can use the \'move\' command to get there easily.

The second form of the command not only creates the room, but one or two exits linking your current location to (and possibly from) the new room. An <exit-spec> has one of these formats:
	<fromname>
	<fromname>|<toname>
The first format is used when you only want to create an exit out of the current room to the new room. The second format is used if you want to also create an exit back from the new from to the current room. The exit names can optionally be follwoed by a comma and a list of aliases for that exit, separated by commas.

The third form of the dig command is just like the second form except that no new room is created; you instead specify (typically by object id number) the other room to/from which the new exits will connect.

This command may only be used by builders.',
    'create' => 'Make a new object
Syntax: create <parent> named <name>[,<aliases>]

This is the main command for creating objects other than rooms and exits (for them, see \'help dig\'; it\'s much more convenient).

The first argument specifies the \'parent\' of the new object: loosely speaking, the \'kind\' of object you\'re creating. The new object will start out looking like an exact copy of its parent, except it will have a different id number and a different name and aliases. You can use another object you can see as the parent, or you can use one of the generic objects ($thing, $container, etc).

This command may only be used by builders.'
  },
  'parent' => $Db->FindByNum(3),
  'id' => 6,
  'perms_w' => {
    'location' => 0
  }
};
$Db->FindByNum(6)->merge_all($temp);

$temp = {
  'commandaliases' => {
    ';' => 'eval '
  },
  'name' => 'generic programmer',
  'verbs' => {
    'codedel' => bless( {
      'direct_object' => 'any',
      'sub' => 'verb_codedel',
      'preposition' => 'any',
      'command' => 'codedel'
    }, 'Verb' ),
    'eval' => bless( {
      'indirect_object' => 'any',
      'direct_object' => 'any',
      'sub' => 'verb_eval',
      'preposition' => 'any',
      'command' => 'eval'
    }, 'Verb' ),
    'verbcode' => bless( {
      'indirect_object' => 'any',
      'direct_object' => 'any',
      'sub' => 'verb_verbcode',
      'preposition' => 'any',
      'command' => 'verbcode'
    }, 'Verb' ),
    'code' => bless( {
      'indirect_object' => 'any',
      'direct_object' => 'any',
      'sub' => 'verb_code',
      'preposition' => 'any',
      'command' => 'code'
    }, 'Verb' ),
    'verbdel' => bless( {
      'direct_object' => 'any',
      'sub' => 'verb_verbdel',
      'preposition' => 'any',
      'command' => 'verbdel'
    }, 'Verb' ),
    'teach' => bless( {
      'indirect_object' => 'any',
      'direct_object' => 'any',
      'sub' => 'verb_teach',
      'preposition' => 'any',
      'command' => 'teach'
    }, 'Verb' )
  },
  'aliases' => [],
  'password' => 'x',
  'perms_r' => {},
  'location' => '',
  'help' => {
    'codedel' => 'Remove a method from an object
Syntax: codedel <object> <method>

This removes the method from the specified object.

This command may only be used by programmers.',
    'eval' => 'Immediatly execute perl code
Syntax: eval <perl-code>
        ;<perl-code>

The perl code is immediatly evaluated in a perl Safe. This prevents you from doing some malicious or accidental things that could mess up the moo. The value the code returns is shown to you. You can use $me to refer to yourself, and $location is your current location. These variables are objects, you can examine their properties, for example, this prints out your current name:
	;$me->name
and this changes it:
	;$me->name(\'fred\')

This command may only be used by programmers.',
    'verbcode' => 'Add/change code that is executed for a verb
Syntax: verbcode <object> <command> "<code>"

The object and command specify which verb this code is linked to. The code is perl code, that is run inside a subroutine, inside a perl Safe when the verb is called. Anything the code returns is displayed to the user. The subrouting the code runs is is passed at least 2 parameters - the first is the object that contains the verb. The second is a VerbCall, which lets you see what parameters the user entered.)

See also the \'teach\' command (\'help teach\').

This command may only be used by programmers.',
    'code' => 'Add/change code that is executed for a method
Syntax: code <object> <method> "<code>"

This is similar to verbcode, except you arn\'t limited to writing verbs, you can write other methods on an object as well (and override things like the \'tell\' method). See verbcode (\'help verbcode\') for details.

Note that this command can be used to do everything verbcode can do, you just need to prefix the name of the verb with \'verb_\'.

This command may only be used by programers.',
    'verbdel' => 'Remove a verb from an object
Syntax: verbdel <object> <verb>

This removes the specified verb from the specified object. The code for running the verb is removed, and so is the verb definition.

This command may only be used by programmers.',
    'teach' => 'Add a verb to an object
Syntax: teach <object> to <command> [<direct-object> [<preposition> [<indirect-object>]]]

This command defines a new verb on an object, and specifies what arguments the verb takes.
<command> is the command the user types to activate the verb. If \'*\' appears somewhere in a command, the remainder of that command is optional. If \'*\' appears at the end of a command, the user can add any text to the end.
The <direct-object>, <preposition> and <indirect-object> combine to specify what parameters the verb takes. If parameters that don\'t match the specification are passed to the verb, the verb won\'t be ran at all. In general, any word you specify must be entered by the user for the verb to be run. The following words are special for the direct object and indirect object:
	this - must be current object
	any  - anything is allowed, including nothing
	none - nothing is allowed

The <preposition> can use \'any\' and \'none\' to mean similar things. If any of the 3 parameters is omitted, \'none\' is assummed to be the value of those parameters.

See also the \'verbcode\' command (\'help verbcode\').

This command may only be used by programmers.'
  },
  'parent' => $Db->FindByNum(6),
  'compartment' => bless( {
    'Erase' => 1,
    'Mask' => '÷€
@º€ßÿÿÿÿÿÿáæÿÿÿÿÿ',
    'Root' => 'Safe::Root0',
    'Shares' => {
      '*_' => 'main',
      'can' => 'UNIVERSAL'
    }
  }, 'Safe' ),
  'id' => 7,
  'perms_w' => {
    'location' => 0
  }
};
$Db->FindByNum(7)->merge_all($temp);

$temp = {
  'name' => 'Wizard',
  'verbs' => {
    'shout' => bless( {
      'indirect_object' => 'any',
      'direct_object' => 'any',
      'sub' => 'verb_shout',
      'preposition' => 'any',
      'command' => 'shout'
    }, 'Verb' ),
    'dumpdb' => bless( {
      'sub' => 'verb_dumpdb',
      'command' => 'dumpdb'
    }, 'Verb' ),
    'listall' => bless( {
      'sub' => 'verb_listall',
      'command' => 'listall'
    }, 'Verb' ),
    'setpassword' => bless( {
      'indirect_object' => 'any',
      'direct_object' => 'any',
      'sub' => 'verb_setpassword',
      'preposition' => 'any',
      'command' => 'setpassword'
    }, 'Verb' )
  },
  'aliases' => [],
  'password' => 'x',
  'description' => 'An all powerful wizard.',
  'perms_r' => {},
  'location' => '',
  'help' => {
    'shout' => 'Broadcast the text to every user in the moo.
Syntax: shout <text> ...

This displays the specified text to every user of the moo.

This command may only be used by wizards.',
    'dumpdb' => 'Save the current moo db
Syntax: dumpdb

This command makes the moo immediatly dump out the database. If a database dump is already in progress, it will have no effect.',
    'listall' => 'List all objects in the moo
Syntax: listall

Listall is like the \'audit\' command (\'help audit\'), except it lists every single object in the whole moo.

This command may only be used by wizards.',
    'setpassword' => 'Set a person\'s password
Syntax: setpassword <person> to <password>

This command sets the password of a person in the moo. This can be useful when adding a new user, or when a user has forgotten their password.

This command may only be used by wizards.'
  },
  'parent' => $Db->FindByNum(7),
  'compartment' => bless( {
    'Erase' => 1,
    'Mask' => '÷€
@º€ßÿÿÿÿÿÿáæÿÿÿÿÿ',
    'Root' => 'Safe::Root1',
    'Shares' => {
      '*_' => 'main',
      'can' => 'UNIVERSAL'
    }
  }, 'Safe' ),
  'id' => 8,
  'perms_w' => {
    'location' => 0
  }
};
$Db->FindByNum(8)->merge_all($temp);

$temp = {
  'builder_gen' => $Db->FindByNum(6),
  'name' => 'Generic Objects',
  'aliases' => [],
  'parent' => $Db->FindByNum(1),
  'wizard_gen' => $Db->FindByNum(8),
  'fertile' => undef,
  'id' => 9,
  'loginroom_gen' => $Db->FindByNum(12),
  'person_gen' => $Db->FindByNum(3),
  'exit_gen' => $Db->FindByNum(5),
  'thing_gen' => $Db->FindByNum(1),
  'programmer_gen' => $Db->FindByNum(7),
  'room_gen' => $Db->FindByNum(4),
  'perms_r' => {
    'builder_gen' => 1,
    'person_gen' => 1,
    'exit_gen' => 1,
    'thing_gen' => 1,
    'programmer_gen' => 1,
    'room_gen' => 1,
    'helpobject_gen' => 1,
    'wizard_gen' => 1,
    'container_gen' => 1,
    'loginroom_gen' => 1
  },
  'location' => '',
  'helpobject_gen' => $Db->FindByNum(13),
  'container_gen' => $Db->FindByNum(2)
};
$Db->FindByNum(9)->merge_all($temp);


1