Sub Event_UserTalk(Username, Flags, Message, Ping)
If LCase(Message) = BotVars.Trigger & "tryouts" Then
GetDBEntry Username, myAccess, myFlags
If myAccess => 80 Then
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(BotPath & "users.txt", 1, False)
lines = Split(ts.ReadAll, vbCrLf)
For i = 0 to UBound(lines)
If Right(lines(i), 1) = "T" Then
AddQ "Tryout: " & Split(lines(i), " ") (0)
tFound = True
End If
Next
If Not tFound Then
AddQ "OMFG WTF. NOBODY WAS FOUND OMFG GAY."
End If
End If
End If
End Sub
someone tell me WHY THE FUCK IT ISNT READING THE FUCKING FILE.