View difference between Paste ID: wY3fTGm6 and wvJGSHeb
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