Reconozco que soy muy curioso. Me gusta hacer whoises e infos a todo quisqui y ver quién fundó tal canal o qué topic hay en aquel otro... ¿Qué mejor para todo esto que disponer de alguna herramienta?
Este es el código. Ya sabes, copy, notepad, paste, etc... (y si no sabes, pregunta que para eso estamos).
on *:START: W-I
menu menubar {
. Ventana.w-i: W-I
}
alias W-I {
set %W-I.text $gettok($cb,1,32)
guiwin @W-I 655 385 150 120 Info
%W-I.tx = 10 30 125 W-I.text
%W-I.bt = 10 50 45 W-I.chan CHaN |75 50 45 W-I.nick NiCK |10 80 45 W-I.cb ClipBoard |75 80 45 W-I.cl Clear
guidib @W-I | window -awh @W-I
}
alias W-I.chan {
if ( $left(%W-I.text,1) == $chr(35) ) { mcs info %W-I.text | return }
set %xnwt $chr(35) $+ %W-I.text | mcs info %xnwt | unset %xnwt
}
alias W-I.nick w %W-I.text | mns info %W-I.text | mns status %W-I.text
alias W-I.cb set %W-I.text $gettok($cb,1,32) | guidib @W-I
alias W-I.cl unset %W-I.text | guidib @W-I
Sólo son 4 botones, así que enreda y descubre que hace cada uno de ellos, so fisgón/fisgona...
Ah, si cierras la nueva ventana puedes volver a abrirla desde el menú [IRcap] -> ventana. w-i.
