Ok Peoples can you please tell me why like 3 of my 8 cmds are working? they are like all the same except wit different shit for there cmds. like htis "des" one works
[code]
Access = RetrieveAccess("Access", UserName)
If Access = "M" Or Access = "O" Then
If Left(LCase(Message), 5) = (strTrigger & "des ") Then
Dim strDes As String
strDes = Right(Message, (Len(Message) - 5))
CleanSlateBot1.Send "/designate " & strDes
End If
End If
[/code]
Now the one above it witch is "kick" wont work
[code]
Access = RetrieveAccess("Access", UserName)
If Access = "M" Or Access = "O" Then
If Left(LCase(Message), 5) = (strTrigger & "kick ") Then
Dim strKick As String
strKick = Right(Message, (Len(Message) - 5))
CleanSlateBot1.Send "/kick " & strKick
End If
End If
[/code]
and its like that with lots of em to... so can someone tell me what the >< is wrong with this?. if you can thx :'(

[code]
If Left(LCase(Message), 5) = (strTrigger & "kick ") Then

strKick = Right(Message, (Len(Message) - 5))
[/code]

The 5's in those lines should be 6's.

That, and instead of Right(Message, Len(Message) - 6) you can just do Mid(Message, 7).