Live Stats+

[DarkX]

EDIT:::: I'm Sorry about double posting, it truely was an accident. :::::::EDIT

Ok here's the origanal tutorial all this came from
I don't remember who made it.
[QOUTE]
Here is my Visual Stats code.

In modClientTCP

go to

Code:
Sub HandleData


Scroll down to

Code:

' :::::::::::::::::::::::::
' :: Player stats packet ::
' :::::::::::::::::::::::::

Replace

Code:

    If LCase(Parse(0)) = "playerstats" Then
Call SetPlayerSTR(MyIndex, Val(Parse(1)))
Call SetPlayerDEF(MyIndex, Val(Parse(2)))
Call SetPlayerSPEED(MyIndex, Val(Parse(3)))
Call SetPlayerMAGI(MyIndex, Val(Parse(4)))
Exit Sub
End If

With

Code:

    If LCase(Parse(0)) = "playerstats" Then
Call SetPlayerSTR(MyIndex, Val(Parse(1)))
frmMirage.lblSTR.Caption = Player(MyIndex).STR
Call SetPlayerDEF(MyIndex, Val(Parse(2)))
frmMirage.lblDEF.Caption = Player(MyIndex).DEF
Call SetPlayerSPEED(MyIndex, Val(Parse(3)))
frmMirage.lblSPEED.Caption = Player(MyIndex).SPEED
Call SetPlayerMAGI(MyIndex, Val(Parse(4)))
frmMirage.lblMAGI.Caption = Player(MyIndex).MAGI
Call SetPlayerLevel(MyIndex, Val(Parse(4)))
frmMirage.lblLevel.Caption = Player(MyIndex).Level
Call SetPlayerExp(MyIndex, Val(Parse(4)))
frmMirage.lblEXP.Caption = Player(MyIndex).Exp
Exit Sub
End If

And then go to frmMirage and make some labels and don't name them and set their captions to be STR, DEF, Speed, Magi, Level, and Exp.
Make more labels except this time give them a null caption and Name them lblSTR, lblDEF, lblSPEED, lblMAGI, lblLevel, lblExp. and then put those where you want them to be and you're done!
[/QOUTE]
Ok do that then try the parts of this tutorial that are missing from it, assuming it doesn't work.