Print Page - Shitlist

Title: Shitlist
Post by: BlazingKnight on July 10, 2003, 02:28 PM

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

Title: Re:Shitlist
Post by: RhiNo on July 10, 2003, 02:36 PM

If it works and it works fairly decent its good enuff

Title: Re:Shitlist
Post by: BlazingKnight on July 10, 2003, 02:48 PM

Thanks

Title: Re:Shitlist
Post by: Stealth on July 11, 2003, 02:05 AM

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?

Valhalla Legends Archive

Programming => Battle.net Bot Development => Topic started by: BlazingKnight on July 10, 2003, 02:28 PM