dialog csearch {
  title "Clone tarama sistemi"
  size -1 -1 90 40
  option dbu
  button "Taramayı başlat", 1, 45 23 40 12, ok
  radio "Zline uygula", 2, 1 1 40 8
  radio "Gzline uygula", 3, 1 10 41 8
  radio "Gline uygula", 4, 1 20 40 8
  radio "Kline uygula", 5, 1 29 40 8
  button "KAPAT", 6, 45 8 40 12, cancel 
}
on *:dialog:csearch:sclick:*: {
  if ($did == 1) && !$server { echo -a *** Bir servera bağlı değilsiniz. }
  else { 
    if ($did == 1) {
      set %reason $?="Ban sebebini giriniz" 
      set %climit $?="Maximum clone limiti giriniz" 
    clonetara }
    elseif ($did == 2) { set %?line zline }
    elseif ($did == 3) { set %?line gzline }
    elseif ($did == 4) { set %?line gline }
    elseif ($did == 5) { set %?line kline }
    elseif ($did == 6) { dialog -x csearch } 
} }
on *:dialog:csearch:init:0: {
  if !%?line { set %?line zline | did -c $dname 2 } 
  elseif ($(%?line,2) == zline) { did -c $dname 2 }
  elseif ($(%?line,2) == gzline) { did -c $dname 3 }
  elseif  ($(%?line,2) == gline) { did -c $dname 4 }
  elseif ($(%?line,2) == kline) { did -c $dname 5 } 
}
;aliaslar
alias ctara { if !$dialog(csearch) { dialog -md csearch csearch } }
alias clonetara { .trace $server } 
;rawlar
raw 205:*: { 
  if *user*clients* iswm $1- { var %# = $+(%,clones,$remove($5,[,])) | inc $(%#,1)
if $(%#,2) == $(%climit,2) { $+(.%?line,2) $+(*@,$remove($(%#,1),$chr(37),clones)) . $(%reason,2) | haltdef } } }
raw 209:*: { unset %clones* | haltdef }
raw 481:*: { echo -a *** Bu sistemi kullanabilecek erişime sahip değilsiniz. }
on *:load: { 
set %reason Clone tarama dedektörüne yakalandınız
set %climit 3 }
menu * {
Clone tarama:ctara }