on 1:dialog:ajoin:sclick:*: {
if ($did == 4) {
did -e ajoin 5
did -r ajoin 5
did -a ajoin 5 $hget(autojoin,$did(4).seltext)
}
if ($did == 1) { hadd autojoin $did(4).seltext $did(5) }
if ($did == 7) {
var %server = $input(Network Name ($network),1 4 64,Add Server)
if (%server == $null) { goto end }
hadd autojoin %server $null
:End
dialog -x ajoin ajoin
dialog -md ajoin ajoin
did -c ajoin 4 $didwm(ajoin,4,%server)
did -r ajoin 5
}
if ($did == 8) {
hdel autojoin $did(4).seltext
did -d ajoin 4 $didwm(ajoin,4,$did(4).seltext)
did -c ajoin 4 1
did -r ajoin 5
did -a ajoin 5 $hget(autojoin,$did(4).seltext)
}
}