mg-room2.c

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

// mg-room2.c 迷宫房舍
#include <ansi.h>
#include <command.h>
#include <room.h>
inherit ROOM;

void create()
{
        set("short", CYN "迷宫房舍" NOR);
        set("long", "这一座殿堂中供的都是汉人塑像，中间一个老人，匾上写的是
"HIY"「大成至圣先师孔子位」"NOR"，左右各有数十人，写著「颜回」、「子
路」、「子贡」、「子夏」、「子张」等名字。你悄声悄气地走了
进来。\n");
        set("no_sleep_room", 1);
        set("exits", ([
              "south" : __DIR__"mg-room1",                     
        ]));
        setup(); 
        set("tie_count", 1);
}

void init()
{
       this_player()->set_temp("ketou_times", 50);
       add_action("do_ketou", "ketou");
}

int do_ketou()
{
       int i;
       object me, ob, *inv;
       me = this_player();               
       if(me->query_temp("ketou_times") == 0 ){        
         me->set_temp("ketou_times", 50);
         message_vision("突然一团白色物事从黑暗中迅速异常的冲来，冲到离$N约莫一丈之处，猛地
直立不动，看上去依稀是个人形，火光映照下，只见这鬼怪身披白色罩袍，
满脸都是鲜血，白袍上也是血迹淋漓，身形高大之极，至少比常人高了五尺。
静夜看来，恐怖无比。那鬼怪陡然间双手前伸，十根指甲比手指还长，满手
也都是鲜血。\n", me);
         message_vision(HIB"那鬼怪桀桀怪笑，尖声道：「我在迷宫里已住了一千年，不许谁来打扰，
谁叫你们这样大胆？」那鬼怪慢慢转身，双手对着$N，叫道：「给我死！」\n"NOR, me);
         me->start_busy(2);
         if(random(10)>5){
            tell_object(me, HIR "你感觉四肢一麻，不好！\n" NOR );
            tell_room(environment(me), HIR +"只见"+me->name()+"双膝跪倒，然后口吐白漠，翻身不动了！\n" NOR, ({ me }));    
            inv = all_inventory(me);
            for (i = 0; i < sizeof(inv); i++){
               if(inv[i]->query("armor_type")=="married") continue;
               destruct(inv[i]);
               }
            me->unconcious();
            message_vision("接着这鬼怪回过身来，抓起$N疾驰而去，片刻间走得无影无踪！\n", me);            
            me->move(__DIR__"shulin1");
            return 1;
            }
         tell_object(me, HIR "你心念一动，马上向后跃出丈远！\n" NOR );
         message_vision("接着这鬼怪回过身来，疾驰而去，片刻间走得无影无踪！\n", me);            
       }

       me->add_temp("ketou_times", -1);        

       message_vision("$N跪下来，在孔子像前磕了一个头。\n", me);

       if ( random(100) == 30 
       && !present("kuaixueshiqing tie", me)
       && query("tie_count") >= 1){
          add("tie_count", -1);
          ob=new(__DIR__"obj/tie")->move(environment(me));
          message_vision("突然啪地一声掉下一束纸卷，落在$N的面前！\n", me);
       }       
       return 1;
}
int valid_leave(object me, string dir)
{
       me->delete_temp("ketou_times");
       return ::valid_leave();
} 

int count = 1;
void reset()
{
    if (--count == 0) {count = 40; set("tie_count", 1); ::reset();}
}