Clone Uyari Kodu
Clone Uyari Kodu
kod:
on 1: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 12*** 6Özelinizdeki 2 $1 %qc [ $+ [ $1 ] ] 6ayn? cafe\\\\\\\'den yada ayn? ki?iler. 2( $+ $address($1,2) $+ )
echo $1 
unset %qc*
}