mIRC Home    About    Download    Register    News    Help

Print Thread
Whois script, help #152022 25/06/06 08:37 PM
Joined: Jun 2005
Posts: 37
A
Armymen Offline OP
Ameglian cow
OP Offline
Ameglian cow
A
Joined: Jun 2005
Posts: 37
Code:
 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 wink
i try everything i can, exepte the gode one frown

Re: Whois script, help #152023 25/06/06 08:42 PM
Joined: Aug 2004
Posts: 7,252
R
RusselB Offline
Hoopy frood
Offline
Hoopy frood
R
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

Re: Whois script, help #152024 25/06/06 10:15 PM
Joined: Jun 2005
Posts: 37
A
Armymen Offline OP
Ameglian cow
OP Offline
Ameglian cow
A
Joined: Jun 2005
Posts: 37
Quote:
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 :
Code:
 } 
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 blush confused

Re: Whois script, help #152025 25/06/06 10:26 PM
Joined: Aug 2004
Posts: 7,252
R
RusselB Offline
Hoopy frood
Offline
Hoopy frood
R
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.
Re: Whois script, help #152026 26/06/06 08:04 PM
Joined: Jun 2005
Posts: 37
A
Armymen Offline OP
Ameglian cow
OP Offline
Ameglian cow
A
Joined: Jun 2005
Posts: 37
Still waiting for how to integrate that to the code blush

Re: Whois script, help #152027 27/06/06 10:58 PM
Joined: Aug 2004
Posts: 7,252
R
RusselB Offline
Hoopy frood
Offline
Hoopy frood
R
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.

Re: Whois script, help #152028 28/06/06 12:36 AM
Joined: Jun 2005
Posts: 37
A
Armymen Offline OP
Ameglian cow
OP Offline
Ameglian cow
A
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 blush

Re: Whois script, help #152029 28/06/06 12:42 AM
Joined: Aug 2004
Posts: 7,252
R
RusselB Offline
Hoopy frood
Offline
Hoopy frood
R
Joined: Aug 2004
Posts: 7,252
The dialog event for that part reads as follows
Code:
 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.

Re: Whois script, help #152030 28/06/06 07:14 PM
Joined: Jun 2005
Posts: 37
A
Armymen Offline OP
Ameglian cow
OP Offline
Ameglian cow
A
Joined: Jun 2005
Posts: 37
that thing just add something, that when i click that open the chan, but that not create a list.

Re: Whois script, help #152031 28/06/06 08:42 PM
Joined: Aug 2004
Posts: 7,252
R
RusselB Offline
Hoopy frood
Offline
Hoopy frood
R
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.

Re: Whois script, help #152032 28/06/06 10:00 PM
Joined: Jun 2005
Posts: 37
A
Armymen Offline OP
Ameglian cow
OP Offline
Ameglian cow
A
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.
smirk

Re: Whois script, help #152033 28/06/06 10:44 PM
Joined: Jun 2005
Posts: 37
A
Armymen Offline OP
Ameglian cow
OP Offline
Ameglian cow
A
Joined: Jun 2005
Posts: 37
ok i found,
i add :
didtok -a whois 18 32 %whois.channels