help with Kick and Ban

[DeSigN]

I need a code to do Ban and Kick This is what i have

Code Select Expand

If LCase(Left(What, 5)) = Trigger & "ban " Then SendChat "/ban & Mid(What, 6, Len(What) - 5)"
If LCase(Left(What, 6)) = Trigger & "kick " Then SendChat "/kick & Mid(What, 7, Len(What) - 6)"

Can someone please fix that or give me a new working one?

[Noodlez]

what's the value of What ?

[Mesiah / haiseM]

Code:
If LCase(Left(What, 5)) = Trigger & "ban " Then SendChat "/ban & Mid(What, 6, Len(What) - 5)"

If LCase(Left(What, 6)) = Trigger & "kick " Then SendChat "/kick & Mid(What, 7, Len(What) - 6)"

*buzz*

Code Select Expand

if mid(lcase(what), 5) = trigger & "ban " then sendchat "/ban & mid(what, 6)
fixed.
 

[Yoni]

Doesn't seem to me like it would work

[DeSigN]

Doesn't

Sub is

Code Select Expand

Public Sub ChatIn(who, What)

[Mesiah / haiseM]

it would work, but he parsed things a tad bit weird, but we got it.

[DeSigN]

Thanks Mesiah, everything is working now

[ILurker]

Dim what2say As String

Code Select Expand

If Username = csetup.master.Text And LCase(Left(Message, 6)) = csetup.trigger.Text + "kick " Then
what2say = Mid(Message, InStr(Message, " ") + 1)
CleanSlateBot1.Send "/kick " & what2say
end if