Jump to content
Search In
  • More options...
Find results that contain...
Find results in...

Party chat & guild chat


85031
 Share

Recommended Posts

ok so heres a party chat
```
' Party message
        If Mid(MyText, 1, 1) = "+" Then
            ChatText = Mid(MyText, 2, Len(MyText) - 1)
            If Len(Trim(ChatText)) > 0 Then
                Call PartyMsg(ChatText)
            End If
            MyText = ""
            Exit Sub
        End If
```and heres the guild chat
```
' Guild message
        If Mid(MyText, 1, 1) = "|" Then
            ChatText = Mid(MyText, 2, Len(MyText) - 1)
            If Len(Trim(ChatText)) > 0 Then
                Call GuildMsg(ChatText)
            End If
            MyText = ""
            Exit Sub
        End If
```and for each of those there is
for party….
```
Sub PartyMsg(ByVal Text As String)
Dim Packet As String

    Packet = "partychat" & SEP_CHAR & Text & SEP_CHAR & END_CHAR
    Call SendData(Packet)
End Sub
```and for guild…
```
Sub GuildMsg(ByVal Text As String)
Dim Packet As String

    Packet = "guildchat" & SEP_CHAR & Text & SEP_CHAR & END_CHAR
    Call SendData(Packet)
End Sub
```where would put these?

i know i would put the first two in modgamelogic with all of the other chats that are before the commands in handlekeypresses but where would i put the second 2 codes that would allow you to use the chat?
thanks ^_^ this would help my game out a lot :)
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...