Attribute VB_Name = "modBlocked"
'By the BWW-IRC Team. Distributed under the GPL.
'This mod handles the blocked words

Const ArrayLength = 10
Dim Banned(ArrayLength) As String

Public Sub getWords()
    Dim temp As String
    Open App.Path + "/Settings/banned.txt" For Input As #1
     ' WHEN DYNMAIC ARRAY ARE INSERTED THIS BECOME DO WHILE LOOP
    For i = 0 To ArrayLength
        If EOF(1) = True Then Exit Sub
        Line Input #1, temp
        Banned(i) = Trim(temp)
    Next
End Sub

Public Function RemoveWords(text As String)
    For i = 0 To ArrayLength
        text = Replace(text, Banned(i), "**BANNED**")
    Next
    RemoveWords = text
End Function