声震雷霆

轩辕夏禹

我模仿金水做了一个声震雷霆的代码出来，很简单的代码，所以我想不需要注释了吧？

1. function walao(bnum, mnum, i, level:integer): boolean;
   
2. var
   
3. rnum, x, y, rnum2:integer;
   
4. power: array[0..9] of integer;
   
5. begin
   
6.   rnum := brole[bnum].rnum;
   
7.   y := 50;
   
8.   for x := 0 to 9 do
   
9.   begin
   
10.     power[x] := y;
    
11.     y := y + 25;//这一段主要设置武功的威力。伤害方面我设置成最高为275，让原版使用起来没那么bt。
    
12.   end;
    
13.   calcanselect(bnum, 0);
    
14.   if selectaim(bnum, 0) then//选择目标
    
15.   begin
    
16.     Rrole[rnum].MagLevel[i] := Rrole[rnum].MagLevel[i] + random(10) + 6;//这是升级的，我的mod里特技升级速度比较快，请要用的人改回来吧。
    
17.     if Rrole[rnum].MagLevel[i] > 999 then Rrole[rnum].MagLevel[i] := 999;
    
18.     for x := 0 to broleamount - 1 do//取战场所有人的编号
    
19.     begin
    
20.       if (brole[x].Dead = 0) and (x <> bnum) then//若不是死亡人物或武功使用者就开始伤害
    
21.       begin
    
22.         rnum2 := brole[x].rnum;
    
23.         rrole[rnum2].CurrentHP := rrole[rnum2].CurrentHP - power[level - 1];
    
24.         if rrole[rnum2].CurrentHP < 0 then rrole[rnum2].CurrentHP := 0;
    
25.         Bfield[4, brole[x].X, brole[x].Y] := 1;//武功效果的设定
    
26.         brole[x].ShowNumber := power[level - 1];//人物头上显示的数字
    
27.       end;
    
28.     end;
    
29.     showmagicname(mnum);//这段全是攻击特效
    
30.     PlayActionAmination(bnum, Rmagic[mnum].MagicType);
    
31.     PlayMagicAmination(bnum, Rmagic[mnum].AmiNum);
    
32.     ShowHurtValue(0);
    
33.     result := true;//返回结果
    
34.     exit;
    
35.   end;
    
36.   result := false;//若按下esc键则结果为假
    
37. end;

复制代码

在attack的地方加入


补充：效果图我吃点再加上去，因为我在网吧，手边没有源码。
补充2：我等等顺便把源码也发上来。
if magicfunction(bnum, mnum, i, level)then//这里是为了判断武功编号是否为某号。
begin
  brole[bnum].Acted := 1;//如果是则设置人物回合结束。
  exit;//顺便说一句，这个判断方法是抄袭乌鸦大的，乌鸦大应该能原谅鄙人的版权盗用行为吧？
end
else
begin
原来的武功代码。。。。

就这样，我上传成附件，要试试看的就直接覆盖原本游戏吧。
声震雷霆的武功编号是2号。

最后，小小修改，不要bs我。


[ 本帖最后由 轩辕夏禹 于 2010-2-9 09:05 编辑 ]

KA

啥东东……没注释没说明没效果图……三无……

[发帖际遇]: 黄顺坤随江湖群豪去给萧半和贺寿，意外逮到了卓天雄，悉获鸳鸯刀“仁者无敌”的秘密，上涨声望1。

轩辕夏禹

黄大？？？！！
我这就注释。

[发帖际遇]: 轩辕夏禹竟然敢跟轩辕三光赌博！真是不想活了，输了银两8两。

killer_zingy

我实在太佩服你了, battle那里我从来都是白痴, 看都看不懂~

[发帖际遇]: killer_zingy闯入绝情谷，从裘千尺手中夺取“绝情丹”，转手卖于杨过，得到银两20。

winson7891

我当然能原谅你的盗用行为~~

但我也很负责任地告诉你~~这个判断办法并不是那么地好用~~当初我想出来的临时办法而已~

所以我也不用了~~你确定要用下去吗？

还是用事件判断吧？

killer_zingy

饿, 难道那代码的版权是大神...............

[发帖际遇]: killer_zingy告诉瑛姑是裘千仞杀害了她的儿子，得到瑛姑感激赠送银两5两。

winson7891

没有版权~~

事件是LZ原创的~~

[发帖际遇]: winson7891拜入小龙女门下，学会了养蜂术勤劳致富，玉蜂的蜂蜜蜂王浆日进斗金银两30两。

jy02785317

突然发现楼主每次发帖都要扯上纹身大师

[发帖际遇]: jy02785317发现昆仑仙境，采取大蟠桃数个，卖出获得银两27两。

轩辕夏禹

事件判断？
难道是使用战斗指令？

winson7891

用事件~~你可以把接口功能写在50事件里面，然后调用啊~~

知道武功的unknow7不？

这样就不用被武功号控制了~而且不需要每个事件都重复一次效果，伤害啥的~

[发帖际遇]: 发现闯王宝藏后，侥幸躲过了“雪山飞狐”，winson7891九死一生揣了几块金银逃下山，赚了银两10两。

轩辕夏禹

就是把源码写好，在50指令里调用啊？

[发帖际遇]: 轩辕夏禹学会了“佛门狮吼功”，开演唱会再也不用租音响了，节省下租用费银两9两。

winson7891

没错，不过再具体一点……

是放到50指令

然后写一个事件调用那指令

然后用这个武功调用那事件~

够清楚了吧~~

[发帖际遇]: winson7891替小昭千里送信给张无忌，赶到光明顶得到奖励银两28。

轩辕夏禹

非常清楚，不过这样的话源码里调用事件的编号我就要改得向前一点了。

轩辕夏禹

忘了回您的贴了抱歉，我牵扯到乌鸦大是因为乌鸦大最近为论坛贡献了太多了，那个we修改器非常实用，所以一定要赞颂一下的。

[发帖际遇]: 轩辕夏禹为救乔峰，聚贤庄大战群侠后身负重伤，花费银两16治伤。

风吹屁屁凉

急需效果图案

[发帖际遇]: 风吹屁屁凉跟踪成昆进入明教密道，结果：被秃驴发现打伤，损失医药费银两5。