How do i add an .say cmd

[JoeCool]

How do i add a say cmd usin CleanSlateBot, Visual Basic 6.

Code Select Expand


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


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

[JoeCool]

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

[l)ragon]

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

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

[DarkMinion]

Code Select Expand


strSay = Right(Message, (Len(Message) - 5))
CleanSlateBot1.Send "" & strSay


Try...

Code Select Expand


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


[JoeCool]

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

[JoeCool]

 
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 Select Expand


If Left((LCase(message)), 5) = trigger & "say " Then
Dim saymessage As String
   saymessage = Right(message, (Len(message) - 5))
cleanslatebot1.send saymessage
end if