// Petrarch // Merentha Lib 1.0 #include <std.h> inherit SHOP; void create() { ::create(); set_short("A supply shop in the Cabeiri courtyard"); set_long("This is a rather popular supply shop. The basics which \ are needed for day to day living can all be bought here. Cloths, \ armour, weapons and accessories fill the shelves on the walls. A \ shopkeeper stands behind the counter ready to help anyone."); set_items(([ "shop":"The shop is full of items for sale.", "supplies":"Supplies include cloths, weapons and accessories. The shopkeeper can help you further.", "cloth":"There is cloths of all sizes and colours in racks behind the counter.", "armour":"There are several pieces of armour here for sale.", "weapon":"There are some weapons on sale, for the right price.", "shelves":"The shelves are full of items for sale.", ])); set_exits(([ "south":"/domains/Cabeiri/square", ])); set_supply_room("/domains/Cabeiri/general_supply"); set_currency("gold"); } void load_simon() { object mon; mon=new(MONSTER); mon->set_name("simon"); mon->set_short("Simon the Shopkeeper"); mon->set_long("Simon stands behind the counter ready to help anyone make a purchase. As you look at him he points to the sign on the counter."); mon->set_id(({"simon", "shopkeeper"})); mon->move(this_object()); mon->set_level(1); mon->set_race("human"); } void reset() { object ob; ::reset(); if(!present("simon")) load_simon(); if(!present("sign")) { ob=new(SIGN); ob->set_name("sign"); ob->set_short("a sign sitting upon the counter"); ob->set_long("The sign is here to help those who need it."); ob->set_message(border("%^ORANGE%^\ list %^YELLOW%^:%^RESET%^%^GREEN%^ Lists all items for sale\n\ list <item> %^YELLOW%^:%^RESET%^%^GREEN%^ Lists all items for sale which match <item>\n\ value <item> %^YELLOW%^:%^RESET%^%^GREEN%^ Simon will tell you what he will pay for <item>\n\ show <item> %^YELLOW%^:%^RESET%^%^GREEN%^ Simon will show you the <item> in detail\n\ sell <item> %^YELLOW%^:%^RESET%^%^GREEN%^ Simon will buy the <item> from you\n\ buy <item> %^YELLOW%^:%^RESET%^%^GREEN%^ Simon will sell you the <item>\n\ ", "Welcome to Simon's Shop")); ob->set_id(({"sign", "shop sign"})); ob->move(this_object()); } } void init() { ::init(); if(!present("simon")) load_simon(); }