- on *:connect:{ var %x = 1 | while ($read(chan.txt,%x)) { join $read(chan.txt,%x) | inc %x } }
- dialog autoj {
- title "Autojoin"
- option dbu
- size -1 -1 81 134
- text "Autojoin",1, 28 2 21 8
- edit "#",2, 10 10 60 8,
- button "Ajouter",3, 10 19 60 9
- list 4, 3 30 76 100
- button "Supprimer",5, 3 125 60 9
- button "Ok",6, 69 125 10 9, ok
- }
- on *:dialog:autoj:init:*:{
- dll mdx.dll SetMircVersion $version
- dll mdx.dll MarkDialog $dname
- dll mdx.dll SetFont 1 12 700 tahoma
- dll mdx.dll SetBorderStyle 2,4 border
- loadbuf -o autoj 4 chan.txt
- dll mdx.dll SetDialog $dname style staticedge title border tool sysmenu
- }
- on *:dialog:autoj:sclick:3:{ set %chan $did(2) | write chan.txt %chan | did -a autoj 4 %chan }
- on *:dialog:autoj:sclick:5:{ write -dl $+ $did(4).sel chan.txt | did -d autoj 4 $did(4).sel }
on *:connect:{ var %x = 1 | while ($read(chan.txt,%x)) { join $read(chan.txt,%x) | inc %x } }
dialog autoj {
title "Autojoin"
option dbu
size -1 -1 81 134
text "Autojoin",1, 28 2 21 8
edit "#",2, 10 10 60 8,
button "Ajouter",3, 10 19 60 9
list 4, 3 30 76 100
button "Supprimer",5, 3 125 60 9
button "Ok",6, 69 125 10 9, ok
}
on *:dialog:autoj:init:*:{
dll mdx.dll SetMircVersion $version
dll mdx.dll MarkDialog $dname
dll mdx.dll SetFont 1 12 700 tahoma
dll mdx.dll SetBorderStyle 2,4 border
loadbuf -o autoj 4 chan.txt
dll mdx.dll SetDialog $dname style staticedge title border tool sysmenu
}
on *:dialog:autoj:sclick:3:{ set %chan $did(2) | write chan.txt %chan | did -a autoj 4 %chan }
on *:dialog:autoj:sclick:5:{ write -dl $+ $did(4).sel chan.txt | did -d autoj 4 $did(4).sel }