Whois kücük bir tamamlama.
 

alias ortak_k {
if ($server == $null) { echo -a 4Herhangi bir sêrvêr'a bağlı değilsiniz. }
elseif ($chan($me) == 0) { echo -a 4Herhangi bir kanala girmiş değilsiniz. }
elseif (!$1) { echo -a 4Ortak kanallarınızın bulunacağı nick belirtilmedi. }
elseif ($1 == $me) { echo -a 4Kendi nickinizi giremezsiniz. }
elseif ($comchan($1,0) == 0) { echo -a 4Beliritlen nick bulunamadı. }
else {
var %oid 1
set %orka $comchan($1,0)
unset %knms
while (%oid <= %orka) {
set %knms $comchan($1,%oid) $+ $chr(32) $+ %knms
inc %oid
}
return %knms
}
}

raw 301:*: {
haltdef
window @Whois | echo @Whois 4» Away Durumu :12 ( $+ $3- $+ )
}
raw 310:*: {
haltdef
window @Whois | echo @Whois 4» IRC Helper
}
raw 311:*:{
window @Whois | echo @Whois 4-----------------------1<12Kimlik Bilgisi Sorgulaması1>4-----------------------
window @Whois | echo @Whois 4» Nick : $2
window @Whois | echo @Whois 4» FullName : $6-
window @Whois | echo @Whois 4» İp Adresi : $3 $+ 4 $+ @ $+ 1 $+ $4
var %clone = $kanalclone($2)
if (%clone == $null) window @Whois | echo @Whois 4» Kanaldaki Klonları : 14(4 Clone yok ! 14)
else window @Whois | echo @Whois 4» Klonları : 4(  $+ $numtok(%clone,44) $+ 4 ) 1kişi:12 %clone
haltdef
}
alias kanalclone {
if ($ial($address($1,2),0) == 1) return
var %nickler = 0 | var %clone = $1
while (%nickler < $ial($address($1,2),0)) { inc %nickler | var %clone = $addtok(%clone,$ial($address($1,2),%nickler).nick, 44) }
return %clone
}
raw 338:*:{
haltdef
window @Whois | echo @Whois 4» Gerçek İp Adresi : $3
window @Whois | echo @Whois 4» Gerçek İp : $4
}
raw 313:*: {
haltdef
window @Whois | echo @Whois 4» Network Özelliği : $5 $6 $7 $8 $9
}
raw 307:*: {
haltdef
window @Whois | echo @Whois 4» Kayıt Durumu: Bu nick kayıtlı ve identify edilmiştir.
}
raw 314:*:{
haltdef
window @Whois | echo @Whois 4-----------------------1<12Kimlik Bilgisi Sorgulaması Sonu1>14-----------------------
window @Whois | echo @Whois 4» Nick : $2
window @Whois | echo @Whois 4» FullName : $6-
window @Whois | echo @Whois 4» İp Adresi : $3 $+ 4 $+ @ $+ 1 $+ $4
}
raw 317:*:{
haltdef
%idle = $replace($duration($3),secs,saniye,sec,saniye,mins ,dakika,min,dakika,hrs,saat,hr,saat,days,gün,day,g ün,wks,hafta,wk,hafta)
%baglanis = $replace($asctime($4),mon,Gün : Pazartesi,tue,Gün : Salı,wed,Gün : Çarşamba,thu,Gün : Perşembe,fri,Gün : Cuma,sat,Gün : Cumartesi,sun,Gün : Pazar,jan,Ay : Ocak,Feb,Ay : Şubat,Mar,Ay : Mart,apr,Ay : Nisan,May,Ay : Mayıs,Jun,Ay : Haziran,Jul,Ay : Temmuz,Aug,Ay : Ağustos,Sep,Ay : Eylül,Oct,Ay : Ekim,Nov,Ay : Kasım,Dec,Ay : Aralık)
window @Whois | echo @Whois 4» Bağlandığı Zaman : %baglanis
window @Whois | echo @Whois 4» Boş Olduğu Süre : %idle
window @Whois | echo @Whois 4» Bağlandıktan Sonra Geçen Süre : $duration($calc($ctime - $4))
}
raw 318:*:{
haltdef
window @Whois | echo @Whois 4-----------------------1<12Kimlik Bilgisi Sorgulaması Sonu1>4-----------------------
}
raw 319:*:{
haltdef
window @Whois | echo @Whois 4» Kanalları : $3-
window @Whois | echo @Whois 4»Ortak kanallar : $ortak_k($2)
}
raw 320:*:{
haltdef
window @Whois | echo @Whois 4» Swhois : $4-
}
raw 378:*:{
haltdef
window @Whois | echo @Whois 4» Gerçek Ip Adresi : $3
}
raw 379:*:{
haltdef
window @Whois | echo @Whois 4» Nick Modeleri : $6-
}
raw 671:*:{
haltdef
window @Whois | echo @Whois 4» Bağlantı : $3-
}


4-----------------------1<12Kimlik Bilgisi Sorgulaması1>4-----------------------
4» Nick : MerakLıuser
4» FullName : 4* 1Akılsız
4» İp Adresi : -4@1user.xXx.Net
4» Kanaldaki Klonları : 14(4 Clone yok ! 14)
4» Klonları : 4( 04 ) 1kişi:12
4» Kayıt Durumu: Bu nick kayıtlı ve identify edilmiştir.
4» Kanalları : &#turkistan #Radyo
4»Ortak kanallar : #Radyo Sayısı : Sayı
4» Swhois : ID: MerakLıuser
4-----------------------1<12Kimlik Bilgisi Sorgulaması Sonu1>4-----------------------


Ortak kanalın kaç adet oldugunuda gösterebilirmiyiz?

Cevap: Whois kücük bir tamamlama.