Constant Story "Richard Basehart Adventure";
Constant Headline "^^";
Include "Parser";
Include "VerbLib";
Object room "Richard Basehart's House"
        with description
                "You are standing in Richard Basehart's house.^^Richard Basehart is
here.",
has light;
Object -> rich "Richard Basehart"
with description
                "You see nothing special.",
    initial
                "Richard Basehart is here.",
        name
                "richard" "basehart" "richard basehart" "rich",
before
[;      ask: "Nothing happens.";
    examine: "You see nothing special.";
    kiss:    deadflag=3;
             rtrue;
             default: "Nothing happens.";
],
has scenery animate proper;
Verb "talk" * noun -> talk
                        * 'to' noun ->talk;
 
[ talksub;
        "Nothing happens.";
];
[ Initialise;
        location = room;
        "^^";
];
 
[ Deathmessage;
        if (deadflag==3) print "You win";
];
Include "Grammar";