/*
 * /d/Genesis/doc/examples/trade/shop.c
 *
 * This cave is a simple example of a shop.
 *
 * /Mercade, 7 January 1994
 */

inherit "/std/room";
inherit "/lib/shop";

#include <macros.h>
#include <stdproperties.h>

#define STORE  "/d/Genesis/doc/examples/trade/store"

/*
 * Prototype.
 */
int check_wizard();

void
create_room()
{
    set_short("the example shop");
    set_long("In this cave the example shop is situated. Here you may buy " +
        "useful weapons, armours or gear, lamps and oil or whatever else " +
        "is in stock. There is a counter and a cabinet in the cave. The " +
        "cabinet is used to stock the items for sale.\n");

    /*
     * The store-room does not need to be a real room, in this case, I
     * did just as if the stock was put into a cabinet. It uses VBFC to
     * let you take a look into the cabinet if you examine it.
     */
    add_item("cabinet", "@@long:" + STORE + "@@");

    add_item("counter", "It is a wooden counter.\n");
    add_item( ({ "door", "doors" }),
        "The doors are made of the same wood as the rest of the " +
        "cabinet. They are secured with iron bands and closed shut!\n");
    add_item( ({ "band", "iron band", "bands", "iron bands" }),
        "Some iron bands are fastened to the cabinet and its doors to " +
        "make it secure and to make sure that no-one opens the cabinet " +
        "without the permission of the shopkeeper.\n");
    add_cmd_item( ({ "cabinet", "door", "doors" }),
        ({ "open", "enter", "unlock" }),
        "The doors of the cabinet are closed and fermly locked. There " +
        "is no way you can open the doors so do not even think about " +
        "entering the cabinet.\n");

    /*
     * The shop-related initializations.
     */
    config_default_trade();
    set_money_give_max(1000);
    set_store_room(STORE);

    /*
     * Add an exit to the store-room, the first parameter is the path to
     * the store, the second command to enter it and the third parameter
     * is a VBFC call to block all mortals players from using the exit.
     * We could even hide the exit from the view of players, but that is
     * beyond the scope of this example.
     */
    add_exit(STORE, "cabinet", check_wizard);
}

void
init()
{
    ::init();

    /*
     * Do this to add the shop-commands to the player.
     */
    init_shop();
}

/*
 * We do not want mortal players to walk into the cabinet and help
 * themselves. However, wizards might need to go in there if something
 * is wrong. Therefore we block their exit.
 */
int
check_wizard()
{
    /* wizards may use the exit. */
    if (this_player()->query_wiz_level())
    {
        return 0;
    }

    /* however, mortal players cannot... */
    write("The cabinet is locked. You cannot get into it.\n");
    say(QCTNAME(this_player()) + " fails to enter the cabinet.\n");
    return 1;
}