whois on @whois window - help? - 17/08/22 08:07 PM
Hi.
I know it's probably something simple, but I don't know how to make this line go away in an active window when somebody joins in any channel I am on.
[17-Aug-22 16:04:14] * [nick] using *.undernet.org The Undernet Underworld
Help pls?
Thank you!
I know it's probably something simple, but I don't know how to make this line go away in an active window when somebody joins in any channel I am on.
[17-Aug-22 16:04:14] * [nick] using *.undernet.org The Undernet Underworld
Help pls?
Code
;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 } }
Thank you!