When the user accepts or declines you need to send a message back to the server, and then send the person who requested the private chat that message from the server.
Client:
Code:
Sub SendAnswer(ByVal MsgFrom as Long)
Dim packet as string
packet = "DECLINEINVITE" & SEP_CHAR & MsgFrom & SEP_CHAR & END_CHAR
SendData(packet)
End Sub
Server:
Code:
If LCase(Parse(0)) = "declineinvite" Then
Dim InviteFrom = Parse(1)
Call PlayerMsg(InviteFrom, "That person has declined your request to chat privately.", Red)
Exit Sub
End If
If you want it in a message box then you need to set up a new command to display message on a messagebox.. and instead of sending the message using the "PlayerMsg" routine, use the following:
Server:
Code:
If LCase(Parse(0)) = "declineinvite" Then
Dim InviteFrom = Parse(1)
Dim packet as String
Msg = "That person has declined your request to chat privately."
packet = "DECLINED" & SEP_CHAR & Msg & SPE_CHAR & END_CHAR
Call SendDataTo(InviteFrom, packet)
Exit Sub
End If
Client Side:
Code:
If LCase(Parse(0)) = "declined" Then
Call AlertBox(Parse(1))
Exit Sub
End If
Code:
Sub AlertBox(ByVal Message As String)
If LEN(Message) > 0 then
Call MsgBox(Message, vbOkOnly)
End If
End Sub
That make more sense?
Login
Register
FAQ
Search
Members
