Shitlist

[BlazingKnight]

Hi, does this seem like a decent shitlist to you?

Private Sub Event_Join()
Do

Close #1
Open (App.Path & "\Files\Shitlist.txt") For Input As #1
Dim Shit As String
   Do
       Input #1, Shit
       If LCase(strUser) Like LCase(Shit) Then
           SendChat "/ban " & strUser & " Shitlisted:~:Tuna.Bot"
           pbuffer.Clear
           Close #1
           Exit Sub
       End If
   Loop Until EOF(1)
   Close #1
   
Pause (2500)
Loop

EndSub

[RhiNo]

If it works and it works fairly decent its good enuff

[BlazingKnight]

Thanks

[Stealth]

It seems that code will loop infinitely if the user is not shitlisted.. why nest the input Do...Loop within another one that has no conditions?