Print Page - How do i add an .say cmd

Title: How do i add an .say cmd
Post by: JoeCool on July 08, 2003, 09:34 PM

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


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

Title: Re:How do i add an .say cmd
Post by: JoeCool on July 08, 2003, 11:45 PM

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

Title: Re:How do i add an .say cmd
Post by: l)ragon on July 09, 2003, 12:49 AM

Quote from: JoeCool on July 08, 2003, 11:45 PM
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.

Title: Re:How do i add an .say cmd
Post by: DarkMinion on July 09, 2003, 11:25 AM

Code Select


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

Try...

Code Select


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

Title: Re:How do i add an .say cmd
Post by: JoeCool on July 09, 2003, 12:09 PM

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 ;)

Title: Re:How do i add an .say cmd
Post by: JoeCool on July 10, 2003, 12:21 AM

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

Title: Re:How do i add an .say cmd
Post by: ______ on July 10, 2003, 08:54 AM

this is off topic it should go in Bot Dev
and this might help

Code Select


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

Valhalla Legends Archive

Programming => General Programming => Topic started by: JoeCool on July 08, 2003, 09:34 PM