if ($2 = privmsg && $left($3,1) != $chr(35)) {
     if $right($4,-1) == !takim || $right($4,-1) == .takim {
      if $hget(takim,$_nick($1)) >= 1 { return }
      .hinc -msu10 takim $_nick($1) 
      if !$istok(Fb Gs Normal Bjk Trb,$5,32) { swbot privmsg $_nick($1) Lütfen 4 büyük takim kisaltmalarini yaziniz, !Takim FB / GS / BJK / TRB / Normal  | return }  
      .Cle add $_nick($1) $5
      swbot privmsg $_nick($1) Takiminiz degistirildi.
      swbot privmsg #Opers $_nick($1) > $4-          
    }
  }

alias Cle {
  if $1 == add {
    hadd -m Cle $2 $3-
    hsave Cle Hash/takim.sr
  }
  if $1 == get {
    if $hget(Cle,$2) {
      return $ifmatch
    }
    else {
      return Normal
    }
  }
}

alias yetkilitkm {
  if *SOHBET-* iswm $1- { return }
  if $1 == Fb { swbot os raw svsjoin $2 :#fenerbahçe | return [Takim] ~ 2,8Fener8,2bahçe!   }
  if $1 == Gs { swbot os raw svsjoin $2 :#Galatasaray | return [Takim] ~ 4,8Galata8,4saray!  }
  if $1 == Bjk { swbot os raw svsjoin $2 :#Besiktas | return [Takim] ~ 1,0Be$ik0,1ta$!    }
  if $1 == Trb { swbot os raw svsjoin $2 :#Trabzon | return [Takim] ~ 11,5Trabzon5,11spor!  |  }
  if $1 == Normal { return 4* [Takim] ~ 4,0Tür0,4kiye! }
}

      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,2FENERBAHÇE FENERBAHÇE  8,8FENERBAHÇE FENERBAHÇE 
            }
            if $cle(get,%::Nick) == GS {
              .timer 50 00 sockwrite -nt $sockname privmsg %::chan 4,4GALATASARAYGALATASARAY8,8GALATASARAYGALATASARAY
            }
            if $cle(get,%::Nick) == Bjk {
              .timer 50 00 sockwrite -nt $sockname privmsg %::chan 1,1BEŞİKTAŞBEŞİKTAŞ 0,0BEŞİKTAŞBEŞİKTAŞ
            }
            if $cle(get,%::Nick) == Trb {
              .timer 50 00 sockwrite -nt $sockname privmsg %::chan 5,5TRABZONTRABZON 11,11TRABZONTRABZON
            }
            if $cle(get,%::Nick) == normal {
              .timer 50 00 sockwrite -nt $sockname privmsg %::chan 
            }
            .timer 1 2 sockwrite -nt $sockname privmsg %::chan Kanal temizlenmistir, Ekran temizlenmiştir.
          }
          else {
            ;sw $sockname kick %::chan %::nick !clear flood yapmayiniz!
          }
        }
      }