IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - !arsiv [IP|Nick] (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/379627-arsiv-ip-nick.html)

Difuzyon

28 Ocak 2011 22:41

!arsiv [IP|Nick]

Merhabalar,

Sunucuya giriş satırı:
-irc.sunucu.adı- *** Notice -- Client connecting on port 6667: Cenk (paramilite@94.123.128.183) [clients]
Nick değişimleri satırı:
-irc.sunucu.adı- *** Notice -- Cenk (paramilite@94.123.128.183) has changed his/her nickname to Dify

Sunucuda IRCop düzeyinde bulunan mirc botunuz yukarıdaki snotice satırlarını görebiliyorsa aşağıdaki kodu mirc botunuzun remote kısmına eklemeniz halinde;sunucuya giriş yapan veya sunucuda nick değiştiren nicki,ident bilgisini ve ip numarasını kayıt altına alacaktır.
Bir nevi giriş yapan tüm nick ve ip noları arşivleyecektir.

Bu kayıtlar bir metin belgesine yazdırılıp istem halinde
(#KANAL'da uygulanacak komutlar)
!arsiv IP
veya
!arsiv Nick
komutlarını belirttiğiniz #kanal da uyguladığınızda istemde bulunan verileri filtreleyip size sunacaktır.

Kod:

on *:snotice:*:{

  if (*client*connect* iswm $1-) { 

    var %difyip = $remove($token($10,2,64),$chr(41)), %difynick = $9, %difyident = $remove($token($10,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) 

  }

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

    var %difyzip = $remove($token($5,2,64),$chr(41)), %difynickz = $11, %difyidentz = $remove($token($5,1,64),$chr(40))

    if $read(arsiv.txt,w,$+(*,%difyzip,$chr(32),%difynickz,$chr(32),*)) { write $+(-dl,$readn) arsiv.txt }

    write arsiv.txt %difyzip %difynickz 14Ident: %difyidentz 02Son Girişi: $+($time,-,$date) 

  }

}
 ;kod içerisindeki #KANAL kısmını kendinize göre değişebilirsiniz
 on *:text:!arsiv &:#KANAL:{

  if $regex($2,/^\d+.\d+/) {

    if $read(arsiv.txt,r,/^\Q $+ $2 $+ \E\s/) { 

      msg $chan $2 arşivi listeleniyor 

      filter -ffcg arsiv.txt depo.txt /^\Q $+ $2 $+ \E\s/ 

      play $chan depo.txt 750

    }

    else { msg $chan $2 arşivde bulunmuyor }

  }

  if $regex($2,/^[^\d]/) {

    if $read(arsiv.txt,r,/[^:]\s\Q $+ $2 $+ \E\s/i) { 

      msg $chan $2 arşivi listeleniyor 

      filter -ffcg arsiv.txt depo.txt /[^:]\s\Q $+ $2 $+ \E\s/i 

      play $chan depo.txt 750 

    }

    else { msg $chan $2 arşivde bulunmuyor }

  }

}

Uygulama Sonuçları:

[22:09] <Cenk> !arsiv eCe
[22:09] <@Difuzyon> eCe arşivde bulunmuyor

[22:10] <Cenk> !arsiv seref06
[22:10] <@Difuzyon> seref06 arşivi listeleniyor
[22:10] <@Difuzyon> 94.123.128.183 Seref06 Ident: trsohbet Son Girişi: 22:01:20-28/01/2011

[22:10] <Cenk> !arsiv 85.102.42.208
[22:10] <@Difuzyon> 85.102.42.208 arşivi listeleniyor
[22:10] <@Difuzyon> 85.102.42.208 deneme12345 Ident: Cenk Son Girişi: 21:37:39-28/01/2011
[22:10] <@Difuzyon> 85.102.42.208 deneme123 Ident: Cenk Son Girişi: 21:41:04-28/01/2011
[22:10] <@Difuzyon> 85.102.42.208 deneme1234 Ident: Cenk Son Girişi: 21:49:58-28/01/2011
[22:10] <@Difuzyon> 85.102.42.208 Cenk Ident: Cenk Son Girişi: 22:07:49-28/01/2011

Hoşca paylaşımlar...

xlxlxl

28 Ocak 2011 22:46

Cevap: !arsiv [IP|Nick]

eline sağlık

onNes

28 Ocak 2011 22:55

Cevap: !arsiv [IP|Nick]

Maşallah bu kadar işin içinden birşeyler çıkarmak :) güzel emeğine sağlık

Difuzyon

28 Ocak 2011 23:02

Cevap: !arsiv [IP|Nick]

Teşekkür ederim, oper düzeyindeki erişimlerle ilgili fikir edinmede bana kapılarını açtığın için.

Boreas

29 Ocak 2011 00:43

Cevap: !arsiv [IP|Nick]

Hocam emeğinize sağlık güzel bir çalışma olmuş, bunu bot'a deilde kendi mircimize eklediğimizde çalışması için nasıl bişey yapmalıyız.

xyL	29 Ocak 2011 11:00

Cevap: !arsiv [IP|Nick]

Güzel çalışma olmuş, tebrik ederim.

Heavenly

29 Ocak 2011 13:19

Cevap: !arsiv [IP|Nick]

Alıntı:

Boreas Nickli Üyeden Alıntı (Mesaj 1040663420)

Hocam emeğinize sağlık güzel bir çalışma olmuş, bunu bot'a deilde kendi mircimize eklediğimizde çalışması için nasıl bişey yapmalıyız.

Kod:

on *:snotice:*:{

  if (*client*connect* iswm $1-) { 

    var %difyip = $remove($token($10,2,64),$chr(41)), %difynick = $9, %difyident = $remove($token($10,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) 

  }

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

    var %difyzip = $remove($token($5,2,64),$chr(41)), %difynickz = $11, %difyidentz = $remove($token($5,1,64),$chr(40))

    if $read(arsiv.txt,w,$+(*,%difyzip,$chr(32),%difynickz,$chr(32),*)) { write $+(-dl,$readn) arsiv.txt }

    write arsiv.txt %difyzip %difynickz 14Ident: %difyidentz 02Son Girişi: $+($time,-,$date) 

  }

}

;kod içerisindeki #KANAL kısmını kendinize göre değişebilirsiniz

on *:input:#: { 

  if $1 == !arsiv {

    if $regex($2,/^\d+.\d+/) {

      if $read(arsiv.txt,r,/^\Q $+ $2 $+ \E\s/) { 

        msg $chan $2 arşivi listeleniyor 

        filter -ffcg arsiv.txt depo.txt /^\Q $+ $2 $+ \E\s/ 

        play $chan depo.txt 750

      }

      else { msg $chan $2 arşivde bulunmuyor 

      }

    }

    if $regex($2,/^[^\d]/) {

      if $read(arsiv.txt,r,/[^:]\s\Q $+ $2 $+ \E\s/i) { 

        msg $chan $2 arşivi listeleniyor 

        filter -ffcg arsiv.txt depo.txt /[^:]\s\Q $+ $2 $+ \E\s/i 

        play $chan depo.txt 750 

      }

      else { msg $chan $2 arşivde bulunmuyor }

    }

  }

}

onNes

29 Ocak 2011 21:41

Cevap: !arsiv [IP|Nick]

Alıntı:

Difuzyon Nickli Üyeden Alıntı (Mesaj 1040663373)

Teşekkür ederim, oper düzeyindeki erişimlerle ilgili fikir edinmede bana kapılarını açtığın için.

Ne demek herzaman, küçükte olsa katkımız olsun.

Heavenly

30 Ocak 2011 14:51

Cevap: !arsiv [IP|Nick]

Yanlız bizim sunucuda arsivlerken böyle yapıyor
mIRC2011@88.227.69.14) 14Ident: 02Son Girişi: 14:45:22-30/01/2011
(Csohbet@78.187.223.116) 14Ident: 02Son Girişi: 14:45:22-30/01/2011

ve !arsiv yazdığımızda bir sonuç alamıyoruz

Giriş mesajları bu şekilde

(14:46:50) -access.mirctr.net- *** Notice -- Client connecting at web.mirctr.net: burak01 (Csohbet@213.43.67.237)
-
(14:46:52) -access.mirctr.net- *** Notice -- Client exiting at irc.mirctr.net: Bilinmez`!TurkmIRC@78.165.84.37 (4mIRCTR.2NET 2Birlikte, daha 4iyiye!)

Nick değişimide bu şekilde

(13:21:38) 2°4°12° 5Nick Change: 2(4HelpClient-2102) 2(
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
2)5 is now known as 2(4HeavenLy2)

Difuzyon

30 Ocak 2011 15:23

Cevap: !arsiv [IP|Nick]

var %difyip = $remove($token($10,2,64),$chr(41)), %difynick = $9, %difyident = $remove($token($10,1,64),$chr(40))
satırını aşağıdaki gibi yapmalısın:
var %difyip = $remove($token($9,2,64),$chr(41)), %difynick = $8, %difyident = $remove($token($9,1,64),$chr(40))

Nick değişim kısmında ise snotice mesajının orjinalini görmek lazım,edit gibi duruyor.

SiLuet

30 Ocak 2011 21:25

Cevap: !arsiv [IP|Nick]

Gerçekten Yarar Sağlayacak Bir Kod Eline Sağlık Üstad.

Adrenaline

31 Ocak 2011 02:41

Cevap: !arsiv [IP|Nick]

Emeginize sağlık çok güzel bir kod olmuş.

MaviLee

31 Ocak 2011 15:24

Cevap: !arsiv [IP|Nick]

Kod güzel diyecek birşey yok ama merak ettiğim kalabalık bir sunucuda loglar biraz fazla yer kaplamaz mı :)

Ek olarak. !Arsiv sil desek ve bot örnegin 1 haftadan(isteğe bağlı) daha eski logları kendi silse daha güzel birşey çıkabilir ortaya diye düşünüyorum..

Ama kod gerçekten bu haliyle de güzel

AspavA

31 Ocak 2011 21:48

Cevap: !arsiv [IP|Nick]

emegine saglık....

TriviuM

05 Şubat 2011 16:41

Cevap: !arsiv [IP|Nick]

Güzel işler yapıyorsun Difuzyon Tebrik ediyorum. :)

Azad	19 Nisan 2011 23:26

Cevap: !arsiv [IP|Nick]

Difuzyon; bu kodda belirli bir süre var mı? Yane "arsiv.txt" de 2ay önce bilgiler yok. Bunun sebebi nedir?

Difuzyon

20 Nisan 2011 16:10

Cevap: !arsiv [IP|Nick]

Alıntı:

MaviLee Nickli Üyeden Alıntı (Mesaj 1040665842)

Hayır yer kaplamaz,
if $read(arsiv.txt,w,$+(*,%difyip,$chr(32),%difynick, $chr(32),*)) { write $+(-dl,$readn) arsiv.txt }

bu koşul buna sınırlama getiriyor.Aynı nick aynı ip no ile giriş yaptığı takdirde satır silinir,yeni satır (Güncel tarih verisi ile) yazılır.

----------

Alıntı:

Azad Nickli Üyeden Alıntı (Mesaj 1040728187)

Difuzyon; bu kodda belirli bir süre var mı? Yane "arsiv.txt" de 2ay önce bilgiler yok. Bunun sebebi nedir?

İlginç,konuda ki açıklamaları okuduğunuzu düşünüyorum.

Konunun açılış tarihi: 28-01-2011, 22:41

Kodu bu tarihten sonra eklediğinize göre kayıt tutma işlemini eklediğiniz tarihten itibaren başlatacaktır.

Azad	22 Nisan 2011 01:55

Cevap: !arsiv [IP|Nick]

Alıntı:

Difuzyon Nickli Üyeden Alıntı (Mesaj 1040728431)

Postunu editlemene sevindim, zira senden böyle bir karşılık beklemiyordum.. Sebebini bilmediğim için, sorma gereksinimi duydum. Fakat kodu eklediğim tarihden bu zamana kadar bilgiler yok, niye bende bilmiyorum daha 1 hafta öncesine kadar hepsi varken, sadece bu ayın 18inden itibaren ki bilgilerini gösteriyor. Koda şöyle bir eklenti yaptım,
-
on *:text:!arsiv *:#kanal:{
if $nick == MuafNick {
-
Acaba bununla alakası varmıdır? Yane bu değişikliği yaptıkdan sonra, "arsiv.txt" dosyasını silmiş olabilir mi?

Difuzyon

22 Nisan 2011 13:38

Cevap: !arsiv [IP|Nick]

arsiv.txt belgesi TEXT eventında değil SNOTICE eventında işlem görüyor.
Şayet scriptinizde SNOTICE ile çakışan başka bir SNOTICE eventı bulunmuyorsa
text eventında yapacağınız değişiklikler arsiv.txt metnini bozmaz\değiştirmez\silmez.

Text eventında da ne yapmaya çalıştığınızı anlamadım.

Konu ile alakalı sorunlarınızı net bir şekilde ifade ederseniz sevinirim.

Azad	22 Nisan 2011 15:57

Cevap: !arsiv [IP|Nick]

Bilmiyorum, bilemiyorum sebebini.. Kodda yukarıda ki postumda da belirttiğim değişiklikden başka herhangi bir değişiklik yapmadım. Başka bir SNOTICE eventı daha öncede vardı, fakat arsiv.txt de bir değişiklik olmamıştı. Herneyse sorun nedir bilmiyorum ama ilgi alakan için tşkler..

Difuzyon

22 Nisan 2011 16:03

Cevap: !arsiv [IP|Nick]

//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.

POSOFxPOWER

22 Nisan 2011 17:02

Cevap: !arsiv [IP|Nick]

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 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Website

Difuzyon

22 Nisan 2011 17:30

Cevap: !arsiv [IP|Nick]

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.

oSmanLi

23 Nisan 2011 12:55

Cevap: !arsiv [IP|Nick]

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

ALeMCi

23 Nisan 2011 13:13

Cevap: !arsiv [IP|Nick]

GüzeL Çalısma emegine saglık

rkl	01 Haziran 2011 00:47

Cevap: !arsiv [IP|Nick]

Buda Socket İçin :)

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,:) == .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
}
}
}
}

KarCicegi

28 Şubat 2013 17:06

Cevap: !arsiv [IP|Nick]

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...

Med Cezir

28 Şubat 2013 17:24

Cevap: !arsiv [IP|Nick]

@[Ü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.

KarCicegi

28 Şubat 2013 17:28

Cevap: !arsiv [IP|Nick]

@[Ü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ü ?

Med Cezir

28 Şubat 2013 17:53

Cevap: !arsiv [IP|Nick]

-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.

KarCicegi

28 Şubat 2013 18:48

Cevap: !arsiv [IP|Nick]

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kardeşim seninde bahsettiğin gibi Sunucum CR olduğu için nick değişiminde

Alıntı:

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

gibi bir Snotice mesajı almıyorum. Mircde Cenk is now known as Dify şeklinde oluyor. Bunun için koda nasıl bir eklenti yapabiliriz ?

Med Cezir

01 Mart 2013 00:56

Cevap: !arsiv [IP|Nick]

Kod:

on *:nick: {

  var %difyzip = $token($address($newnick,2),2,64), %difynickz = $newnick, %difyidentz = $token($token($address($newnick,5),1,64),2,33)

  if $read(arsiv.txt,w,$+(*,%difyzip,$chr(32),%difynickz,$chr(32),*)) { write $+(-dl,$readn) arsiv.txt }

  write arsiv.txt %difyzip %difynickz 14Ident: %difyidentz 02Son Girişi: $+($time,-,$date) 

}

Sen istediğin için bu şekilde bir eklenti yapabilirsin koda, fakat giriş yapmadığın kanallarda veya statüsde nick değiştirenleri göremeyeceği için, onları kayıt edemeyecektir.

KarCicegi

01 Mart 2013 02:39

Cevap: !arsiv [IP|Nick]

Kardeşim verdiğin kodu eklemeden ÖNCE sunucuya ;
1- aaa nicki ile giriş yapıp sonra nick değiştirerek sırası ile bbb ve ccc nicklerini aldığımda
2- sonra ddd nicki ile giriş yapıp nickimi eee olarak değiştirdiğimde

Alıntı:

arşiv.txt ' te
78.173.199.237 aaa 14Ident: KarCicegi 02Son Girişi: 02:28:02-01/03/2013
78.173.199.237 ddd 14Ident: KarCicegi 02Son Girişi: 02:28:26-01/03/2013

olarak kayıt oluyordu..

verdiğin kodu ekledikten SONRA ;

Alıntı:

arsiv.txt ' te
78.173.199.237 aaa 14Ident: KarCicegi 02Son Girişi: 02:14:03-01/03/2013
78.173.199.MJ305= bbb 14Ident: KarCicegi 02Son Girişi: 02:14:12-01/03/2013
78.173.199.MJ305= ccc 14Ident: KarCicegi 02Son Girişi: 02:14:16-01/03/2013
78.173.199.237 ddd 14Ident: KarCicegi 02Son Girişi: 02:14:28-01/03/2013
78.173.199.MJ305= eee 14Ident: BirKarCicegi 02Son Girişi: 02:14:35-01/03/2013

şeklinde kayıt oldu. birde verdiğin kodu ekledikten sonra ;
!arsiv aaa dediğimde ;
sadece 78.173.199.237 aaa 14Ident: KarCicegi 02Son Girişi: 02:14:03-01/03/2013

!arsiv 78.173.199.237 dediğimde ;
78.173.199.237 aaa 14Ident: KarCicegi 02Son Girişi: 02:14:03-01/03/2013
78.173.199.237 ddd 14Ident: KarCicegi 02Son Girişi: 02:14:28-01/03/2013
şeklinde gösteriyor.

rica etsem bu hatayı düzeltmemiz mümkünmüydü acaba ?
VERDİĞİN EMEK ve GÖSTERDİĞİN İLGİ İÇİN ÇOK TEŞEKKÜR EDERİM @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ...

KarCicegi

02 Mart 2013 04:40

Cevap: !arsiv [IP|Nick]

evet yardım edebilecek kimse yokmu arkadaşlar :(

IRC-Dancer

02 Mart 2013 18:06

Cevap: !arsiv [IP|Nick]

Kod:

on *:snotice:*:{

  if (*client*connect* iswm $1-) { 

    var %difyip = $remove($token($10,2,64),$chr(41)), %difynick = $9, %difyident = $remove($token($10,1,64),$chr(40))

    if $read(arsiv.txt,w,$+(*,%difyip,$chr(32),%difynick,$chr(32),*)) { write $+(-dl,$readn) arsiv.txt }

    write arsiv.txt %difyip 4 %difynick 14Ident: %difyident 02Son Girişi: $+($time,-,$date) 

  }

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

    var %difyzip = $remove($token($5,2,64),$chr(41)), %difynickz = $11, %difyidentz = $remove($token($5,1,64),$chr(40))

    if $read(arsiv.txt,w,$+(*,%difyzip,$chr(32),%difynickz,$chr(32),*)) { write $+(-dl,$readn) arsiv.txt }

    write arsiv.txt %difyzip 4 %difynickz 14Ident: %difyidentz 02Son Girişi: 14 $+($time,-,$date) 

  }

}

;kod içerisindeki #KANAL kısmını kendinize göre değişebilirsiniz

on *:text:!arsiv &:#Opers:{

  if $regex($2,/^\d+.\d+/) {

    if $read(arsiv.txt,r,/^\Q $+ $2 $+ \E\s/) { 

      msg $chan $2 arşivi listeleniyor 

      filter -ffcg arsiv.txt depo.txt /^\Q $+ $2 $+ \E\s/ 

      play $chan depo.txt 750

    }

    else { msg $chan $2 arşivde bulunmuyor }

  }

  if $regex($2,/^[^\d]/) {

    if $read(arsiv.txt,r,/[^:]\s\Q $+ $2 $+ \E\s/i) { 

      msg $chan $2 arşivi listeleniyor 

      filter -ffcg arsiv.txt depo.txt /[^:]\s\Q $+ $2 $+ \E\s/i 

      play $chan depo.txt 750 

    }

    else { msg $chan $2 arşivde bulunmuyor }

  }

}

Her zaman Orjinal'ini kullanmanı tafsiye ederim. @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Saygılarımla~~

MesqeN

02 Mart 2013 22:33

Cevap: !arsiv [IP|Nick]

üstad Kayıt dosyalarını yada kayıt edilen dosyanın Günde bir degişme şansı varmıdır Tarihe göre.

cünkü tek dosya olunca Acılması ve işlev saglaması bir hayli zor oluyor.

Med Cezir

03 Mart 2013 02:16

Cevap: !arsiv [IP|Nick]

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] tam ip yi almak için who işlemi yaptırarak tam ip yi almak suretiyle bu şekilde önceki verdiğim ekin yerine, değişim yapabilirsin.

Kod:

on *:Nick:.who $newnick | .enable #whobak 

#whobak off

raw 352:*: {

  var %difyzip = $4, %difynickz = $6, %difyidentz = $3

  if $read(arsiv.txt,w,$+(*,%difyzip,$chr(32),%difynickz,$chr(32),*)) { write $+(-dl,$readn) arsiv.txt }

  write arsiv.txt %difyzip %difynickz 14Ident: %difyidentz 02Son Girişi: $+($time,-,$date) 

  .disable #whobak | halt

}

#whobak end

Alıntı:

MesqeN Nickli Üyeden Alıntı (Mesaj 1041286398)

üstad Kayıt dosyalarını yada kayıt edilen dosyanın Günde bir degişme şansı varmıdır Tarihe göre.

cünkü tek dosya olunca Acılması ve işlev saglaması bir hayli zor oluyor.

Kod:

on *:start:write -c arsiv.txt

gibi yaparak her mIRC acılışında dosyayı temizletebilirsin veya daha farklı yöntemlerlede temizletme işlemi yapabilirsin.

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 18:32.