alias setup.ajoin { dialog -m ajoin ajoin }

dialog ajoin {
  size -1 -1 295 130
  title "KolaymIRC AJoin Sistemi"
  tab "auto &join",12, 5 5 270 125
  tab "auto &ident",13
  button "&Tamam",1, 210 100 60 20, cancel
  box "Kanallar",3, 10 35 120 80, tab12
  list 4, 15 50 110 85, disable, tab12
  text "&KanaL:",5, 135 40 35 20, tab12
  edit "",6, 170 38 100 20, autohs, disable, tab12
  button "&Ekle ",9, 140 65 60 20, disable, tab12
  button "&siL ",10, 210 65 60 20, disable, tab12
  check "&Acık",11, 145 100 60 20, tab12
  box "NickLer",14,  10 35 120 80, tab13
  list 15, 15 50 110 85, disable, tab13
  text "&Nick:",16, 135 35 30 20, tab13
  edit "",17, 165 32 105 20, autohs, disable, tab13
  text "&Sifre:",18, 135 55 30 20, tab13
  edit "",19, 165 53 105 20, pass, autohs, disable, tab13
  button "&EkLe ",20, 135 75 60 20, disable, tab13
  button "&SiL ",21, 210 75 60 20, disable, tab13
  check "&Acık",22, 145 100 60 20, tab13
}

on 1:dialog:ajoin:init:*: {
  var %ctr1 = 1 | while (%ctr1 <= $numtok(%ajoin.chans,32)) { did -a $dname 4 $Gettok(%ajoin.chans,%ctr1,32) | inc %ctr1 }
  if (%var1 == on) { did -c ajoin 11 | did -e ajoin 4,6,9 }
  var %ctr = 1 | while (%ctr <= $numtok(%AutoID.nicks,32)) { did -a $dname 15 $Gettok(%AutoID.nicks,%ctr,32) | inc %ctr }
  if (%var == on) { did -c ajoin 22 | did -e ajoin 15,17,19,20 }
}
on 1:dialog:ajoin:sclick:*: {
  if ($did == 4) { did -ra $dname 6 $did(4).seltext | did -e $dname 10 }
  if ($did == 9) { set %ajoin.chans [ %ajoin.chans ] $did(6) | did -a $dname 4 $did(6) | did -ra $dname 6 }
  if ($did == 10) { set %ajoin.chans $deltok(%ajoin.chans,$findtok(%ajoin.chans,$did(6),32),32) | did -d $dname 4 $did(4).sel | did -ra $dname 6 | did -b $dname 10 }
  if ($did == 11) { if ($did(11).state == 1) { set %var1 on | set %ajoin $true | did -e ajoin 4,6,9 } | else { set %var1 off | set %ajoin $false | did -b ajoin 4,6,9 } }
  if ($did == 15) { did -ra $dname 17 $did(15).seltext | did -ra $dname 19 $Gettok(%AutoID.sifrem,$findtok(%AutoID.nicks,$did(15).seltext,32),32) | did -e $dname 21 }
  if ($did == 20) { set %AutoID.nicks [ %AutoID.nicks ] $did(17) | set %AutoID.sifrem [ %AutoID.sifrem ] $did(19) | did -a $dname 15 $did(17) | did -ra $dname 17,19 }
  if ($did == 21) { set %AutoID.nicks $deltok(%AutoID.nicks,$findtok(%AutoID.nicks,$did(17),32),32) | set %AutoID.sifrem $deltok(%AutoID.sifrem,$findtok(%AutoID.sifrem,$did(19),32),32) | did -d $dname 15 $did(15).sel | did -ra $dname 17,19 | did -b $dname 21 }
  if ($did == 22) { if ($did(22).state == 1) { set %var on | set %AutoID $true | did -e ajoin 15,17,19,20 } | else { set %var off | set %AutoID $false | did -b ajoin 15,17,19,20 } }

}

On *:Connect:{
  if (%ajoin == $true) { var %i = $numtok(%ajoin.chans,32) | while (%i) { join $gettok(%ajoin.chans,%i,32) | dec %i } }
  .remote on
}