77m2引擎传奇中如何使用升级加属性点的方法讲解

: 29)

如何使用升级加属性点

首先角色升级触发的是函数是QFunctionNPC中的函数PlayerLevelUp，定义如下:

procedure PlayerLevelUp(Npc: TNormNpc; Player: TPlayObject; const Level: Integer);

示例：

procedure PlayerLevelUp(Npc: TNormNpc; Player: TPlayObject; const Level: Integer);

begin

  case Level of

    0..10: Player.BonusPoint := Player.BonusPoint + 5; //10级前每升1级+5点

    11..20: Player.BonusPoint := Player.BonusPoint + 7; //11-20级级前每升1级+7点

    21..40: Player.BonusPoint := Player.BonusPoint + 10; //21-40级前每升1级+10点

    else

      Player.BonusPoint := Player.BonusPoint + 12; //高于40级每升一级+12点

  end;

  //注意: 当角色升级1级1级递增的时候,上面的处理是正确的;实际上可能还存在代码调整等级

  //的情况,这个时候则需要在代码调整等级的地方计算

end;