Dim NickRepeat Set Nickrepeat = CreateObject("Scripting.Dictionary") Dim RepeatNumber Set RepeatNumber = CreateObject("Scripting.Dictionary") Dim MaxRepetitions MaxRepetitions = 3 Dim KickOps KickOps = False Dim KickVoice KickVoice = False Sub ONTEXT(Message,Channel,Nickname,Host,ServerNumber) 'check for ops and voice If IsOp(NickName,Channel,ServerNumber) and KickOps = False then Exit Sub If IsVoice(NickName,Channel,ServerNumber) and KickVoice = False then Exit Sub If Not IsOp(GetIdentifier("$me"),Channel,ServerNumber) Then Exit Sub 'if you want the script to work on all channels, remove the next line If LCase(Channel) <> "#somechannel" Then Exit Sub If NickRepeat.Exists(Nickname & ":" & Channel & ":" & ServerNumber) then If Message = NickRepeat.Item(NickName & ":" & Channel & ":" & ServerNumber) then RepeatNumber.Item(NickName & ":" & Channel & ":" & ServerNumber) = RepeatNumber.Item(NickName & ":" & Channel & ":" & ServerNumber) + 1 Else RepeatNumber.Item(NickName & ":" & Channel & ":" & ServerNumber) = 1 End If NickRepeat.Item(NickName & ":" & Channel & ":" & ServerNumber) = Message If RepeatNumber.Item(NickName & ":" & Channel & ":" & ServerNumber) >= MaxRepetitions then SendCommand "/kick " & Channel & " " & Nickname & " " & MaxRepetitions & " repetitions",ServerNumber End If Else NickRepeat.Add NickName & ":" & Channel & ":" & ServerNumber, Message RepeatNumber.Add NickName & ":" & Channel & ":" & ServerNumber, 1 End If End Sub