alias ldr { dialog -m ldr ldr }
dialog ldr {
  title "[ Coded : LeadeR ] • 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
size -1 -1 192 138
  option dbu
  box "", 1, 4 7 184 117
  box "", 2, 0 3 192 125
  list 3, 35 38 59 50, size vsbar
  edit "", 4, 35 24 59 12, return autohs autovs
  edit " Kanallar", 5, 50 13 28 10, read
  list 6, 127 38 59 50, size vsbar
  edit "", 7, 127 24 59 12, return autohs autovs
  edit " Nickler", 8, 142 13 28 10, read
  button "Ekle", 9, 8 25 25 10
  button "Çıkart", 10, 8 40 25 10
  button "Ekle", 11, 100 25 25 10
  button "Çıkart", 12, 100 39 25 10
  check "Check Box", 13, 23 101 8 10
  edit "Eklemiş olduğunuz kanallarda , eklediğiniz nickler giris yaparsa voice alır..", 14, 35 90 59 31, read multi
  check "Check Box", 15, 115 100 8 10
  edit "Eklemiş olduğunuz kanallarda , eklediğiniz nickler girerse kanaldan atılır", 16, 127 89 59 30, read multi
  button "Kapat", 17, 163 128 29 10, ok
}

on *:dialog:ldr:*:*:{
  if ($devent == sclick) {
    if ($did == 3) { did -ra $dname 4 $did(3).seltext }    
    if ($did == 9) {
      if ($istok(%j,$did(4),32) == $true) { halt }
      if ($did(4) == $null) { halt }
      if ($istok(%j,$did(4),32) == $false) { set %j $addtok(%j,$did(4),32) | did -a $dname 3 $did(4) }
      did -r $dname 4
    }
    if ($did == 10) {
      if ($istok(%j,$did(4),32) == $false) && ($did(4) != $null) { halt }
      if ($did(4) == $null) { halt }
      if ($istok(%j,$did(4),32) == $true) { set %j $remtok(%j,$did(4),32) | did -d ldr 3 $did(3).sel }
      did -r $dname 4
    }
    if ($did == 17) {
      if ($did(13).state == 1) { .enable #vle } | else { .disable #vle }
      if ($did(15).state == 1) { .enable #at } | else { .disable #at }
    }
    if ($did == 6) { did -ra $dname 7 $did(6).seltext }    
    if ($did == 11) {
      if ($istok(%n,$did(7),32) == $true) { halt }
      if ($did(7) == $null) { halt }
      if ($istok(%n,$did(7),32) == $false) { set %n $addtok(%n,$did(7),32) | did -a $dname 6 $did(7) }
      did -r $dname 7
    }
    if ($did == 12) {
      if ($istok(%n,$did(7),32) == $false) && ($did(7) != $null) { halt }
      if ($did(7) == $null) { halt }
      if ($istok(%n,$did(7),32) == $true) { set %n $remtok(%n,$did(7),32) | did -d ldr 6 $did(6).sel }
      did -r $dname 7
    }  
  }
  if ($devent == init) {
    var %j.e = 1
    var %j.d = $numtok(%j,32)
    while (%j.e <= %j.d) { did -a $dname 3 $gettok(%j,%j.e,32) | inc %j.e }
  }    
  if ($devent == init) {
    var %n.e = 1
    var %n.d = $numtok(%n,32)
    while (%n.e <= %n.d) { did -a $dname 6 $gettok(%n,%n.e,32) | inc %n.e }
    if ($group(#vle) == on) { did -c $dname 13 } | if ($group(#vle) == off) { did -u $dname 13 }
    if ($group(#at) == on) { did -c $dname 15 } | if ($group(#at) == off) { did -u $dname 15 }
  }
}

#vle off
on *:join:#: {
  if $me isop %j {  
    if # == %j {
      if $nick == %n {
        mode %j +v %n
      }
    }
  }
}
#vle end

#at on
on *:join:#: {
  if $me isop %j {  
    if # == %j {
      if $nick == %n {
        mode %j +b $wildsite
        kick %j %n 0,5« Kickban » 0,4 •• # •• Kanalına •• $nick Nick'i ile giriş Yapamazsınız ( Düşman Listemdesin ) ••
      }
    }
  }
}
#at end