VBS:Tryout list

[drka]

Code Select Expand

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.

[Lobo]

The fso looks fine, try doing a debug.print fso.readall to see if it is reading the file, or maybe set some break points.

[Blaze]

VBS... not VB Lobo.

[Nate]

  If Right(lines(i), 1) = "T" Then

  If UCase(Mid(lines(i), 1, 1) = "T" Then

[drka]

Mid? go die. this file is the userlist.txt file of stealthbot. so your code wont work unless the user was a specified length therefore making you stupid.

[deadly7]

Ashame there is no "userlist.txt"? It's "users.txt", last I checked (1 minute before posting this)

[drka]

i was guessing. shutup.

[Newby]

Now I see why nobody wanted to help you.

[drka]

yep. i have a reputation for flaming and being an asshole to people. of course there is a nicer side of me. however nobody wants to see it :(.

[Newby]

I doubt people want to see the mean side of you over the nice side of you...

[Nate]

Mid? go die. this file is the userlist.txt file of stealthbot. so your code wont work unless the user was a specified length therefore making you stupid.

Mid(String, 1, 1) is the same as Right(String, 1)

[Sidoh]

Mid? go die. this file is the userlist.txt file of stealthbot. so your code wont work unless the user was a specified length therefore making you stupid.

Christ. Calm down.

[drka]

Mid? go die. this file is the userlist.txt file of stealthbot. so your code wont work unless the user was a specified length therefore making you stupid.

Mid(String, 1, 1) is the same as Right(String, 1)

... no its not. that counts the first line from left to right.

< = left
> = right

[Blaze]

If the string is 1 letter long is equivalent, but not the same.

[drka]

my method is still better :P.