I wasn't bored until slub77 started it.

what the hell, don't blame me :O

Finally I did it to shorten WordDMT's script to 525 bytes

menu status,nicklist,menubar {
  -
  WorldDMT Clones Detector V1.0 $iif(%stat.wclone,-[ ON ]-,-[ OFF ]-)
  .$iif(%stat.wclone,Dis,En) $+ able it:set %stat.wclone $iif(%stat.wclone,0,1)
  -
}
on *:join:#:{
  if $nick = $me { set %/who $+ # 1 | who # }
  elseif %stat.wclone && $ialchan($wildsite,#,0) > 1 { 
    while ($ialchan($wildsite,#,$0).nick) tokenize 32 $1- $v1 | echo # 7- Clones Detected 4[ $2- 4]
  }
}
raw *:*:{
  if (($numeric = 352) && ($($+(%,/who,$2),2))) haltdef
  elseif ($numeric = 315) && ($($+(%,/who,$2),2)) unset %/who $+ $2 | haltdef
}

I wasn't bored until slub77 started it. lol But thanks for the suggestion, Ford. This time I tried looking at both the inconsistency, redundancy and went for a different route rather than using the regsubex, which cuts many bytes.

ty ford :)

Are you really trying to shorten this Jethro_?
You must be bored :P
Why don't you try eliminating some of the redundancy. You could easily shave 50 bytes this way.
This script is well thought out and written. I don't see any reason to shorten it. Nice code WorldDMT :)

yea, get a $file().size, to send information,

Right, I surrender. lol

That looks like a good website to make a mirc socket out of.

http://bytecount.bluebus112.com/

:/ but how could it be bigger? The only thing I touched was the equal signs, the removal of two curly brackets, and your menu switch. The rest is the same. :o > == to > =, { and } in your raw events, and this:

.$iif(%stat.wclone,Dis,En) $+ able it:set %stat.wclone $iif(%stat.wclone,0,1)

That's as compact and small as I can go...:p

@Jethro_: 631 bytes lol :D

what have i done 0.0

How about this one. This has to be a little bit smaller now lol

menu status,nicklist,menubar {
  -
  WorldDMT Clones Detector V1.0 $iif(%stat.wclone,-[ ON ]-,-[ OFF ]-)
  .$iif(%stat.wclone,Dis,En) $+ able it:set %stat.wclone $iif(%stat.wclone,0,1)
  -
}
on *:join:#:{
 if $nick = $me { set %/who $+ # 1 |  who # }
    set %/who $+ # 1
    who #
  }
  else {
    if %stat.wclone {
      if $ialchan($wildsite,#,0) > 1 {
        echo # 7- clones detected $+($chr(3),4,$chr(91),$chr(3)) $regsubex($str(x,$v1),/x/g,$+($chr(3),14,$ialchan($wildsite,#,\n).nick,$chr(3),$chr(32))) $+($chr(3),4,$chr(93),$chr(3))
      }
    }
  }
}
raw *:*:{
  if (($numeric = 352) && ($($+(%,/who,$2),2))) haltdef
  elseif ($numeric = 315) && ($($+(%,/who,$2),2)) unset %/who $+ $2 | haltdef
}

Damn...you got me. lol

@Jethro_: your code is 635 bytes lol :D

lol :p Well, if you really want to shrink WorldDMT's script a tiny bit further, you can do this:

menu status,nicklist,menubar {
  -
  WorldDMT Clones Detector V1.0 $iif(%stat.wclone,-[ ON ]-,-[ OFF ]-)
  .$iif(%stat.wclone,Dis,En) $+ able it:set %stat.wclone $iif(%stat.wclone,0,1)
  -
}
on *:join:#:{
  goto $iif($nick = $me,x,y) | :x | set %/who $+ # 1 | who # | halt | :y
  if %stat.wclone && $ialchan($wildsite,#,0) > 1 {
    echo # 7- clones detected $+($chr(3),4,$chr(91),$chr(3)) $regsubex($str(x,$v1),/x/g,$&
      $+($chr(3),14,$ialchan($wildsite,#,\n).nick,$chr(3),$chr(32))) $+($chr(3),4,$chr(93),$chr(3)) | halt
  }
}
raw *:*:{
  if (($numeric = 352) && ($($+(%,/who,$2),2))) haltdef
  elseif ($numeric = 315) && ($($+(%,/who,$2),2)) unset %/who $+ $2 | haltdef
}

I have changed the join event a little, as well as a typo, which to be in French, and made the enable and disable switch a bit smaller. But it's not that much of a difference in size, just a few bytes off. :P

@worlddmt no i made it a bit smaller
my script is 611 bytes
yours is 622 bytes

so how do you made it smaller? :)

@worlddmt no i made it a bit smaller

@jethro_ cus i would probably get flammed for making a dialog, then th scripter getting mad cus he did not make one :P

slub77 you just copy paste??

slub77, what did you do to make youself run off!!? How come you did not dialog-ize it? lol

menu status,nicklist,menubar {
  -
  WorldDMT Clones Detector V1.0 $iif(%stat.wclone,-[ ON ]-,-[ OFF ]-)
  .$iif(%stat.wclone,Desative,Enable) it:set %stat.wclone $iif(%stat.wclone,0,1)
  -
}
on *:join:#:{
  if $nick == $me { set %/who $+ # 1 |  who # }
  else {
    if %stat.wclone {
      if $ialchan($wildsite,#,0) > 1 {
echo # 7- clones detected $+($chr(3),4,$chr(91),$chr(3)) $regsubex($str(x,$v1),/x/g,$+($chr(3),14,$ialchan($wildsite,#,\n).nick,$chr(3),$chr(32))) $+($chr(3),4,$chr(93),$chr(3)) } } } }
raw *:*:{
  if (($numeric == 352) && ($($+(%,/who,$2),2))) haltdef
elseif ($numeric == 315) && ($($+(%,/who,$2),2)) { unset %/who $+ $2 | haltdef } }

Slub77 runs off

nice little snippet!congrate WorldDMT

ah ok nooo i saw the color nomber i was think u saw it like this or not colored :p

it did work WorldDMT for me. you might have just misread what i typed in my comment :)

hi tnx for your comments

@Cheiron: echo work good with me, i dont now why that dont work with u :/

@tv3636: tnx i changed it :D

good script, might allow clones for ops?

9-10 would be 10, but don't like the menu feature. -.-

Small but does the job very good, nice work.

hi

WordlDMT Clones Detector V1.0 $iif(%stat.wclone,-[ ON ]-,-[ OFF ]-)

This should be

WorldDMT Clones Detector V1.0 $iif(%stat.wclone,-[ ON ]-,-[ OFF ]-)

:p Looks good though, although I have no use for it personally

[14:49:48] * Joins: Shiras_RPOAKbot 7- clones detected 4[ 14Shiras_RPOAKbot 14Titan_Bot 4]

nice little echo in channel. very basic echo and non obtrusive. job well done :) gets an 8 and a like