Botscript / Clonescan

Release your script here.
State:
- Author
- What it does
- Perhaps a little guide.
- Also, if the snippet is of any use to the community, it has a chance of getting posted on the main page, so don't hesitate to submit/ask!

Botscript / Clonescan

Postby Cristian » Sun Feb 03, 2008 4:04 pm

;# Trigger: .clonescan - command to trigger the script.
;# Its requires operator status to oprerate it.

;# Tested and works on version 6.15

Code: Select all
;# 
;# visit http://sp00fed.org for updates or support.
;# script by Sumsar
;#

on *:TEXT:.clonescan:#: {
  if ($nick isop $chan) {
    .raw -q privmsg $chan :Scanning for clones
    .raw -q WHO $chan
    hadd -m cscan chan $chan
  }
}
raw 352:*:{
  if ($2 == $hget(cscan,chan)) {
    haltdef
    if (!$hget(Clones,$4)) { hadd -m Clones $4 $6 }
    elseif ($hget(Clones,$4)) && (!$istok($hget(Clones,$4),$6,32)) { hadd -m Clones $4 $hget(Clones,$4) $6 }
  }
}
raw 315:*:{
  if ($2 == $hget(cscan,chan)) {
    haltdef
    if ($hget(Clones,0).item != 0) {
      var %q = $hget(Clones,0).item,%w = 1,%o = 1
      while (%w <= %q) {
        if ($numtok($hget(Clones,$hget(Clones,%w).item),32) > 1) {
          $+(.timer.,%w) 1 %o .raw -q privmsg $hget(cscan,chan) : $+([,$numtok($hget(Clones,$hget(Clones,%w).item),32),]) ( $+ $+(*!*@,$hget(Clones,%w).item) $+ ) $hget(Clones,$hget(Clones,%w).item) | inc %o 3
        }
        inc %w
      }
      $+(.timer.end) 1 $calc(%o + 3) .raw -q privmsg $hget(cscan,chan) : $+ End of Scan | hfree Clones | hfree cscan
    }
  }
}
Cristian
proof of advance
proof of advance
 
Posts: 282
Joined: Sun Nov 04, 2007 3:02 pm
Location: Denmark
Authnick: Sumsar

Return to Mirc Scripting Release

Who is online

Users browsing this forum: No registered users and 0 guests

cron