20 Nisan 2007, 08:32
|
#2 |
| Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| Yanıt: Aynı IP ten Özele Gelinirse Echo
Kod:
| | Alıntı: |
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) { echo $1 $1 Ip adresi: $address($1,2) Clone Bulunamadı | 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 14[0,4 UYARI 14,0] $1 ile " $+ %qc [ $+ [ $1 ] ] $+ " AYNI Cafeden Veya Ayni KisiLer $address($1,2)
unset %qc*
}
on ^*:close:?: { unset %cfnd [ $+ [ $target ] ] }
alias query { /query $1 | $qc($1) }
| Not:Biryerde Bulmuştum , Yani Ben Yazmadım.Umarım İşine Yarar...
|
|
|  |