furong.c

C实现的MUD,对大家基本入门网络游戏很有帮助!

// 芙蓉宴会厅.c

#include <ansi.h>
#include <room.h>
inherit ROOM;

varargs static void
create_food(string nmstr, string* idlist, string longstr)
{
        object obj;

        obj = new(__DIR__"obj/food");
        obj->set_name(nmstr, idlist);
        if (longstr)
              obj->set("long", longstr);
        else
              obj->set("long", GRN+"一盘热气腾腾, 香喷喷的"+nmstr+"。\n"+NOR);
        obj->move(this_object());
}

varargs static void
create_water(string nmstr, string* idlist, string cup, string longstr)
{
        object obj;

        obj = new(__DIR__"obj/water");
        obj->set_name(cup, idlist);
        if (longstr)
              obj->set("long", longstr);
        else
              obj->set("long", YEL+"一杯可口的" + nmstr + "。\n" + NOR);
        obj->set("liquid/name", nmstr);
        obj->move(this_object());
}

varargs static void
create_wine(string nmstr, string* idlist, string cup, string longstr)
{
        object obj;

        obj = new(__DIR__"obj/wine");
        obj->set_name(cup, idlist);
        if (longstr)
              obj->set("long", longstr);
        else
              obj->set("long", RED+"一杯醇正的" + nmstr + "。\n" + NOR);
        obj->set("liquid/name", nmstr);
        obj->move(this_object());
}

void create()
{
        set("short", HIY"芙蓉宴厅"NOR);
        set("long", @LONG
进门绕过一道淡绿绸屏风，迎面墙上挂着一副『芙蓉出水』图，工笔彩
绘，状极清雅，气质卓绝。厅内陈列奢华，正中央一张雕花楠木青漆嵌玉大
圆桌，四周十二张镶银象牙扶手红木椅，杯碗勺箸，入眼生辉。
    这里便是醉仙楼的玫瑰厅，桌上平铺着一份菜单(menu)。
LONG );
        set("exits", ([ /* sizeof() == 1 */
            "south" : __DIR__"zxlpath",
        ]));
        set("no_sleep_room",1);
        set("item_desc", ([
                "menu": @TEXT
承办各式酒席, 欢迎惠顾：

        order birthday: 祝寿宴        (2两黄金)

        order marry:    订婚宴        (3两黄金)

        order player:   群豪宴        (5两黄金)

        order end:      结  束

TEXT
        ]) );
//        create_door("out", "红木镂花门", "enter", DOOR_CLOSED);
        set("no_fight",1);
         set("no_steal",1);
         set("pingan",1);
         set("no_beg",1); 	
	set("no_clean_up", 0);
        setup();
        set("no_user", 1);
}

void init()
{
        object me;

        add_action("do_order", "order");
        add_action("do_broadcast", "broadcast");
        if (query("order_owner")) {
                me = this_player();
                me->set("food", me->query("food") / 2);
                me->set("water", me->query("water") / 2);
        }
}

int do_broadcast(string arg)
{
        string type;
        string mesg;
        object me;

        me = this_player();
        if (query("order_owner") != me->query("id"))
                return 0;
        type = query("order_type");
        if (type == "marry") {
                mesg = me->name() + "现在在醉仙楼芙蓉厅举行订婚酒宴了  !!!\n";
        } else if (type == "birthday") {
                mesg = me->name() + "现在在醉仙楼芙蓉厅举行生辰寿宴了  !!!\n";
        } else if (type == "player") {
                mesg = me->name() + "现在在醉仙楼芙蓉厅宴请各路英雄豪杰  !!!\n";
       }
        message("channel:chat", RED+"【通告】"+mesg+NOR, users() );
        message("channel:chat", GRN+"【通告】"+mesg+NOR, users() );
        message("channel:chat", CYN+"【通告】"+mesg+NOR, users() );
        return 1;
}

int do_order(string arg)
{
        object me, env;
        object* oblist;
        string mesg;
        int idx;

        me = this_player();
        env = this_object();
        mesg = query("order_owner");
        if (mesg && (arg == "end") && (mesg == me->query("id"))) {
                mesg = "芙蓉厅的宴会结束了  !!!\n";
                message("channel:chat", RED+"【通告】"+mesg+NOR, users() );
                delete("order_owner");
                delete("order_type");
                oblist = all_inventory(env);
                for(idx=0; idx<sizeof(oblist); idx++) {
                        if (!objectp(oblist[idx]))
                                continue;
                        if (userp(oblist[idx]))
                                continue;
                        destruct(oblist[idx]);
                }
                return 1;
        }
        if (mesg)
                return notify_fail("这里已经被人包租了.\n");
         notify_fail("你没有足够的钱或零钱不够.\n");
        if (arg == "marry") {
                mesg = me->name() + "现在在醉仙楼芙蓉厅举行订婚酒宴了  !!!\n";
                if (me->can_afford(30000) == 0)
                        return 0;
                me->pay_money(30000);
                create_water(HIG"龙井茶"NOR, ({ "tea" }), MAG"紫砂茶盅"NOR );
                create_water(RED"普洱茶"NOR, ({ "tea" }), WHT"水晶盏"NOR );
                create_wine(WHT"米酒"NOR, ({ "wine" }), HIW"搪瓷杯"NOR );
                create_wine(GRN"竹叶青"NOR, ({ "wine" }), GRN"翡翠杯"NOR );
                create_wine(YEL"绍兴黄酒"NOR, ({ "wine" }), HIY"象牙杯"NOR );
                create_wine(HIR"女儿红"NOR, ({ "wine" }), MAG"紫檀杯"NOR );
                create_wine(WHT"茅台酒"NOR, ({ "wine" }), YEL"鎏金杯"NOR );
                create_wine(RED"桂花酒"NOR, ({ "wine" }), WHT"琉璃杯"NOR );
                create_food(YEL"香酥花生"NOR,({"peanut"}) );
                create_food(HIR"酒糟红枣"NOR,({"jujube"}) );
                create_food(RED"喜糖"NOR,({"sugar"}) );
                create_food(HIW"奶油瓜子"NOR,({"melon seeds","seeds"}) );
                create_food(HIG"碧螺春卷"NOR, ({ "spring roll","roll" }) );
                create_food(HIC"香片蒸鱼"NOR, ({"fish"}) );
                create_food(HIW"麻辣手撕鸡"NOR, ({"chicken"}) );
                create_food(HIR"干煸尤鱼"NOR, ({"fish"}) );
                create_food(HIY"东北水饺"NOR, ({ "dumpling" }) );
                create_food(RED"麻辣火锅"NOR, ({ "chafing dish","dish" }) );
                create_food(HIR"油煎螃蟹"NOR, ({ "crab" }) );
                create_food(HIY"粉蒸肉"NOR, ({ "meat" }) );
                create_food(YEL"家常豆腐"NOR, ({ "bean curd" }) );
        } else if (arg == "birthday") {
                mesg = me->name() + "现在在醉仙楼芙蓉厅举行生辰寿宴了  !!!\n";
                if (me->can_afford(20000) == 0)
                        return 0;
                me->pay_money(20000);
                create_water(GRN"云雾茶"NOR, ({ "tea" }), MAG"紫砂茶盅"NOR );
                create_water(HIG"君山银针"NOR, ({ "tea" }), RED"红泥盏"NOR );
                create_water(HIW"鲜奶"NOR, ({ "milk" }), WHT"玻璃杯"NOR );
                create_wine(RED"陈年花雕"NOR, ({ "wine" }), HIW"宋瓷杯"NOR  );
                create_wine(WHT"五粮液"NOR, ({ "wine" }), WHT"玻璃杯"NOR );
                create_wine(WHT"米酒"NOR, ({ "wine" }), HIW"搪瓷杯"NOR );
                create_wine(HIR"杜康酒"NOR, ({ "wine" }), HIG"青铜爵"NOR  );
                create_wine(HIW"透瓶香"NOR, ({ "wine" }), WHT"琉璃杯"NOR  );
                create_food(HIY"德州扒鸡"NOR, ({ "chicken" }) );
                create_food(HIG"碧螺春卷"NOR, ({ "spring roll","roll" }) );
                create_food(HIC"香片蒸鱼"NOR, ({"fish"}) );
                create_food(YEL"咖喱饭"NOR, ({"rice"}) );
                create_food(RED"蚝油肉片"NOR, ({"fish meat","meat"}) );
                create_food(RED"羊肉串"NOR, ({ "mutton" }) );
                create_food(HIR"重庆火锅"NOR, ({ "chafing dish","dish" }) );
                create_food(HIY"北京烤鸭"NOR, ({ "duck" }) );
                create_food(YEL"粉蒸肉"NOR, ({ "meat" }) );
                create_food(HIW"四喜豆腐"NOR, ({ "bean curd" }) );
        } else if (arg == "player") {
                mesg = me->name() + "现在在醉仙楼芙蓉厅宴请各路英雄豪杰  !!!\n";
                if (me->can_afford(50000) == 0)
                        return 0;
                me->pay_money(40000);
                create_food(YEL"叫花鸡"NOR, ({ "chicken" }) );
                create_food(HIW"四喜豆腐"NOR, ({ "bean curd" }) );
                create_food(HIG"碧螺春卷"NOR, ({ "spring","roll" }) );
                create_food(HIC"香片蒸鱼"NOR, ({"fish"}) );
                create_food(RED"羊肉串"NOR, ({ "mutton" }) );
                create_food(HIY"花枝饭卷"NOR, ({"rice"}) );
                create_food(HIR"鱼香肉丝"NOR, ({"fish meat","meat"}) );
                create_food(HIY"德州扒鸡"NOR, ({ "chicken" }) );
                create_food(RED"麻辣火锅"NOR, ({ "chrafing dish","dish" }) );
                create_food(HIY"北京烤鸭"NOR, ({ "duck" }) );
                create_food(HIW"白斩鸡"NOR, ({ "chicken" }) );
                create_food(YEL"粉蒸肉"NOR, ({ "meat" }) );
                create_food(HIR"重庆火锅"NOR, ({ "chafing dish","dish" }) );
                create_food(HIR"麻婆豆腐"NOR, ({ "bean curd" }) );
                create_food(RED"蚝油肉片"NOR, ({"fish meat","meat"}) );
                create_food(YEL"咖喱饭"NOR, ({"rice"}) );
                create_food(HIW"麻辣手撕鸡"NOR, ({"chicken"}) );
                create_food(HIR"干煸尤鱼"NOR, ({"fish"}) );
                create_food(HIY"东北水饺"NOR, ({ "dumpling" }) );
                create_water(HIW"羊奶"NOR, ({ "milk" }), CYN"青花碗"NOR );
                create_water(GRN"云雾茶"NOR, ({ "tea" }), MAG"紫砂茶盅"NOR );
                create_water(GRN"碧螺春"NOR, ({ "tea" }), MAG"紫砂盏"NOR );
                create_water(HIG"君山银针"NOR, ({ "tea" }), RED"红泥盏"NOR );
                create_water(HIR"红毛尖"NOR, ({ "tea" }), CYN"青泥盏"NOR );
                create_wine(HIW"汾酒"NOR, ({ "wine" }), WHT"羊脂白玉杯"NOR );
                create_wine(WHT"关外白酒"NOR, ({ "wine" }), YEL"犀角杯"NOR );
                create_wine(RED"葡萄酒"NOR, ({ "wine" }), HIW"夜光杯"NOR );
                create_wine(WHT"高粱酒"NOR, ({ "wine" }), CYN"青铜爵"NOR );
                create_wine(HIG"百草酒"NOR, ({ "wine" }), RED"古藤杯"NOR );
                create_wine(HIR"状元红"NOR, ({ "wine" }), WHT"古瓷杯"NOR );
                create_wine(GRN"梨花酒"NOR, ({ "wine" }), HIG"翡翠杯"NOR );
                create_wine(HIW"玉露酒"NOR, ({ "wine" }), WHT"琉璃杯"NOR );
        }
         else {
                return notify_fail("你要定什么酒席?\n");
        }
        message("channel:chat", RED+"【通告】"+mesg+NOR, users() );
        message("channel:chat", GRN+"【通告】"+mesg+NOR, users() );
        message("channel:chat", CYN+"【通告】"+mesg+NOR, users() );
        set("order_owner", me->query("id"));
        set("order_type", arg);
        return 1;
}
int valid_leave(object me, string dir)
{
        if (me->query("id") != query("order_owner"))
                return 1;
        return notify_fail(RED + "先用 order end 结束宴会后才能离开。\n" + NOR);
}