|
发表于 2013-4-10 09:01:50
|
显示全部楼层
例如下面这个保存成 han.c
没运行过,可能会有错误。- inherit NPC;
- #include "/d/zhiye/npc/forbook.c"
- #define JADE "/d/zhiye/obj/othermaterial" //玉
- void getyu(object me)
- {
- object obj;
- int level = 1;
-
- if(!me) return;
-
- if(environment(me)!=environment(this_object())) return;
-
- if(!random(2)) level+=1;
- if(!random(3)) level+=1;
- if(!random(4)) level+=1;
- if(!random(5)) level+=1;
-
- obj = new(JADE);
- obj->set_level(level);
-
- if(obj)
- {
- message_vision("$N翻箱到柜拿出一块"+obj->name()+"。\n",this_object());
- message_vision("$N给$n一块"+obj->name()+NOR"。\n",this_object(),me);
- command("say 我这儿也没什么好的东西,此物你可以拿去参详,至于真正的『倚天屠龙术』……,等将来你历练多了,或许能有多体会。");
- message_vision(HIY"$N背过身去,喃喃自语:「或许只有那位大侠,才明白什么是真正的『倚天屠龙术』。」\n"NOR,this_object() );
-
- if(obj->move(me)) me->set("worker/hangift",1);
- me->interrupt_me();
- me->start_busy(-1);
- me->interrupt_me();
- this_object()->interrupt_me();
- this_object()->start_busy(-1);
- this_object()->interrupt_me();
- }
- }
- void create()
- {
- set_name("韩铁匠", ({ "han tiejiang","han", "tie", "jiang","tiejiang" }) );
- set("gender", "男性" );
- set("age", 34);
- set("long",
- "这是一位正在抡着大铁锤,叮叮当当地打铁的铁匠。
- 看似普通得不能再普通了。
- 只是偶尔从他沧桑的双目中流露出对往日岁月的留恋。\n");
- set("combat_exp", 300);
- set("attitude", "peaceful");
- set("rank_info/respect", "韩铁匠");
- set("inquiry", ([
- "here" : "这里是城里唯一的打铁铺了,什么人都到我这里来打东西。\n",
- "宝玉": (: getyu :),
- ]) );
- set("forg_type","all");
- setup();
- carry_object("/clone/misc/cloth")->wear();
- }
- void init()
- {
- ::init();
- }
复制代码 |
|