20 Ekim 2007, 18:36
|
#3 |
| Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| Cevap: özelde clone
$ana ßirde ßöLe ßir Kod VerebiLirim.
| | Alıntı: |
#cl on
on *:join:*: {
%clones = $ialchan($wildsite,#,0)
if ( %clones > 1 ) {
var %count = 1
set %clone.nicks -->
while (%count <= %clones) {
%clone.nicks = %clone.nicks $ial($wildsite,%count).nick
inc %count
}
if ($window(@Clones)) {
aline @clones 4Clone Tesbit Edildi : 3 $remove(%clone.nicks,-->) 14 # 4 %clones Tane
}
else {
window -ea @clones
aline @clones 4Clone Tesbit Edildi : 3 $remove(%clone.nicks,-->) 14 # 4 %clones Tane
}
}
set %change $read -s $+ $address($nick,4) notes.ini
if (%change == $null) {
haltdef
write notes.ini $address($nick,4) $nick
halt
}
}
#cl end
| Ankara KanaLında 2 cLone buLunda : NickLeri - a-b-c-
izmir kanalında 3 cLone buLunda : NickLeri - d-e-f ßu $ekiLde ßirsey Umarım İsine Yarar. NOT : IrcForumLarı aLıntıdır.
|
|
|  |