on @8:join:#:/mode # +b $Nick | /kick # $Nick  2 Kanal Seviyesine Uymayan Nick İle Giriş Yaptığınız İçin Uzaklaştırıldınız.  2 Lütfen 4 /Nick YeniNick 2 Şeklinde Nickinizi Değiştirip Giriniz.  } }
alias shitconf if $dialog(kötürumuz) == $null dialog -m kötürumuz kötürumuz
dialog kötürumuz {
  title "ßadNick"
  size -1 -1 200 265 
  button "Tamam", 1, 110 200 70 20,ok
  list 2, 10 20 180 135, sort 
  box "Kotu Nickler", 3, 5 5 190 145 
  edit "", 4, 10 165 180 20, autohs
  box "Eklenecek Nick'i Girin", 5, 5 150 190 45
  button "Ekle", 6, 20 200 70 20
  box "Not:", 7, 5 225 190 35 
  text "Nick Silmek İcin Nick'e Cift Tiklayin", 8, 25 240 180 45 
}
alias shitsetup if $dialog(kötürumuz) == $null dialog -m kötürumuz kötürumuz
on *:dialog:kötürumuz:dclick:2:{ .ruser 8 $did(2).seltext | did -d kötürumuz 2 $did(2).sel }
on *:dialog:kötürumuz:sclick:6:{ if ($did(4) != $null) { did -a kötürumuz 2 $did(4) | .auser 8 $did(4) | did -fr kötürumuz 4 } }
on *:dialog:kötürumuz:init:*:{ 
  if ($ulist(*,8,0) != $null) { 
    set %cnt.shit 0
    while (%cnt.shit < $ulist(*,8,0)) { 
      inc %cnt.shit 1 
      did -a kötürumuz 2 $ulist(*,8,%cnt.shit) 
    } 
    unset %cnt.shit 
  } 
} 

[QUOTE=AntiPity;190866]Yapmış olduğum bir addonı sizlere sunuyorum..Bir dialog üzerinde hem badnick hemde küfür koruma ayarlarını yapabiliceğiniz bir addon sizleri bekliyor...Dialog üzerinde eklediğiniz ve çıkarttığınız kelimeleri anında görebileceğiniz aktif bir pencerede bulunmaktadır.. Tek yapmanız gereken /antipity komutunu kullanmak..
--------------------------------------------------------------------------
 
alias gurkan {
if !$istok(isimsiz ,$1,32) { return $false }
goto $1
:isimsiz
var %· = 1 | while $read($3,%·) { if $v1 iswm $2 { return $true } | inc %· } | return $false)
}
on @*:join:#:{ if $gurkan(isimsiz,$nick,badnick.txt) { .mode $chan +b $wildsite | .kick $chan $nick BadNick! }
}
on @*:text:*:#:if $gurkan(isimsiz,$1-,kufur.txt) { .mode $chan +b $wildsite | kick # $nick Yasak Kelime Kullanımı! }
 
alias antipity { dialog -m antipity antipity }
dialog antipity {
title "BadNick & Kufur Koruma Sistemi ßy AntiPity"
size -1 -1 226 102
option dbu
list 2, 38 22 70 58, size
list 5, 118 22 70 58, size
edit "", 10, 38 12 70 10
edit "", 11, 118 12 70 10
box "BAD NICK", 6, 5 3 107 81
box "KUFUR", 7, 114 3 107 81
button "T A M A M", 1, 38 87 148 12,ok
button "EKLE", 3, 10 14 24 28
button "KALDIR", 4, 10 45 24 28
button "EKLE", 8, 192 14 24 28
button "KALDIR", 9, 192 45 24 28
}
on *:dialog:antipity:INIT:*: {
if ($isfile(badnick.txt) == $false) { write -c badnick.txt } | else { loadbuf -o $dname 2 badnick.txt } 
if ($isfile(kufur.txt) == $false) { write -c kufur.txt } | else { loadbuf -o $dname 5 kufur.txt } 
if (%badnick) .didtok $dname 2 32 $ifmatch 
if (%kufur) .didtok $dname 5 32 $ifmatch
}
on *:dialog:antipity:sclick:*:{
if ($did == 3) { write badnick.txt $did(10) | did -a $dname 2 $did(10) | did -r $dname 10 }
if ($did == 8) { write kufur.txt $did(11) | did -a $dname 5 $did(11) | did -r $dname 11 }
if ($did == 4) { write -dl $+ $did(2).sel badnick.txt | did -d $dname 2 $did(2).sel } 
if ($did == 9) { write -dl $+ $did(5).sel kufur.txt | did -d $dname 5 $did(5).sel }
 
}
on *:dialog:antipity:sclick:1:{ 
set %badnick $didtok($dname,2,44)
set %kufur $didtok($dname,5,44)
}[/QUOTE] 

on @Badident:join:#: { ban -k # $nick Uygunsuz Ident }
alias shitconf { 
  if ($dialog(Badident) == $null) { dialog -m Badident Badident } 
}
alias badident { dialog -m badident badident }
dialog Badident {
  title "Bad Ident"
  size -1 -1 200 265 
  button "Tamam", 1, 110 200 70 20,ok
  list 2, 10 20 180 135, sort 
  box "Kotu Identler", 3, 5 5 190 145 
  edit "", 4, 10 165 180 20, autohs
  box "Eklenecek Ident'i Girin", 5, 5 150 190 45
  button "Ekle", 6, 20 200 70 20
  box "Not:", 7, 5 225 190 35 
  text "Ident Silmek İcin Ident'e Cift Tiklayin", 8, 25 240 180 45 
}
alias shitsetup if ($dialog(Badident) == $null) { dialog -m Badident Badident }
on *:dialog:Badident:dclick:2: { .ruser Badident $did(2).seltext | did -d Badident 2 $did(2).sel }
on *:dialog:Badident:sclick:6: { 
  if ($did(4) != $null) { 
    did -a Badident 2 $did(4)
    .auser Badident *! $+ $did(4) $+ @* 
    did -fr Badident 4 
  } 
}
on *:dialog:Badident:init:*: {
  if ($ulist(*,Badident,0) != $null) { 
    set %cnt.shit 0
    while (%cnt.shit < $ulist(*,Badident,0)) { 
      inc %cnt.shit 1 
      did -a Badident 2 $ulist(*,Badident,%cnt.shit)
    } 
    unset %cnt.shit 
  } 
}