Valhalla Legends Archive


'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


Quote from: Ratio on August 18, 2006, 06:47 PM

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.

Why are you using two arrays instead of just one?

and why did you bring up this old topic anyway?

"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.

:O don't hate me

You've given us no reason to like you.

just stop trying so hard and you'll be fine  ;)

Yes,sir