zhangfeng.c

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

 //zongguan.c武馆总管
//by cool 98.3.25
#include <ansi.h>

inherit NPC;
string *names = ({"打扫马房","锯木头","劈柴","浇菜地","锄草",});
string ask_job();

void create()
{
        set_name("张风", ({ "zhang feng","zhang","feng", "zongguan" }));
        set("title", "襄阳武馆总管");
        set("gender", "男性");
        set("age", 45);
        set("str", 27);
        set("dex", 26);
        set("int", 20);
        set("con", 20);
        set("per", 16);
        set("long", "这人相貌和蔼，笑呵呵的，一手拿个旱烟袋。\n");
        set("combat_exp", 700000);
        set("shen_type", 1);
        set("attitude", "friendly");
        set_skill("unarmed", 120);
        set_skill("force", 130);
        set_skill("strike", 160);
        set_skill("hammer", 100);
        set_skill("kunlun-zhang", 160);
        set_skill("xuantian-wuji", 160);
        set_skill("kunlun-shenfa", 160);
        set_skill("dodge", 160);
        set_skill("parry", 160);
        map_skill("dodge", "kunlun-shenfa");
        map_skill("parry", "kunlun-zhang");
        map_skill("force", "xuantian-wuji");
        map_skill("strike", "kunlun-zhang");
        prepare_skill("strike","kunlun-zhang");
        set_temp("apply/attack", 100);
        set_temp("apply/defense", 100);
        set_temp("apply/armor", 100);
        set_temp("apply/damage", 100);
        set("qi", 2000);
        set("max_qi", 2000);
        set("neili", 2500); 
        set("max_neili", 2500);
        set("jiali", 150);
        set("inquiry", ([
             "工作" : (: ask_job :),
             "job" : (: ask_job :),
             "工具" : "你去物品房找老李要吧！",
            ]));
        setup();
        carry_object("clone/cloth/cloth")->wear();

}

void init()
{
     object ob;
     ::init();

     if (interactive(ob = this_player()) && !is_fighting() && !wizardp(ob)){
              if((int)ob->query("combat_exp") > 100000){  
            command("say 咦？你是怎么跑这里来的？回去回去。 \n");
            message_vision("$N一脚踢在$n屁股上，只听$p“哇~~”地一声，带着一个斗大的脚印直飞出了大门！\n", this_object(), ob);
            ob->move("/d/wuguan/xiaojs");
            command("say 这一招有个名堂，叫作：屁股向后平沙落雁式。");
            tell_room(environment(ob), "只听“哇~~”一声大叫，一个"+ob->name()+"被人从武馆里给踢了出来，摔在地上半天爬不起来！\n", ({ ob }));
            }
         if((int)ob->query_condition("killer")){        
            command("say 你竟敢在武馆杀人！\n");
            command("club "+ob->query("id"));
            ob->unconcious();
            } 
         else{
            remove_call_out("greeting");
            call_out("greeting", 1, ob);
            }
         }
     add_action("do_task","task");
}
string ask_job()
{
        object me, ob;
        string target;
        ob=this_player();
        me=this_object();

        target = names[random(sizeof(names))];
        if (ob->query_temp("job_name")) return ("你不是已经领了工作吗？还不快去做。\n");
                   if (ob->query("combat_exp") >= 50000)
             return ("你功夫已经足够闯荡江湖，这里没有什么适合你的工作了。\n");
        ob->set_temp("job_name",target);
        ob->apply_condition("wuguan_job",random(3)+4);
        return "正好现在有好多事要做，你先去东物品房领工具，然后去后院"+ target+ "吧。";
}
int do_task(string arg)
{
        object ob,me;
        ob=this_player();
        me=this_object();
        if(!(arg||arg=="ok")) return 0;

       if(!ob->query_temp("job_name")) return notify_fail("没给你工作，你怎么跑来覆命了？\n");
       if (interactive(ob) && (int)ob->query_condition("wuguan_job")) {
              command("hmm "+ob->query("id"));
              return notify_fail(RED "你这么快回来了，是不是还没做完啊，吩咐你回来了吗？"NOR);
              }    
       if(!ob->query_temp("mark/还了")) return notify_fail("你先把工具还到老李那再来覆命吧。\n");

       if(!(ob->query_temp("mark/劈完了") || 
            ob->query_temp("mark/浇完了") ||
            ob->query_temp("mark/锄完了") ||
            ob->query_temp("mark/锯完了") ||
            ob->query_temp("mark/扫完了") ||
            ob->query_temp("mark/挑完了")))
                 return notify_fail("你偷懒啊，叫你干活你不去干，跑来领功! \n");

       command("smile "+ob->query("id"));
       command("say 好，"+RANK_D->query_respect(ob)+"，做得好，这是给你的奖赏！");
       if (random(10)<7){
           me->add_money("coin",(int)(ob->query_skill("force",1)/2)+65);
           command("give "+ob->query("id")+" "+((int)(ob->query_skill("force",1)/2)+50)+" coin");
           }
       else{
           me->add_money("silver",(int)(ob->query_skill("force",1)/5)+1);
           command("give "+ob->query("id")+" "+((int)(ob->query_skill("force",1)/5)+1)+" silver");
           }
        if ( (int)me->query("potential") <  10000) {
       ob->add("potential",(int)(ob->query_skill("force",1)/5)+30);
}
//       if(ob->query("potential") > ob->query("max_pot")) ob->set("potential", ob->query("max_pot"));
       ob->add("combat_exp",(int)(ob->query_skill("force",1)/5)+60);
       ob->delete_temp("job_name");
       ob->delete_temp("mark");
       return 1;
}

void greeting(object ob)
{
       if( !ob || environment(ob) != environment() 
          || ob->query_temp("job_name") || ob->query("combat_exp") > 2000 ) return;

       command("bow "+ob->query("id"));
       command("say 这位"+RANK_D->query_respect(ob)+"，我们这缺人手，你可以找我领工作"HIR"(ask zhang about job)"NOR"来做。\n");
}