Snippets Project Page
Author: entropy
Added: 5y
Updated: 5y
mIRC: 7.52+
Hits: 1,341
Downloads: 40
Review: entropy
Size: 3.51KB
1 0
Login to vote.
Dialog WHOIS
v1.2
This snippet opens a neat and tidy whois dialog! (on /whois).
Download
JSON
▲ Review
▼ Source
; Dialog WHOIS v1.2 - by entropy 2018 dialog whois { title "Whois [/whois]" size -1 -1 165 138 option dbu icon s.ico, 0 text "Nickname:", 1, 2 8 30 8, right text "Host:", 2, 2 21 30 8, right text "Server:", 3, 2 34 30 8, right edit "", 4, 33 6 125 10 edit "", 5, 33 19 125 10, read autohs edit "", 6, 33 32 125 10, read autohs text "Channels:", 7, 2 46 30 8, right edit "", 8, 33 45 125 26, read multi return vsbar button "whois", 9, 84 119 37 12 button "OK", 10, 121 119 36 12, ok text "Oper:", 11, 2 75 30 8, right edit "", 12, 33 74 50 10, read autohs text "Modes:", 13, 2 89 30 8, right edit "", 14, 33 87 50 10, read autohs text "Away:", 15, 85 76 30 8, right edit "", 16, 117 74 41 10, read autohs text "Idle:", 17, 85 89 30 8, right edit "", 18, 117 87 41 10, read autohs text "Online:", 19, 2 102 30 8, right edit "", 20, 33 100 50 10, read autohs text "SSL:", 21, 84 102 30 8, right edit "", 22, 117 100 41 10, read autohs } on *:dialog:whois:sclick:9:{ if ($did(whois,4)) { did -b whois 9 | winit $v1 } } on *:dialog:whois:init:0:{ did -t whois 9 } alias -l winit { if (!$server || !$1) { return } .enable #whois did -r whois 5,6,8,12,14,16,18,20,22 w $1- } alias alert { if ($dialog(whois)) { did -r whois 5,6,8,12,14,16,18,20,22 } return $input(No such nickname $qt($1) on IRC!,4,No Such Nick) } #whois off raw 275:*:{ did -ra whois 22 Yes | halt } raw 311:*:{ %whois = yes | did -ra whois 4 $2 | did -ra whois 5 $replace($3-,$3 $4-,$+($3,@,$4-)) | halt } raw 379:*:{ did -ra whois 14 $gettok($1-,$0,32) | halt } raw 378:*:{ halt } raw 319:*:{ did -ra whois 8 $3- | halt } raw 312:*:{ did -ra whois 6 $3- | halt } raw 318:*:{ if (%whois == yes && $dialog(whois)) { if (!$did(whois,12)) { did -ra whois 12 No } if (!$did(whois,16)) { did -ra whois 16 No } if (!$did(whois,22)) { did -ra whois 22 No } if (!$did(whois,20)) { did -ra whois 20 None } if (!$did(whois,18)) { did -ra whois 18 None } if (!$did(whois,14)) { did -ra whois 14 None } } .disable #whois if ($dialog(whois)) { did -e whois 9 } unset %whois halt } raw 313:*:{ did -ra whois 12 Yes | halt } raw 320:*:{ did -ra whois 12 Yes | halt } raw 301:*:{ did -ra whois 16 $3- | halt } raw 371:*:{ did -ra whois 22 Yes | halt } raw 317:*:{ did -ra whois 18 $replace($remove($duration($3),$chr(32)),wks,w,days,d,day,d,hrs,h,hr,h,mins,m,min,m,secs,s,sec,s) | did -ra whois 20 $replace($remove($duration($calc($ctime - $4)),$chr(32)),wks,w,days,d,day,d,hrs,h,hr,h,mins,m,min,m,secs,s,sec,s) | halt } raw 671:*:{ did -ra whois 22 Yes | halt } raw 401:*:{ if ($dialog(whois)) { beep .timer -om 1 1 alert $2 } halt } alias enddecal { did -rba whois Wait: $timer(decal).secs } raw 307:*:{ halt } raw 310:*:{ halt } #whois end alias w { if (!$1) { return } | if ($server) { !whois $1- } | else { echo $color(info) -ta %char [ERROR] Not connected to any server! } } alias whois { if (!$1 || $1 == $null) { return } | if (!$dialog(whois)) { dialog -m whois whois } | winit $1- }
Changelog:
0
0