özelküfür 
alias -l _öuser { .guser özelküfür $1 $+ !*@* } 
alias -l _rbuser { .ruser özelküfür $1 3 } 
alias -l _luser { dialog -m _özelküfür _özelküfür } 
alias -l _ölist { 
  did -r _özelküfür 11 
  var %_btotal = $ulist(*,özelküfür,0) , %_b = 0 
  while (%_b < %_btotal) { 
    inc %_b 
    did -a _özelküfür 11 $ulist(*,özelküfür,%_b) 
  } 
} 
dialog _özelküfür { 
  title "özel küfür List" 
  size -1 -1 150 110 
  option dbu 
  text "özel küfür ( Ekle / Sil )" , 10 , 10 5 95 10 , left 
  combo 11 , 10 15 95 85 , extsel sort autohs autovs 
  edit "" , 12 , 10 95 95 10 , read autohs 
  button "Ekle" , 20 , 115 35 30 20 , default 
  button "Sil" , 30 , 115 60 30 20 , default 
  button "Tamam" , 40 , 115 85 30 20 , ok 
} 
on *:dialog:_özelküfür:init:*: { 
  _ölist 
} 
on *:dialog:_özelküfür:sclick:*: { 
  if ($did == 20) { 
    if ($did(11).text != $null && $level($did(11).text) != özelküfür) { 
      var %_badd = $did(11).text 
      .auser özelküfür %_badd 
      _ölist 
      did -o $dname 12 1 %_badd Özel Küfür Liste'e Eklendi... 
    } 
    elseif ($level($did(11).text) == özelküfür) { did -o $dname 12 1 Özel Küfür Liste Zaten var... } 
  } 
  if ($did == 30) { 
    if ($did(11).text != $null && $level($did(11).text) == özelküfür) { 
      var %_brem = $did(11).text 
      .ruser özelküfür %_brem 
      _ölist 
      did -o $dname 12 1 %_brem özel küfür'ten Silindi... 
    } 
    elseif ($level($did(11).text) != özelküfür) { did -o $dname 12 1 Bos kalsın Burası... } 
  } 
} 
menu status,menubar,nicklist { 
  - 
  Özel Küfür Listesi. { _luser } 
}

#özelküfür on
Buraya Bir Şey Eklenecek Ama Benim Ayarlaya Bileceğim Şekilde Kick Ban Msg Olabilir Notice de Veya /msg #kanal measaj gibi bir şey nasıl olacaksa ?
#özelküfür end

 on *:text:*:?:if $level($1-) == özelküfür { msg $nick Küfür etmeyiniz }