dongbula.c

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

//  instrument: dongbula.c
// Jay 3/18/96

inherit ITEM;
int do_play(string arg);

//void setup()
//{}

void init()
{
        add_action("do_play", "play");
}

void create()
{
        set_name("冬不拉", ({"dongbula"}));
        if (clonep())
                set_default_object(__FILE__);
        else {
                set("unit", "把");
                set("long", "这是一把维吾尔族的弦乐器冬不拉。你可以演奏(play)它。\n");
                set("value", 100);
        }
//        setup();
}

int do_play(string arg)
{
        if (!id(arg))
                return notify_fail("你要演奏什么？\n");
        switch( random(3) ) {
                case 0:
                        say(this_player()->name() + "弹起冬不拉，深情地唱道：\n"
"在那遥远的地方，有位好姑娘。每当人们走过她的毡房，总要把她\n"
"深情地凝望。\n");
			write(this_player()->name() + "弹起冬不拉，深情地唱道：\n"
"在那遥远的地方，有位好姑娘。每当人们走过她的毡房，总要把她\n"
"深情地凝望。\n");

                        break;
                case 1:
                        say(this_player()->name() + "弹起冬不拉，快乐地唱道：\n"
"大坂城的石头圆又硬喽西瓜大又甜喽，大坂城的姑娘辫子长喽两只眼睛真漂亮。\n");
			write(this_player()->name() + "弹起冬不拉，快乐地唱道：\n"
"大坂城的石头圆又硬喽西瓜大又甜喽，大坂城的姑娘辫子长喽两只眼睛真漂亮。\n");

                        break;
                case 2:
                        say(this_player()->name() + "弹起冬不拉，哀伤地唱道：\n"
"戈壁滩上的一朵清泉，冰山上的一朵雪莲，风暴不会永远不停，啊啊啊，什么时候啊，"
"才能见到你的笑脸。\n");
			write(this_player()->name() + "弹起冬不拉，哀伤地唱道：\n"
"戈壁滩上的一朵清泉，冰山上的一朵雪莲，风暴不会永远不停，啊啊啊，什么时候啊，"
"才能见到你的笑脸。\n");

                        break;
        }
        return 1;
}