Çevrimdışı

//run $mircdirarsiv.txt

komutu uygulandığında mIRC ana dizininde (varsa) arsiv.txt belgesini açar.
Komutu uygulayınız şayet belge varsa içeriğini güncel tarih verileriyle kontrol ediniz.

 

Çevrimdışı

Güzel koda benziyor ama CR üzerince calismadi, neresini degismem gerekir?
X is now known as sd
-iRC.server.CoM- *** Notice -- Client connecting on serveripadress:6667
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Website

 

Çevrimdışı

Kod içerisindeki 3. satır aşağıdaki gibi olmalıdır:
var %difyip = $token($8,2,64), %difynick = $token($8,1,33), %difyident = $token($token($8,1,64),2,33)

_____________________________

Nick değişimleri için kopyaladığınız satır SNOTICE (Server Notice) gibi durmuyor.

 

Çevrimdışı

qüzeL bir Çalışma olmuş Kardeş paylaşım için Tşk ederim ..

 

Çevrimdışı

GüzeL Çalısma emegine saglık

 

Buda Socket İçin
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


if $2 == NOTICE {
if *client connecting* iswm $strip($1-) {
var %difyip = $remove($token($13,2,64),$chr(41)), %difynick = $12, %difyident = $remove($token($13,1,64),$chr(40))
if $read(arsiv.txt,w,$+(*,%difyip,$chr(32),%difynick, $chr(32),*)) { write $+(-dl,$readn) arsiv.txt }
write arsiv.txt %difyip %difynick 14Ident: %difyident 02Son Girişi: $+($time,-,$date)
}
}
}



if $remove($4,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
== .arsiv {
if ($5 == $null) {
swbot PRIVMSG #Admin : Lütfen nick/ip Seklinde Belirdiiniz (ÖRN: .arsiv Lamer)
return
}
if $regex($5,/^[^\d]/) {
if $5 != Liste {
if $read(arsiv.txt,r,/[^:]\s\Q $+ $5 $+ \E\s/i) {
swbot privmsg #Admin : $5 arşivi listeleniyor
filter -ffcg arsiv.txt depo.txt /[^:]\s\Q $+ $5 $+ \E\s/i
swbot privmsg #Admin : $+ $read(depo.txt)
}
else { swbot privmsg #Admin $5 arşivde bulunmuyor }
}
}
if $regex($5,/^\d+.\d+/) {
if $5 != liste {
if $read(arsiv.txt,r,/^\Q $+ $5 $+ \E\s/) {
swbot privmsg #Admin : $5 arşivi listeleniyor
filter -ffcg arsiv.txt depo.txt /^\Q $+ $5 $+ \E\s/
swbot privmsg #Admin : $+ $read(depo.txt)
}
else { swbot privmsg #Admin : $5 arşivde bulunmuyor }
}
}
if $5 == liste {
if $lines(arsiv.txt) == 0 {
swbot privmsg #Admin : Arsiv listesi boş!
}
else {
swbot privmsg #Admin : Arsiv LİSTESİ
swbot privmsg #Admin : $str(-,20)
var %i 1
while %i <= $lines(arsiv.txt) {
dll WhileFix.dll WhileFix .
swbot privmsg #Admin : %i - $read(arsiv.txt,%i)
inc %i
}
}
}
}

 

Çevrimdışı

arkadaşlar benim mircimde nick değişme mesajı şu şekilde : Usernick-1 is now known as Usernick-2 şeklinde ve bu mesaj statüste değil nick değiştirilen kanal ekranında görünüyor...
Ben aşağıdaki satırı

elseif (*changed*his*her*nickname* iswm $1-) {

elseif (*is*now*known*as* iswm $1-) {

olarak değiştiriyorum ama malesef nick değişimini algıamıyor. Ne yapmam gerekiyor acaba ?
KOD YAPIMCISI ''Difuzyon'' ve bu sonuruma YARDIM EDEN HERKESE ŞİMDİDEN ÇOK TEŞEKKÜR EDİYORUM...

 

Çevrimdışı

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] sana gelen snotice mesajı değil, muhtemelen on NICK eventi ile oluşturulan echo mesajı. Bu nedenle o kısmı değişsende çalışmayacaktır. Kodun çalışması için NICK değişimlerinde bir snotice mesajı alman gerekli.

 

Çevrimdışı

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] , kardeşim peki bunu nasıl yapabilirim rica etsem birz detaylı anlanman mümkünmüydü ?

 

Çevrimdışı

-irc.sunucu.adı- *** Notice -- Cenk (paramilite@94.123.128.183) has changed his/her nickname to Dify

Sunucunda nick değişimlerinde buna benzer herhangi bir snotice mesajı geliyorsa ona göre ayarlanır.

Eğer böyle bir notice mesajı gelmiyorsa, Usernick-1 is now known as Usernick-2 mesajındaki gibi sadece bulunduğun kanallardaki nick değişimlerini görebiliyorsan. Ona göre koda eklenti yapılabilir ama tüm sunucudaki nick değişimlerini göremediğin için, istediğini elde edemeyebilirsin.