Updated Party/Group

[JadeCurt1ss]

So are people still developing this, or did the project just die out?

[Forte]

Project? This is a tutorial thread

[Matt]

Project? This is a tutorial thread

Yes, but the goal was to finish the system. I think for the client side.

[Rian]

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

[JadeCurt1ss]

So that's it? Is it all completed?

[Rian]

Server side coding on this tutorial is not fully functional yet. It's also largely written for compatibility with Mirage Source versions 3.0.3 and 3.0.7.

[Skieth777]

Server side coding on this tutorial is not fully functional yet. It's also largely written for compatibility with Mirage Source versions 3.0.3 and 3.0.7.

So then it IS finished?

lol couldn't resist

[NeoZeus]

It works well enough in 3.07 as is. The code allows party creation, joining/leaving the party, auto promote new leader when party leader leaves party or disconnect and it sends data to the client properly for all these events. Client side, party member can see HP/MP of everyone in the party. So for basic functionality, it's already working. It's really up to you if you want to add in other features like shared experience or any other benefits.

[David David]

whenever i try adding it it says 'Variable not defined"
And I'm following all the steps.

[Rian]

Okay.