Mirage Source

    ' :::::::::::::::::
    ' :: 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

    ' :::::::::::::::::
    ' :: 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