真的是rp？

轩辕夏禹 · 发表于 2010-2-11 22:26

您需要登录才可以下载或查看，没有账号？我要成为铁血侠客

x

敝人真的火星了。。。。

procedure Attack(bnum: integer);
var
rnum, i, mnum, level, step, i1: integer;
begin
rnum := brole[bnum].rnum;
i := SelectMagic(rnum);
mnum := Rrole[rnum].Magic[i];
level := Rrole[rnum].MagLevel[i] div 100 + 1;
if rmagic[mnum].UnKnow[4] > 0 then
begin
callevent(rmagic[mnum].unknow[4]);
brole[bnum].Acted := 1;
exit;
end
else
begin
if (i >= 0) then
//依据攻击范围进一步选择
case Rmagic[mnum].AttAreaType of
0, 3:
begin
CalCanSelect(bnum, 1);
step := Rmagic[mnum].MoveDistance[level - 1];
if SelectAim(bnum, step) then
begin
SetAminationPosition(Rmagic[mnum].AttAreaType, Rmagic[mnum].AttDistance[level - 1]);
Brole[bnum].Acted := 1;
end;
end;
1:
begin
if SelectDirector(bnum) then
begin
SetAminationPosition(Rmagic[mnum].AttAreaType, Rmagic[mnum].MoveDistance[level - 1]);
Brole[bnum].Acted := 1;
end;
end;
2:
begin
SetAminationPosition(Rmagic[mnum].AttAreaType, Rmagic[mnum].MoveDistance[level - 1]);
Brole[bnum].Acted := 1;
end;
end;
//如果行动成功, 武功等级增加, 播放效果
if Brole[bnum].Acted = 1 then
begin
for i1 := 0 to sign(Rrole[rnum].AttTwice) do
begin
Rrole[rnum].MagLevel[i] := Rrole[rnum].MagLevel[i] + random(2) + 1;
if Rrole[rnum].MagLevel[i] > 999 then Rrole[rnum].MagLevel[i] := 999;
AttackAction(bnum, mnum, level);
end;
end;
end;
end;

复制代码

我把battle中的attack改成这样了，可是一进入战斗中，不管那个武功的unknown【4】是否大于0，点击了武功后就直接返回战斗主选单了。
请各位大大帮忙啊。

[ 本帖最后由轩辕夏禹于 2010-2-12 20:16 编辑 ]

老衲法号乱来 · 发表于 2010-2-11 23:33

喂你还没搞定啊~~

说实在的，你没有事件却选不到战斗范围很不正常~~

你是不是不小心把武功的攻击范围那数值给改了……如果不是0~3的话自然没有效果~

要不然你就RP了~

轩辕夏禹 · 发表于 2010-2-12 00:49

绝对不是，我发现到原因了。
end的位置错了。
话说大师你为什么重新开号啊？

老衲法号乱来 · 发表于 2010-2-12 00:54

灌水，还能干嘛~~

end错了~~这错真鲜见~~

没看出来~~

话说编译器对每一层begin，end不是都有不同颜色的明显标识的嘛~不太可能对错~~

轩辕夏禹 · 发表于 2010-2-12 00:58

也不真的是end的错，就是我把end放得太后面了。

p/s：才一天就40多张贴，大师真是法力无边。

轩辕夏禹 · 发表于 2010-2-12 01:25

又出错了，时好时坏，妈的我快疯了。

weyl · 发表于 2010-2-12 13:40

可以用一个叫delforex的插件来整理代码

轩辕夏禹 · 发表于 2010-2-12 14:05

写过bt大了，我还很好奇，为什么一整理了就行了呢？

账号		自动登录	找回密码
密码			我要成为铁血侠客

回复二当家的帖子