Valhalla Legends Archive

I was wondering if someone can post a Basic VB Idle for cleanslatebot.
Thx
TeEhEiMaN

A very simple way of doing it in Minutes

Private Sub Timer1_Timer()
   Static counter As Integer
   If CleanSlateBot1.Connected Then
       If frmOptions.chkIdle.Value = Checked Then
           counter = counter + 1
           If counter >= 5 Then '5min = 5  2hrs = 120
               CleanSlateBot1.Send frmOptions.antiidlemsg.Text  'send the idle message
               Addtext vbBlue, txtName.Text & ": ", vbWhite, frmOptions.antiidlemsg.Text
               counter = 0
           End If
       End If
   End If
End Sub

Edit - Make it a habit to use the intergrated [ code ] and [ /code ] tags, please. Thanks.

thank you

I get an error on "Addtext" vbBlue

u need Gorks addtext function
http://www.valhallalegends.com/docs/rtbox.htm

i alrdy have that , Im not sure what the problem is?

Addtext vbBlue, txtName.Text & ": ",

I think the txtName.Text it the thing that mess's me up, What is the txtName?

Quote from: TeEhEiMaN on May 25, 2003, 02:51 PM
Addtext vbBlue, txtName.Text & ": ",

I think the txtName.Text it the thing that mess's me up, What is the txtName?

just make txtname your name u logon as
the txtname.text is under my logon event. like logged on as username  
edit: txtname.text = username

Im still gettin the error on Addtext vbBlue, I installed that script u told me to do also.What the heck is wrong!

create a text box name it txtname  then under ur logon even when successful

txtname.text = username


or if your still having problems then you dont have the antiidle msg text box or frmoptions

Edit: All in else fails just take it out but you wont see it on your bot, but bnet will see it.

Does this look right for the txt Box's cause I get an error on chkIdle = GetStuff("Misc", "chkedIdle"), Once I get this im pretty sure the idle will work.


Private Sub Command1_Click()
WriteStuff "Misc", "Master", txtMaster.Text
WriteStuff "Misc", "Trigger", txtTrigger.Text
WriteStuff "Misc", "Idle", txtIdle.Text

Unload Me

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub Form_Load()

txtMaster.Text = GetStuff("Misc", "Master")
txtTrigger.Text = GetStuff("Misc", "Trigger")
txtIdle.Text = GetStuff("Misc", "Idle")
chkIdle = GetStuff("Misc", "chkedIdle")
End Sub

Quote from: TeEhEiMaN on May 25, 2003, 03:51 PM
Does this look right for the txt Box's cause I get an error on chkIdle = GetStuff("Misc", "chkedIdle"), Once I get this im pretty sure the idle will work.


Private Sub Command1_Click()
WriteStuff "Misc", "Master", txtMaster.Text
WriteStuff "Misc", "Trigger", txtTrigger.Text
WriteStuff "Misc", "Idle", txtIdle.Text

Unload Me

End Sub

wheres the   writestuff "Misc", "chkedIdle,chkedIdle.value
im assuming chkeidle is a check box

TeEhEiMaN, please use the [ code ] and [ /code ] tags.


Private Sub Timer1_Timer()
   Static counter As Integer
   If CleanSlateBot1.Connected Then
       If Form5.chkIdle.Value = Checked Then
           counter = counter + 1
           If counter >= 1 Then '5min = 5  2hrs = 120
               CleanSlateBot1.Send Form5.txtIdle.Text  'send the idle message
               counter = 0
           End If
       End If
   End If
End Sub


Thats what I have set, It Looks i put It in perfect, It runs with out errors but does no idle, HELP ME PLZZZZZZZZZZzz
[/code]

Quote from: TeEhEiMaN on May 25, 2003, 04:42 PM

Code Select Expand



It runs with out errors but does no idle, HELP ME PLZZZZZZZZZZzz


do u have text in the txtIdle.Text if so you have to wait 1 min after you turn it on.