08-11-2006, 08:30 PM
This is my Player Stats Packet:
and my Send Stats
I'm going to try to change the parses like you said, i'l post what happens.
Code:
' :::::::::::::::::::::::::
' :: Player stats packet ::
' :::::::::::::::::::::::::
Call SetPlayerSTR(MyIndex, Val(Parse(1)))
Call SetPlayerDEF(MyIndex, Val(Parse(2)))
Call SetPlayerSPEED(MyIndex, Val(Parse(3)))
Call SetPlayerMAGI(MyIndex, Val(Parse(4)))
Call SetPlayerLevel(MyIndex, Val(Parse(5)))
Call SetPlayerExp(MyIndex, Val(Parse(6)))
frmMirage.lblSTR = GetPlayerSTR(MyIndex)
frmMirage.lblDEF = GetPlayerDEF(MyIndex)
frmMirage.lblSPEED = GetPlayerSPEED(MyIndex)
frmMirage.lblMAGI = GetPlayerMAGI(MyIndex)
frmMirage.lblLevel = GetPlayerLevel(MyIndex)
frmMirage.lblExp = GetPlayerExp(MyIndex)
and my Send Stats
Code:
Sub SendStats(ByVal Index As Long)
Dim Packet As String
Packet = "PLAYERSTATS" & SEP_CHAR & GetPlayerSTR(Index) & SEP_CHAR & GetPlayerDEF(Index) & SEP_CHAR & GetPlayerSPEED(Index) & SEP_CHAR & GetPlayerMAGI(Index) & SEP_CHAR & GetPlayerLevel(Index) & SEP_CHAR & GetPlayerExp(Index) & SEP_CHAR & END_CHAR
Call SendDataTo(Index, Packet)
End Sub
I'm going to try to change the parses like you said, i'l post what happens.