[Digitalicious]

Originally Posted by YOMOMMAGOTBEEF

the sumo prize grabber only worked once for me :/ i now got a tat/rice/n gong tho

It only works once a day.

[MAN!AC]

Originally Posted by Digitalicious

It only works once a day.

This is why

[Aerodu]

How come I was only able to get 1 gong, 1 rice, and 1 tat, after that it stoped giving it to me.

[MYMOMMAGOTBEEF]

oh sweet ima use it today again

[Lanelo]

Only great thing about this is for the noobs.it shows tvb so they will stop complaining about "where is the tvb?"

[liljonx522x]

i cant download WPE pro for some reason

[Melonman]

make sure your virus protection is off.

[hotshot1]

that is a sweet client thanks man peace i have ben looking for this for a weeks the sumo is the best

[Sifter]

Yeah... about those earlier posts, if you can, will you tell me how to do the status for just one of the prizes?
Also, how do you use the INI files and whatnot on the flooder? I just need to know for saving Text1... default name.

[DefectiveProduct]

To save Text1

Private Sub WriteConfig
On Error GoTo error
Open "" & App.Path & "\CONFIGNAME.ini" For Output As #1
Print #1, "T=" & Text1.Text & ""
Close #1
Exit Sub

error:
MsgBox "An error occured while writing the config.", vbCritical, "ERROR"
End Sub

To read the config and get the content from it.

Private Sub ReadConfig()
On Error GoTo error
If Dir("" & App.Path & "\CONFIGNAME.ini") = "" Then
Exit Sub
End If

LineNum = 0
Open "" & App.Path & "\CONFIGNAME.ini" For Input As #1
Do Until EOF(1)
LineNum = LineNum + 1
Line Input #1, ConfigLine

If ConfigLine Like "T=*" Then
Text1.Text = Right(ConfigLine, Len(ConfigLine) - 2)

Else
End If
Loop

Close #1
Exit Sub

error:
MsgBox "An error occured while reading the config.", vbCritical, "Error"
End Sub

To add a new line of text in your ini file, just insert this small code in the line that prints what you want the file to say.

" & vbCrLf & "

So let's say you had three textboxes named Text1, Text2 and Text3.

Print #1, "1=" & Text1.Text & vbCrLf & "2=" & Text2.Text & vbCrLf & "3=" & Text3.Text & vbCrLf & ""

To add the reading of another line in the config, add another one of these codes to your ReadConfig function.

If ConfigLine Like "(whatever)=*" Then
(whatever).Text = Right(ConfigLine, Len(ConfigLine) - 2)

To write the config, just insert this code in a command button or some other function.

WriteConfig

and to read it,

ReadConfig

It's kind of complicated but if you just read everything over and look at what is written you can get the hang of it. I'm far too lazy to explain everything piece by piece, so you'll have to just try and figure it out. :|