Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- *************************************************************************
- **************** mIRC WHOIS Information in @whois Window ****************
- ******************************* by: zcnut *******************************
- *************************************************************************
- - 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 (current/real time)
- - Displays if target is logged in as a regular Cservice User or IRCop
- - Displays Joined & Common Channels, Client info and set away
- *************************************************************************
- Paste on your mIRC remote and save.
- *************************************************************************
- 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|---› 14Nick:1 $2
- echo @whois $timestamp 14|---› 14FullName:1 $6-
- echo @whois $timestamp 14|---› 14Ident@IP:1 $3 $+ 14 $+ @ $+ 01 $+ $4
- var %clone = $kanalclone($2)
- if (%clone == $null) echo @whois $timestamp 14|---› 14Clones:1 (No Clone)
- else echo @whois $timestamp 14|---› 14Clone:1 ( $+ $numtok(%clone,44) $+ ) user 04/01 %clone
- haltdef
- }
- raw 313:*: {
- haltdef
- window @whois
- echo @whois $timestamp 14|---› 14Network Info:1 $3 $4 $5 $6 $7 $8 $9
- }
- raw 314:*:{
- haltdef
- window @whois
- echo @whois $timestamp 14|---› 9•---------------•
- echo @whois $timestamp 14|---› 14Nick:7 $2
- echo @whois $timestamp 14|---› 14FullName:7 $6-
- echo @whois $timestamp 14|---› 14Ident@Ip:7 $3 $+ 14 $+ @ $+ 01 $+ $4
- var %clone = $kanalclone($2)
- if (%clone == $null) echo @whois $timestamp 14|---› 14Clones:5 (No Clone)
- else echo @whois $timestamp 14|---› 14Clone:1 ( $+ $numtok(%clone,44) $+ ) user 04/01 %clone
- haltdef
- }
- raw 317:*:{
- haltdef
- window @whois
- echo @whois $timestamp 14|---› 14Connect Time:1 $asctime($4) 04/1 $duration($calc($ctime - $4))
- echo @whois $timestamp 14|---› 14Idle:1 $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/01 Total:04 $comchan($2,0) 01Chan(s)
- }
- raw 338:*:{
- haltdef
- window @whois
- echo @whois $timestamp 14|---› 14Real Ip:01 $4 $5 $6
- }
- raw 320:*:{
- haltdef
- window @whois
- echo @whois $timestamp 14|---› 14Swhois:1 $2-
- }
- raw 330:*: echo @whois $timestamp 14|---› 14CService Login:1 $2 $4 $5 $6 $7 $3 | halt
- raw 378:*:{
- haltdef
- window @whois
- echo @whois $timestamp 14|---› 14Real Ip:01 $3 $4 $5 $6 $7
- }
- raw 379:*:{
- haltdef
- window @whois
- echo @whois $timestamp 14|---› 14Modes:01 $6
- }
- raw 671:*:{
- haltdef
- window @whois
- echo @whois $timestamp 14|---› 14Connection:1 $3-
- }
- raw 276:*:{
- haltdef
- window @whois
- echo @whois $timestamp 14|---› 14Client :1 $3 $4 $5 $6 $7
- }
- raw 327:* {
- window @whois
- echo @whois $timestamp 14|---› 14Client Info:1 Java User
- halt
- }
- raw 301:*: {
- haltdef
- window @whois
- echo @whois $timestamp 14|---› 14Away:1 ( $+ $3- $+ )
- }
- raw 310:*: {
- haltdef
- window @whois
- echo @whois $timestamp 14|---› 14Ircop:1 $3 $4 $5 $6
- }
- raw 335:*: {
- echo @whois $timestamp 14|---› 14Bot:1 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
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement