16
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Eh, I terminated it at 16 characters and made my brother a password for MSN by hashing his name. MSN rated it a "medium" security password.
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
Grab your dick and double click for porn