|
|
Joined: Jun 2005
Posts: 37
Ameglian cow
|
OP
Ameglian cow
Joined: Jun 2005
Posts: 37 |
dialog whois {
title "Whois System"
size -1 -1 140 155
option dbu
button "Quitter", 1, 52 137 37 12, ok cancel
text "Pseudo :", 2, 4 10 25 8
text "User@Host :", 3, 4 21 33 8
text "Nom :", 4, 4 32 17 8
text "Canal :", 5, 4 88 20 8
text "Serveur :", 6, 4 43 25 8
text "Idle :", 7, 4 55 15 8
text "Away :", 8, 4 66 25 8
text "Status User :", 9, 4 78 33 8
box "Whois ...", 10, 1 0 137 135
edit "", 11, 37 9 97 10, read autohs
edit "", 12, 37 20 97 10, read autohs
edit "", 13, 37 31 97 10, read autohs
edit "", 14, 37 42 97 10, read autohs
edit "", 15, 37 54 97 10, read autohs
edit "", 16, 37 65 97 10, read autohs
edit "", 17, 37 77 97 10, read autohs
list 18, 37 88 95 41, sort size extsel vsbar
}
on *:dialog:whois:init:0:{
did -a whois 11 %whois.nickname
did -a whois 12 %whois.user@host
did -a whois 13 $remove(%whois.name,, ,,)
did -a whois 14 %whois.server
did -a whois 15 %whois.idle
did -a whois 16 $remove(%whois.away,, ,,)
did -a whois 17 %whois.status
did -a whois 18 %whois.channels
if ($group(#whois).status == on) { did -u whois 19 }
else { did -c whois 19 }
}
on *:dialog:whois:sclick:1:{
unset %whois.*
}
#whois on
; Away
raw 301:*:{
set %whois.away $3-
haltdef
}
; Identified?
raw 307:*:{
set %whois.identified yes
haltdef
}
; Nickname, User@Host, Name
raw 311:*:{
set %whois.nickname $2
set %whois.user@host $3 $+ @ $+ $4
set %whois.name $6-
set %whois.status Normal User
unset %whois.away
haltdef
}
raw 312:*:{
set %whois.server $3
haltdef
}
; IRCop
raw 313:*:{
set %whois.status mIRC Operator.
haltdef
}
; Idle time
raw 317:*:{
set %whois.idle $duration($calc($3),nn:ss))
}
; Channels
raw 319:*:{
set %whois.channels $3-
haltdef
}
; End of /WHOIS List
raw 318:*:{
haltdef
if ($dialog(whois) == $null) { dialog -m whois whois }
else {
did -r whois 11
did -r whois 12
did -r whois 13
did -r whois 14
did -r whois 15
did -r whois 16
did -r whois 17
did -r whois 18
did -a whois 11 %whois.nickname
did -a whois 12 %whois.user@host
did -a whois 13 $remove(%whois.name,, ,,)
did -a whois 14 %whois.server
did -a whois 15 %whois.idle
did -a whois 16 $remove(%whois.away,, ,,)
did -a whois 17 %whois.status
did -a whois 18 %whois.channels
}
}
#whois end
; Popups
menu channel {
&Whois System.
.&Activate:{ .enable #whois }
.&Disactivate:{ .disable #whois }
} I got a prob, this is a whois system i made. The probleme is , i whant to have all the chan like this on the Chan part: #chan1 #+chan2 #@chan3 #chan4 ect... I also whant when i double click on one chan, it go on the chan  i try everything i can, exepte the gode one 
|
|
|
|
|
Joined: Aug 2004
Posts: 7,252
Hoopy frood
|
|
Hoopy frood
Joined: Aug 2004
Posts: 7,252 |
Admittedly, I only took a quick look at your code, but it seems similar to one I did earlier, which you can find at Who Is/Who Was Dialog
|
|
|
|
|
Joined: Jun 2005
Posts: 37
Ameglian cow
|
|
OP
Ameglian cow
Joined: Jun 2005
Posts: 37 |
Admittedly, I only took a quick look at your code, but it seems similar to one I did earlier, which you can find at Who Is/Who Was Dialog humm and how can i add that on my code ? it probably that part doing that : }
on *:dialog:whois:*:14:{
var %chan = $+($chr(35),$gettok($did($dname,$did).seltext,-1,35))
if $devent == dclick {
$iif($me !ison %chan,.join %chan,echo -a 4You're already in $v2)
}
elseif $devent == sclick {
did -rva $dname 28 $iif($me !ison %chan,N/A,$idle($nick(%chan,$name).idle))
} but how can i put that on my code  
|
|
|
|
|
Joined: Aug 2004
Posts: 7,252
Hoopy frood
|
|
Hoopy frood
Joined: Aug 2004
Posts: 7,252 |
That shouldn't be required. I admit it's been a while since I fully used the code, but if I recall correctly, you should be able to just double click on the appropriate channel name, and if you're not already in that channel, then you'll join it.
As soon as I can get a stable connection to an IRC chat server, I will test and confirm.
Confirmed.
Last edited by RusselB; 25/06/06 10:38 PM.
|
|
|
|
|
Joined: Jun 2005
Posts: 37
Ameglian cow
|
|
OP
Ameglian cow
Joined: Jun 2005
Posts: 37 |
Still waiting for how to integrate that to the code
|
|
|
|
|
Joined: Aug 2004
Posts: 7,252
Hoopy frood
|
|
Hoopy frood
Joined: Aug 2004
Posts: 7,252 |
No integration is required. My script works on it's own, and allows you to double click a channel that the person you whois'd is on in order for you to join that channel.
|
|
|
|
|
Joined: Jun 2005
Posts: 37
Ameglian cow
|
|
OP
Ameglian cow
Joined: Jun 2005
Posts: 37 |
i ask how to do for mine, for my script i whant to use less addon, and create more script by myself. Juste whant to know how you did that
|
|
|
|
|
Joined: Aug 2004
Posts: 7,252
Hoopy frood
|
|
Hoopy frood
Joined: Aug 2004
Posts: 7,252 |
The dialog event for that part reads as follows on *:dialog:whois:*:14:{
var %chan = $+($chr(35),$gettok($did($dname,$did).seltext,-1,35))
if $devent == dclick {
$iif($me !ison %chan,.join %chan,echo -a 4You're already in $v2)
}
elseif $devent == sclick {
did -rva $dname 28 $iif($me !ison %chan,N/A,$idle($nick(%chan,$name).idle))
}
}
Dialog ID 14 contains the list of channels that the person that was whois'd is currently on.
|
|
|
|
|
Joined: Jun 2005
Posts: 37
Ameglian cow
|
|
OP
Ameglian cow
Joined: Jun 2005
Posts: 37 |
that thing just add something, that when i click that open the chan, but that not create a list.
|
|
|
|
|
Joined: Aug 2004
Posts: 7,252
Hoopy frood
|
|
Hoopy frood
Joined: Aug 2004
Posts: 7,252 |
Create a list of what?
As I understood your original post, you were looking for a way to handle the fact that channels listed for a person when you /whois them contain prefixes. The script I wrote handles that problem so that you can join the channel by double clicking on it.
|
|
|
|
|
Joined: Jun 2005
Posts: 37
Ameglian cow
|
|
OP
Ameglian cow
Joined: Jun 2005
Posts: 37 |
 Now what i got and the other picture, what i need.  You see the 2 nicklist, mine juste stay on one line, but i whant it to see like the other picture. A list of chan. 
|
|
|
|
|
Joined: Jun 2005
Posts: 37
Ameglian cow
|
|
OP
Ameglian cow
Joined: Jun 2005
Posts: 37 |
ok i found,
i add :
didtok -a whois 18 32 %whois.channels
|
|
|
|
|
