on *:connect: {
  set %GuardTest = 0
  if (!$window(@GuardTest)) { .debug @GuardTest } 
  if (!$timer(GuardTest)) { .timerGuardTest -m 0 150 /GuardTest } 
} 
alias GuardTest {
  var %i = $line(@GuardTest,0)
  while (%i) {
    if ($line(@GuardTest,%i) == %GuardTest) { goto end }
    if ($regex($lower($line(@GuardTest,%i)),
action) && $regex($lower($line(@GuardTest,%i)),privmsg)) { 
      var %GuardTest-Chan = $gettok($line(@GuardTest,%i),4,32)
      var %GuardTest-Nick = $remove($gettok($gettok($line(@GuardTest,%i),2,32),1,33),:)
      if ($regex($line(@GuardTest,%i),*****|amcik|sittir|lan|len|ipne|ibne)) {
        if (%GuardTest-Chan ischan) && (%GuardTest-Nick ison %GuardTest-Chan) && ($me isop %GuardTest-Chan) { ban %GuardTest-Chan %GuardTest-Nick 2 | kick  %GuardTest-Chan %GuardTest-Nick 5HAdi canım hadi ame olarak küfretme }
      }
    }
    dec %i 1
  }
  :end
  set %GuardTest $line(@GuardTest,$line(@GuardTest,0))
}