Whois Dialog & Clone Detector

Please Register to submit score.

Average Score	4.5
Scores Submitted	2
Date Added	Mar 31, 2008
Last Updated	Mar 31, 2008
Tags	.txt 44 alias bot commands control dialog irc jonesy jonesy44 mirc op script shit shitlist w watch while whois

Introduction

Well, i was going to keep this script as a personal one, but since i hardly use mIRC anymore, i thought i'd share.
As the title suggests, it's a whois dialog for keeping watch on a user withought spamming your active window

Command:

Code:

/u <username>

You can change this by editing the part of the code:

Code:

alias <u> {

Report any bugs you find by posting a comment, else rate it and gimme a comment on any improvements you think could be added

WARNINGS:
#1: The "shitlist" function may contradict and interfere with other shitlist functions within other scripts (nns, invincible) therefore warning before you use that function
#2: The buttons can be very tempting to click repeatedly, beware when whoising IRCops (+W) recieve notices when you whois them. you may get killed ;-)

Thanks to napa182 and Abrai who whithout knowing have helped me jump some last parts of this script :P

Grab the Code

on *:JOIN:#: {
  if ($read(shitlist.txt, w, $address($nick,3))) {
    echo -a 13{ 1WARNING 13} (14Shitlisted user13)1 $nick $+ 13/1 $+ $gettok($read(shitlist.txt, w, $address($nick,3)),1,32) 13(14 $+ $address($nick,2) $+ 13)14 has joined1 $chan 13} 
  }
  var %x = $nick($chan,0), %c = 1
  while (%c <= %x) {
    if ($nick($chan,%c) == $nick) {
      inc %c 1
    }
    else {
      if ($address($nick,2) iswm $address($nick($chan,%c),2)) {
        echo -a 13{ 1WARNING 13} (14Clone13)1 $nick 14is a clone of1 $nick($chan,%c) 14in1 $chan 13} 
      }
      inc %c 1
    }
  }
}

raw 301:*: {
  if ($dialog(user)) {
    did -a user 20 %com.nick is away: $3-
    halt
  }
}
raw 307:*: {
  if ($dialog(user)) {
    did -a user 20 %com.nick is a registered nickname
    halt
  }
}
raw 310:*: {
  if ($dialog(user)) {
    did -a user 20 %com.nick is available for help (+h)
    halt
  }
}
raw 311:*: {
  if ($dialog(user)) {
    did -r user 20
    did -ra user 2 $2
    did -a user 20 NickName: $2
    did -a user 20 Real Name: $6-
    did -a user 20 Address: $3 $+ @ $+ $4
    halt
  }
}
raw 378:*: {
  if ($dialog(user)) {
    did -a user 20 Hostmask: $6
    did -a user 20 IP: $7
    halt
  }
}
raw 379:*: {
  if ($dialog(user)) {
    did -a user 20 Modes: $6-
    halt
  }
}
raw 671:*: {
  if ($dialog(user)) {
    did -a user 20 %com.nick is using a secure connection
    halt
  }
}
raw 312:*: {
  if ($dialog(user)) {
    did -a user 20 Server: $3
    halt
  }
}
raw 313:*: {
  if ($dialog(user)) {
    did -a user 20 Network Rank: $5-9
    halt
  }
}
raw 319:*: {
  if ($dialog(user)) {
    var %c = 1, %i = $calc($0 - 2)
    did -a user 18 Their Channels ( $+ $calc($0 - 2) $+ )
    while (%c <= %i) {
      did -a user 19 $gettok($3-,%c,32)
      inc %c 1
    }
    did -a user 20 Channels: $3-
    halt
  }
  if ($dialog(bot)) {
    did -r bot 2
    var %c = 1, %i = $calc($0 - 2)
    did -a bot 1 Channels ( $+ $calc($0 - 2) $+ )
    while (%c <= %i) {
      did -a bot 2 $gettok($3-,%c,32)
      inc %c 1
    }
  }
}
raw 317:*: {
  if ($dialog(user)) {
    did -a user 20 Signed on at: $asctime($4,dddd dd:mm:yyyy H:nn:sstt)
    did -a user 20 Time Idle: $duration($3)
    did -a user 20 Time online: $duration($calc($ctime - $4))
    halt
  }
}
raw 335:*: { 
  if ($dialog(user)) {
    did -a user 20 %com.nick is a bot on $server
    halt
  }
}
raw 318:*: {
  if ($dialog(user)) {
    did -a user 20 ------------ End of /WHOIS ------------
    halt 
  }
}
raw 401:*: {
  if ($dialog(user)) {
    did -r user 20
    did -a user 20 -------- No such User/Nickanme --------
    halt
  }
}
dialog user {
  size -1 -1 320 250
  option dbu 
  Title "Whois Dialog - By Jonesy44"
  box "NickName", 1, 2 2 196 20
  edit %com.nick , 2, 5 10 140 10
  button "Whois User", 3, 146 10 50 10
  box "Common Channels", 4, 2 23 97 71
  list 5, 5 31 90 66
  box "Their Channels", 18, 102 23 96 71
  list 19, 105 31 90 66
  box "Actions for selected channels with nickname", 6, 2 95 196 42
  text "Reason:", 7, 7 106 28 10
  edit "", 8, 30 105 165 10
  button "Kick From Selected", 13, 30 115 50 11
  button "K-Ban From Selected", 14, 82 115 55 11
  button "Kick All Chans", 9, 30 125 50 11
  button "K-Ban All Chans", 10, 82 125 55 11
  button "Query", 11, 145 115 50 11
  button "Shitlist", 27, 145 125 50 11
  box "NickList", 15, 200 2 56 135
  list 16, 203 10 51 120
  button "Refresh", 17, 203 125 51 10
  list 20, 2 141 255 100, hsbar
  box "Channel Stats", 22, 260 138 56 97
  list 23, 263 148 50 90
  box "Shitlist", 24, 260 2 56 135
  list 25, 263 10 50 120
  button "Delete", 26, 263 125 51 10
}
on *:DIALOG:user:init:*: {
  set %com.nick $did(2).text
  shitlist.refresh
  user.refresh
  user.n.refresh
}
on *:DIALOG:user:dclick:*: {
  if ($did == 19) {
    join $remove($did(19).seltext,+,%,@,&,~,?)
  }
  if ($did == 5) {
    join $did(5).seltext
  }
  if ($did == 16) {
    query $did(16).seltext
  }
}
on *:DIALOG:user:sclick:*: {
  if ($did == 25) {
    set %com.nick $remove($gettok($did(25).seltext,1,32),+,%,@,&,~)
    did -ra user 2 $remove($gettok($did(25).seltext,1,32),+,%,@,&,~)
    user.refresh
  }
  if ($did == 26) {
    write -ds $+ $gettok($did(25).seltext,1,32) shitlist.txt
    shitlist.refresh
  }
  if ($did == 27) {
    if ($read(shitlist.txt, w, $did(2).text)) {
      halt
    }
    else {
      write shitlist.txt $did(2).text $address($did(2).text,3)
      shitlist.refresh
    }
  }
  if ($did == 23) {
    echo -a 13{14 $+ %chan $+ 13} $did(23).seltext
  }
  if ($did == 21) {
    did -ra user 18 Their Channels
    whois $did(2).text
  }
  if ($did == 20) {
    echo -a 13{14 $+ $did(2).text $+ 13} $did(20).seltext
  }
  if ($did == 5) {
    if (*common chans* iswm $did(5).seltext) {
      did -b user 13,14,9,10,11,7,8
    }
    else {
      did -e user 13,14,9,10,11,7,8
      user.n.refresh2
    }
  }
  if ($did == 9) {
    var %i = 1, %y = $comchan($did(2).text,0) 
    while (%i <= %y) {
      inc %kicks 1
      kick $comchan($did(2).text,%i) $did(2).text 13 $+ $chr(91) $+ 14 $server 13 $+ $chr(124) $+ 14 $comchan($did(2).text,%i) 13 $+ $chr(124) $+ 14 $time $+ 13 $chr(93) 1 $+ Pwnted by $me 13(14 $+ $did(8).text $+ 13 $+ ) 13( $+ 14 $+ $chr(35) $+ %kicks $+ 13 $+ )
      inc %i 1
    }
  }
  if ($did == 10) {
    var %i = 1, %y = $comchan($did(2).text,0) 
    while (%i <= %y) {
      inc %kicks 1
      ban -k $comchan($did(2).text,%i) $did(2).text 13 $+ $chr(91) $+ 14 $server 13 $+ $chr(124) $+ 14 $comchan($did(2).text,%i) 13 $+ $chr(124) $+ 14 $time $+ 13 $chr(93) 1 $+ Pwnted by $me 13(14 $+ $did(8).text $+ 13 $+ ) 13( $+ 14 $+ $chr(35) $+ %kicks $+ 13 $+ )
      inc %i 1
    }
  }
  if ($did == 16) {
    set %com.nick $remove($did(16).seltext,+,%,@,&,~)
    did -ra user 2 $remove($did(16).seltext,+,%,@,&,~)
    user.refresh
  }
  if ($did == 13) {
    inc %kicks 1
    kick $did(5).seltext $did(2).text 13 $+ $chr(91) $+ 14 $server 13 $+ $chr(124) $+ 14 $did(5).seltext 13 $+ $chr(124) $+ 14 $time $+ 13 $chr(93) 1 $+ Pwnted by $me 13(14 $+ $did(8).text $+ 13 $+ ) 13( $+ 14 $+ $chr(35) $+ %kicks $+ 13 $+ )
  }
  if ($did == 14) {
    inc %kicks 1
    ban -k $did(5).seltext $did(2).text 13 $+ $chr(91) $+ 14 $server 13 $+ $chr(124) $+ 14 $did(5).seltext 13 $+ $chr(124) $+ 14 $time $+ 13 $chr(93) 1 $+ Pwnted by $me 13(14 $+ $did(8).text $+ 13 $+ ) 13( $+ 14 $+ $chr(35) $+ %kicks $+ 13 $+ )
  }
  if ($did == 17) {
    user.n.refresh
  }
  if ($did == 3) {
    user.refresh $did(2).text
  }
  if ($did == 11) {
    query $did(2).text
  }
}
alias user.refresh {
  did -r user 20
  did -a user 20 Loading WHOIS on $did(2).text
  did -r user 19
  whois $did(2).text
  did -r user 5
  did -a user 4 Common Channels ( $+ $comchan($did(2).text,0) $+ )
  var %i = 1, %y = $comchan($did(2).text,0) 
  while (%i <= %y) {
    did -a user 5 $comchan($did(2).text,%i)
    inc %i 1
  }
}
alias user.n.refresh {
  set %chan $active
  did -a user 15 Nicklist ( $+ $nick($active,0) $+ )
  did -r user 16
  did -ra user 23 Users: $nick($active,0)
  did -a user 23 -----------------------
  var %i = 1, %y = $nick($active,0), %ops = 0, %hops = 0, %voices = 0
  while (%i <= %y) {
    if ($nick($active,%i) isop $active) {
      did -a user 16 @ $+ $nick($active,%i)
      inc %ops 1
    }
    elseif ($nick($active,%i) ishop $active) {
      did -a user 16 % $+ $nick($active,%i)
      inc %hops 1
    }
    elseif ($nick($active,%i) isvoice $active) {
      did -a user 16 + $+ $nick($active,%i)
      inc %voices 1
    }
    else {
      did -a user 16 $nick($active,%i)
    }
    inc %i 1
  }
  did -a user 23 OPs  : %ops
  did -a user 23 HOPs : %hops
  did -a user 23 Voice: %voices
  did -a user 23 -----------------------
}
alias user.n.refresh2 {
  set %chan $did(5).seltext
  did -a user 15 Nicklist ( $+ $nick($did(5).seltext,0) $+ )
  did -r user 16
  did -ra user 23 Users: $nick($did(5).seltext,0)
  did -a user 23 -----------------------
  var %i = 1, %y = $nick($did(5).seltext,0), %ops = 0, %hops = 0, %voices = 0
  while (%i <= %y) {
    if ($nick($did(5).seltext,%i) isop $did(5).seltext) {
      did -a user 16 @ $+ $nick($did(5).seltext,%i)
      inc %ops 1
    }
    elseif ($nick($did(5).seltext,%i) ishop $did(5).seltext) {
      did -a user 16 % $+ $nick($did(5).seltext,%i)
      inc %hops 1
    }
    elseif ($nick($did(5).seltext,%i) isvoice $did(5).seltext) {
      did -a user 16 + $+ $nick($did(5).seltext,%i)
      inc %voice 1
    }
    else {
      did -a user 16 $nick($did(5).seltext,%i)
      inc %other 1
    }
    inc %i 1
  }
  did -a user 23 OPs  : %ops
  did -a user 23 HOPs : %hops
  did -a user 23 Voice: %voices
  did -a user 23 -----------------------
}
alias shitlist.refresh {
  var %i = 1, %y = $lines(shitlist.txt)
  did -r user 25
  did -a user 24 Shitlist ( $+ %y $+ )
  while (%i <= %y) {
    did -a user 25 $read(shitlist.txt,%i)
    inc %i 1
  }
}
alias u {
  set %com.nick $1
  dialog -m user user
}

Comments

(7) RSS

Go to Bottom

Render

Comments: 5

mIRC Snippet: Whois Dialog & Clone Detector
Posted on Mar 31, 2008 7:30 pm

you should provide much more error-checking than you have supplied. also, did -r and did -a can be simplified to did -ra. you can use multiple switches in one go :P i'd also try using $ialchan, it'd save you from looping through the nicklist.

jonesy44

Comments: 647

mIRC Snippet: Whois Dialog & Clone Detector
Posted on Mar 31, 2008 7:58 pm

meaning returning the error if there is one ?

i know about multiple switches, however sometimes singles are required, (before a while loop for instance)

Thanks for your comment, although not sure about $ialchan ?

Render

Comments: 5

mIRC Snippet: Whois Dialog & Clone Detector
Posted on Mar 31, 2008 8:03 pm

1) error checking meaning that you should check for possible errors that may occur. example: if ($did(5).text) { script } else { etc }
2) yeah, i just saw a few here and there that could be simplified, this isn't vital.
3) $ialchan(address,#channel,N) consult /help $ialchan. basically, you can use an if comparison to check if there are multiple nicks using something similar to: if ($ialchan(address,#,0) > 1) this will check if there are more than one users matching the address in the ial for #channel. like i said, /help $ialchan ;P

jonesy44

Comments: 647

mIRC Snippet: Whois Dialog & Clone Detector
Posted on Mar 31, 2008 8:25 pm

taken into account. thank you

PunkTuReD

Comments: 59

mIRC Snippet: Whois Dialog & Clone Detector
Posted on Apr 19, 2008 10:12 pm

nice neat dialog all i changed was
dialog -m user user
to
dialog -dm user user

PunkTuReD

Comments: 59

mIRC Snippet: Whois Dialog & Clone Detector
Posted on May 9, 2008 3:00 am

its not reading voiced users due to line 312
change %voice
to %voices

PunkTuReD

Comments: 59

mIRC Snippet: Whois Dialog & Clone Detector
Posted on May 9, 2008 3:04 am

awesome dialog btw :)

Whois Dialog & Clone Detector

Introduction

Grab the Code

Comments

jonesy44

My Snippet Tags

Contact

Friends (17)

Sponsors

		Student UK
Last seen: Jul 12, 2008 Profile \| Website Friends (17) Snippets (32) Images (24) Reviews (1) Comments Received (394) Comments Submitted (647) Forum Posts (36)