pettrainer3.c

来自「C实现的MUD,对大家基本入门网络游戏很有帮助!」· C语言 代码 · 共 92 行

#include <ansi.h>
inherit NPC;
void create()
{
        set_name(HIM"土鹰"NOR, ({ "hawk" }) );
        set("no_get",1);
        set("gender", "男性" );
	set("title",HIM"大漠飞鹰"NOR);
        set("age", 32);
        set("long","一个可以帮你训兽(trainpet)的怪人．．．\n");
        set("combat_exp", 500000);
        set("chat_chance", 5);
        set("chat_msg", ({
                (: random_move :)
        }) );
        set("attitude", "friendly");
        setup();
        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_train", "trainpet");

}

void greeting(object ob)
{
        if( !ob || environment(ob) != environment() ) return;
        switch( random(5) ) {
                case 0:
                        say( "土鹰说道：这位" + RANK_D->query_respect(ob)
                                + "，来让我看看吧？\n");
                        break;
               
        }
}

int do_train(string arg)
{
	object me,pet,gold;
	int cost;
	string which;
        me = this_player();
        if(me->is_busy())
        return notify_fail("你上一个动作还没有完成。\n");
	if(!arg) return notify_fail("土鹰道：＂你要什么呀？＂\n");
	pet = present(arg,environment());
	if(!objectp(pet)) return notify_fail("土鹰道：＂你要什么呀？＂\n");
	if(pet->query("possessed") != me )
	return notify_fail("土鹰道：＂那好象不是你的吧？＂\n");
	switch (random(7)){
	case 0: which = "int"; break;
	case 1: which = "con"; break;
	case 2: which = "per"; break;
        case 3: which = "tol"; break;
        case 4: which = "str"; break;
        case 5: which = "dex"; break;
        case 6: which = "kar"; break;
        
			}	
//okey we identified the target, now the cost:
	cost = (int) pet->query(which) ;
	cost *= cost;
	gold = present("gold_money", me);
        if(!gold) return notify_fail("你身上没有金子。\n");
        if((int) gold->query_amount() < cost/2)
        return notify_fail("你身上没有"+chinese_number(cost)+"两金子。\n");
	if((int)me->query("score") < cost/8)
	return notify_fail("你的江湖阅历不够"+chinese_number(cost/8)+"点。\n");
	pet->add(which,1);
	pet->add("max_neili",1);
	pet->add("eff_neili",1);
	pet->add("neili",1);
	pet->save();
	gold->add_amount(-cost/2);
	me->add("score",-cost/8);
	command("say 好了！\n");
	return 1;
}
void unconcious()
{
    die();
}