- Konum
- ىαкαяyλ
-
- Üyelik Tarihi
- 27 Kas 2009
-
- Mesajlar
- 24,120
-
- MFC Puanı
- 79
#cafeuyar on
on 1
pen:?: {
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ı cafeden yada aynı kişiler 11- 0( $+ $address($1,2) $+ )11,1 -
echo $1
unset %qc*
}
#cafeuyar end
on 1
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ı cafeden yada aynı kişiler 11- 0( $+ $address($1,2) $+ )11,1 -
echo $1
unset %qc*
}
#cafeuyar end