Poll: Is this useful?
You do not have permission to vote in this poll.
Yes very.
85.00%
17 85.00%
Ehh.
5.00%
1 5.00%
No
5.00%
1 5.00%
Why'd you bother posting this?
5.00%
1 5.00%
Total 20 vote(s) 100%
* You voted for this item. [Show Results]

Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Live Stats+
#6
This is my Player Stats Packet:

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.
Reply


Messages In This Thread

Forum Jump:


Users browsing this thread: 2 Guest(s)