alias leader { dialog -m leader1 leader1 }dialog leader1 {  title "[ Coded : LeadeR ] • [ www.mircturk.com ]"  size -1 -1 150 155  option dbu  box "", 1, 9 9 132 130  box "", 2, 2 3 146 142  list 3, 74 34 62 101, size vsbar  edit "", 4, 74 19 62 12, return autohs autovs  button "Ekle", 5, 39 19 25 11  button "Çıkart", 6, 39 33 25 11  box "", 7, 33 13 39 34  check "Check Box", 8, 12 52 8 10  edit "Eklemiş olduğunuz kelimeler kanalda cümle icinde gecerse sizi uyarır", 9, 19 53 53 36, read multi  check "Check Box", 10, 12 92 8 10  edit "Eklediğiniz kelimeler kanalda gecerse kickban atılır..", 11, 19 93 53 27, read multi  button "Kapat", 13, 56 145 37 10, ok}on *:dialog:leader1:*:*:{  if ($devent == sclick) {    if ($did == 3) { did -ra $dname 4 $did(3).seltext }        if ($did == 5) {      if ($istok(%l,$did(4),32) == $true) { halt }      if ($did(4) == $null) { halt }      if ($istok(%l,$did(4),32) == $false) { set %l $addtok(%l,$did(4),32) | did -a $dname 3 $did(4) }      did -r $dname 4    }    if ($did == 6) {      if ($istok(%l,$did(4),32) == $false) && ($did(4) != $null) { halt }      if ($did(4) == $null) { halt }      if ($istok(%l,$did(4),32) == $true) { set %l $remtok(%l,$did(4),32) | did -d leader1 3 $did(3).sel }      did -r $dname 4    }    if ($did == 13) {      if ($did(8).state == 1) { .enable #uyari } | else { .disable #uyari }      if ($did(10).state == 1) { .enable #kickle } | else { .disable #kickle }    }  }  if ($devent == init) {    var %l.e = 1    var %l.d = $numtok(%l,32)    while (%l.e <= %l.d) { did -a $dname 3 $gettok(%l,%l.e,32) | inc %l.e }    if ($group(#uyari) == on) { did -c $dname 8 } | if ($group(#uyari) == off) { did -u $dname 8 }    if ($group(#kickle) == on) { did -c $dname 10 } | if ($group(#kickle) == off) { did -u $dname 10 }  }}#uyari onon *:text:*:#: {  var %i 1  while %i <= $numtok(%l,32) {    if $gettok(%l,%i,32) isin $1- {      echo -a 0,5« Bilgi » 0,4 •• # •• Kanalından ••  $nick •• $ifmatch Kelimesini Kullandı ••    }    inc %i    }}#uyari end#kickle offon *:text:*:#: {  var %i 1  while %i <= $numtok(%l,32) {    if $gettok(%l,%i,32) isin $1- {      mode $active +b $wildsite      kick $active $nick 0,5« Kickban » 0,4 •• # •• Kanalında •• $ifmatch Kelimesini Kullandığınız icin Uzaklaştırıldınız ••    }     inc %i    }}#kickle end