游戏玩家经验计算公式

单人：

Public Function GetMonsterExp(MonsterBaseExp, CharacterLv, MonsterWorldLv, GetExpMod, MonsterTypeMod) As Single

Dim SubLvMod

Dim DiffLvMod

SubLvMod = MonsterWorldLv - CharacterLv

If SubLvMod > 10 Then

SubLvMod = 10

ElseIf SubLvMod < -10 Then

SubLvMod = -10

End If

DiffLvMod = MonsterBaseExp * SubLvMod / 10

GetMonsterExp = Int((MonsterBaseExp * (1 + SubLvMod / 10)) * GetExpMod * MonsterTypeMod)

End Function

组队：

Public Function GetMonsterExpForTeam(MonsterBaseExp, CharacterLv, MonsterWorldLv, GetExpMod, MonsterTypeMod, TeamAmount, TeamLvAmount) As Single

Dim SubLvMod

Dim DiffLvMod

Dim TeamAmountMod

SubLvMod = MonsterWorldLv - CharacterLv

If SubLvMod > 10 Then

SubLvMod = 10

ElseIf SubLvMod < -10 Then

SubLvMod = -10

End If

DiffLvMod = MonsterBaseExp * SubLvMod / 10

TeamAmountMod = (1 + ((TeamAmount - 1) * 0.35) * CharacterLv / (TeamLvAmount))

GetMonsterExpForTeam = Int((MonsterBaseExp + DiffLvMod) * GetExpMod * MonsterTypeMod * TeamAmountMod)

End Function

转载于:https://www.cnblogs.com/happysky97/archive/2010/11/19/1881979.html