weyl新复刻版战斗动画错位的问题

sylar0638 · 发表于 2013-9-4 09:50

马上注册，结交更多侠友！

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

x

请教一下啊，weyl的那个新复刻版，在战斗画面人物一使用武功贴图就错乱，没有导入过新武功素材和人物素材，不知道怎么解决，比如用主角攻击后，再用第二个人使用武功，武功动画没有问题，但是人物动画会变成主角攻击的图像，有时是隐身的图像，就好像内存读取错位了一样

weyl · 发表于 2013-9-4 14:56

你的exe是最新的吗

sylar0638 · 发表于 2013-9-4 17:15

用过weyl大的升级补丁，但是更新后exe就报错了

sylar0638 · 发表于 2013-9-5 13:41

weyl 发表于 2013-9-4 14:56
你的exe是最新的吗

weyl大，已经解决了，原来是我设定的人物战斗图的帧数出错了，另外通过改battle文件已经实现对伤害公式的修改然后重新编译到kys里了，请问如果是修改攻击范围（三角、米字型等等）是需要改battle文件里的设定攻击范围的函数么，请问有现成的源码能够直接替换进去么？

//设定攻击范围

procedure SetAminationPosition(mode, step1: integer; step2: integer = 0);
{var
  i, i1, i2: integer;
begin
  for i1 := 0 to 63 do
for i2 := 0 to 63 do
begin
   Bfield[4, i1, i2] := 0;
   //按攻击类型判断是否在范围内
   case mode of
      0:
      begin
         if (i1 = Ax) and (i2 = Ay) then Bfield[4, i1, i2] := 1;
      end;
      3:
      begin
         if (abs(i1 - Ax) <= step) and (abs(i2 - Ay) <= step) then Bfield[4, i1, i2] := 1;
      end;
      1:
      begin
         if ((i1 = Bx) or (i2 = By)) and (sign(Ax - Bx) = sign(i1 - Bx)) and (abs(i1 - Bx) <= step) and (sign(Ay - By) = sign(i2 - By)) and (abs(i2 - By) <= step) then
            Bfield[4, i1, i2] := 1;
      end;
      2:
      begin
         if ((i1 = Bx) and (abs(i2 - By) <= step)) or ((i2 = By) and (abs(i1 - Bx) <= step)) then
            Bfield[4, i1, i2] := 1;
         if ((i1 = Bx) and (i2 = By)) then Bfield[4, i1, i2] := 0;
      end;
   end;
end;

weyl · 发表于 2013-9-5 14:39

本帖最后由 weyl 于 2013-9-5 14:41 编辑

这是水浒中的。

需要注意AI的判定也要保持一致。

另外我看你用的代码版本比较旧，应从google code的页面上更新一下。

//设定攻击范围
//使用比较复杂但是高效的方式重写，主要是为AI计算也可使用
procedure SetAminationPosition(mode, step, range: integer); overload;
begin
SetAminationPosition(Bx, By, Ax, Ay, mode, step, range);
end;
procedure SetAminationPosition(Bx, By, Ax, Ay, mode, step, range: integer; play: integer = 0); overload;
var
i, i1, i2, dis0, dis, Ax1, Ay1, step1: integer;
begin
FillChar(Bfield[4, 0, 0], 4096 * 2, 0);
//按攻击类型判断是否在范围内
case mode of
0, 6: //目标系点型、目标系十型、目标系菱型、原地系菱型、远程
begin
dis := range;
for i1 := max(Ax - dis, 0) to min(Ax + dis, 63) do
begin
dis0 := abs(i1 - Ax);
for i2 := max(Ay - dis + dis0, 0) to min(Ay + dis - dis0, 63) do
begin
Bfield[4, i1, i2] := abs(i1 - Bx) + abs(i2 - By) * 2 + 1;
end;
end;
//if (abs(i1 - Ax) + abs(i2 - Ay)) <= range then
//Bfield[4, i1, i2] := 1;
end;
3: //目标系方型、原地系方型
begin
for i1 := max(Ax - range, 0) to min(Ax + range, 63) do
for i2 := max(Ay - range, 0) to min(Ay + range, 63) do
Bfield[4, i1, i2] := abs(i1 - Bx) + abs(i2 - By) * 2 + random(24) + 1;
end;
1: //方向系线型
begin
i := 1;
i1 := sign(Ax - Bx);
i2 := sign(Ay - By);
if i1 > 0 then
step := min(63 - Bx, step);
if i2 > 0 then
step := min(63 - By, step);
if i1 < 0 then
step := min(Bx, step);
if i2 < 0 then
step := min(By, step);
if (i1 = 0) and (i2 = 0) then
step := 0;
while i <= step do
begin
Bfield[4, Bx + i1 * i, By + i2 * i] := i * 2 + 1;
i := i + 1;
end;
end;
2: //原地系十型、原地系叉型、原地系米型
begin
for i1 := max(Bx - step, 0) to min(Bx + step, 63) do
Bfield[4, i1, By] := abs(i1 - Bx) * 4;
for i2 := max(By - step, 0) to min(By + step, 63) do
Bfield[4, Bx, i2] := abs(i2 - By) * 4;
for i := 1 to range do
begin
i1 := -i;
while i1 <= i do
begin
i2 := -i;
while i2 <= i do
begin
if (Bx + i1 in [0..63]) and (By + i2 in [0..63]) then
Bfield[4, Bx + i1, By + i2] := 2 * i * 2 + 1;
i2 := i2 + 2 * i;
end;
i1 := i1 + 2 * i;
end;
end;
end;
4: //方向系菱型
begin
step1 := (step + 1) div 2;
Ax1 := Bx + sign(Ax - Bx) * step1;
Ay1 := By + sign(Ay - By) * step1;
dis := step div 2;
for i1 := max(Ax1 - dis, 0) to min(Ax1 + dis, 63) do
begin
dis0 := abs(i1 - Ax1);
for i2 := max(Ay1 - dis + dis0, 0) to min(Ay1 + dis - dis0, 63) do
begin
if abs(i1 - Bx) <> abs(i2 - By) then
Bfield[4, i1, i2] := abs(i1 - Bx) + abs(i2 - By) * 2 + 1;
end;
end;
//Bfield[4, Bx, By] := 0;
end;
5: //方向系角型
begin
Ax1 := Bx + sign(Ax - Bx) * step;
Ay1 := By + sign(Ay - By) * step;
dis := step;
for i1 := max(Ax1 - dis, 0) to min(Ax1 + dis, 63) do
begin
dis0 := abs(i1 - Ax1);
for i2 := max(Ay1 - dis + dis0, 0) to min(Ay1 + dis - dis0, 63) do
begin
if (i1 in [0..63]) and (i2 in [0..63]) and (abs(i1 - Bx) <= step) and (abs(i2 - By) <= step) then
Bfield[4, i1, i2] := abs(i1 - Bx) + abs(i2 - By) * 2 + 1;
end;
end;
//Bfield[4, Bx, By] := 0;
end;
7: //啥东西？
begin
if ((Ax = Bx) and (i2 = Ay) and (abs(i1 - Ax) <= step)) or ((Ay = By) and (i1 = Ax) and
(abs(i2 - Ay) <= step)) then
Bfield[4, i1, i2] := 1;
end;
end;
{if play = 1 then
begin
for i1:=0 to 63 do
for i2:=0 to 63 do
if Bfield[4, i1, i2] = 1 then
begin
Bfield[4, i1, i2] := abs(i1 - Bx) + abs(i2 - By) * 4;
end;
end;}
end;

复制代码

sylar0638 · 发表于 2013-9-5 18:21

weyl 发表于 2013-9-5 14:39
这是水浒中的。

需要注意AI的判定也要保持一致。

我用的就是weyl大发布的源码版的啊，请问我将这段水浒的代码复制进去替换后就可以了么，那如何赋值给各种武功呢，例如给某一武功设定为倒三角，原先的upedit只能修改直线，十字，面和点啊

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

[pascal复刻] weyl新复刻版战斗动画错位的问题

马上注册，结交更多侠友！

点评

点评