By IllogicTC on Nov 04, 2011This is a thing I made after seeing the "Active Network List" on here. I had suggested some more depth to the Active Network List script, and thought why not do it myself? No real specific use, just to peruse information about channels and nicks within them all from one place instead of having to click around your channels.
There are multiple depths of information within the dialog. You can dig deeper by double-clicking any option, and use the "<" button to back up a level. It shows:
Servers > Channels > Nicks in Channel > Common /whois information about Nick
For example, say I'm on SwiftIRC, in #msl. So I would select SwiftIRC, #msl, IllogicTC, and it would give me my whois information.
To open the dialog, use the command /infocenter.
**NOTE: There's a blank area above the list where I'm going to have an edit showing what depth you're viewing. Can't get it to work right but when I do I will update so you won't get "lost" lol.
Credit to FreeHuman for the RAWs code within, which I modified for my use. (I'm horrible with RAWs so I decided to scrap from a successful implementation, sorry lol)
dialog lime_info_center {
title "Info Center"
size -1 -1 183 118
option dbu
list 1, 2 14 180 100, size vsbar
button "<", 3, 6 3 10 10
}
on *:dialog:lime_info_center:*:*: {
if ($devent == init) {
set %linfo.depth 0
set %linfo.serv
var %x 0
var %y $scon(0)
while (%x < %y) {
inc %x
scon %x
did -a $dname 1 $server $+($chr(40),$serverip,$chr(41))
}
}
if ($devent == sclick) && (%linfo.depth > 0) && ($did == 3) {
if (%linfo.depth == 3) {
scon %linfo.serv
var %x 0
var %y $nick(%linfo.chan,0)
did -r $dname 1
while (%x < %y) {
inc %x
did -a $dname 1 $nick(%linfo.chan,%x)
}
}
if (%linfo.depth == 2) {
scon %linfo.serv
set %linfo.serv $did($dname,1).sel
var %x 0
var %y $chan(0)
did -r $dname 1
while (%x < %y) {
inc %x
did -a $dname 1 $chan(%x) Modes: $chan(%x).mode Users: $nick($chan(%x),0)
}
}
if (%linfo.depth == 1) {
did -r $dname 1
set %linfo.serv
var %x 0
var %y $scon(0)
while (%x < %y) {
inc %x
scon %x
did -a $dname 1 $server $+($chr(40),$serverip,$chr(41))
}
}
dec %linfo.depth
}
if ($devent == dclick) && (%linfo.depth < 3) && ($did == 1) {
if (%linfo.depth == 0) {
scon $did($dname,1).sel
set %linfo.serv $did($dname,1).sel
var %x 0
var %y $chan(0)
did -r $dname 1
while (%x < %y) {
inc %x
did -a $dname 1 $chan(%x) Modes: $chan(%x).mode Users: $nick($chan(%x),0)
}
}
if (%linfo.depth == 1) {
scon %linfo.serv
set %linfo.chan $gettok($did($dname,1).seltext,1,32)
var %u $did($dname,1).sel
var %x 0
var %y $nick($chan(%u),0)
did -r $dname 1
while (%x < %y) {
inc %x
did -a $dname 1 $nick($chan(%u),%x)
}
}
if (%linfo.depth == 2) {
scon %linfo.serv
var %u $did($dname,1).seltext
did -r $dname 1
.enable #whois
whois %u
.timerinfodis 1 5 .disable #whois
}
inc %linfo.depth
}
}
alias infocenter { dialog -m lime_info_center lime_info_center }
#whois off
raw *:*: {
if ( $numeric == 311 ) {
did -a lime_info_center 1 Nick: $2
did -a lime_info_center 1 Real Name: $6
did -a lime_info_center 1 User: $3
did -a lime_info_center 1 Host: $4
halt
}
if ( $numeric == 319 ) {
did -a lime_info_center 1 Channels: $3-
halt
}
if ( $numeric == 317 ) {
did -a lime_info_center 1 Idle: $duration($3)
halt
}
}
#whois end
@Dean: I had seen another script somewhere where you mentioned cutting off on an edit because of no autohs. I have realized this after posting, and am working toward a fix. Also, other things that are mentioned I will look into.
@Wildcard: This is a great idea to add on, I may look into this soon.
@Everyone Else: Thanks for the criticism, constructive or otherwise. And also to everyone who decide this thing's worth a Like :)
I know I stopped though, I don't even comment hardly anymore. And, I only check the comments to see others ways of doing one thing. And, yeah I know I can lol thanks though :)
I get why you two are arguing though, I just don't see the point of it, it's like fighting an all losing battle which goes on forever.
Frenetic, I wouldn't have made a comment to begin with if Dean made a valid, worthy example to benefit instead of misleading the public. I know you find it annoying to see my comment in response to his, but the fact of the matter is, you were there before, juggling the similar posts and replies. You're just less involved these days. You can unsubscribe to this comment if you don't wish to see any of my posts in the future, including Dean's, or the author of the thread can remove it if needed.
you're the only person who came here saying there is no benefit, in fact, i dont need to answer you nothing
you came here saying, you explain your point
its just an alternative way, and i hope you not use the N bytes shorter
my version has some bytes more, but he can change the character...
in a simple example if you use ^ as character it will be a lot of shorter, but as i said, it may not work, with real names that has some characters like that
i wont tell you anything, since you were the person who brought that there is no benefits
I know you'll probably take my socket incident as a weapon against me, but I wouldn't resume it if I were you.
i will not use that, since im not like you... i used the $chr(10) cause in some real names, they use a lot of special characters
Using tokenize in this case has no benefits whatsoever, and I hope you don't take offense to that. I've learned it the hard way myself. You insert $chr(10) additionally as a separator to correlate to numeric tokens, which is deemed more exhaustive than the original approach.
P.S. I know you'll probably take my socket incident as a weapon against me, but I wouldn't resume it if I were you.
1 - it will not return the entire real name, i think you should use $strip($6-) , since some real names, use a lot of control codes, of course its your script, you do what you want
2 - there is no scroll in case if the user is in more than 5 channels, it will only return 3
3 -
using tokenize, i used $chr(10) since some real names
has a lot of special characters on it
if ( $numeric == 311 ) {
did -a lime_info_center 1 Nick: $2
did -a lime_info_center 1 Real Name: $6
did -a lime_info_center 1 User: $3
did -a
if ( $numeric == 311 ) {
tokenize 10 $+(Nick: $2,$chr(10),Real Name: $strip($6-),$chr(10),User: $3,$chr(10),Host: $4)
did -a lime_info_center 1 $* | halt
i didnt check the entire code yet, but i think its a good idea, i will give you a 8/10 +like