shusheng.c

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

inherit NPC;
#include <ansi.h>
void create()
{
        set_name("书生", ({ "shu sheng", "sheng" }));
        set("nickname", HIY "渔樵耕读" NOR );
        set("long", 
        "他就是当年大理国的大丞相。一灯大师门下，就是渔樵耕读中的那位读。\n");
        set("gender", "男性");
        set("age", 45);

       set("age", 45);
        set("class", "officer");
        set("attitude", "friendly");
        set("shen_type", 1);
        set("str", 25);
        set("int", 25);
        set("con", 35);
        set("dex", 35);
        
        set("max_qi", 1500);
        set("max_jing", 500);
        set("neili", 1000);
        set("max_neili", 1000);
        set("jiali", 100);
        set("combat_exp", 800000);
        set("score", 200000);

        set_skill("force", 150);
        set_skill("dodge", 150);
        set_skill("parry", 150);
        set_skill("cuff", 175);
        set_skill("sword", 150);
        set_skill("staff", 150);
        set_skill("kurong-changong", 150);
        set_skill("tiannan-step", 150);
        set_skill("jinyu-quan", 155);
        set_skill("duanjia-sword", 150);
        set_skill("literate", 150);

        map_skill("force", "kurong-changong");
        map_skill("dodge", "tiannan-step");
        map_skill("sword", "duanjia-sword");
        map_skill("staff", "duanjia-sword");
        map_skill("parry", "duanjia-sword");
        map_skill("cuff", "jinyu-quan");
        prepare_skill("cuff", "jinyu-quan");
        set_temp("apply/attack", 200);
        set_temp("apply/defense", 200);
        set_temp("apply/armor", 200);
        set_temp("apply/damage", 100);

        setup();
        carry_object("/clone/weapon/changjian")->wield();
        carry_object("/clone/cloth/cloth")->wear();
}
void init()
{
	object ob;
	::init();
	if( interactive(ob = this_player()) && !is_fighting() ) 
       {
		remove_call_out("greeting");
		call_out("greeting", 1, ob);
	}
 add_action("do_answer", "answer");
}
void greeting(object ob)
{
	if( !ob || environment(ob) != environment() ) return;
        command("say 上联是琴瑟琵琶，八大王一般头面。那下联是什么");

        if (ob->query_temp("help_nongfu"))
           ob->delete_temp("help_nongfu");
	return;
}
int do_answer(string arg)
{
      object me=this_player();
          if( arg=="魑魅魍魉，四小鬼各自肚肠")
        {
            me->set_temp("answer_shusheng",1);  
          command("say 好对，好对，你去罢。\n");
         }
         else 
             command("say 错了，你对错了。\n");
        return 1;
}