Need Help

[OuTLawZGoSu]

Sup... I need some help in making my bot activate commands through whispering. Aight, that prolly didint make sence so let me vbreak i tdown for you. When i whisper the bot .ver , the bot will whisper back Version 1.2. I tryed using this code:

If username = username Then
If Left((LCase(message)), 5) = (Form4.txtTrigger.Text & "test"Then
saymessage = (Len(message) - 5)
If whisper = True Then
Send "/w " & username& " ---- OuTLawZ BoT"
ElseIf whisper = False Then
Send " ---- OuTLawZ BoT "
End If
End If
End If
______________________________________________________

Where is sais " If Whisper = True Then" , that line fo code does not work. but where is sais " If Whisper = False Then" , that line of code works. I typed in .ver sand it send " ---- OuTLawZ BoT ".

Please let me no if you can help...

L8terZ

[______]

Sup... I need some help in making my bot activate commands through whispering. Aight, that prolly didint make sence so let me vbreak i tdown for you. When i whisper the bot .ver , the bot will whisper back Version 1.2. I tryed using this code:

If username = username Then
If Left((LCase(message)), 5) = (Form4.txtTrigger.Text & "test"Then
saymessage = (Len(message) - 5)
If whisper = True Then
Send "/w " & username& " ---- OuTLawZ BoT"
ElseIf whisper = False Then
Send " ---- OuTLawZ BoT "
End If
End If
End If
______________________________________________________

Where is sais " If Whisper = True Then" , that line fo code does not work. but where is sais " If Whisper = False Then" , that line of code works. I typed in .ver sand it send " ---- OuTLawZ BoT ".

Please let me no if you can help...

L8terZ

its looking for "trigger & test" not  .ver
try lcase(username) for non case sensative
Why is there a saymessage when you dont even need it?



for your whisper you mean...

Code Select Expand

 
if chkwhisper.value = 1 then  
whisper = true
else
whisper= false
endif

?

[iago]

If username = username Then

Is it supposed to be like that?  That seems a little redundant because it seems redundant.

[CrAz3D]

I'm positive this has been posted before, quite indepth aswell.

[OuTLawZGoSu]

OK... now the code looks like this:

Code Select Expand



Case ID_TALK
AddC vbYellow, "<" & username & ">", vbWhite, message

If chkwhisper.Value = 1 Then
whisper = True
Else
whisper = False
End If

If username = username Then
If Left((LCase(message)), 5) = (Form4.txtTrigger.Text & "test") Then
If whisper = True Then
Send "/w " & LCase(username) & " ---- OuTLawZ BoT"
ElseIf whisper = False Then
Send " ---- OuTLawZ BoT "
End If
End If
End If

With this code, everyting under the "If chkwhisper.Value = 1 Then" does not work. PLz let me no wat im doing wrong.

[Raven]

Try changing

Code Select Expand


If chkwhisper.Value = 1 Then
whisper = True
Else
whisper = False
End If


to

Code Select Expand


If chkwhisper.Value = 1 Then
whisper = True
Else if chkWhisper.Value != 1 Then
whisper = False
End If


[drivehappy]

Code Select Expand


If chkwhisper.Value = 1 Then
whisper = True
ElseIf chkWhisper.Value != 1 Then
whisper = False
End If


!= isn't a VB operator, you'll need to use <>

[OuTLawZGoSu]

so it's :

If chkwhisper.Value = 1 Then
whisper = True
ElseIf chkWhisper.Value <> = 1 Then
whisper = False
End If

?

[Dr.JaY]

so it's :

If chkwhisper.Value = 1 Then
whisper = True
ElseIf chkWhisper.Value <> = 1 Then
whisper = False
End If

?

You don't need ElseIf chkWhisper.Value <> = 1 Then,
just use

Code Select Expand

Else
whisper = False
End If

[CrAz3D]

yay jay

[OuTLawZGoSu]

nope ... still not working, all commands under that code dont work.

Help?

if you need the ID_Talk code i gan post it. jus tlet me no...

[Dr.JaY]

Try this...

Code Select Expand

If chkwhisper.Value = "0" Then
whisper = True
Else
whisper = False
End If

[______]

Try this...

Code Select Expand

If chkwhisper.Value = "0" Then
whisper = True
Else
whisper = False
End If

why put quote's around the 0 ?

[UserLoser]

Could just do it in one line.

Code Select Expand

Whisper = chkWhisper.value

*Expects massive toasting for helping*

[Dr.JaY]

Try this...

Code Select Expand

If chkwhisper.Value = "0" Then
whisper = True
Else
whisper = False
End If

why put quote's around the 0 ?

Because it does the same thing..