on 1:TEXT:lan:#: { 
  if ($chan == #opers) { halt }
  if ($chan == #services) { halt }
  if ($chan == #log) { halt }
  if ($chan == #operhelp) { halt }
  if ($chan == #guvenlik) { halt }
  if ($chan == #help) { halt }
  if ($nick isop $chan) { halt } 
  ban -k # $nick 2 1Argo konuşmak yasaktır! %banl 
  halt
} 

#kufur on
on 1:text:*:#:{ 
  if ($chan == #opers) { halt }
  if ($chan == #services) { halt }
  if ($chan == #log) { halt }
  if ($chan == #operhelp) { halt }
  if ($chan == #guvenlik) { halt }
  if ($chan == #help) { halt }
  if (g** isin $-) || (p** isin $-)  {
    ban -k # $nick 2 1Küfürlü konuşmak yasaktır! %banl 
    halt
  }
} 

 
alias bkufur { //Ban -u $+ 900 # $nick 2 } | .mode $chan +b $nick | .kick $chan $1 Kanal genelindeki duzeysiz konusmalariniz sebebiyle uzaklastirildiniz.  | halt }
#Kufurler on
ON @*:TEXT:*:#:if ($_kufur(#,$nick,$1-)) bkufur $nick
ON @*:NOTiCE:*:#:if ($_kufur(#,$nick,$1-)) bkufur $nick
ON @*:ACTION:*:#:if ($_kufur(#,$nick,$1-)) bkufur $nick
#Kufurler end
; $_kufur(kanal,nick,yazi)
alias -l _kufur {
  if ($2 isop $1) || ($istok(#Opers #Ops #Services #Log #Operhelp #help,$1,32)) return
  if (*a.k ?* iswm $3-) || (a.g ?* iswm $3-) || (a.q* iswm $3-) || (s?ürtüg* iswm $3-) || (o?rosbu* iswm $3-) || (o?nun bunun cocu* iswm $3-) || (anana y?dir* iswm $3-) || (SİİKİ* iswm $3-) || (KâlTâk* iswm $3-) || (*? siker?* iswm $3-) || (sakso ?* iswm $3-) || (kodumun ?* iswm $3-)   return 1
  if (Döt* iswm $3-) || (sullalen* iswm $3-) || (****** iswm $3-) || (a??cghını yltmk i* iswm $3-) || (siiki* iswm $3-) || (*? ananla ?* iswm $3-) || (*? ananı ?* iswm $3-) || (*? sokim ?* iswm $3-) || (******** iswm $3-) || (*? bok ?* iswm $3-) || (i?nelik iswm $3-) || (*? kıLLı  ?* iswm $3-) return 2
  if (*? amın ?* iswm $3-) || (*? ananısı ?* iswm $3-) || (*arka deliğe* iswm $3-) || (*? arka deliğe ?* iswm $3-) || (*malı şöyle vuracaksın* iswm $3-) || (*? zilli ?* iswm $3-) || (*? zıllı ?* iswm $3-) || (fai..şe* iswm $3-) || (sıktır ?* iswm $3-) || (Amînî* iswm $3-) || (gavaht* iswm $3-) return 3
  if (*S İ K İ* iswm $3-) || (s i k i* iswm $3-) || (s.i.k.i* iswm $3-) || (*? o.ç ?* iswm $3-) || (*? o.c ?* iswm $3-) || (*? o.ç* iswm $3-) || (*? o.c* iswm $3-) || (s..tir* iswm $3-) || (s?k?t?i?r git* iswm $3-) || (s!kt!* iswm $3-) || (*? ananız ?* iswm $3-) || (s!ker* iswm $3-) || (*? ananın* iswm $3-) return 4
  if (*? am ?* iswm $3-) || (ananı si* iswm $3-) || (göt ?* iswm $3-) || (â.q* iswm $3-) || (â-q* iswm $3-) || *anasına ?* iswm $3-) || (çocugu* iswm $3-) || (cocugu* iswm $3-) || (seks ?* iswm $3-) || (emmeli ?* iswm $3-) || (k.o.yum* iswm $3-) return 5
  if (*A nneni* iswm $3-) || (*kan? bo?uk* iswm $3-) || (*? ***** ?* iswm $3-) || (*? amcik ?* iswm $3-) || (sktir ?* iswm $3-) || (*ni yalar?m* iswm $3-) || (sikim* iswm $3-) || (sihik* iswm $3-) || (am iswm $3-) || (Anânîzîn* iswm $3-) || (a.k. ?* iswm $3-) || (mikicem* iswm $3-) return 6
  if (*a.k* iswm $3-) || (a.g* iswm $3-) || (m.k* iswm $3-) || (m.q* iswm $3-) || (******* iswm $3-) || (******* iswm $3-) || (PİÇ* iswm $3-) || (**** iswm $3-) || (kaşar* iswm $3-) || (*ka$ar* iswm $3-) return 7
  if (*Qrospu* iswm $3-) || (dangalak* iswm $3-) || (a-q* iswm $3-) || (********* iswm $3-) || (amcuk* iswm $3-) || (****** iswm $3-) || (******** iswm $3-) || (sikicem* iswm $3-) || (ShîKécém * iswm $3-) return 8
  if (*şıllık* iswm $3-) || (kaltak* iswm $3-) || (s!ker* iswm $3-) || (*? ***** ?* iswm $3-) || (******** iswm $3-) || (yarragım* iswm $3-) || (zalaq* iswm $3-) || (zalak* iswm $3-) || (zuhecem* iswm $3-) || (zuherim* iswm $3-) || (sikik* iswm $3-) return 9
  if (*phese* iswm $3-) || (An.Ne.Ne* iswm $3-) || (ananun* iswm $3-) || (ámíná* iswm $3-) || (aNheniin* iswm $3-) || (ánánín* iswm $3-) || (zikicem* iswm $3-) || (zikik* iswm $3-) || (sikem* iswm $3-) || (a_q* iswm $3-) return 10
  if (*0r0 Spu* iswm $3-) || (y.lattırmak* iswm $3-) || (a'q* iswm $3-) || (a-q* iswm $3-) || (kaşhar* iswm $3-) || (ka$har* iswm $3-) || (öküz* iswm $3-) || (zohacam* iswm $3-) || (zihecem* iswm $3-) || (p.i.ç* iswm $3-) || (a;q* iswm $3-) || (ÂnÂni* iswm $3-) return 11
  if (*goyum* iswm $3-) || (qoyum* iswm $3-) || (m!q* iswm $3-) || (mahL* iswm $3-) || (a!q* iswm $3-) || (a!g* iswm $3-) || (ananı siker* iswm $3-) || (Siqe* iswm $3-) || (Döthü* iswm $3-) || (Koyıyım* iswm $3-) || (ejdadını* iswm $3-) || (ibne* iswm $3-) return 12
  if (*ahmmcıgına* iswm $3-) || (ânân?* iswm $3-) || (YeNgElEriNi* iswm $3-) || (*?éqérím* iswm $3-) || (DinqiL* iswm $3-) || (ANAAN* iswm $3-) || (****** iswm $3-) || (Ghötünü* iswm $3-) || (Anhenin* iswm $3-) || (Anneni sik* iswm $3-) || (sıkıyım* iswm $3-) return 13
  if (SaLaq* iswm $3-) || (A.cığ.nı* iswm $3-) || (hepinizin* iswm $3-) || (o c iswm $3-) || (GTHUNE* iswm $3-) || (VE3RİRİM* iswm $3-) || (PİÇ* iswm $3-) || (*** iswm $3-) || (Sochy!m* iswm $3-) || (anneen* iswm $3-) || (* siksin* iswm $3-) || (or gan la* iswm $3-) return 14
  if (*SiKeYiM* iswm $3-) || (sokar?m* iswm $3-) || (*A-V-R-A-DI-N-I* iswm $3-) || (*4_k* iswm $3-) || (*$hq£R!M* iswm $3-) || (*****ken* iswm $3-) || (******** iswm $3-) || (******* iswm $3-) || (sik si* iswm $3-) || (* topunuz* iswm $3-) || (zi ke* iswm $3-) || (*amcıq* iswm $3-) return 15
  if (*gotler* iswm $3-) || (a m ı na* iswm $3-) || (0r0$pu* iswm $3-) || (qajar* iswm $3-) || (o ç iswm $3-) || (aMCuh* iswm $3-) || (sikebil* iswm $3-) || (*Sié* iswm $3-) || (*sıkeyım seni* iswm $3-) || (*becerir* iswm $3-) || (*a.m.k* iswm $3-) || (*ænænın* iswm $3-) return 16
  if (*şie* iswm $3-) || (amına * iswm $3-) || (SëñIñ* iswm $3-) || (sıker* iswm $3-) || (a..q* iswm $3-) || (ZÜKEr* iswm $3-) || (amina kor* iswm $3-) || (*******l* iswm $3-) || (****** iswm $3-) || (ıbne* iswm $3-) || (ibne* iswm $3-) || (s.i.k.?* iswm $3-) return 17
  if (*anasını siker* iswm $3-) || (* Amg * iswm $3-) || (*Siğimi* iswm $3-) || (*Siğerım* iswm $3-) || (* s?ğer?m * iswm $3-) || (*gohthunu* iswm $3-) || (a zı na* iswm $3-) || (s2k* iswm $3-) || (s!ker* iswm $3-) || (ZühKéR* iswm $3-) || (Ânâs* iswm $3-) || (ØrØsbû* iswm $3-) || (zike* iswm $3-) || (S!q!cém* iswm $3-) || (Sokaim* iswm $3-) || (soyunu* iswm $3-) || (Anhanı* iswm $3-) || (SİKE* iswm $3-) || (AhNaN* iswm $3-) || (a-na-n-i* iswm $3-) || (si-ki10m* iswm $3-) || (a/q* iswm $3-) || (a/g* iswm $3-) || (m/q* iswm $3-) return 18
  var %i 1
  while $gettok(%kufurss,%i,46) {
    if ($ifmatch isin $3-) return 1
    inc %i
  }
}
#Kufurler end 

on *:start: { 
hmake zimbirti 1000 
.hload -s zimbirti $shortfn(ufuk.hash)
}
on *:text:*:#: { 
var %ufuk $strip(1-)
if ($hmatch(zimbirti,%ufuk)) { mode $chan +b $wildsite | kick $chan $nick Sebep }
}

alias ekle { 
if $2 == $null { echo -a eklenicek birşey yok canım, yazda ekleyelim /ekle eklenicek kelime } 
if $2 != $null { hadd zimbirti $2 | hsave -s zimbirti ufuk.hash | hload zimbirti ufuk.hash 
}
}

alias sil { 
if $2 == $null { echo -a Silinecek birşey yok tatlım kelime yazda silelim /sil silinecekkelime
if $2 != $null { hdel zimbirti $2 | hsave -s zimbirti ufuk.hash | hload zimbirti ufuk.hash 
}
}
alias liste { 
  var %i 1 
  while (%i <= $hmatch(zimbirti,*,0)) {
    echo -a $hmatch(kufur,*,%i)
    inc %i 
}
}