- dialog nirix {
- title "Auth IriX"
- size -1 -1 132 100
- option dbu
- box "Ajout d'un Salon :", 1, 68 0 64 32
- edit "", 2, 71 8 58 10
- button "Add", 3, 72 20 20 10, flat
- box "IDNick :", 4, 68 32 64 33
- edit "", 5, 71 40 58 10
- button "Set", 6, 72 52 20 10, flat
- box "Liste des Salons :", 7, 0 0 66 99
- list 8, 3 7 60 89, size
- button "Auth", 9, 68 70 20 10, flat
- button "Inv.", 10, 89 70 20 10, flat
- button "Del", 11, 110 70 20 10, flat
- button "Add.H", 13, 68 87 30 12, flat
- button "Valider", 12, 101 87 30 12, flat ok
- }
-
- on *:dialog:nirix:*:*:{
- if ($devent = init) {
- did -a nirix 5 %idnick
- loadbuf -o nirix 8 files/salons.txt
- }
- if ($devent = sclick) {
- if ($did = 3) {
- write files/salons.txt $did(2)
- did -a nirix 8 $did(2)
- }
- if ($did = 6) set %idnick $did(5)
- if ($did = 11) {
- write -dl $+ $did(8).sel files/salons.txt
- did -d nirix 8 $did(8).sel
- }
- if ($did = 9) iauth
- if ($did = 10) iinvit
- if ($did = 13) .msg IriX addthishost $did(8).seltext %idnick $$?*="Pass IriX :"
- }
- }
-
- dialog auth {
- title "Auth IriX - Pass"
- size -1 -1 63 37
- option dbu
- text "Pass IriX :", 1, 1 3 25 8
- edit "", 2, 1 13 60 10, pass
- button "Auth", 3, 21 25 20 10, flat ok
- }
-
- Alias iauth dia auth
- on *:dialog:auth:*:*:{
- if ($devent = sclick) {
- if ($did = 3) .msg IriX auth $did(nirix,8).seltext %idnick $did(2)
- }
- }
- Alias iinvit .msg IriX invite $did(8).seltext
- on *:load:{
- mkdir files
- write files\salons.txt
- }
dialog nirix {
title "Auth IriX"
size -1 -1 132 100
option dbu
box "Ajout d'un Salon :", 1, 68 0 64 32
edit "", 2, 71 8 58 10
button "Add", 3, 72 20 20 10, flat
box "IDNick :", 4, 68 32 64 33
edit "", 5, 71 40 58 10
button "Set", 6, 72 52 20 10, flat
box "Liste des Salons :", 7, 0 0 66 99
list 8, 3 7 60 89, size
button "Auth", 9, 68 70 20 10, flat
button "Inv.", 10, 89 70 20 10, flat
button "Del", 11, 110 70 20 10, flat
button "Add.H", 13, 68 87 30 12, flat
button "Valider", 12, 101 87 30 12, flat ok
}
on *:dialog:nirix:*:*:{
if ($devent = init) {
did -a nirix 5 %idnick
loadbuf -o nirix 8 files/salons.txt
}
if ($devent = sclick) {
if ($did = 3) {
write files/salons.txt $did(2)
did -a nirix 8 $did(2)
}
if ($did = 6) set %idnick $did(5)
if ($did = 11) {
write -dl $+ $did(8).sel files/salons.txt
did -d nirix 8 $did(8).sel
}
if ($did = 9) iauth
if ($did = 10) iinvit
if ($did = 13) .msg IriX addthishost $did(8).seltext %idnick $$?*="Pass IriX :"
}
}
dialog auth {
title "Auth IriX - Pass"
size -1 -1 63 37
option dbu
text "Pass IriX :", 1, 1 3 25 8
edit "", 2, 1 13 60 10, pass
button "Auth", 3, 21 25 20 10, flat ok
}
Alias iauth dia auth
on *:dialog:auth:*:*:{
if ($devent = sclick) {
if ($did = 3) .msg IriX auth $did(nirix,8).seltext %idnick $did(2)
}
}
Alias iinvit .msg IriX invite $did(8).seltext
on *:load:{
mkdir files
write files\salons.txt
}