Bounty System (2/5) C & P

[Nean]

Well, I tried it out and GetPlayerBounty is int defined.

Find:

Code:

Sub SetPlayerName(ByVal index As Long, _
                  ByVal Name As String)
    Player(index).Char(TempPlayer(index).CharNum).Name = Name
End Sub

Under it add:

Code:

Function GetPlayerBounty(ByVal index As Long) As String
    GetPlayerBounty = Val(Player(index).Char(TempPlayer(index).CharNum).Bounty)
End Function

Sub SetPlayerBounty(ByVal index As Long, _
                    ByVal Bounty As Long)
    Player(index).Char(TempPlayer(index).CharNum).Bounty = Bounty
End Sub