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:
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
Replace with:
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
Find:
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
Replace with:
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
Change the "
> 10" to how many letters you want each message to be.
That's all!