menu channel {
Snoop:/dialog -m Snoop Snoop
}
Dialog Snoop {
Title "Snoop"
size -1 -1 200 150
option dbu
box "Are You Paranoid ?",1,5 5 190 140
text "Nick:",2,10 35 25 10
edit "",3,10 42 35 10
button "Go",4,47 42 11 9
text "User ID:",5,60 35 25 10
edit "",6,60 42 35 10
button "Go",7,97 42 11 9
text "Full Name:",8,110 35 30 10
edit "",9,110 42 35 10
button "Go",10,147 42 11 9
text "Mask: Host Only - ABC.ipt.aol.com",11,10 55 135 10
edit "",12,10 62 135 10
button "Go",13,147 62 11 9
text "Channel:",14, 10 15 25 10
combo 15,10 22 80 50,size drop
}
on *:DIALOG:Snoop:init:0:{
var %Cz = $chan(0)
while (%Cz > 0) {
var %C# = $chan(%Cz)
did -ac Snoop 15 %C#
dec -z %Cz 1
}
}
on *:DIALOG:Snoop:Sclick:4:{
if ($did(3) == $null) { echo -at Snoop: No Nick To Scan For... Look in the NickList you Lazy Bastard! }
else { .raw -q WHO $did(15).seltext }
}
raw 352:*:{
if ($6 == $did(Snoop,3).seltext) { echo -at Match }
}