[EO] Visual Party

[Yxxe]

@Robin:

> Party system is still default Mirage. I'll be completely re-programming it at one point or another to add in GUI visuals, gold sharing, exp sharing and rolling on rare drops.

I guess this will have to do until then, huh?  ;)

[Robin]

Yup. Don't get me wrong, I love it when people make their own stuff for Origins. Just because I might make it redundant in later releases doesn't make this any less useful. Anything that helps people learn to understand and use Origins is a fantastic contribution to the EO community.

[Yxxe]

@Robin:

> Yup. Don't get me wrong, I love it when people make their own stuff for Origins. Just because I might make it redundant in later releases doesn't make this any less useful. Anything that helps people learn to understand and use Origins is a fantastic contribution to the EO community.

Well I first wanted to make this for an earlier release of Eclipse, but as the partying didn't really work I was unable to, and didn't really have much time to fix it. But if this tutorial does help people understand how Origins works, then I would be really happy, as I guess you would too.

[kibbelz]

i have an error when i type either /leave or /join:
sometimes its 72 sometimes its 73 Any suggestions?

[Robin]

You haven't added the new packets to the client-side enum.

[kibbelz]

Never mind about the post above its fixed but when I run the code my layout gets ducked up. From before useing the /join:


and after useing the /join


Any Help?

[Robin]

It's this code:

```
.txtMyChat.width = 349
.txtChat.width = 349

```

[kibbelz]

Ok thanks now i have this error when we join the names and the levels don't show up its just shows a ,

But when i click addfriend (from the freinds list tutorial) and the name i put on my freinds list becomes the ,  insteadof the name on the list. Any help?

[Yxxe]

@kibbelz:

> Ok thanks now I have this error when we join the names and the levels don't show up its just shows a ,
>
> But when I click addfriend (from the freinds list tutorial) and the name I put on my freinds list becomes the ,  insteadof the name on the list. Any help?

You must be doing something wrong. I eliminated all that stuff before I released the tutorial. Your names are arriving at the client (or something is happening in the client) which makes the names and levels a null string. Go through the tutorial again and make sure you do everything correctly. It works for everyone else, so I very much doubt it is my error on this occasion.

[Ertzel]

@kibbelz:

> Ok thanks now I have this error when we join the names and the levels don't show up its just shows a ,
>
> But when I click addfriend (from the freinds list tutorial) and the name I put on my freinds list becomes the ,  insteadof the name on the list. Any help?

I added all this and it worked perfectly fine, so u messed up something when u put it in…

Un-Do whatever u added and do it again in the order the tutorial goes. Also make sure u r labeling things right.

[kibbelz]

ignore my previous posts all fixed works now i got the mod enurminations mixed up. Thanks for the tutorial :D

[Yxxe]

@kibbelz:

> ignore my previous posts all fixed works now I got the mod enurminations mixed up. Thanks for the tutorial :D

No problem ;)

[Sauvus]

@kibbelz:

> Never mind about the post above its fixed but when I run the code my layout gets ducked up. From before useing the /join:
>
> 
>
> and after useing the /join
>
> 
>
> Any Help?

I have the Same problem here. Except when i join the chat is fine but the party Image moves somewhere where i dont want it, and When Someone leave the party the chat gets bigger again. How do i fix this?

[Yxxe]

Remove the code which resizes the chat box. Robin noted this earlier in the thread.

[Yxxe]

*Also wouldn't mind someone testing this in EO - Christmas Edition so I can add it to a list to show in which versions it is compatible with.

Cheers,

Lightning

[Sauvus]

I removed it but it still does the same thing it did before.

[s3th]

i cant find Sub HandleJoinParty, im using [eo]xmas …

[Yxxe]

@s3th:

> I cant find Sub HandleJoinParty, im using [eo]xmas …

It hasn't been tested in EO:CE yet. This tutorial was primarily coded for EO 1.1.0\. However, in the next few days I will get around to making another tutorial (or updating this one) for EO:CE.

[Valek]

@Ertzel:

> This works great, thx for making this tutorial. I did everything you did just changed it to showing the other members Health instead of Level.

Would be nice if you explained how you made it so it displays Health instead of level.. Might be helpful to others :)

[Ertzel]

Its just text based display, nothing hard to do.

**- Server Side -**
Replace -
```
Sub UpdatePartyData(ByVal Leader As Long, ByVal Member As Long)
Dim buffer As clsBuffer
Dim LeaderName As String, MemberName As String, LeaderLv As String, MemberLv As String

    LeaderName = GetPlayerName(Leader)
    LeaderLv = GetPlayerLevel(Leader)
    MemberName = GetPlayerName(Member)
    MemberLv = GetPlayerLevel(Member)

    Set buffer = New clsBuffer

    buffer.WriteLong SSendPartyMembers
    buffer.WriteString LeaderName
    buffer.WriteString LeaderLv
    buffer.WriteString MemberName
    buffer.WriteString MemberLv

    'send to member
    SendDataTo Member, buffer.ToArray()
    Set buffer = Nothing

    Set buffer = New clsBuffer
    buffer.WriteLong SSendPartyMembers

    buffer.WriteString LeaderName
    buffer.WriteString LeaderLv
    buffer.WriteString MemberName
    buffer.WriteString MemberLv
    'send to leader
    SendDataTo Leader, buffer.ToArray()

    Set buffer = Nothing
End Sub

Sub PartyEnd(ByVal Leader As Long, ByVal Member As Long)
Dim buffer As clsBuffer

Set buffer = New clsBuffer

buffer.WriteLong SPartyEnd

'send to leader
SendDataTo Leader, buffer.ToArray()

Set buffer = Nothing

Set buffer = New clsBuffer

buffer.WriteLong SPartyEnd
'send to member
SendDataTo Member, buffer.ToArray()

Set buffer = Nothing
End Sub
```with
```
Sub UpdatePartyData(ByVal Leader As Long, ByVal member As Long)
Dim Buffer As clsBuffer
Dim LeaderName As String, MemberName As String, LeaderHp As String, MemberHp As String

    LeaderName = GetPlayerName(Leader)
    LeaderHp = GetPlayerVital(Leader, Vitals.HP) & "/" & GetPlayerMaxVital(Leader, Vitals.HP)
    MemberName = GetPlayerName(member)
    MemberHp = GetPlayerVital(member, Vitals.HP) & "/" & GetPlayerMaxVital(member, Vitals.HP)

    Set Buffer = New clsBuffer

    Buffer.WriteLong SSendPartyMembers
    Buffer.WriteString LeaderName
    Buffer.WriteString LeaderHp
    Buffer.WriteString MemberName
    Buffer.WriteString MemberHp

    'send to member
    SendDataTo member, Buffer.ToArray()
    Set Buffer = Nothing

    Set Buffer = New clsBuffer
    Buffer.WriteLong SSendPartyMembers

    Buffer.WriteString LeaderName
    Buffer.WriteString LeaderHp
    Buffer.WriteString MemberName
    Buffer.WriteString MemberHp
    'send to leader
    SendDataTo Leader, Buffer.ToArray()

    Set Buffer = Nothing
End Sub
```
**- Client Side -**
Replace -
```
Private Sub HandleSendPartyMembers(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim LeaderName As String, MemberName As String, LeaderLv As String, MemberLv As String
Dim buffer As clsBuffer

Set buffer = New clsBuffer
buffer.WriteBytes Data()

LeaderName = buffer.ReadString
LeaderLv = buffer.ReadString
MemberName = buffer.ReadString
MemberLv = buffer.ReadString

With frmMainGame
    .lblLeader.Caption = LeaderName & ", Lv: " & LeaderLv
    .lblMember.Caption = MemberName & ", Lv: " & MemberLv
    .imgPartyData.Left = 568
    .imgPartyData.Top = 427

    .txtMyChat.width = 349
    .txtChat.width = 349
    .imgPartyData.Visible = True
End With

Set buffer = Nothing
End Sub

```with
```
Private Sub HandleSendPartyMembers(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim LeaderName As String, MemberName As String, LeaderHp As String, MemberHp As String
Dim Buffer As clsBuffer

Set Buffer = New clsBuffer
Buffer.WriteBytes Data()

LeaderName = Buffer.ReadString
LeaderHp = Buffer.ReadString
MemberName = Buffer.ReadString
MemberHp = Buffer.ReadString

With frmMainGame
    .lblLeader.Caption = LeaderName & ", Hp: " & LeaderHp
    .lblMember.Caption = MemberName & ", Hp: " & MemberHp
    .imgPartyData.Visible = True
End With

Set Buffer = Nothing
End Sub
```

[Valek]

@Ertzel:

> Its just text based display, nothing hard to do.
>
> **- Server Side -**
> Replace -
> ```
> Sub UpdatePartyData(ByVal Leader As Long, ByVal Member As Long)
> Dim buffer As clsBuffer
> Dim LeaderName As String, MemberName As String, LeaderLv As String, MemberLv As String
>
>     LeaderName = GetPlayerName(Leader)
>     LeaderLv = GetPlayerLevel(Leader)
>     MemberName = GetPlayerName(Member)
>     MemberLv = GetPlayerLevel(Member)
>    
>     Set buffer = New clsBuffer
>                
>     buffer.WriteLong SSendPartyMembers
>     buffer.WriteString LeaderName
>     buffer.WriteString LeaderLv
>     buffer.WriteString MemberName
>     buffer.WriteString MemberLv
>    
>     'send to member
>     SendDataTo Member, buffer.ToArray()
>     Set buffer = Nothing
>    
>     Set buffer = New clsBuffer
>     buffer.WriteLong SSendPartyMembers
>    
>     buffer.WriteString LeaderName
>     buffer.WriteString LeaderLv
>     buffer.WriteString MemberName
>     buffer.WriteString MemberLv
>     'send to leader
>     SendDataTo Leader, buffer.ToArray()
>    
>     Set buffer = Nothing
> End Sub
>
> Sub PartyEnd(ByVal Leader As Long, ByVal Member As Long)
> Dim buffer As clsBuffer
>
> Set buffer = New clsBuffer
>
> buffer.WriteLong SPartyEnd
>
> 'send to leader
> SendDataTo Leader, buffer.ToArray()
>
> Set buffer = Nothing
>
> Set buffer = New clsBuffer
>
> buffer.WriteLong SPartyEnd
> 'send to member
> SendDataTo Member, buffer.ToArray()
>
> Set buffer = Nothing
> End Sub
> ```with
> ```
> Sub UpdatePartyData(ByVal Leader As Long, ByVal member As Long)
> Dim Buffer As clsBuffer
> Dim LeaderName As String, MemberName As String, LeaderHp As String, MemberHp As String
>
>     LeaderName = GetPlayerName(Leader)
>     LeaderHp = GetPlayerVital(Leader, Vitals.HP) & "/" & GetPlayerMaxVital(Leader, Vitals.HP)
>     MemberName = GetPlayerName(member)
>     MemberHp = GetPlayerVital(member, Vitals.HP) & "/" & GetPlayerMaxVital(member, Vitals.HP)
>    
>     Set Buffer = New clsBuffer
>                
>     Buffer.WriteLong SSendPartyMembers
>     Buffer.WriteString LeaderName
>     Buffer.WriteString LeaderHp
>     Buffer.WriteString MemberName
>     Buffer.WriteString MemberHp
>    
>     'send to member
>     SendDataTo member, Buffer.ToArray()
>     Set Buffer = Nothing
>    
>     Set Buffer = New clsBuffer
>     Buffer.WriteLong SSendPartyMembers
>    
>     Buffer.WriteString LeaderName
>     Buffer.WriteString LeaderHp
>     Buffer.WriteString MemberName
>     Buffer.WriteString MemberHp
>     'send to leader
>     SendDataTo Leader, Buffer.ToArray()
>    
>     Set Buffer = Nothing
> End Sub
> ```
> **- Client Side -**
> Replace -
> ```
> Private Sub HandleSendPartyMembers(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
> Dim LeaderName As String, MemberName As String, LeaderLv As String, MemberLv As String
> Dim buffer As clsBuffer
>
> Set buffer = New clsBuffer
> buffer.WriteBytes Data()
>
> LeaderName = buffer.ReadString
> LeaderLv = buffer.ReadString
> MemberName = buffer.ReadString
> MemberLv = buffer.ReadString
>
> With frmMainGame
>     .lblLeader.Caption = LeaderName & ", Lv: " & LeaderLv
>     .lblMember.Caption = MemberName & ", Lv: " & MemberLv
>     .imgPartyData.Left = 568
>     .imgPartyData.Top = 427
>    
>     .txtMyChat.width = 349
>     .txtChat.width = 349
>     .imgPartyData.Visible = True
> End With
>
> Set buffer = Nothing
> End Sub
>
> Private Sub HandlePartyEnd(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
> Dim buffer As clsBuffer
>
> Set buffer = New clsBuffer
> buffer.WriteBytes Data()
>
> With frmMainGame
>     .imgPartyData.Visible = False
>     .txtMyChat.width = 478
>     .txtChat.width = 478
> End With
>
> Set buffer = Nothing
> End Sub
> ```with
> ```
> Private Sub HandleSendPartyMembers(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
> Dim LeaderName As String, MemberName As String, LeaderHp As String, MemberHp As String
> Dim Buffer As clsBuffer
>
> Set Buffer = New clsBuffer
> Buffer.WriteBytes Data()
>
> LeaderName = Buffer.ReadString
> LeaderHp = Buffer.ReadString
> MemberName = Buffer.ReadString
> MemberHp = Buffer.ReadString
>
> With frmMainGame
>     .lblLeader.Caption = LeaderName & ", Hp: " & LeaderHp
>     .lblMember.Caption = MemberName & ", Hp: " & MemberHp
>     .imgPartyData.Visible = True
> End With
>
> Set Buffer = Nothing
> End Sub
> ```

I am still learning how to use VB6, its obviously a pretty powerful tool. I like to think I learn pretty fast but the learning curve here is pretty crazy, especially considering how many talented people are floating around the forums.

anyways, thanks for posting that. I managed to get it to work, thank you.