Whois dialog >_<

By ThLoser on May 05, 2008

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

;--------------------------------------------------------;
;                  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 ($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

Sign in to comment.
Joystyk   -  Oct 31, 2008

" ~#wut No such channel "

When you're whois'ing, and it lists the channels, trying to join the channels tries to incorporate the User's rank in that channel, as their name.

 Respond  
EL   -  May 06, 2008

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:

;--------------------------------------------------------;
;                  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.`-.-´

 Respond  
Jonesy44   -  May 06, 2008

lol, pwnt :P

 Respond  
Viper01   -  May 06, 2008

not to be a downer about this but...

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

:\

 Respond  
napa182   -  May 05, 2008

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

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

if ($dialog(whois)) {

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

 Respond  
ThLoser   -  May 05, 2008

Are you writing /dialog -m whois whois ?

 Respond  
napa182   -  May 05, 2008

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

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.