Ortak Kanal ve Cafe Uyarici

Sohbet Ederken özelinizdeki kişilerin ortak girdiginiz kanallari ve o nickten başka giriş varsa cafe tarzi girişleri size bildirir. Kod aşagidaki gibidir.

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