Valhalla Legends Forums Archive | Battle.net Bot Development | How can i add a say command and a Ban command.

AuthorMessageTime
OuTLawZGoSu
Eh... Same As Top ^
June 27, 2003, 9:35 PM
TeEhEiMaN
first set a master, make a text box for a master

Then your gonna need a trigger, make a text box for a trigger

Then
[code]
If Username = Form5.txtMaster.Text Then
If Left((LCase(Message)), 5) = (Form5.txtTrigger.Text & "say ") Then 'The number represends the number or words, ?triggerSay = 5, u must count the space as long with the trugger
Dim saymessage As String
saymessage = Right(Message, (Len(Message) - 5))
CleanSlateBot1.Send saymessage 'or how ever your bot sends messages
AddChat "<" & Form2.txtUsername.Text & "> ", vbCyan, saymessage & vbNewLine, vbWhite
End If
End If[/code]
June 27, 2003, 10:38 PM
OuTLawZ-GoSu
Well my bot uses the "Send" message to send to bnet.

This is how I modifyed that code:

If username = Form1.txtMaster.Text Then
If Left((LCase(message)), 5) = (Form1.txtTrigger.Text & "say ") Then 'The number represends the number or words, ?triggerSay = 5, u must count the space as long with the trugger
Dim send As String
send = Right(message, (Len(message) - 5))
CleanSlateBot1.send send 'or how ever your bot sends messages
AddC , "<" & Form1.txtUsername.Text & "> ", vbCyan, send & vbNewLine, vbWhite
End If
End If


I added 3 text boxes on form1 called txtUsername, txtTrigger, txtMaster.

But when i type .say Test, it tells me " Duplicate Declorations in curent scope"

Help?
June 28, 2003, 4:53 PM
Yoni
TeEhEiMaN: Please read a VB reference on "variables".
June 28, 2003, 5:22 PM
______
[quote author=OuTLawZ-GoSu link=board=17;threadid=1715;start=0#msg13129 date=1056819199]
Well my bot uses the "Send" message to send to bnet.

This is how I modifyed that code:

If username = Form1.txtMaster.Text Then
If Left((LCase(message)), 5) = (Form1.txtTrigger.Text & "say ") Then 'The number represends the number or words, ?triggerSay = 5, u must count the space as long with the trugger
Dim send As String
send = Right(message, (Len(message) - 5))
CleanSlateBot1.send send 'or how ever your bot sends messages
AddC , "<" & Form1.txtUsername.Text & "> ", vbCyan, send & vbNewLine, vbWhite
End If
End If



But when i type .say Test, it tells me " Duplicate Declorations in curent scope"

Help?
[/quote]

well you said it uses the "Send" process, then where it says cleanslatebot1.send just replace this with send
(ex. send sendmsg)

and
" Duplicate Declorations in curent scope"
means you declared something twice"
June 28, 2003, 5:28 PM
TeEhEiMaN
i was asumeing he had a send section in his bot. Thats where the Varuables would be.
June 28, 2003, 11:43 PM

Search