SERVERADDED: modConstants - at the end of Item Constants
Code:
Public Const ITEM_TYPE_GOLD As Byte = 14
ADDED: modTypes - under PK as Byte
Code:
Gold As Long
ADDED: modPlayer
Code:
Public Function GetPlayerGold(ByVal Index As Long)
GetPlayerGold = Player(Index).Char(TempPlayer(Index).CharNum).Gold
End Function
Public Sub SetPlayerGold(ByVal Index As Long, ByVal Value As Long)
Player(Index).Char(TempPlayer(Index).CharNum).Gold = Value
End Sub
ADDED: modEnumerations - under SCastSpell
Code:
SGold
ADDED: modEnumerations - under CStats
Code:
CGold
ADDED: modHandleData - under CQuit
Code:
Case CGold
HandlePlayerGold Parse
ADDED: modHandleData
Code:
' :::::::::::::::::::::::::
' :: Player Gold packet ::
' :::::::::::::::::::::::::
Private Sub HandlePlayerGold(ByVal Index as Long, ByRef Parse() As String)
Call SetPlayerGold(Index, GetPlayerGold(Index), CLng(Parse(1)))
End Sub
CLIENTADDED: modConstants - at the end of Item Constants
Code:
Public Const ITEM_TYPE_GOLD As Byte = 14
ADDED: modTypes - PlayerRec under PK as Byte
Code:
Gold As Long
ADDED: modDatabase
Code:
Public Function GetPlayerGold(ByVal Index As Long)
GetPlayerGold = Player(Index).Gold
End Function
Public Sub SetPlayerGold(ByVal Index As Long, ByVal Value As Long)
Player(Index).Gold = Value
End Sub
ADDED: modHandleData
Code:
' :::::::::::::::::::::::::
' :: Player Gold packet ::
' :::::::::::::::::::::::::
Private Sub HandlePlayerGold(ByRef Parse() As String)
Call SetPlayerGold(MyIndex, GetPlayerGold(MyIndex), CLng(Parse(1)))
End Sub
ADDED: modHandleData
Code:
Case SGold
HandlePlayerGold Parse