Ozele Clone Uyarisi
#cafeuyar on
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 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
mRC TurkMrc Mrcindir mRCYukle TurkceMrc chat sohbet muhabbet haber mirc sitesinde bu yazi 356 kere goruntulenmistir.
Comments
Yorum yazın:
