Client side is pretty much finished. All that is needed is a packet:
Code:
' :::::::::::::::::
' :: Party Stats ::
' :::::::::::::::::
If (LCase(Parse(0)) = "partystats") Then
X = Val(Parse(1)) ' Total Group Members
frmMirage.lblLeaderName.Caption = Trim$(Parse(2)) & " " & Val(Parse(4)) ' Leader Name & Level
frmMirage.lblLeaderClass.Caption = Trim$(Parse(3)) ' Leader Class
frmMirage.lblLeaderHP = Val(Parse(6)) & "/" & Val(Parse(5)) ' Leader HP
frmMirage.lblLeaderMP.Caption = Val(Parse(8)) & "/" & Val(Parse(7)) ' Leader MP
n = 9 ' Next Parse In Line
For i = 1 To X ' MAX_GROUP_NUMBER
frmMirage.lblGroupName(i - 1).Caption = Trim$(Parse(n)) & " " & Val(Parse(n + 2)) ' Member i Name & Level
frmMirage.lblGroupClass(i - 1).Caption = Trim$(Parse(n + 1)) ' Member i Class
frmMirage.lblGroupHP(i - 1).Caption = Val(Parse(n + 4)) & "/" & Val(Parse(n + 3)) ' Member i HP
frmMirage.lblGroupMP(i - 1).Caption = Val(Parse(n + 6)) & "/" & Val(Parse(n + 5)) ' Member i MP
n = n + 7
Next i
End If
Exit Sub
Or, if you wanted hp and mp bars
Code:
' :::::::::::::::::
' :: Party Stats ::
' :::::::::::::::::
If (LCase(Parse(0)) = "partystats") Then
X = Val(Parse(1)) ' Total Group Members
BarWidth = 2385 ' Change Number To The Width Of Your HP/MP Bars
frmMirage.lblLeaderName.Caption = Trim$(Parse(2)) & " " & Val(Parse(4)) ' Leader Name & Level
frmMirage.lblLeaderClass.Caption = Trim$(Parse(3)) ' Leader Class
frmMirage.picLeaderHP.Width = (((Val(Parse(6)) / 100) / (Val(Parse(5)) / 100)) * BarWidth) ' Leader HP
frmMirage.picLeaderMP.Width = (((Val(Parse(8)) / 100) / (Val(Parse(7)) / 100)) * BarWidth) ' Leader MP
n = 9 ' Next Parse In Line
For i = 1 To X ' MAX_GROUP_NUMBER
frmMirage.lblGroupName(i - 1).Caption = Trim$(Parse(n)) & " " & Val(Parse(n + 2)) ' Member i Name & Level
frmMirage.lblGroupClass(i - 1).Caption = Trim$(Parse(n + 1)) ' Member i Class
frmMirage.picGroupHP(i - 1).Width = (((Val(Parse(n + 4)) / 100) / (Val(Parse(n + 3)) / 100)) * BarWidth) ' Member i HP
frmMirage.picGroupMP(i - 1).Width = (((Val(Parse(n + 6)) / 100) / (Val(Parse(n + 5)) / 100)) * BarWidth) ' Member i MP
n = n + 1
Next i
End If
Exit Sub