;Active On-Join Check in all joined channels
;Displays Nick, Fullname, Ident@IP, Network Info, Connect time & Idle
;Display the target's CLONE/s in the channel
;Displays if target is logged in as a regular Cservice User or IRCop
;Displays Joined & Common Channels, Client info and set away
ON !*:JOIN:#: { inc -u5 %check.floodpro 1 | whois $nick $nick }
if (%check.floodpro == 5) { /.disable #whoisonjoin | .timer 1 60 /.enable #whoisonjoin }
menu nicklist {
— $1 —:whois $$1 $$1
}
raw 311:*:{
haltdef
window @whois
echo @whois $timestamp 5•---------------• 14[Begin Whois Info:8 $2 $+ 14] 5•---------------•
echo @whois $timestamp 14|---› Nick: $2
echo @whois $timestamp 14|---› FullName: $6-
echo @whois $timestamp 14|---› Ident@IP: $3 $+ 14 $+ @ $+ 8 $+ $4
var %clone = $kanalclone($2)
if (%clone == $null) echo @whois $timestamp 14|---› 14Clones in the Channel: (No Clone)
else echo @whois $timestamp 14|---› 14Clone: ( $+ $numtok(%clone,44) $+ ) user 04/01 %clone
haltdef
}
raw 313:*: {
haltdef
window @whois
echo @whois $timestamp 14|---› 14Network Info: $3 $4 $5 $6 $7 $8 $9
}
raw 314:*:{
haltdef
window @whois
echo @whois $timestamp 14|---› 9•---------------•
echo @whois $timestamp 14|---› Nick: $2
echo @whois $timestamp 14|---› FullName: $6-
echo @whois $timestamp 14|---› Ident@Ip: $3 $+ 14 $+ @ $+ 8 $+ $4
var %clone = $kanalclone($2)
if (%clone == $null) echo @whois $timestamp 14|---› 14Clones in the Channel: (No Clone)
else echo @whois $timestamp 14|---› 14Clone: ( $+ $numtok(%clone,44) $+ ) user 04/01 %clone
haltdef
}
raw 317:*:{
haltdef
window @whois
echo @whois $timestamp 14|---› 14Connect Time: $asctime($4) 04/ $duration($calc($ctime - $4))
echo @whois $timestamp 14|---› 14Idle: $duration($3)
}
raw 319:*:{
haltdef
window @whois
echo @whois $timestamp 14|---› 14Joined Channels:11 $3-
echo @whois $timestamp 14|---› 14Common Channels:10 $ortak_k($2) 04/ Total:04 $comchan($2,0) 01Chan(s)
}
raw 338:*:{
haltdef
window @whois
echo @whois $timestamp 14|---› 14Real Ip: $4 $5 $6
}
raw 320:*:{
haltdef
window @whois
echo @whois $timestamp 14|---› 14Swhois: $2-
}
raw 330:*: echo @whois $timestamp 14|---› 14CService Login: $2 $4 $5 $6 $7 $3 | halt
raw 378:*:{
haltdef
window @whois
echo @whois $timestamp 14|---› 14Real Ip: $3 $4 $5 $6 $7
}
raw 379:*:{
haltdef
window @whois
echo @whois $timestamp 14|---› 14Modes: $6
}
raw 671:*:{
haltdef
window @whois
echo @whois $timestamp 14|---› 14Connection: $3-
}
raw 276:*:{
haltdef
window @whois
echo @whois $timestamp 14|---› 14Client: $3 $4 $5 $6 $7
}
raw 327:* {
window @whois
echo @whois $timestamp 14|---› 14Client Info: Java User
halt
}
raw 301:*: {
haltdef
window @whois
echo @whois $timestamp 14|---› 14Away: ( $+ $3- $+ )
}
raw 310:*: {
haltdef
window @whois
echo @whois $timestamp 14|---› 14Ircop: $3 $4 $5 $6
}
raw 335:*: {
echo @whois $timestamp 14|---› 14Bot: Yes (+B).
halt
}
alias kanalclone {
if ($ial($address($1,2),0) == 1) return
var %nickler = 0 | var %clone = $1
while (%nickler < $ial($address($1,2),0)) { inc %nickler | var %clone = $addtok(%clone,$ial($address($1,2),%nickler).nick, 44) }
return %clone
}
raw 318:*:{
haltdef
window @whois
.timer -h 1 200 echo @whois $timestamp 5•---------------• 14[End of Whois Info:8 $2 $+ 14] 5•---------------•
}
alias ortak_k {
if ($server == $null) { echo @whois $timestamp 14|---› 14No such server. }
elseif ($chan($me) == 0) { echo @whois $timestamp 14|---› 14No such channel. }
elseif (!$1) { echo @whois $timestamp 14|---› 14No such nick. }
elseif ($comchan($1,0) == 0) { echo @whois $timestamp 14|---› 14No such nick/channel. }
else {
var %oid 1
set %orka $comchan($1,0)
unset %knms
while (%oid <= %orka) {
set %knms $comchan($1,%oid) $+ $chr(32) $+ %knms
inc %oid
}
return %knms
}
}