Whois dialog >_<

Please Register to submit score.

Average Score	5.5
Scores Submitted	2
Date Added	May 05, 2008
Last Updated	May 05, 2008
Tags	dialog mirc whois

Introduction

I didnt have anything to do so i did a whois dialog shows username user@host if the user is ircop if the user is away and a channel list to..

I think this script works.. It works for me i have tested it a several time's

Grab the Code

on *:DIALOG:whois:SCLICK:11:{
  did -va whois 13 $did($dname,15) $iif($chr(64) == $left($wildtok($did($dname,14),* $+ $did($dname,11).seltext,1,32),1),has op in $did($dname,11).seltext,$iif($chr(43) == $left($wildtok($did($dname,14),* $+ $did($dname,11).seltext,1,32),1),has voice in $did($dname,11).seltext,is regular in $did($dname,11).seltext))
  did -e whois 12 
}
on *:DIALOG:whois:SCLICK:12:{ 
  join $did($dname,11).seltext 
}

RAW 301:*:{
  haltdef
  if ($3) { 
    set %whois.away 1    
  }
}
RAW 311:*:{
  haltdef
  did -vra whois 2 $strip($6)
  did -vra whois 4 $3 $+ $chr(64) $+ $4
}
RAW 312:*:{
  haltdef
}
RAW 313:*:{
  haltdef
  if ($2) { 
    set %whois.ircop 1
  }
}
RAW 317:*:{
  haltdef
}
RAW 318:*:{
  haltdef
  $iif(%whois.away == 1,did -vra whois 10 Yes,did -vra whois 10 No)
  $iif(%whois.ircop == 1,did -vra whois 8 Yes,did -vra whois 8 No)
  $iif(%whois.auth != $null,did -vra whois 6 %whois.auth,did -vra whois 6 User is not authed)
  unset %whois.*
}
RAW 319:*:{
  haltdef
  if (%whois.second == 1) { 
    echo -a $wildtok($3-,*$did($dname,11).seltext, 1, 32) 
  }
  var %x = 1
  did -r whois 11  
  did -ra whois 15 $2
  did -ra whois 14 $3- 
  while (%x <= $numtok($3-,32)) { 
    did -a whois 11 $remove($gettok($3-,%x,32),+,@)
    inc %x
  }
}
RAW 330:*:{
  haltdef
  if ($3) {
    set %whois.auth $3 
  } 
}
RAW 338:*:{
  haltdef
}
RAW 431:*:{
  haltdef
}

Comments

(6) RSS

Go to Bottom

napa182

Comments: 789

mIRC Snippet: Whois dialog >_<
Posted on May 5, 2008 2:53 am

ur script dont work =/ it wont even open the dialog

ThLoser

Comments: 1

mIRC Snippet: Whois dialog >_<
Posted on May 5, 2008 3:52 am

Are you writing /dialog -m whois whois ?

napa182

Comments: 789

mIRC Snippet: Whois dialog >_<
Posted on May 5, 2008 5:19 am

well when i get the dialog to open nothing is on ur dialog ur list box is blank nothing apears at all and ur button is sized to small and cuts off the word join.
maybe add an alias to trigger the script line in the nicklist and also you should check if the dialog is open when you whois cuz if not you are going to get errors on ur raws

who about adding this to open it up by cliking on a nick in the user list

Code:

alias wh { dialog $iif($dialog(whois),-v,-md) whois whois }
menu nicklist {
Whois:{ whois $$1 | wh }
}

and maybe doing ur raws on one event line and useing

Code:

if ($dialog(whois)) {

to check to see if the dialog is open or not so you dont return errors on ur raws.

Viper01

Comments: 49

mIRC Snippet: Whois dialog >_<
Posted on May 6, 2008 9:24 am

not to be a downer about this but...

Your snippet will be deleted if you break any of the following rules:
Snippet MUST WORK

:

jonesy44

Comments: 665

mIRC Snippet: Whois dialog >_<
Posted on May 6, 2008 4:38 pm

lol, pwnt :P

Comments: 903

mIRC Snippet: Whois dialog >_<
Posted on May 6, 2008 5:24 pm

what it works open the dialog first /dialog -m whois whois then /whois Nickname works fine for me need to do the dialog is active check maybe add a nicklist option to snick whois othe rthen that an poor button size it works.Here a fast edit up:

Code:

;--------------------------------------------------------;
; Whois Created by ThLoser. ;
; 29 lines and 1137 chars ;
; © ThLoser.org 2008 ;
;--------------------------------------------------------;
dialog whois {
title "whois (/whois) "
size -1 -1 168 96
option dbu
text "Name", 1, 2 6 25 8, disable
text "Address", 3, 2 16 25 8, disable
text "Auth", 5, 2 26 25 8, disable
text "name", 2, 30 6 133 8, hide
text "Address", 4, 30 16 133 8, hide
text "Auth", 6, 30 26 51 8, hide
text "Ircop", 7, 83 26 17 8, disable
text "Yes", 8, 102 26 13 8, hide
text "Away", 9, 118 26 17 8, disable
text "Yes", 10, 137 26 19 8, hide
list 11, 1 38 166 50, size
button "Join", 12, 130 88 37 7, disable flat
text "Some Random text", 13, 2 88 125 8, hide disable
text "channels", 14, 26 96 25 8, hide disable
text "nickname", 15, 2 96 25 8, hide disable
}

on *:DIALOG:whois:SCLICK:11:{
did -va whois 13 $did($dname,15) $iif($chr(64) == $left($wildtok($did($dname,14),* $+ $did($dname,11).seltext,1,32),1),has op in $did($dname,11).seltext,$iif($chr(43) == $left($wildtok($did($dname,14),* $+ $did($dname,11).seltext,1,32),1),has voice in $did($dname,11).seltext,is regular in $did($dname,11).seltext))
did -e whois 12
}
on *:DIALOG:whois:SCLICK:12:{
join $did($dname,11).seltext
}

RAW 301:*:{
haltdef
if (!$dialog(whois)) { echo -s $2- | halt }
if ($3) {
set %whois.away 1
}
}
RAW 311:*:{
haltdef
if (!$dialog(whois)) { echo -s $2- | halt }
did -vra whois 2 $strip($6)
did -vra whois 4 $3 $+ $chr(64) $+ $4
}
RAW 312:*:{
haltdef
}
RAW 313:*:{
haltdef
if (!$dialog(whois)) { echo -s $2- | halt }
if ($2) {
set %whois.ircop 1
}
}
RAW 317:*:{
if (!$dialog(whois)) { echo -s $2- | halt }
haltdef
}
RAW 318:*:{
haltdef
if (!$dialog(whois)) { echo -s $2- | halt }
$iif(%whois.away == 1,did -vra whois 10 Yes,did -vra whois 10 No)
$iif(%whois.ircop == 1,did -vra whois 8 Yes,did -vra whois 8 No)
$iif(%whois.auth != $null,did -vra whois 6 %whois.auth,did -vra whois 6 User is not authed)
unset %whois.*
}
RAW 319:*:{
haltdef
if (!$dialog(whois)) { echo -s $2- | halt }
if (%whois.second == 1) {
echo -a $wildtok($3-,*$did($dname,11).seltext, 1, 32)
}
var %x = 1
did -r whois 11
did -ra whois 15 $2
did -ra whois 14 $3-
while (%x <= $numtok($3-,32)) {
did -a whois 11 $remove($gettok($3-,%x,32),+,@)
inc %x
}
}
RAW 330:*:{
haltdef
if (!$dialog(whois)) { echo -s $2- | halt }
if ($3) {
set %whois.auth $3
}
}
RAW 338:*:{
if (!$dialog(whois)) { echo -s $2- | halt }
haltdef
}
RAW 431:*:{
if (!$dialog(whois)) { echo -s $2- | halt }
haltdef
}

Menu * {
Whois: {
if (!$dialog(whois)) {
dialog -mei whois whois
whois $$1
}
else { dialog -x whois whois
dialog -mei whois whois
whois $$1
}
}
}

I like it."Rate it or Hate it?"...7/10.`-.-´

Whois dialog >_<

Introduction

Grab the Code

Comments

ThLoser

My Snippet Tags

Contact

Sponsors


Last seen: May 05, 2008 Profile Snippets (1) Images (1) Comments Received (6) Comments Submitted (1) Forum Posts (5)