Balance

[William]

Search for: Function GetPlayerDamage
And you'll find this:
[code]Function GetPlayerDamage(ByVal Index As Long) As Long
Dim WeaponSlot As Long

GetPlayerDamage = 0

' Check for subscript out of range
If IsPlaying(Index) = False Or Index MAX_PLAYERS Then
Exit Function
End If

GetPlayerDamage = Int(GetPlayerSTR(Index) / 2)

If GetPlayerDamage 0 Then
WeaponSlot = GetPlayerWeaponSlot(Index)

GetPlayerDamage = GetPlayerDamage + Item(GetPlayerInvItemNum(Index, WeaponSlot)).Data2

Call SetPlayerInvItemDur(Index, WeaponSlot, GetPlayerInvItemDur(Index, WeaponSlot) - 1)

If GetPlayerInvItemDur(Index, WeaponSlot)