alias tara { 
  hmake kontrolip
  set %ta $gettok($address($active,2),2,64)
  var %i 1
  while %i <= $chan(0) { 
    who $chan(%i) | set %kc on | set %nc $active      
    inc %i  
  }
  .timer 1 1 ka   
}

raw 352:*: { 
  if %kc == on { 
    if $4 == %ta { 
      hadd -m kontrolip $6
      hdel kontrolip %nc
    }  
  }
}
alias ka { 
  var %i 1 
  while (%i <= $hmatch(kontrolip,*,0)) {  
    echo -a 12Bu Nickin Cloneleri: 4 $hmatch(kontrolip,*,%i)
    inc %i
  }
  unset %nc %kc %ta | hfree kontrolip
}