sandu.c

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

// sandu.c 五毒教施毒大法

#include <ansi.h>

inherit F_SSERVER;
string *du=({
"ice_poison",
"ill_dongshang",
"ill_fashao",
"ill_kesou",
"ill_shanghan",
"ill_zhongshu",
"xx_poison",
"cold_poison",
"flower_poison",
"rose_poison",
"x2_poison",
"sanpoison",
"scorpion_poison",
"qx_snake_poison",
"anqi_poison",
"yf_poison",
"nx_poison",
"chilian_poison",
"yufeng_poison",
"insect_poison",
});

int perform(object me, object target)
{
	string msg;
int level;
	if( !target ) target = offensive_target(me);

	if( !target
	||	!target->is_character()
	||	!me->is_fighting(target) )
            return notify_fail("「"+HIR"施毒"NOR+"」只能对战斗中的对手使用。\n");

	if( environment(me)->query("no_fight") )
		return notify_fail("这里不能攻击别人! \n");

//	if( !userp(target) || wizardp(target) )
//		return notify_fail("施毒只能对玩家使用。\n");


         if( (int)me->query_skill("wudu-shengong",1) < 100 )
                return notify_fail("你的五毒神功修为还不够！\n");

         if( (int)me->query_skill("poison",1) < 100 )
                return notify_fail("你的基本毒功修为还不够！\n");

	if( (int)me->query_skill("shedu-qiqiao", 1) < 100 )
		return notify_fail("你的蛇毒奇巧还不够娴熟, 不能打蛇 !\n");
        level=(int)me->query_skill("duji", 1);
if (!level) level=10;
	if( (int)me->query("neili") < 500 )
		return notify_fail("你现在的内力不够！\n");

	msg = HIM "只见$N从怀中，拿出一大包不知道是什么东西的药粉，一把撒向$n的周身!\n";

	me->start_busy(1);
	if( random( (int)me->query("combat_exp",1))+ level*100
          > target->query("combat_exp")/3  ) {
		msg += HIR"$n没有防范，全身上下被撒了一个正着！\n" NOR;
            me->add("neili",-300);
		me->start_busy(2);
            if (!target->is_busy())
            target->start_busy(2);
            target->receive_damage("qi",20);
            target->receive_wound("qi",15 + random(10));
            target->apply_condition(du[random(sizeof(du))], 35);
            target->apply_condition(du[random(sizeof(du))], 35);
            target->apply_condition(du[random(sizeof(du))], 35);
if (me->query_skill("duji",1) > 150)
{
	       target->apply_condition("snake_poison",
		        (int)target->query_condition("snake_poison") + 30 );
	       target->apply_condition("wugong_poison",
		        (int)target->query_condition("wugong_poison") + 30 );
	       target->apply_condition("zhizhu_poison",
		        (int)target->query_condition("zhizhu_poison") + 30 );
	       target->apply_condition("xiezi_poison",
		        (int)target->query_condition("xiezi_poison") + 30 );
	       target->apply_condition("chanchu_poison",
		        (int)target->query_condition("chanchu_poison") + 30 );
}
if (me->query_skill("duji",1) > 200)
{
            target->apply_condition(du[random(sizeof(du))], 35);
            target->apply_condition(du[random(sizeof(du))], 35);
            target->apply_condition(du[random(sizeof(du))], 35);
}
		message_combatd(msg, me, target);
		COMBAT_D->report_status(target);
	} else {
		msg += "$p急提内力奋力一震，将$N撒出的毒粉卸在了身旁!\n" NOR;
		me->start_busy(1);
            me->add("neili",-300);
		message_combatd(msg, me, target);
	}
//	if( !target->is_killing(me) ) target->kill_ob(me);
	return 1;
}