//busy对手,兼有攻击之功能
void lockman(object me,object victim,object weapon,int damage)
{
int mk,mecor,victimcor;
int sk = me->query_skill("ai-sword",1);
if (!userp(previous_object())) sk=120;
mk = (int)me->query("MKS",1);
mecor = me->query("cor") + me->query("cps")
+ me->query("combat_exp")/100000 ;
victimcor = victim->query("cor") + victim->query("cps")
+ victim->query("combat_exp")/100000 ;
if(!me->query_temp("lockman") && me->query("neili") > 50
&& damage > 0)
{
me->set_temp("lockman",1);
me->add("neili",-50);
victim->start_busy(2);
if( random(mecor) >= random(victimcor))
{
message_vision(CYN"剑意已夺去$n"CYN"的心志，使$n"CYN"遁入记忆的怆凉里，悲愤的不惜向自己的梦中杀去．．\n"NOR , me , victim );
victim->receive_damage("qi",3*sk+random(1000));
// victim->receive_damage("jing",1*(victim->query("max_jing")/10));
victim->receive_damage("jing",1*(victim->query("max_jing")/8));
if (damage <= 0)
COMBAT_D->report_status(victim, 1);
}
else{
message_vision(sprintf(CYN"剑光夺丽，剑意绝情，$n"CYN"觉得剑花已交织成一张杀意的网！\n"NOR),me,victim);
}
}
else{
me->delete_temp("lockman");
}
}
void four_kill(object me,object victim,object weapon,int damage)
{
int bell,mk;
bell = me->query("bellicosity");
mk = (int)me->query("MKS",1);
damage= (int)(me->query_skill("ai-sword", 1));
if (!userp(previous_object())) damage=120;
if(!me->query_temp("four_kill"))
{
if( random(2) == 0)
{
me->set_temp("four_kill",1);
message_vision("\n
"HIG"§情真爱又真．快乐是人生§"NOR"\n"NOR,me,victim);
victim->receive_damage("qi",1*damage+random(1000));
COMBAT_D->report_status(victim);
message_vision("
"HIB"§情真爱半分．半生空遗恨§"NOR"\n"NOR,me,victim);
victim->receive_damage("qi",1*damage+random(1000));
COMBAT_D->report_status(victim);
message_vision("
"HIR"§情爱没缘份．一生不饶人§"NOR"\n"NOR,me,victim);
victim->receive_damage("qi",1*damage+random(1000));
COMBAT_D->report_status(victim);
message_vision("
"HIC"§情爱寂寞人．寂寞是人生§"NOR"\n"NOR,me,victim);
victim->receive_damage("qi",1*damage+random(1000));
victim->start_busy(random(2)+1);
COMBAT_D->report_status(victim);
call_out("five_kill", 1 ,me);
}
}
me->delete_temp("four_kill");
}
int five_kill(object me,object victim,object weapon,int damage)
{
int bell = me->query("bellicosity");
weapon=me->query_temp("weapon");
message_vision("\n
"HIY" $N的人与剑已开始有了动作，一种极缓慢，极优美的动作，就像是风那么自然\n
"HIY" $N的瞳孔在收缩，"+weapon->name()+""HIY"已慢慢的刺了出来\n
"HIY" 从最不可思议的部位刺了出来，刺出时忽然又有了最不可思议的变化\n
"HIY" 世上根本没有人能破这一剑，绝对没有任何人能谁想去破这一剑，就是去送死\n\n"NOR,me,victim);
if(random(2)==0)
{
message_vision(HIR" 血花耀眼又灿烂，灿烂的婉如流星，流星一现即逝，血花也很快的洒下\n"NOR, me);
victim->add("neili",-1*victim->query("max_neili")/5);
victim->receive_damage("qi",1*(victim->query("max_qi")/5));
// victim->receive_damage("jing",1*(victim->query("max_jing")/5));
victim->receive_damage("jing",1*(victim->query("max_jing")/5));
victim->start_busy(2);
me->add("neili",-1*(me->query("neili")/10));
}
else
{
message_vision(HIR" 血花耀眼又灿烂，灿烂的婉如流星，流星一现即逝，血花也很快的洒下\n"NOR, me);
victim->add("neili",-1*victim->query("max_neili")/8);
victim->receive_damage("qi",1*(victim->query("max_qi")/8));
victim->receive_damage("jing",1*(victim->query("max_jing")/8));
victim->start_busy(1);
me->add("neili",-1*(me->query("neili")/10));
}
}
void power_slash(object me,object victim, object weapon,int damage)
{
object *enemy,target,env;
int i,j,bell;
bell = me->query("bellicosity");
damage = victim->query("eff_qi")/20;
env = environment(me);
enemy=me->query_enemy();
i=sizeof(enemy);
for(j=0;j < i;j++){
victim=enemy[j];
if( env == environment(victim) )
{
victim->receive_wound("qi", damage+random(2000));
switch(random(4)+1)
{
case 1 :
message_vision(sprintf("\n "HBCYN"．．此情此景成追忆．．\n"NOR),me,victim);
message_vision(sprintf(HIW"这么空虚的一剑，不但是刺向$n，还似忘情过去，刺向未来，而且还刺至虚无的任一处．． \n"NOR),me,victim);
break;
case 2 :
message_vision(sprintf("\n "HBWHT"．．上天不负有心人．．\n"NOR),me,victim);
message_vision(sprintf(HIW"半空剑光化作电光，霹雳击下，剑意切入了$n中，卷入了剑气，剑光一闪而殁\．． \n"NOR),me,victim);
break;
case 3 :
message_vision(sprintf("\n "HBMAG"．．多情自古空余恨．．\n"NOR),me,victim);
message_vision(sprintf(HIW"一片紫色剑光仿若海浪般卷向$n，$n眼里没有痛苦，没有悔意，甚至没有一点表情．．\n"NOR),me,victim);
break;
case 4 :
message_vision(sprintf("\n "HBGRN"．．情到深处无怨由．．\n"NOR),me,victim);
message_vision(sprintf(HIW"这一剑之势令$n无法闪躲，就像命宫里的一颗魔星，八字里注定了那么一剑拦在命运里．．\n"NOR),me,victim);
break;
}
COMBAT_D->report_status(victim);
}
}
}
void seven(object me,object victim,object weapon,int damage)
{
int i,mk,da;
int sk = me->query_skill("ai-sword",1);
if (!userp(previous_object())) sk=120;
mk = (int)me->query("MKS",1);
weapon=me->query_temp("weapon");
if(mk < 10000 ) { da = 130; }
else { da=100; }
if(random(2)==0)
{
message_vision(HIW"\n $N手中握的"+weapon->name()+""HIW"仿佛是杀人的利器，精华，致命的一招，这一招不但诡异．毒辣．准确\n\n"
HIW" $n所有的动作，竟在这一剑使出时忽然间全部停顿，然后苍穹间就溅出了一片花雨\n\n"
HIW" 满天的剑影，满天的血花，剑花又转，由慢转快，由纯变混\n\n"
HIW" 忽然又化作一道匹练般的彩红，七色彩红，七剑，多采多姿，千变万化\n\n"NOR,me,victim);
for(i=1;i<=7;i++)
{
switch(i)
{
case 1:
message_vision(sprintf(HIR" --<<红>>剑意有如风不定．伤遮流景．落红应满径--\n"NOR),me,victim);
break;
case 2:
message_vision(sprintf(YEL" --<<橙>>剑意有如抛弃久．惆怅依旧．镜里人颜瘦--\n"NOR),me,victim);
break;
case 3:
message_vision(sprintf(HIY" --<<黄>>剑意有如雨初歇．晓风残月．更与何人说--\n"NOR),me,victim);
break;
case 4:
message_vision(sprintf(HIG" --<<绿>>剑意有如黯天际．望极春愁．强乐还无味--\n"NOR),me,victim);
break;
case 5:
message_vision(sprintf(HIB" --<<蓝>>剑意有如乱蝉嘶．酒徒萧索．不似去年时--\n"NOR),me,victim);
break;
case 6:
message_vision(sprintf(CYN" --<<靛>>剑意有如照无眠．悲欢离合．何似在人间--\n"NOR),me,victim);
break;
case 7:
message_vision(sprintf(MAG" --<<紫>>剑意有如追忆思．酒入愁肠．化作相思泪\--\n"NOR),me,victim);
break;
}
if( sk > random(30)+100)
{
message_vision(sprintf(HIC"$n被$N的七色剑意所困，全身上下伤痕累累！\n"NOR),me,victim);
victim->receive_wound("qi",da+random(3000));
COMBAT_D->report_status(victim,1);
}
else
{
message_vision(sprintf(WHT"$n"+WHT"心如止水，看清了$N"+WHT"的剑势！\n"NOR),me,victim);
}
}
}
}
void dream(object me,object victim,object weapon,int damage)
{
int mk,damagea,damage1,bell,sena,senb;
mk = (int)me->query("MKS",1);
if(mk < 10000) {damagea = mk/10; } //mk<10000 ,威力约在800-990
else { damagea = mk/50; } //mk>10000 ,威力约在200-600(mk=30000)
//杀人数越少,威力才会强
damage1= random(damagea)+damagea+random(3000);
bell = me->query("bellicosity",1);
sena = victim->query("max_jing");
senb = sena/10;
if(random(2)==0 )
{
if(random(100)>50)
{
message_vision(HIW"\n
$N右手自左腋出手一剑，剑光．一闪．一闪的剑光．剑上蓝焰大盛！\n
"HIW"天地间飘曳起一道幽幽蓝光，似真似幻，如沉静的月光投入深邃的大海 \n
"HIW"这一剑，极快、极速、极简单、看去极平凡无奇．．． \n
"HIW"然而却是“相思碎梦”一千零一式中所有的精华和杀招！\n
"HIW"‘"HIR"舞剑．卷尘．风行斩"HIW"’ \n\n"NOR, me);
me->add("neili",-random(300));
victim->receive_damage("qi",1*damage1);
victim->receive_damage("jing",senb);
COMBAT_D->report_status(victim);
}
else
{
message_vision(HIW"\n
一种乍看令人心动，细看足以让人心血贲动的红光，自剑身透了出来\n
"HIW"血红般的剑气有如太阳西下般撩绕在$n的周围\n
"HIW"$n只觉得又快、又奇、又绝、惊艳、潇洒、惆怅、不可一世\n
"HIW"‘"HIC"烽火红尘路"HIW"’\n"NOR,me,victim);
message_vision(HBRED"\n$N的烽火剑气让$n乱了方寸，迷失在烽火红尘之中！\n"NOR,me,victim);
victim->start_busy(random(4)+1);
victim->receive_damage("qi",1*damagea);
}
}
}
//相思碎梦剑诀的八连击
void heartkill(object me,object victim,object weapon,int damage)
{
int i;
message_vision(HIC"\n\n\t只见$N的身形随着剑式一变，剑身闪出无数耀眼的光芒，震出了一片茫茫的剑幕\n\n"
HIW"\t～～"BLINK""HIR" 忘弃红尘．相思八律 "NOR""HIW" ～～\n\n"NOR,me,victim);
for(i=1;i<=8;i++)
{
switch(i)
{
case 1:
message_vision(sprintf(HIY"$N心如刀割，黯然神伤，使出"HIR"忘弃红尘"HIW"之"+NOR+""+RED+"「伤心律”"+NOR+""+HIY+"，剑势如乱麻般攻向$n！\n"NOR),me,victim);
break;
case 2:
message_vision(sprintf(HIY"$N心烦意乱，念念不忘，使出"HIR"忘弃红尘"HIW"之"+NOR+""+GRN+"「扣心弦”"+NOR+""+HIY+"，剑势如惋伤般紧扣$n！\n"NOR),me,victim);
break;
case 3:
message_vision(sprintf(HIY"$N心力交悴，怅然若失，使出"HIR"忘弃红尘"HIW"之"YEL"「碎心声”"+NOR+""+HIY+"，剑势如凄怆般席卷$n！\n"NOR),me,victim);
break;
case 4:
message_vision(sprintf(HIY"$N心不在焉，神不守舍，使出"HIR"忘弃红尘"HIW"之"MAG"「失心乐”"+NOR+""+HIY+"，剑势如忘情般幻惑$n！\n"NOR),me,victim);
break;
case 5:
message_vision(sprintf(HIY"$N心不由主，失魂落魄，使出"HIR"忘弃红尘"HIW"之"+NOR+""+CYN+"「惑心音”"+NOR+""+HIY+"，剑势如鬼魅般迷惑$n！\n"NOR),me,victim);
break;
case 6:
message_vision(sprintf(HIY"$N心如死灰，情至义尽，使出"HIR"忘弃红尘"HIW"之"HIB"「葬心曲”"+NOR+""+HIY+"，剑势如怒涛般涌向$n！\n"NOR),me,victim);
break;
case 7:
message_vision(sprintf(HIY"$N心有余悸，恨海难填，使出"HIR"忘弃红尘"HIW"之"HIC"「余心韵”"+NOR+""+HIY+"，剑势如悲凉般牵引$n！\n"NOR),me,victim);
break;
case 8:
message_vision(sprintf(HIY"$N心凝形释，平心静气，使出"HIR"忘弃红尘"HIW"之"HIW"「定心调”"+NOR+""+HIY+"，剑势如无形般直取$n。\n"NOR),me,victim);
break;
}
if( me->query_skill("ai-sword",1)> random(60)+100)
{
message_vision(sprintf(MAG"结果被$N确确实实的命中要害，$n身上立即多了一道无情的伤痕！\n"NOR),me,victim);
victim->receive_wound("qi",900+random(5000));
COMBAT_D->report_status(victim,1);
}
else
{
message_vision(sprintf(HIB"结果$N的攻击被$n避了开来！\n"NOR),me,victim);
}
}
}
//相思碎梦剑诀的奥义三连击
void fast(object me,object victim,object weapon,int damage)
{
int i;
if( userp(me) && !me->query("yi/dream") ) return;
if(( (int)me->query("neili") > 300 ) && random(2)==0 && damage>0)
{
message_vision(CYN"\n\n\t$N笑意微泛，眼里仿佛出现一道阴影，一瞬而过，剑光一闪。。。\n\n"
HIW"\t～～"BLINK""HIR" 碎梦奥义．回天梦舞"NOR""HIW" ～～\n\n"NOR,me,victim);
for(i=1;i<=3;i++)
{
switch(i)
{
case 1:
message_vision(HIY"\n＝＝"HIR"醉 梦"HIY"＝＝\n"NOR,me,victim);
message_vision(HIW"剑荡剑风，剑美如梦，彩色缤纷，绝美的剑光，如同惊艳遇着风华，\n空间为奇彩所充满，"
+"五彩光华，如痴如醉，似一连串的迷梦在空中闪现，\n迷绚于一连串梦一般的幻像里。。\n"NOR,me,victim);
break;
case 2:
message_vision(HIY"\n＝＝"HIR"惊 梦"HIY"＝＝\n"NOR,me,victim);
message_vision(HIW"剑光绰约，腾起一阵凌厉而且艳丽的杀意，剑气如浪分涛裂似排山倒海的击出，\n"+
"剑光散开，发出夺目的光彩，血似的鲜红色，凄艳亮烈，惊醒彩色的梦。。\n"NOR,me,victim);
break;
case 3:
message_vision(HIY"\n＝＝"HIR"碎 梦"HIY"＝＝\n"NOR,me,victim);
message_vision(HIW"天雷忽起，大地浮沉，剑光摒出一道道的强光，裂苍天而出，震苍生而鸣，狂飙忽起，\n"+
" 仿佛潜伏地底的怒龙，裂梦而起，上七重天，升九万里，势所无匹。。\n"NOR,me,victim);
break;
}
if( me->query_skill("dream-blade",1) > random(60)+100)
{
message_vision(MAG"\n$N的剑法舞的如梦似幻，$n身上着了一道深可见骨的伤痕却不自知！\n"NOR,me,victim);
victim->receive_wound("qi",800+random(3000));
me->add("neili",-50);
if(i != 3)
COMBAT_D->report_status(victim,1);
else if( damage <=0 )
COMBAT_D->report_status(victim,1);
}
else
{
message_vision(HIB"$n看清了$N的攻势，不徐不疾的避了开来！\n"NOR,me,victim);
}
}
}
}
//打掉对手的enforce
void disenforce(object me, object victim, object weapon, int damage)
{
int skillb = (int)me->query_skill("ai-sword",1);
int me_jing = me->query("max_jing")/5;
int me_qi = me->query("max_qi")/8;
// int me_jing = me->query("max_jing")/5;
int victimenf = victim->query("force_factor");
if( !me->query_temp("disenforce"))
{
if(skillb >= 100 && random(2)==0)
{
message_vision(HIR"\n
$N的剑剑本来是平淡毫无变化，却忽然间，剑尖起了一种很奇异的震动\n\n"
HIR" 剑势本来很快，就在这时忽然慢了下来，很慢，虽然慢，却还是在变\n\n"
HIR" 光芒在现，剑锋迥异，剑光如幻，诡异的闪动\n\n"
HIR" $n觉得这份诡异仿佛就在自己眉睫间，又仿佛在虚无的缥缈间\n\n"
NOR" "HBBLU"剑光剑意已侵入$n神志，粉碎了$n的斗志，让$n尽往回忆的伤悲处走\n"NOR, me, victim);
me->set_temp("disenforce",1);
victim->set("force_factor", 0);
me->receive_wound("jing",me_jing);
me->receive_wound("qi",me_qi);
me->receive_wound("jing",me_jing);
}else{ message_vision(NOR"\n"NOR,me,victim);}
}
else {me->delete_temp("disenforce");}
}
int valid_learn(object me)
{
int bell, skill;
object ob;
bell = me->query("bellicosity");
skill =me->query_skill("ai-sword", 1);
if(me->query("get-2skill-s") != 1 ) //解ai-sword的mark
{
tell_object(me, HIY"小人物说道：你我既无师徒之实，怎么叫我传授剑法给你！\n"NOR);
return 0;
}
else
{
if( !wizardp(me))
{
tell_object(me, HIY"小人物说道：你我既无师徒之实，怎么叫我传授剑法给你！\n"NOR);
return 0;
}
if( me->query("family/master_name") != "小人物" )
{
tell_object(me, HIY"小人物说道：你我既无师徒之实，怎么叫我传授剑法给你！\n"NOR);
return 0;
}
if((int)me->query("max_force") < 2000)
{
tell_object(me, HIY"小人物说道：你的内力修为似乎不足以修练「情剑”！\n"NOR);
return 0;
}
if( !(ob = me->query_temp("weapon")) || (string)ob->query("skill_type") != "sword" )
{
tell_object(me, HIY"小人物说道：没拿剑怎么练剑法啊！\n"NOR);
return 0;
}
if( (me->query("potential") - me->query("learned_points")) < 5 ) {
tell_object(me, "你的潜能不到五点, 无法练此剑法。\n");
return 0;
}
if( bell > 100 )
{
tell_object(me, HIY"小人物说道：你心存杀念, 怎么能够学习情剑呢！\n");
return 0;
}
tell_object(me, HIY"小人物说道：学此剑法需扣潜能、精、气各五点。\n");
me->add("jing", -5);
me->add("qi", -5);
// me->add("sen", -5);
me->add("potential", -5);
return 1;
}
}
int valid_enable(string usage)
{
return usage== "sword" || usage=="parry";
}
|
发表于 2009-9-10 16:00
楼主