çeşitli aranan dialoglar

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 on
on *: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 off
on *: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