原版复刻版的伤害公式

koko4444

1. //计算伤害值, 第一公式如小于0则取一个随机数, 无第二公式
   
2. 
   
3. function CalHurtValue(bnum1, bnum2, mnum, level: integer): integer;
   
4. var
   
5.   i, rnum1, rnum2, mhurt, att, def, k1, k2, dis: integer;
   
6. begin
   
7.   //计算双方武学常识
   
8.   k1 := 0;
   
9.   k2 := 0;
   
10.   for i := 0 to BRoleAmount - 1 do//当i<BRoleAmount - 1时，加1循环，应该是不超过最大武常的一个设定把
    
11.   begin
    
12.     if (Brole[i].Team = Brole[bnum1].Team) and (Brole[i].Dead = 0) and
    
13.       (Rrole[Brole[i].rnum].Knowledge > MIN_KNOWLEDGE)//大于最小有效武常 then
    
14.       k1 := k1 + Rrole[Brole[i].rnum].Knowledge;//把有效武常加0赋值给K1，至此K1这个数值就是武常了
    
15.     if (Brole[i].Team = Brole[bnum2].Team) and (Brole[i].Dead = 0) and
    
16.       (Rrole[Brole[i].rnum].Knowledge > MIN_KNOWLEDGE) then
    
17.       k2 := k2 + Rrole[Brole[i].rnum].Knowledge;
    
18.   end;
    
19.   rnum1 := Brole[bnum1].rnum;
    
20.   rnum2 := Brole[bnum2].rnum;
    
21.   if level > 0 then
    
22.     mhurt := Rmagic[mnum].Attack[level - 1]
    
23.   else
    
24.     mhurt := 0;
    
25. 
    
26.   att := Rrole[rnum1].Attack + k1 * 3 div 2 + mhurt div 3;//人物攻击+武常*3+武功伤害/3取整
    
27.   def := Rrole[rnum2].Defence * 2 + k2 * 3;//人物防御*2+武常*3
    
28. 
    
29.   case Rmagic[mnum].MagicType of     //根据武功的所属的拳剑刀特来选择加什么系数
    
30.     1:
    
31.     begin
    
32.       att := att + Rrole[rnum1].Fist;//把上面算的攻击+拳系数（猜的）
    
33.       def := def + Rrole[rnum2].Fist;
    
34.     end;
    
35.     2:
    
36.     begin
    
37.       att := att + Rrole[rnum1].Sword;//把上面算的攻击+剑系数（猜的）
    
38.       def := def + Rrole[rnum2].Sword;
    
39.     end;
    
40.     3:
    
41.     begin
    
42.       att := att + Rrole[rnum1].Knife;
    
43.       def := def + Rrole[rnum2].Knife;
    
44.     end;
    
45.     4:
    
46.     begin
    
47.       att := att + Rrole[rnum1].Unusual;
    
48.       def := def + Rrole[rnum2].Unusual;
    
49.     end;
    
50.   end;
    
51. 
    
52.   //攻击, 防御按伤害的折扣
    
53.   att := att * (100 - Rrole[rnum1].Hurt div 2) div 100;//攻击*（100-受伤数值/2)/100取整
    
54.   def := def * (100 - Rrole[rnum2].Hurt div 2) div 100;
    
55. 
    
56.   //如果有武器增加攻击, 检查配合列表
    
57.   if Rrole[rnum1].Equip[0] >= 0 then
    
58.   begin
    
59.     att := att + Ritem[Rrole[rnum1].Equip[0]].AddAttack;
    
60.     for i := 0 to MAX_WEAPON_MATCH - 1 do
    
61.     begin
    
62.       if (Rrole[rnum1].Equip[0] = matchlist[i, 0]) and (mnum = matchlist[i, 1]) then
    
63.       begin
    
64.         att := att + matchlist[i, 2] * 2 div 3;//上面的攻击数值+武器配合数值*2/3(在这个公式里，配合数值的价值是武功数值的两倍）
    
65.         break;
    
66.       end;
    
67.     end;
    
68.   end;
    
69.   //防具增加攻击
    
70.   if Rrole[rnum1].Equip[1] >= 0 then
    
71.     att := att + Ritem[Rrole[rnum1].Equip[1]].AddAttack;//这个公式里，防具加的攻击无效，只有武器加的攻击有效？
    
72.   //武器, 防具增加防御
    
73.   if Rrole[rnum2].Equip[0] >= 0 then
    
74.     def := def + Ritem[Rrole[rnum2].Equip[0]].AddDefence;
    
75.   if Rrole[rnum2].Equip[1] >= 0 then
    
76.     def := def + Ritem[Rrole[rnum2].Equip[1]].AddDefence;
    
77.   //showmessage(inttostr(att)+' '+inttostr(def));
    
78.   Result := att - def + random(20) - random(20);//刚才所有算完后的攻击-防御+随即数20以内-随即数20以内
    
79.   dis := abs(Brole[bnum1].X - Brole[bnum2].X) + abs(Brole[bnum1].Y - Brole[bnum2].Y);//猜测是距离减轻伤害的设置吧
    
80.   if dis > 10 then
    
81.     dis := 10;//最大距离是10
    
82. 
    
83.   Result := max(Result, att div 10 + random(10) - random(10));//伤害数值，攻击/10+随即数10-随机数10，取小（如果你的总攻击>对方总防御的数值小于你的攻击/10取整，就不划算，要想不破，伤害小就把攻击/10的10改大
    
84.   Result := Result * (100 - (dis - 1) * 3) div 100;//距离最多减少27%的最终伤害
    
85.   if (Result <= 0) or (level <= 0) then
    
86.     Result := random(10) + 1;
    
87.   if (Result > 9999) then
    
88.     Result := 9999;//伤害最小随即数10+1，最大9999
    
89.   //showmessage(inttostr(result));
    
90. 
    
91. end;
    
92. 
    
93. //AI专用
    
94. 
    
95. function CalHurtValue2(bnum1, bnum2, mnum, level: integer): integer;
    
96. begin
    
97.   Result := CalHurtValue(bnum1, bnum2, mnum, level);
    
98.   if Result >= Rrole[Brole[bnum2].rnum].CurrentHP then//伤害大于我方的血，伤害*1.5？？？
    
99.     Result := Result * 3 div 2;
    
100.   if Rmagic[mnum].HurtType = 1 then
     
101.     Result := (Rmagic[mnum].HurtMP[level - 1] * 3) div 2;
     
102. end;
     

复制代码

总结：原版复刻的伤害公式
【（人物攻击+武常*3+武功伤害/3取整）+相应的系数】*（100-受伤数值/2)/100 - （人物防御*2+武常*3）*（100-受伤数值/2)/100
最后伤害的数值受到距离的修正，最多减少27%的伤害
防具加的攻击数值无效
武器防具的其他数值视同人物本身的攻防

最后的一段电脑专用伤害公式，就看懂1.5倍，还是来的大大讲解下吧

scc__

贴代码有专用的一个功能，给你编辑了。

AI专用功能是这样：AI会对每个攻击点计算一遍收益，收益值就是直接用伤害公式算的。如果能够打退某个敌人，增大这个收益值，也就是说AI会优先选择可以击退的攻击方式。实际行动时还是使用原本的伤害公式。
开始的循环是查找战场上所有人物。

后面的装备增加攻防是武器防具都增加的。

koko4444

scc__ 发表于 2015-2-4 15:49
贴代码有专用的一个功能，给你编辑了。

AI专用功能是这样：AI会对每个攻击点计算一遍收益，收益值就是直接 ...

  //防具增加攻击
  if Rrole[rnum1].Equip[1] >= 0 then
    att := att + Ritem[Rrole[rnum1].Equip[1]].AddAttack;
  //武器, 防具增加防御
  if Rrole[rnum2].Equip[0] >= 0 then
    def := def + Ritem[Rrole[rnum2].Equip[0]].AddDefence;
  if Rrole[rnum2].Equip[1] >= 0 then
    def := def + Ritem[Rrole[rnum2].Equip[1]].AddDefence;


大大，不是Equip[0] 是武器嘛
没看到 att := att + Ritem[Rrole[rnum1].Equip[0]].AddAttack;呀

koko4444

scc__ 发表于 2015-2-4 15:49
贴代码有专用的一个功能，给你编辑了。

AI专用功能是这样：AI会对每个攻击点计算一遍收益，收益值就是直接 ...

//防具增加攻击
  if Rrole[rnum1].Equip[1] >= 0 then
    att := att + Ritem[Rrole[rnum1].Equip[1]].AddAttack;
  //武器, 防具增加防御
  if Rrole[rnum2].Equip[0] >= 0 then
    def := def + Ritem[Rrole[rnum2].Equip[0]].AddDefence;
  if Rrole[rnum2].Equip[1] >= 0 then
    def := def + Ritem[Rrole[rnum2].Equip[1]].AddDefence;


大大，不是Equip[0] 是武器嘛
没看到 att := att + Ritem[Rrole[rnum1].Equip[0]].AddAttack;呀
当初那刺猬甲是您设置的呀，那10.28的群芳源代码也是您写的

var
  i, j, rnum1, rnum2, mhurt, R1Att, R1Def, R2Att, R2Def, att, def, k1, k2, dis, neinum,
  neilevel, livenum, speed1, speed2: integer;
  p, p2, p3, p4: real;
  R1, R2: TRole;
  B1, B2: TBattleRole;
金水的伤害公式涉及的变量也太多了吧，还什么类型的数都有，太可怕了

scc__

第59行那里。

群芳原本也是用原版的代码改的，后来独立发展了。

水壶用浮点数是因为中间计算过程多是乘法，用整数有溢出可能（曾经溢出过，目前的值其实都不会溢出）。

zjsxcm

咱 就是在找这个