Very Simple Auto-Join

dialog ajoin.dialog {
  title "Auto Join"
  size -1 -1 119 114
  option dbu
  edit "", 1, 10 19 50 10
  text "Mreza (ex. PIK):", 2, 11 6 41 8
  combo 3, 44 38 68 59, size
  text "All rights Reserved", 4, 65 18 46 8
  text "Copyright by ManiaC", 5, 65 9 51 8
  button "Dodaj", 6, 6 41 32 14
  button "Obrishi", 7, 6 59 32 14
  button "Obrishi Sve", 8, 6 78 32 14
  button "Snimi && Izadji", 9, 75 100 44 14
  link "beogradjani.up.md", 10, 10 102 47 8
}
on *:dialog:ajoin.dialog:init:*:{
  if (%ajoin.kanali != $null) { didtok $dname 3 44 %ajoin.kanali }
  if (%ajoin.mreza != $null) { did -a $dname 1 %ajoin.mreza }
}
on *:dialog:ajoin.dialog:sclick:*:{
  if ($did == 6) && ($did(3) != $null) { did -a $dname 3 $did(3) }
  if ($did == 7) { did -d $dname 3 $did(3).sel }
  if ($did == 8) { did -r $dname 3 }
  if ($did == 9) {
    .set %ajoin.kanali $didtok($dname,3)
    dialog -x $dname $dname
  }
  if ($did == 10) { url beogradjani.up.md }
}
on *:dialog:ajoin.dialog:edit:1:{ set %ajoin.mreza $did(1) }
on *:connect:{
  if ($network == %ajoin.mreza) && (%ajoin.kanali != $null) { join %ajoin.kanali }
}
menu status {
Auto Join:dialog -m ajoin.dialog ajoin.dialog
}