+- Mirage Source (https://mirage-engine.uk/forums)
+-- Forum: Mirage Source (Nostalgia) (https://mirage-engine.uk/forums/forumdisplay.php?fid=61)
+--- Forum: Archive (2006-2011) (https://mirage-engine.uk/forums/forumdisplay.php?fid=18)
+---- Forum: Resources (https://mirage-engine.uk/forums/forumdisplay.php?fid=49)
+---- Thread: Updated Party/Group (/showthread.php?tid=2024)
Pages:
1
2
Re: Updated Party/Group - JadeCurt1ss - 27-09-2008
So are people still developing this, or did the project just die out?
Re: Updated Party/Group - Forte - 28-09-2008
Project? This is a tutorial thread
Re: Updated Party/Group - Matt - 28-09-2008
Forte Wrote:Project? This is a tutorial thread
Yes, but the goal was to finish the system. I think for the client side.
Re: Updated Party/Group - Rian - 28-09-2008
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 SubOr, 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 SubRe: Updated Party/Group - JadeCurt1ss - 07-10-2008
So that's it? Is it all completed?
Re: Updated Party/Group - Rian - 07-10-2008
Sonire Wrote:Sonire Wrote: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.
Re: Updated Party/Group - Skieth777 - 08-10-2008
Sonire Wrote:Sonire Wrote: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
Re: Updated Party/Group - NeoZeus - 08-10-2008
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.
Re: Updated Party/Group - David David - 24-01-2009
whenever i try adding it it says 'Variable not defined"
And I'm following all the steps.
Re: Updated Party/Group - Rian - 24-01-2009
Okay.