Whois Dialog

[Guest LAS]

alias dwho { if ($dialog(whois)) dialog -x whois whois | dialog -m whois whois }
dialog whois {
 title "Whois[ /dwho ]"
 size -1 -1 232 122
 option dbu
 box "", 1, 4 4 82 114
 list 2, 8 10 74 104, size vsbar
 box "", 3, 90 4 138 114
 edit "", 4, 94 10 64 10, read autohs
 edit "", 5, 160 10 64 10, read autohs
 edit "", 6, 94 22 130 92, read multi vsbar
}
on *:dialog:whois:init:*:{  
 mdx SetMircVersion $version
 mdx MarkDialog $dname
 mdx SetColor $dname 2,4,5,6 text $rgb(255,255,255)
 mdx SetColor $dname 2,4,5,6 textbg $rgb(0,0,0)
 mdx SetColor $dname 2,4,5,6 background $rgb(0,0,0)
 mdx SetFont $dname 2,4,5,6 %fsize 500 %font
 mdx SetBorderStyle $dname 2,4,5,6 staticedge
 wnicks 
}
on *:dialog:whois:dclick:2:{ did -ra whois 4 %whois | did -r whois 6 | .whois %whois }
on *:dialog:whois:sclick:2:{ %whois = $did(2).seltext }
on *:dialog:whois:close:*:{ unset %whois }
alias wnicks {
 did -r whois 2
 %i = 1
 while (%i <= $nick($active,0)) {
   did -a whois 2 $nick($active,%i)
   inc %i
 }
}


raw 307:*:{ 
 if ($dialog(whois)) { did -a whois 6 $3- $crlf | haltdef }
 else { echo $color(whois text) -a $2- | haltdef }
}
raw 308:*:{
 if ($dialog(whois))
 else { echo $color(whois text) -a $2- | haltdef }
}
raw 309:*:{
 if ($dialog(whois))  { did -a whois 6 $3- $crlf | haltdef }  
 else { echo $color(whois text) -a $2- | haltdef }
}
raw 310:*:{  
 if ($dialog(whois)) { did -a whois 6 $3- $crlf | haltdef }
 else { echo $color(whois text) -a $2- | haltdef }
}
raw 311:*:{  
 if ($dialog(whois)) { did -a whois 6 $3- $crlf | haltdef }
 else { echo $color(whois text) -a $2- | haltdef }
}
raw 312:*:{ 
 if ($dialog(whois)) { did -a whois 6 $3- $crlf | haltdef }
 else { echo $color(whois text) -a $2- | haltdef }
}
raw 313:*:{  
 if ($dialog(whois)) { did -a whois 6 $3- $crlf | haltdef }
 else { echo $color(whois text) -a $2- | haltdef }
}
raw 317:*:{ 
 if ($dialog(whois)) { did -a whois 6 $duration($3) $asctime($4,mm/dd/yy) $5- $crlf | haltdef }
 else { echo $color(whois text) -a $duration($3) $asctime($4,mm/dd/yy) $5- | haltdef }
}
raw 318:*:{ 
 if ($dialog(whois)) { did -a whois 6 $3- $crlf | haltdef }
 else { echo $color(whois text) -a $2- | haltdef }
}
raw 319:*:{ 
 if ($dialog(whois)) { did -a whois 6 $3- $crlf | haltdef }
 else { echo $color(whois text) -a $2- | haltdef }
}
raw 379:*:{  
 if ($dialog(whois)) { did -a whois 6 $3- $crlf | haltdef }
 else { echo $color(whois text) -a $2- | haltdef }
}
raw 378:*:{
 if ($dialog(whois)) { did -ra whois 5 $remove($6-,$chr(42),$chr(64)) | haltdef }
 else { echo $color(whois text) -a $2- | haltdef }
}
raw 320:*:{ 
 if ($dialog(whois)) { did -a whois 6 $3- $crlf | haltdef }
 else { echo $color(whois text) -a $2- | haltdef }
}
alias mdx { dll mdx.dll $1- }

Now this is my whois dialog from my personal script. I have modified it; so you can edit it for your own theme. Als you need mdx.dll. Hope this comes in handy to anyone who like to learn; or just want to spice up their scripts. And I again, I dont mind good and bad comments; as long as you dont tell me I'm a crappy. lol