Kod : Kodu kopyalamak için üzerine çift tıklayın!

         alias ajoin { dialog -m ajoin ajoin }
dialog ajoin {
  size -1 -1 150 105
  title "oto Kanal Girme Addonu"
  option dbu
  list 1, 5 5 70 100, sort
  button "Ekle", 2, 80 5 30 10
  button "Sil/KaLdır", 3, 115 5 30 10
  text "KanaL", 6, 80 23 65 10
  edit "", 4, 80 30 65 10
  text "Şifre (uygularsan)", 7, 80 43 65 10
  edit "", 5, 80 50 65 10
  button "TAMAM", 10, 88 70 50 10, OK
}
on *:DIALOG:ajoin:init:0: {
  var %chan = 1, %key = 1
  while (%chan <= $numtok(%auto.join,44)) { did -a ajoin 1 $gettok(%auto.join,%chan,44) | inc %chan }
  while (%key <= $numtok(%auto.key,44)) { did -a ajoin 1 $gettok(%auto.key,%key,44) | inc %key }
}
on *:DIALOG:ajoin:sclick:2: { newchan }
on *:DIALOG:ajoin:sclick:3: {
  if ($did(1).sel == $null) return | var %line = $did(1).sel, %text = $did(1,%line) | did -d ajoin 1 $did(1).sel 
  if ($numtok(%text,32) == 2) %auto.key = $remtok(%auto.key,%text,1,44) | else %auto.join = $remtok(%auto.join,%text,1,44)
}
on *:DIALOG:ajoin:sclick:10: { if (($dialog(ajoin).focus == 4) || ($dialog(ajoin).focus == 5)) { newchan | halt } }
alias newchan {
  var %chan = $did(ajoin,4), %key | if (%chan == $null) return | if ($left(%chan,1) != $chr(35)) %chan = $chr(35) $+ %chan | if ($did(ajoin,5)) %key = %chan $did(ajoin,5) 
  if (%key) %auto.key = $addtok(%auto.key,%key,44) | else %auto.join = $addtok(%auto.join,%chan,44)
  did -a ajoin 1 $iif(%key,%key,%chan) | did -r ajoin 4,5 | did -f ajoin 4
}
on *:CONNECT: { .raw JOIN %auto.join  | var %temp = 1 | while (%temp <= $numtok(%auto.key,44)) { .raw JOIN $gettok(%auto.key,%temp,44) | inc %temp } }