Chat de party

Código:

Public Sub SendPartyChatMsg(ByVal text As String)
    Dim Buffer As clsBuffer
    Set Buffer = New clsBuffer
    
    Buffer.WriteLong CPartyChatMsg
    Buffer.WriteString text
    
    SendData Buffer.ToArray()
    Set Buffer = Nothing
End Sub

Código:

CPartyChatMsg

Código:

' Party Msg
        If Left$(ChatText, 3) = "/p " Then
            ChatText = Mid$(ChatText, 4, Len(ChatText) - 3)

            If Len(ChatText) > 0 Then
                Call SendPartyChatMsg(ChatText)
            End If

            MyText = vbNullString
            frmMain.txtMyChat.text = vbNullString
            Exit Sub
        End If                                                

Código:

CPartyChatMsg

Código:

HandleDataSub(CPartyChatMsg) = GetAddress(AddressOf HandlePartyChatMsg)

Código:

Sub HandlePartyChatMsg(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()
    PartyChatMsg Index, Buffer.ReadString, Pink
    Set Buffer = Nothing
End Sub

Código:

Public Sub PartyChatMsg(ByVal Index As Long, ByVal Msg As String, ByVal Color As Byte)
Dim i As Long
Dim Member As Integer
Dim partyNum As Long

partyNum = TempPlayer(Index).inParty

    ' Quando não estiver em party?
    If TempPlayer(Index).inParty = 0 Then
        Call PlayerMsg(Index, "Você não está em uma party.", BrightRed)
        Exit Sub
    End If

    For i = 1 To MAX_PARTY_MEMBERS
        Member = Party(partyNum).Member(i)
' não existe?
        If IsConnected(Party(partyNum).Member(i)) And IsPlaying(Party(partyNum).Member(i)) Then
        ' sim, enviar a mensagem!
            Call PlayerMsg(Member, "[Party] " & GetPlayerName(Index) & ": " & Msg, Color)
        End If
    Next
End Sub


dazateam escreveu:vc feiz ?????????????
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkk
n boa pra q mentir ????


de os devidos creditos pro Newbie
pq foi ele quem fez, vc ñ teveh a capacidade nem de mudar alguma coisa só traduziu e postou aki..


link do topico oficial: Clique aqui

Código:

' Party Msg
        If Left$(ChatText, 3) = "/p " Then
            ChatText = Mid$(ChatText, 4, Len(ChatText) - 3)

            If Len(ChatText) > 0 Then
                Call SendPartyChatMsg(ChatText)
            End If

            MyText = vbNullString
            frmMain.txtMyChat.text = vbNullString
            Exit Sub
        End If 

Código:

' Party Msg
        If Left$(ChatText, 1) = "+" Then
            ChatText = Mid$(ChatText, 2, Len(ChatText) - 1)

            If Len(ChatText) > 0 Then
                Call SendPartyChatMsg(ChatText)
            End If

            MyText = vbNullString
            frmMain.txtMyChat.text = vbNullString
            Exit Sub
        End If  

Código:

para falar por chat so digitar no text de digitação: + Oie povo

Thales12 escreveu:Corrigindo um erro

mude:

Código:

' Party Msg
        If Left$(ChatText, 3) = "/p " Then
            ChatText = Mid$(ChatText, 4, Len(ChatText) - 3)

            If Len(ChatText) > 0 Then
                Call SendPartyChatMsg(ChatText)
            End If

            MyText = vbNullString
            frmMain.txtMyChat.text = vbNullString
            Exit Sub
        End If 

Para:

Código:

' Party Msg
        If Left$(ChatText, 1) = "+" Then
            ChatText = Mid$(ChatText, 2, Len(ChatText) - 1)

            If Len(ChatText) > 0 Then
                Call SendPartyChatMsg(ChatText)
            End If

            MyText = vbNullString
            frmMain.txtMyChat.text = vbNullString
            Exit Sub
        End If  

 

Código:

para falar por chat so digitar no text de digitação: + Oie povo

Código:

' Party Msg
        If Left$(ChatText, 1) = "+" Then
            ChatText = Mid$(ChatText, 2, Len(ChatText) - 1)

            If Len(ChatText) > 0 Then
                Call SendPartyChatMsg(ChatText)
            End If

            MyText = vbNullString
            frmMain.txtMyChat.text = vbNullString
            Exit Sub
        End If  

Código:

' Party Msg
        If Left$(ChatText, 1) = "+ " Then
            ChatText = Mid$(ChatText, 2, Len(ChatText) - 1)

            If Len(ChatText) > 0 Then
                Call SendPartyChatMsg(ChatText)
            End If

            MyText = vbNullString
            frmMain.txtMyChat.text = vbNullString
            Exit Sub
        End If  

Sogimar Junior escreveu:guifs, vc corrigiu ele, mais porque o espaço no "+ " ????

Sogimar Junior escreveu:o do alexandre tem um "espaço no /p " ficando: "/p "
O Thales só não colocou um espaço no "+" e o guifs o corrigiu.

---

Faço Parte Da: