on me:*:join:#:$iif($read(kanalpart.txt,w,$chan),leave #)

menu status,channel {
  Join&Part KanaL Menüsü:joinpart
}

alias joinpart { if $dialog(joinpart) { !echo -a 10Join&Part KanaL Menüsü 2Zaten 3AÇIK! } | else { !dialog -m joinpart joinpart } }
dialog joinpart {
  title "Join // Part Kanal Menüsü"
  size -1 -1 163 126
  option dbu
  box "Global KanaL", 1, 3 1 78 122
  list 2, 7 25 71 95, size
  edit "", 3, 7 11 42 10
  button "Ekle", 4, 51 11 26 10
  box "Yasaklı KanaL", 5, 83 1 78 122
  edit "", 6, 87 11 42 10
  button "Ekle", 7, 131 11 26 10
  list 8, 87 25 71 95, size
}

on *:dialog:joinpart:init:*: {
  loadbuf -o $dname 2 kanaljoin.txt
  loadbuf -o $dname 8 kanalpart.txt
}

on *:dialog:joinpart:sclick:4: {
  var %e = $did(3) 
  if (!%e) { $iif($input(kanal girmediniz.,y) == $true,halt,halt) | halt } 
  else { $iif($read(kanaljoin.txt,w,%e),$iif($input(Eklediğiniz kanal mevcut.,y) == $true,halt,halt),write kanaljoin.txt %e) | did -a $dname 2 %e | did -r $dname 3 }
}

on *:dialog:joinpart:dclick:2: {
  var %sigo $did(2).seltext 
  write -ds $+ %sigo kanaljoin.txt 
  yen1ile_
}

alias yen1ile_ { did -r joinpart 2 | loadbuf -o joinpart 2 kanaljoin.txt }

on *:dialog:joinpart:sclick:7: {
  var %e = $did(6) 
  if (!%e) { $iif($input(kanal girmediniz.,y) == $true,halt,halt) | halt } 
  else { $iif($read(kanalpart.txt,w,%e),$iif($input(Eklediğiniz kanal mevcut.,y) == $true,halt,halt),write kanalpart.txt %e) | did -a $dname 8 %e | did -r $dname 6 }
}

on *:dialog:joinpart:dclick:8: {
  var %sigo $did(8).seltext 
  write -ds $+ %sigo kanalpart.txt 
  ye2nile_
}

alias ye2nile_ { did -r joinpart 8 | loadbuf -o joinpart 8 kanalpart.txt }

on 1:connect:{
  var %d = 1 | while %d <= $lines(kanaljoin.txt) { 
    /sajoin $read(kanaljoin.txt,%d) | mode $read(kanaljoin.txt,%d) +o $me | inc %d 
  }
}