#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