Jethro commented on a Page, Clones detector  -  Apr 09, 2010

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.

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.