请问怎么修改可以把原版复刻的医疗和中毒系数改成苍龙的

看书的

原版的毒和医疗简直是垃圾  苍龙的就很有用  请问这个怎么改的

weyl

找医疗和中毒减血的地方，改掉，重编译。

看书的

weyl 发表于 2013-2-10 19:37
找医疗和中毒减血的地方，改掉，重编译。

请问在什么文件里啊  我不懂编程  都是看修改器  按照别人的心得改的

看书的

weyl 发表于 2013-2-10 19:37
找医疗和中毒减血的地方，改掉，重编译。

请问在什么文件里啊  我不懂编程  都是看修改器  按照别人的心得改的

weyl

改复刻的版本不懂编程不太好弄。应该就在源码的kys_battle里面的CalPoiHurtLife和EffectMed里面吧。

看书的

//计算中毒减少的生命

procedure CalPoiHurtLife;
var
  i: integer;
  p: boolean;
begin
  p := false;
  for i := 0 to broleamount - 1 do
  begin
    Brole[i].ShowNumber := -1;
    if (Rrole[Brole[i].rnum].Poision > 0) and (Brole[i].Dead = 0) then
    begin
      Rrole[Brole[i].rnum].CurrentHP := Rrole[Brole[i].rnum].CurrentHP - Rrole[Brole[i].rnum].Poision div 10 - 1;
      if Rrole[Brole[i].rnum].CurrentHP <= 0 then Rrole[Brole[i].rnum].CurrentHP := 1;
      //Brole[i].ShowNumber := Rrole[Brole[i].rnum, 20] div 2+1;
      //p := true;
    end;
  end;
  //if p then showhurtvalue(0);

end;
这个 看不懂啊  是10 - 1这里决定少血的么？

看书的

battle有3个文件  2个除了后缀好象都一样的

看书的

//医疗

procedure Medcine(bnum: integer);
var
  rnum, bnum1, rnum1, med, step, addlife: integer;
  select: boolean;
begin
  calcanselect(bnum, 1);
  rnum := brole[bnum].rnum;
  med := Rrole[rnum].Medcine;
  step := med div 15 + 1;
  if (Brole[bnum].Team = 0) and (brole[bnum].Auto = 0) then
    select := selectaim(bnum, step)
  else
  begin
    Ax := Bx;
    Ay := By;
  end;
  if (bfield[2, Ax, Ay] >= 0) and (select = true) then
  begin
    Brole[bnum].Acted := 1;
    rrole[rnum].PhyPower := rrole[rnum].PhyPower - 5;
    bnum1 := bfield[2, Ax, Ay];
    if brole[bnum1].Team = Brole[bnum].Team then
    begin
      rnum1 := brole[bnum1].rnum;
      addlife := Rrole[rnum].Medcine; //calculate the value
      if addlife < 0 then addlife := 0;
      if addlife + rrole[rnum1].CurrentHP > rrole[rnum1].MaxHP then addlife := rrole[rnum1].MaxHP - rrole[rnum1].CurrentHP;
      rrole[rnum1].CurrentHP := rrole[rnum1].CurrentHP + addlife;
      Rrole[rnum1].Hurt := Rrole[rnum1].Hurt - addlife div LIFE_HURT;
      if Rrole[rnum1].Hurt < 0 then Rrole[rnum1].Hurt := 0;
      brole[bnum1].ShowNumber := addlife;
      SetAminationPosition(0, 0);
      PlayActionAmination(bnum, 0);
      PlayMagicAmination(bnum, 0);
      ShowHurtValue(3);
    end;
  end;

end;

看书的

上面可以修改医疗效果么？

jy02785317

1. 
   
2. 
   
3. //计算中毒减少的生命
   
4. 
   
5. procedure CalPoiHurtLife;
   
6. var
   
7.    i: integer;
   
8.    p: boolean;
   
9. begin
   
10.    p := false;
    
11.    for i := 0 to broleamount - 1 do
    
12.    begin
    
13.      Brole[i].ShowNumber := -1;
    
14.      if (Rrole[Brole[i].rnum].Poision > 0) and (Brole[i].Dead = 0) then
    
15.      begin
    
16.        Rrole[Brole[i].rnum].CurrentHP := Rrole[Brole[i].rnum].CurrentHP - Rrole[Brole[i].rnum].Poision div 10 - 1;
    
17.        if Rrole[Brole[i].rnum].CurrentHP <= 0 then Rrole[Brole[i].rnum].CurrentHP := 1;
    
18.        //Brole[i].ShowNumber := Rrole[Brole[i].rnum, 20] div 2+1;
    
19.        //p := true;
    
20.      end;
    
21.    end;
    
22.    //if p then showhurtvalue(0);
    
23. 
    
24. end;
    

复制代码

注意啊那个div 10，把10改低，毒的效果就明显

看书的

谢谢027和we
我在网上下的小猪闯江湖似乎是BUG未修复的版本
请问哪里有补丁下  我找不到

看书的

按照2位说的改了相应的地方  把10改成了1 但是中毒仍然一点用都没有  中100也只少10点血

jy02785317

编译了吗？