Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Updated Party/Group
#29
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
Reply


Messages In This Thread

Forum Jump:


Users browsing this thread: 1 Guest(s)