[EO] Swear filter Upgrade

[lexkymbeth]

[added Send to sever] "Sends msg to sever if its bad. Like if you want to mute them or what ever
[added Let admins swear]

if you have swear filter replace with this code:
```
Public Function CheckForSwears(Index As Long, Msg As String)
' #########
' ###SFS###
' #########
' Edits by Lex
Dim SplitStr() As String
Dim SwearWords As String
Dim i As Integer

' alow admins swear
If GetPlayerAccess(Index) > 3 Then
Exit Function
End If

    '  There are NO spaces between each swear.
    SwearWords = "test,test2"
    SplitStr = Split(SwearWords, ",")

        ' log and star bad words
    For i = 0 To UBound(SplitStr)
        If InStr(1, LCase(Msg$), SplitStr(i), 1) Then
        Call TextAdd(GetPlayerName(Index) & " said: " & Msg & " !!!!!")
              Msg = Replace$((Msg), (SplitStr(i)), LCase(String(Len(SplitStr(i)), "*")), , , 1)
        End If
    Next i
    End Function
```
if you don't have Swear filter
[http://www.touchofdeathforums.com/smf/index.php/topic,74678.0.html](http://www.touchofdeathforums.com/smf/index.php/topic,74678.0.html)

Any problums? Post :p

[greendixy]

I am getting an error it highlights  TextAdd on this line

```
Call TextAdd(GetPlayerName(Index) & " said: " & Msg & " !!!!!", QBColor(BrightRed))
```
no errors with original way

[erkro1]

@greendixy:

> I am getting an error it highlights  TextAdd on this line
>
> ```
> Call TextAdd(GetPlayerName(Index) & " said: " & Msg & " !!!!!", QBColor(BrightRed))
> ```
> no errors with original way

TextAdd has nothing to do with this tutorial, copy/paste it from a clean EO into your source.

[lexkymbeth]

@greendixy:

> I am getting an error it highlights  TextAdd on this line
>
> ```
> Call TextAdd(GetPlayerName(Index) & " said: " & Msg & " !!!!!", QBColor(BrightRed))
> ```
> no errors with original way

this should be in your sever. textadd post a msg to sever try..
```
Call TextAdd(GetPlayerName(Index) & " said: " & Msg & " !!!!!")
```color code works on mying but nor others