How do i add a say cmd usin CleanSlateBot, Visual Basic 6.
[code]
Access = RetrieveAccess("Access", Username)
If Access = "M" Or Access = "L" Or Access = "O" Or Access = "P" Then
If Left(LCase(Message), 5) = (strTrigger & "say ") Then
Dim strSay As String
strSay = Right(Message, (Len(Message) - 5))
CleanSlateBot1.Send "" & strSay
End If
[/code]

Every code like kick and ban and squelch ect work on this... but i know the say wont... so can someone tell me what would be the correct way to write this? and if i need to add a new thing in my model tell me. Thx

cmon peoples answer me please! take a few miinutes time out of your day to help me out plz. :'(

[quote author=JoeCool link=board=5;threadid=1837;start=0#msg14236 date=1057725948]
cmon peoples answer me please! take a few miinutes time out of your day to help me out plz. :'(
[/quote]

why not look in that visual basic for dummies book of yours.

[code]
strSay = Right(Message, (Len(Message) - 5))
CleanSlateBot1.Send "" & strSay
[/code]

Try...

[code]
strSay = Mid(Message, 5, Len(Message))
CleanSlateBot1.Send strSay 'not sure why you have that "" in there...
[/code]

Thank you DarkMinion, I believe it works :)
and um... Dragon.. i was trying to get a Visual Basic Book but i dont know for dumbies, though probely explians betta... but i neva got to go to Fry's yet :( so in a few weeks i'm gana get it ;)

:'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'(
The code you gave me.. or the thing to fix it up code you gave me DarkMinion.. it doesnt work :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'(

this is off topic it should go in Bot Dev
and this might help
[code]
If Left((LCase(message)), 5) = trigger & "say " Then
Dim saymessage As String
saymessage = Right(message, (Len(message) - 5))
cleanslatebot1.send saymessage
end if[/code]