SHOW:
|
|
- or go back to the newest paste.
1 | - | ;mIRC WHOIS Information |
1 | + | ************************************************************************* |
2 | - | ;Active On-Join Check |
2 | + | **************** mIRC WHOIS Information in @whois Window **************** |
3 | - | ;Displays Nick, Fullname, Ident@IP, Clones, Network Info, Connect time & Idle |
3 | + | ******************************* by: zcnut ******************************* |
4 | - | ;Displays if logged in as a regular Cservice User or IRCop |
4 | + | ************************************************************************* |
5 | - | ;Displays Channel & Common Channels, Client info and if away |
5 | + | |
6 | - Active On-Join Check in all joined channels | |
7 | - Displays Nick, Fullname, Ident@IP, Network Info, Connect time & Idle | |
8 | - Display the target's CLONE/s in the channel (current/real time) | |
9 | - Displays if target is logged in as a regular Cservice User or IRCop | |
10 | - Displays Joined & Common Channels, Client info and set away | |
11 | ************************************************************************* | |
12 | Paste on your mIRC remote and save. | |
13 | ************************************************************************* | |
14 | ||
15 | ON !*:JOIN:#: { inc -u5 %check.floodpro 1 | whois $nick $nick } | |
16 | if (%check.floodpro == 5) { /.disable #whoisonjoin | .timer 1 60 /.enable #whoisonjoin } | |
17 | ||
18 | menu nicklist { | |
19 | — $1 —:whois $$1 $$1 | |
20 | } | |
21 | raw 311:*:{ | |
22 | haltdef | |
23 | window @whois | |
24 | echo @whois $timestamp 5•---------------• 14[Begin Whois Info:8 $2 $+ 14] 5•---------------• | |
25 | echo @whois $timestamp 14|---› 14Nick:1 $2 | |
26 | echo @whois $timestamp 14|---› 14FullName:1 $6- | |
27 | echo @whois $timestamp 14|---› 14Ident@IP:1 $3 $+ 14 $+ @ $+ 01 $+ $4 | |
28 | var %clone = $kanalclone($2) | |
29 | if (%clone == $null) echo @whois $timestamp 14|---› 14Clones:1 (No Clone) | |
30 | else echo @whois $timestamp 14|---› 14Clone:1 ( $+ $numtok(%clone,44) $+ ) user 04/01 %clone | |
31 | haltdef | |
32 | } | |
33 | raw 313:*: { | |
34 | haltdef | |
35 | window @whois | |
36 | echo @whois $timestamp 14|---› 14Network Info:1 $3 $4 $5 $6 $7 $8 $9 | |
37 | } | |
38 | raw 314:*:{ | |
39 | haltdef | |
40 | window @whois | |
41 | echo @whois $timestamp 14|---› 9•---------------• | |
42 | echo @whois $timestamp 14|---› 14Nick:7 $2 | |
43 | echo @whois $timestamp 14|---› 14FullName:7 $6- | |
44 | echo @whois $timestamp 14|---› 14Ident@Ip:7 $3 $+ 14 $+ @ $+ 01 $+ $4 | |
45 | var %clone = $kanalclone($2) | |
46 | if (%clone == $null) echo @whois $timestamp 14|---› 14Clones:5 (No Clone) | |
47 | else echo @whois $timestamp 14|---› 14Clone:1 ( $+ $numtok(%clone,44) $+ ) user 04/01 %clone | |
48 | haltdef | |
49 | } | |
50 | raw 317:*:{ | |
51 | haltdef | |
52 | window @whois | |
53 | echo @whois $timestamp 14|---› 14Connect Time:1 $asctime($4) 04/1 $duration($calc($ctime - $4)) | |
54 | echo @whois $timestamp 14|---› 14Idle:1 $duration($3) | |
55 | ||
56 | } | |
57 | raw 319:*:{ | |
58 | haltdef | |
59 | window @whois | |
60 | echo @whois $timestamp 14|---› 14Joined Channels:11 $3- | |
61 | echo @whois $timestamp 14|---› 14Common Channels:10 $ortak_k($2) 04/01 Total:04 $comchan($2,0) 01Chan(s) | |
62 | ||
63 | } | |
64 | raw 338:*:{ | |
65 | haltdef | |
66 | window @whois | |
67 | echo @whois $timestamp 14|---› 14Real Ip:01 $4 $5 $6 | |
68 | ||
69 | } | |
70 | raw 320:*:{ | |
71 | haltdef | |
72 | window @whois | |
73 | echo @whois $timestamp 14|---› 14Swhois:1 $2- | |
74 | ||
75 | } | |
76 | raw 330:*: echo @whois $timestamp 14|---› 14CService Login:1 $2 $4 $5 $6 $7 $3 | halt | |
77 | raw 378:*:{ | |
78 | haltdef | |
79 | window @whois | |
80 | echo @whois $timestamp 14|---› 14Real Ip:01 $3 $4 $5 $6 $7 | |
81 | ||
82 | } | |
83 | raw 379:*:{ | |
84 | haltdef | |
85 | window @whois | |
86 | echo @whois $timestamp 14|---› 14Modes:01 $6 | |
87 | } | |
88 | raw 671:*:{ | |
89 | haltdef | |
90 | window @whois | |
91 | echo @whois $timestamp 14|---› 14Connection:1 $3- | |
92 | } | |
93 | raw 276:*:{ | |
94 | haltdef | |
95 | window @whois | |
96 | echo @whois $timestamp 14|---› 14Client :1 $3 $4 $5 $6 $7 | |
97 | } | |
98 | raw 327:* { | |
99 | window @whois | |
100 | echo @whois $timestamp 14|---› 14Client Info:1 Java User | |
101 | halt | |
102 | } | |
103 | raw 301:*: { | |
104 | haltdef | |
105 | window @whois | |
106 | echo @whois $timestamp 14|---› 14Away:1 ( $+ $3- $+ ) | |
107 | } | |
108 | raw 310:*: { | |
109 | haltdef | |
110 | window @whois | |
111 | echo @whois $timestamp 14|---› 14Ircop:1 $3 $4 $5 $6 | |
112 | ||
113 | } | |
114 | raw 335:*: { | |
115 | echo @whois $timestamp 14|---› 14Bot:1 Yes (+B). | |
116 | halt | |
117 | } | |
118 | alias kanalclone { | |
119 | if ($ial($address($1,2),0) == 1) return | |
120 | var %nickler = 0 | var %clone = $1 | |
121 | while (%nickler < $ial($address($1,2),0)) { inc %nickler | var %clone = $addtok(%clone,$ial($address($1,2),%nickler).nick, 44) } | |
122 | return %clone | |
123 | ||
124 | } | |
125 | raw 318:*:{ | |
126 | haltdef | |
127 | window @whois | |
128 | .timer -h 1 200 echo @whois $timestamp 5•---------------• 14[End of Whois Info:8 $2 $+ 14] 5•---------------• | |
129 | } | |
130 | ||
131 | alias ortak_k { | |
132 | if ($server == $null) { echo @whois $timestamp 14|---› 14No such server. } | |
133 | - | } |
133 | + | |
134 | elseif (!$1) { echo @whois $timestamp 14|---› 14No such nick. } | |
135 | elseif ($comchan($1,0) == 0) { echo @whois $timestamp 14|---› 14No such nick/channel. } | |
136 | else { | |
137 | var %oid 1 | |
138 | set %orka $comchan($1,0) | |
139 | unset %knms | |
140 | while (%oid <= %orka) { | |
141 | set %knms $comchan($1,%oid) $+ $chr(32) $+ %knms | |
142 | inc %oid | |
143 | } | |
144 | return %knms | |
145 | } | |
146 | } | |
147 |