menu nicklist {
— $1 — : .enable #replace_whois | whois $$1 $$1
}
#replace_whois off
raw 311:*:{
haltdef
echo -a $timestamp $+(¯°,$str(-,80),•)
echo -a $timestamp [Nick] $2
echo -a $timestamp [Real name] $6-
echo -a $timestamp [Ident@Ip] $+($3,@,$4)
var %clone $kanalclone($2)
if (%clone == $null) echo -a $timestamp [Clones] (No clones)
else echo -a $timestamp [Clones] ( $+ $numtok(%clone,44) $+ ) user / %clone
}
raw 312:*: haltdef | echo -a $timestamp [Server] $3 / $4 $5 $6
raw 313:*: haltdef | echo -a $timestamp [Network Inf] $3 $4 $5 $6 $7 $8 $9
raw 314:*:{
haltdef
echo -a $timestamp $+(¯°,$str(-,80),•)
echo -a $timestamp [Nick] $2
echo -a $timestamp [Real name] $6-
echo -a $timestamp [Ident@Ip] $+($3,@,$4)
var %clone $kanalclone($2)
if (%clone == $null) echo -a $timestamp [Clones] (Nessun clone)
else echo -a $timestamp [Clones] ( $+ $numtok(%clone,44) $+ ) user / %clone
}
raw 317:*:{
haltdef
echo -a $timestamp [Connection time] $asctime($4,dddd dd/mm/yyyy HH:nn:ss) / $duration($calc($ctime - $4))
echo -a $timestamp [Idle]00 $duration($3)
}
raw 319:*:{
haltdef
echo -a $timestamp [Channels] $3-
echo -a $timestamp [Com Chan] $ortak_k($2) / Total: $comchan($2,0) Chan(s)
}
raw 338:*: haltdef | echo -a $timestamp [Ip] $4 $5 $6
raw 320:*: haltdef | echo -a $timestamp [Swhois]: $2-
raw 307:*: haltdef | echo -a $timestamp [Registered] Yes
raw 330:*: haltdef | echo -a $timestamp [NickServ] $2 $4 $5 $6 $7 $3
raw 378:*: haltdef | echo -a $timestamp [Ip] $3 $4 $5 $6 $7
raw 344:*: haltdef | echo -a $timestamp [Country] $2-
raw 350:*: haltdef | echo -a $timestamp [Webgate] $4-
raw 379:*: haltdef | echo -a $timestamp [Modes] $6
raw 671:*: haltdef | echo -a $timestamp [Connection Time] $3-
raw 276:*: haltdef | echo -a $timestamp [Client] $3 $4 $5 $6 $7
raw 327:*: haltdef | echo -a $timestamp [Client Info] Java User
raw 301:*: haltdef | echo -a $timestamp [Away] ( $+ $3- $+ )
raw 310:*: haltdef | echo -a $timestamp [Ircop] $3 $4 $5 $6
raw 335:*: haltdef | echo -a $timestamp [Bot] Yes (+B).
raw 318:*: haltdef | echo -a $timestamp [Whois End] | .disable #replace_whois
#replace_whois end
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
}
alias ortak_k {
if ($server == $null) { echo -a $timestamp [No such server] }
elseif ($chan($me) == 0) { echo -a $timestamp [No such channel] }
elseif (!$1) { echo -a $timestamp [No such nick] }
elseif ($comchan($1,0) == 0) { echo -a $timestamp [No 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
}
}