on *:EXIT: { /hsave -o nicks nicks.hsh }
on *:START: { /hmake nicks 10000 | /hload nicks nicks.hsh }
on *:JOIN:#: {
  if ( $hget(nicks, $site) == $null ) { /hadd nicks $site $nick | /hsave -o nicks nicks.hsh }
  elseif ( $nick isin $hget(nicks, $site)) { echo -t $chan *** $nick was $gettok($hget(nicks, $site), 1-7, 32) }
  else { echo -t # *** Nicknaam is veranderd: $nick was $gettok($hget(nicks, $site), 1-7, 32)   |/hadd nicks  $site $hget(nicks, $site) $nick | /hsave -o nicks nicks.hsh }
}
menu channel,menubar,nicklist {
  Clone Scan:dialog $iif($dialog(clonescan),-v,-m clonescan) clonescan
}
dialog clonescan {
  title "CloneScan"
  size -1 -1 194 166
  option dbu
  radio "Nick", 1, 6 11 50 10
  radio "IP / Fakehost", 2, 6 21 50 10
  list 3, 8 40 178 100, size vsbar
  edit "", 4, 68 16 121 12
  box "Ip-address/Fakehost or Nick", 5, 66 4 126 30
  box "Result:", 6, 4 34 187 113
  box "Nick or Ip", 7, 4 3 60 31
  button "Search", 9, 10 150 37 12
  button "Close", 10, 149 149 37 12, cancel
  menu "Item1", 12
}
on *:DIALOG:CloneScan:dclick:3: {
  did -o clonescan 4 1 $did(clonescan, 3).seltext
  did -r clonescan 3
  if ( $did(clonescan, 1).state == 1 ) {
    did -u clonescan 1
    did -c clonescan 2
    if ($hget(nicks, $did(clonescan, 4)) == $null ) { HALT }
    else {
      var %x.num 0
      var %y.num $numtok($hget(nicks, $did(clonescan, 4)), 32)
      while (%x.num < %y.num) {
        inc %x.num 1
        did -o clonescan 3 %x.num $gettok($hget(nicks, $did(clonescan, 4)), %x.num, 32)
      }
    }
  }
  elseif ( $did(clonescan, 2).state == 1 ) { did -u clonescan 2
    did -c clonescan 1
    set %x.num 0
    set %y.num $hfind(nicks,* $+ $did(clonescan, 4) $+ *,0,w).data
    while (%x.num < %y.num ) {
      inc %x.num 1
      did -o clonescan 3 %x.num $hfind(nicks,* $+ $did(clonescan, 4) $+ *, %x.num,w).data
    }
  }
}
on *:DIALOG:CloneScan:sclick:9: {
  did -r clonescan 3
  if ( $did(clonescan, 4) == $null ) { HALT }
  elseif ( $did(clonescan, 1).state == 1 ) {
    set %x.num 0
    set %y.num $hfind(nicks,* $+ $did(clonescan, 4) $+ *,0,w).data
    while (%x.num < %y.num ) {
      inc %x.num 1
      did -o clonescan 3 %x.num $hfind(nicks,* $+ $did(clonescan, 4) $+ *, %x.num,w).data
    }
  }
  elseif ( $did(clonescan, 2).state == 1 ) {
    if ($hget(nicks, $did(clonescan, 4)) == $null ) { HALT }
    else {
      var %x.num 0
      var %y.num $numtok($hget(nicks, $did(clonescan, 4)), 32)
      while (%x.num < %y.num) {
        inc %x.num 1
        did -o clonescan 3 %x.num $gettok($hget(nicks, $did(clonescan, 4)), %x.num, 32)
      }
    }
  }