Messages

my method is still better :P.

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

...

either you are a dumbass or mentally retarted.

i was kidding.

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 :(.

i was guessing. shutup.

bullshit around what?

and did i say i could hack?

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.

which translates to:you dont know shit about me.

Admit it. You couldn't hack your way out of a paper bag, yet alone do anything outside of spamming an IP on IRC while also screaming "SYN FLOOD ME" if you got somebody's IP.

i barely go on IRC FYI. accually the only place i have been on IRC lately is on tehnetwork but theres nothing interesting on IRC. and hacking people is no fun. thats just plain mean.

which translates to:you dont know shit about me.

most likely his IP is dynamic so it would be a miracle if he still uses that one ;).

This is not SB scripting, please stop spreading your noobness around.

so what if it isnt? FSO works in VB just like in VBScript. im not asking you to be an asshole -_- .

all im asking is why it isnt reading from the file.

ROFL. You owned yourself.

...

the reason why my bandwidth was wasted is cause some fucker downloaded 300MB of 1 file. as soon as i find out how to find out the IPs of people that dled it, ill fucking kill his IP with my big internet bazooka :P.

anyways the .mp3 is nice :P.

for now....that place sucks. all i can do there is argue with joe :P.

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.

its been around for 2 weeks ;).