on *:start:{ 
  .remote on 
  if (!$hget(cle)) { hmake cle | hload cle cle.x }

alias cle {
  if $1 == add {
    hadd -m cle $2 $3-
    hsave cle cle.x
  }
  if $1 == get {
    if $hget(cle,$2) {
      return $ifmatch
    }
    else {
      return Normal
    }
  }
}

    if $right($4,-1) == !temizle || $right($4,-1) == .temizle || $right($4,-1) == .clear || $right($4,-1) == !clear {
      if ($ybul($3,$_nick($1)) == $true) {
        if ($botsnickler($strip($5)) == 1) { return } 
        if !%clearkont. [ $+ [ %::nick ] ]  {
          inc -u5 %clearkont. [ $+ [ %::nick ] ] 2
          if $cle(get,%::nick) == FB {
            .timer 50 00 swbot privmsg $3 2,2FENERBAHÇE FENERBAHÇE 8,8FENERBAHÇE FENERBAHÇE
          } 
          if $cle(get,%::nick) == GS {
            .timer 50 00 swbot privmsg $3 4,4GALATASARAY GALATASARAY 8,8GALATASARAY GALATASARAY
          }
          if $cle(get,%::nick) == Bjk {
            .timer 50 00 swbot privmsg $3 1,1BEŞİKTAŞ BEŞİKTAŞ 0,0BEŞİKTAŞ BEŞİKTAŞ
          }
          if $cle(get,%::nick) == Trb {
            .timer 50 00 swbot privmsg $3 5,5TRABZONSPOR TRABZONSPOR 11,11TRABZONSPOR TRABZONSPOR
          }
          if $cle(get,%::nick) == normal {
            .timer 50 00 swbot privmsg $3 
          }
          .timer 1 2 swbot privmsg $3 Kanal temizlenmistir, TÜRKİYE $qlogo  
        }
      } 
    }

    if $xisop(%::chan,%::nick) && $gettok(%::text,2,32) != NoMercy && Admin_* !iswm $gettok(%::text,2,32) && Csop_* !iswm $gettok(%::text,2,32) && *swatbot* !iswm $gettok(%::text,2,32)   {
      if $gettok(%::text,1,32) == !clear || $gettok(%::text,1,32) == !temizle {
        if $read(txt/Globl.txt,w,%::chan) || *Fener* iswm %::chan {
          if !%clearkont. [ $+ [ %::nick ] ] {
            inc -u5 %clearkont. [ $+ [ %::nick ] ] 2
            if $cle(get,%::Nick) == FB {
              .timer 50 00 sockwrite -nt $sockname privmsg %::chan 2,2w.W.w.Geveze.ORG w.W.w.Geveze.ORG 8,8w.W.w.Geveze.ORG w.W.w.Geveze.ORG
            }
            if $cle(get,%::Nick) == GS {
              .timer 50 00 sockwrite -nt $sockname privmsg %::chan 4,4w.W.w.Geveze.ORG w.W.w.Geveze.ORG 8,8w.W.w.Geveze.ORG w.W.w.Geveze.ORG
            }
            if $cle(get,%::Nick) == Bjk {
              .timer 50 00 sockwrite -nt $sockname privmsg %::chan 1,1w.W.w.Geveze.ORG w.W.w.Geveze.ORG 0,0w.W.w.Geveze.ORG w.W.w.Geveze.ORG
            }
            if $cle(get,%::Nick) == Trb {
              .timer 50 00 sockwrite -nt $sockname privmsg %::chan 5,5w.W.w.Geveze.ORG w.W.w.Geveze.ORG 11,11w.W.w.Geveze.ORG w.W.w.Geveze.ORG
            }
            if $cle(get,%::Nick) == normal {
              .timer 50 00 sockwrite -nt $sockname privmsg %::chan 
            }
            .timer 1 2 sockwrite -nt $sockname privmsg %::chan Kanal temizlenmistir, w.W.w.Geveze.ORG $qlogo
          }
          else {
            ;sw $sockname kick %::chan %::nick !clear flood yapmayiniz!
          }
        }
      }