WhoIs Dialog

[chain]

That Is Dialog Of /whois command
Again Write /whois nick and you will see the whois dialog
The IP Adress,Modes Is For The IRCOPS.Some Time Host Can Show The IPadress of nick
Auth is For GameSurge.Reg is for Check the nick is registered nick or no
And HelpOp Shows The NickName is HelpOp or no

 

#whois on
dialog whois {
  title "Whois"
  size -1 -1 131 113
  option dbu
  text "NickName:", 1, 4 4 27 8
  text "RealName:", 2, 4 13 25 8
  text "Identy:", 3, 4 22 25 8
  text "Host:", 4, 4 31 25 8
  text "IP Address:", 21, 4 40 31 8
  text "Auth or Reg:", 20, 4 58 31 8
  text "Channels:", 5, 4 67 25 8
  text "Away:", 6, 4 76 25 8
  text "Idle:", 24, 4 85 25 8
  text "Other:", 7, 4 94 32 8
  text "Modes:", 22, 4 49 31 8
  text "HelpOp:", 23, 4 103 32 8
  edit "", 8, 36 3 94 9, read autohs
  edit "", 9, 36 12 94 9, read autohs
  edit "", 10, 36 21 94 9, read autohs
  edit "", 11, 36 30 94 9, read autohs
  edit "", 12, 36 66 94 9, read autohs
  edit "", 13, 36 75 94 9, read autohs
  edit "", 14, 36 84 94 9, read autohs
  edit "", 15, 36 93 94 9, read autohs
  edit "", 16, 36 57 94 9, read autohs
  edit "", 17, 36 39 94 9, read autohs
  edit "", 18, 36 48 94 9, read autohs
  edit "", 19, 36 102 94 9, read autohs
}

raw *:*: {
  if ( $numeric == 311 ) {
    set %d $2
    dialog -m %d whois
    dialog -t %d Whois $2 $+ ?
    did -a %d 8 $2
    did -a %d 9 $6-
    did -a %d 10 $3
    did -a %d 11 $4
    halt
  }
  if ( $numeric == 307 ) {
    if ( a registered nick isin $1- ) {
      did -a %d 16 Yes
      halt
    }
  }
  if ( $numeric == 378 ) {
    did -a %d 17 $6-
    halt
  }
  if ( $numeric == 379 ) {
    did -a %d 18 $6-
    halt
  }
  if ( $numeric == 330 ) {
    did -a %d 16 $3
    halt
  } 
  if ( $numeric == 319 ) {
    did -a %d 12 $3-
    halt
  }
  if ( $numeric == 301 ) { 
    did -a %d 13 $3-
    halt
  }
  if ( $numeric == 313 ) {
    did -a %d 15 $3-
    did -a %d 7 $2
    halt
  }
  if ( $numeric == 317 ) {
    did -a %d 14 $duration($3)
    halt
  }
  if ( $numeric == 310 ) {
    if ( help isin $1- ) {
      did -a %d 19 Yes
      halt
    }
  }
  if ( $numeric == 318 ) {
    halt
  }
  if ( $numeric == 312 ) { halt }
}
#whois end

menu * { 
  Whois Dialog
  .$iif($group(#whois).status == on,$style(1)) ON: .enable #whois | linesep | echo 3 -ag * Whois Dialog Has Been Enabled | linesep
  .$iif($group(#whois).status == off,$style(1)) OFF: .disable #whois | linesep | echo 2 -ag * Whois Dialog Has Been Disabled | linesep
}