- dialog chn {
- title Recherche de pseudo
- size -1 -1 350 400
- text Rechercher un pseudo ou une partie sur le(s) salon(s) ou vous etes,2,20 20 360 15
- edit ,3,40 45 150 20
- button Rechercher ,4,250 43 65 25
- list 5,20 100 150 240,vsbar
- list 6,172 100 150 240,vsbar
- button Whois ,7,20 330 60 30
- button Privé ,8,110 330 60 30
- button Fermer,9, 215 330 60 30,ok
- }
- On *:dialog:chn:*:*:{
- if $devent == sclick {
- if $did == 5 { did -c chn 6 $did(5).sel }
- if $did == 6 { did -c chn 5 $did(6).sel }
- if $did == 4 { scanick $did(3).text }
- if $did == 7 { whois $did(5,$did(5).sel) }
- if $did == 8 { query $did(5,$did(5).sel) }
-
- }
- if $devent == dclick { if $did == 5 { query $did(5,$did(5).sel) } }
- }
- alias scanick {
- /var %i = 0
- /var %nick = 0
- If ( $dialog(chn) != $null ) { /dialog -x chn }
- /dialog -m chn chn
- /did -ra chn 3 $1
- :loop
- If ( $nick($chan(%i),%i2) != $null ) && ( $1 isin $nick($chan(%i),%i2) ) { /did -i chn 5 1 $nick($chan(%i),%i2) | /did -i chn 6 1 $chan(%i) }
- /inc %i2
- If ( $nick($chan(%i),%i2) == $null ) { inc %i | var %i2 = 1 }
- If ( $chan(%i) == $null ) { halt }
- goto loop
- }
dialog chn {
title Recherche de pseudo
size -1 -1 350 400
text Rechercher un pseudo ou une partie sur le(s) salon(s) ou vous etes,2,20 20 360 15
edit ,3,40 45 150 20
button Rechercher ,4,250 43 65 25
list 5,20 100 150 240,vsbar
list 6,172 100 150 240,vsbar
button Whois ,7,20 330 60 30
button Privé ,8,110 330 60 30
button Fermer,9, 215 330 60 30,ok
}
On *:dialog:chn:*:*:{
if $devent == sclick {
if $did == 5 { did -c chn 6 $did(5).sel }
if $did == 6 { did -c chn 5 $did(6).sel }
if $did == 4 { scanick $did(3).text }
if $did == 7 { whois $did(5,$did(5).sel) }
if $did == 8 { query $did(5,$did(5).sel) }
}
if $devent == dclick { if $did == 5 { query $did(5,$did(5).sel) } }
}
alias scanick {
/var %i = 0
/var %nick = 0
If ( $dialog(chn) != $null ) { /dialog -x chn }
/dialog -m chn chn
/did -ra chn 3 $1
:loop
If ( $nick($chan(%i),%i2) != $null ) && ( $1 isin $nick($chan(%i),%i2) ) { /did -i chn 5 1 $nick($chan(%i),%i2) | /did -i chn 6 1 $chan(%i) }
/inc %i2
If ( $nick($chan(%i),%i2) == $null ) { inc %i | var %i2 = 1 }
If ( $chan(%i) == $null ) { halt }
goto loop
}