Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Adding Minimum Message Length
#1
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!
Reply


Forum Jump:


Users browsing this thread: 2 Guest(s)