dialog jpar {
title "JOIN PARSE"
size -1 -1 63 74
option dbu
list 1, 1 1 61 58, size vsbar
button "Add", 2, 2 60 17 12, flat
button "Delete", 3, 21 60 20 12, flat
button "Save", 4, 43 60 18 12, flat ok cancel
}
alias jpar dialog $iif($dialog(jpar),-v,-m) jpar jpar
on *:dialog:jpar:*:*:{
if ($devent == INIT) loadbuf -o $dname 1 jpar.txt
elseif ($devent == sclick) {
if ($did isin 23) did $iif($did == 2,-a,-d) $dname 1 $iif($did == 2,$$?="Name:?",$$iif($did(1).sel,$v1))
elseif ($did == 4) savebuf -o $dname 1 jpar.txt
}
}
on ^*:JOIN:#channel:if ($read(jpar.txt,w,$+(*,$nick,*))) haltdef
on ^*:PART:#channel:if ($read(jpar.txt,w,$+(*,$nick,*))) haltdef
