clone scanner

#clones on
on *:start: { 
  hmake clones  
  if ($exists(clones.txt)) hload clones clones.txt
} 
on *:load: { 
  rewin 
  hmake clones  
  if ($exists(clones.txt)) hload clones clones.txt 
} 
on *:join:#: { 
  clh $ial($nick)
} 
on *:exit: { 
  hsave -o clones clones.txt 
  hdel -w clones >* 
} 
on *:disconnect: { 
  hsave -o clones clones.txt 
  hdel -w clones >* 
} 

alias clh { 
  if ($hget(clones,$oip($1)) != $null) && ($remove($nk($1),') !isin $hget(clones,$oip($1))) { hadd -m clones $oip($1) $hget(clones,$oip($1)) $remove($nk($1),') } 
  elseif ($hget(clones,$oip($1)) = $null) { hadd -m clones $oip($1) $remove($nk($1),') } 
  if ($gettok($hget(clones,$oip($1)),0,32) > 1) { 
    echo @Info 4 CLONES: 12 ( $+ $hget(clones,$oip($1)) $+  )
    echo # 4CLONES:12 ( $+ $hget(clones,$oip($1)) $+  )
    ctcpreply %cnick TIME ::: CLONES (( $+ $hget(clones,$oip($1)) $+ )) :- 
  } 
  while ($fline(@Info,$remove($nk($1),'),0,2) > 1) { 
    dline @Info $fline(@Info,$remove($nk($1),'),1,2) 
  } 
} 

dialog csm { 
  title "Clone Scanner Manager" 
  size -1 -1 280 167 
  option pixels notheme 
  box "IP Entry", 1, 15 5 248 46 
  edit "Enter IP", 2, 24 22 100 20 
  button "Fetch", 3, 172 18 65 25 
  box "Result", 4, 15 54 247 56 
  edit "Clones", 5, 20 68 237 33, autohs 
  button "Delete", 6, 15 115 50 25 
  button "Save", 7, 78 115 50 25 
  button "Dump", 8, 145 115 50 25 
  button "Close", 9, 211 115 50 25, ok 
  text "CloneScan Manager", 10, 15 147 244 17, center 
} 

On *:Dialog:csm:sclick:3:{ 
  did -ra csm 5 $hget(clones,$did(2))        
} 
On *:Dialog:csm:sclick:6:{ 
  hdel clones $did(2) 
  did -ar csm 2 Enter IP 
  did -a csm 5 Item deleted      
} 
On *:Dialog:csm:sclick:7:{ 
  hadd clones $did(2) $did(5) 
  did -ra csm 2  Enter IP 
  did -ra csm 5 Data saved to Hash Table      
} 
On *:Dialog:csm:sclick:8:{ 
  hsave -o clones clones.txt 
  did -ra csm 5 Hash Table saved to clones.txt      
} 

alias oip { return $gettok($gettok($1,1-3,46),2,33) } 
alias nk { return $gettok($1,1,33) } 
#clones end