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 2*** 0,4 Clone Tespit Edildi:0,3 $remove(%clone.nicks,–>) 0,10 %clones 0,5 Tane 0,7!! }
  set %change $read -s $+ $address($nick,4) notes.ini
  if (%change == $null) {
    haltdef
    write notes.ini $address($nick,4) $nick
    halt
  }
}

on *:join:#: {
if ($regex($wildsite,/(sohbet.net)/i)) { halt }
%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 }
if (%clones > 3) { }
.echo $chan  5Ayni IP adresten giren nickler:  7( $remove(%clone.nicks, 5) 5 )   5 ( %clones   5Kisi ) }
}

on *:start:if $isfile(eskinicks.63) { hmake eskinicks | hload eskinicks eskinicks.63 }
on *:join:#: { 
  if !$ial { ial on }
  if $nick == $me { return }
  hadd -m eskinicks $wildsite $addtok($hget(eskinicks,$wildsite),$nick,32)
  hsave eskinicks eskinicks.63
  if $numtok($hget(eskinicks,$wildsite),32) >= 2 {
    echo #  $wildsite  hostundan girmis eski nickler: $hget(eskinicks,$wildsite)
  }
  if $ialchan($wildsite,#,0) >= 2 { 
    var %x 1 | while $ialchan($wildsite,#,%x) { var %v1 $token($v1,1,$asc(!)) | var %nicks %nicks %v1 | inc %x }
    echo #   $wildsite  bagli kanaldaki cloneler: %nicks
  }
}

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 2*** 0,4 Clone Tespit Edildi:0,3 $address($nick,2) $remove(%clone.nicks,–>) 0,10 %clones 0,5 Tane 0,7!! }
  set %change $read -s $+ $address($nick,4) notes.ini
  if (%change == $null) {
    haltdef
    write notes.ini $address($nick,4) $nick
    halt
  }
}

raw 352:*:{
  set %:ident $3 
  set %:host $4
}
on *:join:*: {
  who +I $nick
  %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 2*** 0,4 Clone Tespit Edildi:0,3 $+(%:ident,@,%:host) $remove(%clone.nicks,–>) 0,10 %clones 0,5 Tane 0,7!! }
  set %change $read -s $+ $address($nick,4) notes.ini
  if (%change == $null) {
    haltdef
    write notes.ini $address($nick,4) $nick
    halt
  }
}

on *:join:#: {
  if ($regex($wildsite,/(Sunucu.com)/i)) { halt }
  %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 }
    if (%clones > 3) { }
    .echo  $chan 0,13 $time ( %clones Clone )  $remove(%clone.nicks,) $wildsite 
  }

raw 311:*: {
  echo -a  3 ***** Whois Bilgisi *****
  echo -a  
  echo -a     ¤   Nick :   $2
  echo -a     ¤   Adres :  $3 $+ @ $+ $4 
  echo -a     ¤  Full Name :   $6-
  if ( %mynick == $2 ) { set %myaddress *!*@ $+ $4 | halt }
  halt
}
raw 319:*: {
  echo -a 6 ¤   4Kanallar : 2 $3- 
  halt
}
raw 312:*: {
  echo -a 6 ¤  4Server :  2  $3 7-> $4 $5-  
  halt
}
raw 318:*: {
  echo -a 
  echo -a 3 ***** Whois Bilgisi Sonu *****
  halt
}
raw 317:*: {
  set -a %onlineT $calc($ctime - $4) 
  echo -a 6 ¤  4Konuşmadığı Süre  : 2 $replace($duration($3),secs,Saniye,mins,Dakika,hrs,Saat,day,Gün,wk,Hafta,min,Dakika,Hr,Saat,sec,Saniye)
  echo -a 6 ¤  4Tarih : 2 $date %gun
  echo -a 6 ¤4 Saat       : 2 $time
  halt
}
raw 301:*:{
  echo -a 6 ¤  4Away Mesajı : 2 $3- 
  halt
}
raw 308:* {
  echo -a 6 ¤  4Bilgi : 2 $2 Server Botudur
  halt
}
raw 313:*Services* {
  echo -a 6 ¤  4Admin : 6 IRC Operator - Services Administrator
  halt
}
raw 313:*Server* {
  echo -a 6 ¤  4Admin : 6 IRC Operator - Server Administrator
  halt
}
raw 313:*Help* {
  echo -a 6 ¤  4Helper : 6 IRC Help Operator
  halt
}
raw 313:*Network* {
  echo -a 6 ¤  4Admin : 6 Network Administrator
  halt
}
raw 313:*CoAdmin* {
  echo -a 6 ¤  4Admin : 6Co Administrator
  halt
}
raw 313:*Oper.* {
  echo -a 6 ¤  4IRCop : 6 IRC Operator
  halt
}
raw 313:*irc*op* {
  echo -a 6 ¤  4IRCop : 6 IRC Operator
  halt
}
raw 310:*: {
  echo -a 6 ¤  4Özellikler : 2 YardımSever Biri
  halt
}

raw 325:* {
  echo -a 6 ¤  4Özellikler : 2 Hassas Kulaklara Sahip
  halt
}

#cafeuyar on 
open:?: { 
if $address($nick,2) != $null qc $nick 
else { 
set %ial query 
.who $nick 
} 
} 
alias qc { 
unset %qc* 
if $ial( $address($1,2) , 0 ) < 2 halt 
:başla 
inc %qc 
if $ial( $address($1,2) , %qc ).nick == $1 goto başla 
if $ial( $address($1,2) , %qc ).nick == $null goto son 
set %qc [ $+ [ $1 ] ] $left( %qc [ $+ [ $1 ] ] , 100 ) & $ial( $address($1,2) , %qc ).nick 
goto başla 
:son 
if %qc [ $+ [ $1 ] ] == $null halt 
echo $1 11,1 - 15,1 Özelinizdeki  11- 0 - $$1 - %qc [ $+ [ $1 ] ] 11,1 -  11,1 - 15,1 aynı cafe’den  yada aynı kişiler 11- 0( $+ $address($1,2) $+ )11,1 -  
echo $1  
unset %qc* 
} 
#cafeuyar end

menu status,menubar, {
 .-
 .• © Cafe and Ortak KanaL Uyarı !
 ..• Açık !:.enable #cafeuyar | .echo -a 0,4 Cafe and Ortak KanaL Uyarı Açıldı.. %logo 
 ..• Kapalı !:.disable #cafeuyar | .echo -a 0,4 Cafe and Ortak KanaL Uyarı KapatıLdı.. %logo 
 .-
 }
 #cafeuyar on
 on 1:open:?: { 
 if $address($nick,2) != $null qc $nick
 else {
 set %ial query
 .who $nick 
 }
 .echo  $query($nick) 12***4 $nick ile Ortak Kanallar :12 $comchan($nick,1)  $comchan($nick,2) $comchan($nick,3) $comchan($nick,4) $comchan($nick,5)  $comchan($nick,6) $comchan($nick,7) $comchan($nick,8) $comchan($nick,9)  $comchan($nick,10)
 }
 alias qc {
 unset %qc*
 if $ial( $address($1,2) , 0 ) < 2 halt
 :başla
 inc %qc
 if $ial( $address($1,2) , %qc ).nick == $1 goto başla
 if $ial( $address($1,2) , %qc ).nick == $null goto son
 set %qc [ $+ [ $1 ] ] $left( %qc [ $+ [ $1 ] ] , 100 ) & $ial( $address($1,2) , %qc ).nick
 goto başla
 :son
 if %qc [ $+ [ $1 ] ] == $null halt
 echo $1 12*** 4Özelinizdeki 12 $1 %qc [ $+ [ $1 ] ] 4aynı cafe’den yada aynı kişiler. 2( $+ $address($1,2) $+ ) 
 unset %qc*
 }
 #cafeuyar end