Re: Another moderation bot...

[HardCoded.]

Code Select Expand


'say that youv'e already obtained the users access

Public Sub RunData(Message As String)
On Error Goto ErrInfo
Dim CmdSplt() As String,Command() As String
CmdSplt() = Split(Message," ",2)
Command(0) = CmdSplt(0)
Command(1) = CmdSplt(1)

Select Case LCase(Command(0))

Case "say","s"
Send " " & Command(1)

Case "op","designate"
Send "/designate " & Command(1)
Send "/rejoin"

End Select

ErrInfo:
End Sub


[topaz]

Code Select Expand


'say that youv'e already obtained the users access

Public Sub RunData(Message As String)
On Error Goto ErrInfo
Dim CmdSplt() As String,Command() As String
CmdSplt() = Split(Message," ",2)
Command(0) = CmdSplt(0)
Command(1) = CmdSplt(1)

Select Case LCase(Command(0))

Case "say","s"
Send " " & Command(1)

Case "op","designate"
Send "/designate " & Command(1)
Send "/rejoin"

End Select

ErrInfo:
End Sub


Stop, you're hurting me.

[ShaDoWDeM]

Why are you using two arrays instead of just one?

and why did you bring up this old topic anyway?

[rabbit]

"ErrInfo" is a bad label.  You don't provide any info, you just leave the sub.  Not to mention you still don't know how to tab.

[HardCoded.]

:O don't hate me

[rabbit]

You've given us no reason to like you.

[MysT_DooM]

just stop trying so hard and you'll be fine 

[HardCoded.]

Yes,sir