01-06-2006, 09:49 PM
Author: Renegade
Difficulty: 1/5
This will increase the amount of characters per line someone must type for it to be sent.
:: CLIENT SIDE ::
Find:Replace with:Find:Replace with:Change the "> 10" to how many letters you want each message to be.
That's all!
Difficulty: 1/5
This will increase the amount of characters per line someone must type for it to be sent.
:: CLIENT SIDE ::
Find:
Code:
' Broadcast message
If Mid(MyText, 1, 1) = "'" Then
ChatText = Mid(MyText, 2, Len(MyText) - 1)
If Len(Trim(ChatText)) > 0 Then
Call BroadcastMsg(ChatText)
End If
MyText = ""
Exit Sub
End If
Code:
' Broadcast message
If Mid(MyText, 1, 1) = "'" Then
ChatText = Mid(MyText, 2, Len(MyText) - 1)
If Len(Trim(ChatText)) > 10 Then
Call BroadcastMsg(ChatText)
End If
MyText = ""
Exit Sub
End If
Code:
' Global Message
If Mid(MyText, 1, 1) = """" Then
ChatText = Mid(MyText, 2, Len(MyText) - 1)
If Len(Trim(ChatText)) > 0 Then
Call GlobalMsg(ChatText)
End If
MyText = ""
Exit Sub
End If
Code:
' Global Message
If Mid(MyText, 1, 1) = """" Then
ChatText = Mid(MyText, 2, Len(MyText) - 1)
If Len(Trim(ChatText)) > 10 Then
Call GlobalMsg(ChatText)
End If
MyText = ""
Exit Sub
End If
That's all!