Author Topic: VBS:Tryout list  (Read 8788 times)

0 Members and 1 Guest are viewing this topic.

Offline drka

  • ffdshow > in_mp3.dll
  • Full Member
  • ***
  • Posts: 330
    • View Profile
VBS:Tryout list
« on: May 30, 2005, 01:34:34 am »
Code: [Select]
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.

Offline Lobo

  • x86
  • Full Member
  • ***
  • Posts: 151
  • Ho Ho Ho
    • View Profile
Re: VBS:Tryout list
« Reply #1 on: June 01, 2005, 11:01:05 pm »
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.

Offline Blaze

  • x86
  • Hero Member
  • *****
  • Posts: 7136
  • Canadian
    • View Profile
    • Maide
Re: VBS:Tryout list
« Reply #2 on: June 01, 2005, 11:32:34 pm »
VBS... not VB Lobo.
And like a fool I believed myself, and thought I was somebody else...

Offline Nate

  • Full Member
  • ***
  • Posts: 425
  • You all suck
    • View Profile
Re: VBS:Tryout list
« Reply #3 on: June 02, 2005, 09:14:53 pm »
  If Right(lines(i), 1) = "T" Then

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

Offline drka

  • ffdshow > in_mp3.dll
  • Full Member
  • ***
  • Posts: 330
    • View Profile
Re: VBS:Tryout list
« Reply #4 on: June 03, 2005, 08:36:16 pm »
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.

Offline deadly7

  • 42
  • x86
  • Hero Member
  • *****
  • Posts: 6496
    • View Profile
Re: VBS:Tryout list
« Reply #5 on: June 03, 2005, 08:41:33 pm »
Ashame there is no "userlist.txt"? It's "users.txt", last I checked (1 minute before posting this)
[17:42:21.609] <Ergot> Kutsuju you're girlfrieds pussy must be a 403 error for you
 [17:42:25.585] <Ergot> FORBIDDEN

on IRC playing T&T++
<iago> He is unarmed
<Hitmen> he has no arms?!

on AIM with a drunk mythix:
(00:50:05) Mythix: Deadly
(00:50:11) Mythix: I'm going to fuck that red dot out of your head.
(00:50:15) Mythix: with my nine

Offline drka

  • ffdshow > in_mp3.dll
  • Full Member
  • ***
  • Posts: 330
    • View Profile
Re: VBS:Tryout list
« Reply #6 on: June 03, 2005, 09:11:51 pm »
i was guessing. shutup.

Offline Newby

  • Moderator
  • Hero Member
  • *****
  • Posts: 10877
  • Thrash!
    • View Profile
Re: VBS:Tryout list
« Reply #7 on: June 03, 2005, 09:43:12 pm »
Now I see why nobody wanted to help you.
- Newby
http://www.x86labs.org

Quote
[17:32:45] * xar sets mode: -oooooooooo algorithm ban chris cipher newby stdio TehUser tnarongi|away vursed warz
[17:32:54] * xar sets mode: +o newby
[17:32:58] <xar> new rule
[17:33:02] <xar> me and newby rule all

I'd bet that you're currently bloated like a water ballon on a hot summer's day.

That analogy doesn't even make sense.  Why would a water balloon be especially bloated on a hot summer's day? For your sake, I hope there wasn't too much logic testing on your LSAT. 

Offline drka

  • ffdshow > in_mp3.dll
  • Full Member
  • ***
  • Posts: 330
    • View Profile
Re: VBS:Tryout list
« Reply #8 on: June 03, 2005, 11:24:10 pm »
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 :(.

Offline Newby

  • Moderator
  • Hero Member
  • *****
  • Posts: 10877
  • Thrash!
    • View Profile
Re: VBS:Tryout list
« Reply #9 on: June 03, 2005, 11:50:02 pm »
I doubt people want to see the mean side of you over the nice side of you...
- Newby
http://www.x86labs.org

Quote
[17:32:45] * xar sets mode: -oooooooooo algorithm ban chris cipher newby stdio TehUser tnarongi|away vursed warz
[17:32:54] * xar sets mode: +o newby
[17:32:58] <xar> new rule
[17:33:02] <xar> me and newby rule all

I'd bet that you're currently bloated like a water ballon on a hot summer's day.

That analogy doesn't even make sense.  Why would a water balloon be especially bloated on a hot summer's day? For your sake, I hope there wasn't too much logic testing on your LSAT. 

Offline Nate

  • Full Member
  • ***
  • Posts: 425
  • You all suck
    • View Profile
Re: VBS:Tryout list
« Reply #10 on: June 04, 2005, 10:03:10 am »
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)

Offline Sidoh

  • x86
  • Hero Member
  • *****
  • Posts: 17634
  • MHNATY ~~~~~
    • View Profile
    • sidoh
Re: VBS:Tryout list
« Reply #11 on: June 04, 2005, 01:00:42 pm »
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.

Offline drka

  • ffdshow > in_mp3.dll
  • Full Member
  • ***
  • Posts: 330
    • View Profile
Re: VBS:Tryout list
« Reply #12 on: June 04, 2005, 04:43:59 pm »
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

Offline Blaze

  • x86
  • Hero Member
  • *****
  • Posts: 7136
  • Canadian
    • View Profile
    • Maide
Re: VBS:Tryout list
« Reply #13 on: June 04, 2005, 05:44:27 pm »
If the string is 1 letter long is equivalent, but not the same.
And like a fool I believed myself, and thought I was somebody else...

Offline drka

  • ffdshow > in_mp3.dll
  • Full Member
  • ***
  • Posts: 330
    • View Profile
Re: VBS:Tryout list
« Reply #14 on: June 04, 2005, 06:10:37 pm »
my method is still better :P.

Offline Nate

  • Full Member
  • ***
  • Posts: 425
  • You all suck
    • View Profile
Re: VBS:Tryout list
« Reply #15 on: June 04, 2005, 07:01:52 pm »
Fine Mid(String, Len(String) - 1, 1)