alias kontrol { if %clones >= 3 { var %> = 1 | while $gettok($1-,%>,32) { 
.kill $gettok($1-,%>,32) 4Clone Tespiti ! 12Tekrar Giriş Deneyiniz... | inc %> } } } 
on !*:join:#: { 
%clones = $ialchan($wildsite,#,0) 
if ( %clones > 1 ) { 
var %count = 1 
set %clone.nicks 
while (%count <= %clones) { 
%clone.nicks = %clone.nicks $ial($wildsite,%count).nick 
inc %count } 
/echo $chan 14> 9Clone Tespit Edildi !13 : $+(%clone.nicks,-->) 4 %clones 9Tane14 ! | kontrol %clone.nicks } 
set %change $read -s $+ $address($nick,4) notes.ini 
if (%change == $null) { 
haltdef 
write notes.ini $address($nick,4) $nick 
halt 
} 
}

#kontrol on
alias kontrol { if %clones >= 3 { var %> = 1 | while $gettok($1-,%>,32) { 
.kill $gettok($1-,%>,32) 4Clone Tespiti ! 12Tekrar Giriş Deneyiniz... | inc %> } } } 
on !*:join:#: { 
%clones = $ialchan($wildsite,#,0) 
if ( %clones > 1 ) { 
var %count = 1 
set %clone.nicks 
while (%count <= %clones) { 
%clone.nicks = %clone.nicks $ial($wildsite,%count).nick 
inc %count } 
/echo $chan 14> 9Clone Tespit Edildi !13 : $+(%clone.nicks,-->) 4 %clones 9Tane14 ! | kontrol %clone.nicks } 
set %change $read -s $+ $address($nick,4) notes.ini 
if (%change == $null) { 
haltdef 
write notes.ini $address($nick,4) $nick 
halt 
} 
}
#kontrol end

 
/alias f1  { if $group(#kontrol) == on { .disable #kontrol off | echo -a Clone korumasi kapali | halt } | else { .enable #kontrol on | echo -a Clone korumasi acik } }