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 Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   notice kayıt (https://www.ircforumlari.net/mirc-scripting-sorunlari/159473-notice-kayit.html)

sniper 22 Kasım 2008 22:57
notice kayıt
 
status a gelen bütün noticeleri notice txt ine kaydetmek istiyorum yardımcı olan arkadaşlar aşimdiden tşk

AbArTH 22 Kasım 2008 23:30
Cevap: notice kayıt
 
Kod:
alias skaydet {
  var %x = $line(Status Window,0)),%y = 1
  while %y <= %x {
    write skayit.txt $line(Status Window,%y))
    inc %y
  }
}
Denenmedi ama çalişcakdir

sniper 23 Kasım 2008 00:03
Cevap: notice kayıt
 
denedim çalışıyor fakat /skaydet dediğimde çalışıyo biraz düzelte bilirmiyiz ben script i açtıktan itibaren ben bişey yazmadan direk notice txt ine kendisi kaydetse noticeleri daha iyi olur tşk şimdiden

Med Cezir 23 Kasım 2008 01:23
Cevap: notice kayıt
 
on *:start: skaydet

Bunuda Eklersen yukardaki koda mirc acıldıgı anda aktif olacaktır.

Difuzyon 23 Kasım 2008 01:33
Cevap: notice kayıt
 
AbArTH'ın sana verdiği kod, o an Status penceresinde ne kadar yazı yazılmışsa (notice,snotice,motd,hibrit mesajlar,echo -s mesajların, vs vs...) olduğu gibi .txt'ye aktarır.Senin bu komuttan faydalanman için parti parti yazdırmak ve mIRC'in kapamak istediğinde harekete geçecek bir event'tır:
Kod:
on *:connect:.timer 0 300 skaydet | .timer 0 301 clear -s
Kod:
on *:exit:skaydet
ki çıkmadan önce status pencerende ne kadar yazı varsa yazılsın.mIRC'in kapanacağı içinde status penceren temizlenecektir.Aslına bakarsan senin sorunun tam yanıtı;
Alıntı:
status a gelen bütün noticeleri notice txt ine kaydetmek istiyorum yardımcı olan arkadaşlar aşimdiden tşk
Notice farklıdır,snotice farklı veyahut statuse yazılan her mesaj notice anlamını çıkarmaz :)

Şayet bana nicklerden(Chanserv,Nickserv,Ahmet,Ayse,Cenk....) gelen notice mesajlar, status penceresine geliyorsa(ortak bir kanalda bulunmadığım için statüse gelecektir) bunu yazdırmanın kodu :
Kod:
on *:notice:*:*:if ($comchan($nick,0) == 0) { write notice.txt $nick : $1- }
Senin sorun bu şekilde algılandı bende ;)
İyi paylaşımlar...

sniper 23 Kasım 2008 01:46
Cevap: notice kayıt
 
[01:35:44] -irc.mirctr.org- *** Notice -- Client exiting: [[-hErKuL-]] ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) [Client exited]
-
[01:35:48] -irc.mirctr.org- *** Notice -- mIRCTR-HOST used SAJOIN to make *** join #***,#cinsellik
-
[01:35:52] -irc.mirctr.org- *** Notice -- Client exiting: costa_curta ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) [[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
-
[01:35:52] -irc.mirctr.org- *** Notice -- Client connecting on port 6667: Gladyatör ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) [clients]


gibi geliyor Difuzyon ne yapmalıyım?

Difuzyon 23 Kasım 2008 01:55
Cevap: notice kayıt
 
Bunlar server noticeler (SNOTICE) :)
Ne yapmak istiyorsun : )?

sniper 23 Kasım 2008 02:03
Cevap: notice kayıt
 
bu gelen noticeleri notice adlı txt e kaydetmek istiyorum mümkünse hocam :)

Difuzyon 23 Kasım 2008 02:11
Cevap: notice kayıt
 
Kod:
on 1:SNOTICE:*:write notice.txt $1-
Server noticeleri geldiği anda .txt'ye yazacaktır.

sniper 23 Kasım 2008 02:19
Cevap: notice kayıt
 
oldu hocam son bir soru bu noticeler gözükmese olmazmı engelleye bilirmiyiz ama txt e kaydemtme devam etsin kaydediyor ama status ta gene gözüküyo bu engellene bilirmi tşk

Difuzyon 23 Kasım 2008 02:30
Cevap: notice kayıt
 
Ben .txt'ye kaydedecem demekte ısrarcıysan ;
Kod:
on ^1:SNOTICE:*:write notice.txt $1- | halt
Ama bu bilgilerin, sen online iken sana yarayacağını düşünüyorum bu yüzden aşağıdaki kodu bir fikir olarak düşünebilirsin :)
Kod:

on ^1:SNOTICE:*:{
  if ([Spamfilter] isin $1-) {
    if ($window(@Spam) == $null) { window -ne @Spam }
    echo 1 -t @Spam $1-
    halt
  }
  if (SJOIN isin $1-) || (SAJOIN isin $1-) || (SAPART isin $1-) || (*Client exiting* iswm $1-) || (*Client connecting* iswm $1-) {
    if ($window(@Giris) == $null) { window -ne @Giris }
    echo 5 -t @Giris $1-
    halt
  }
  if (shun isin $1-) || (tkl update for isin $1-) {
    if ($window(@Shun) == $null) { window -ne @Shun }
    echo 5 -t @Shun $1-
    halt
  }
  if (KILL isin $1-) || (G:line isin $1-) || (Z:line isin $1-) {
    if ($window(@Kill) == $null) { window -ne @Kill }
    echo 5 -t @Kill $1-
    halt
  }
  if (whois on you isin $1-) {
    .echo -a 11,2*9,2 $2 11size whois çekti *
  }
}
Eski bir oper'dan armağan olsun ;)

sniper 23 Kasım 2008 02:50
Cevap: notice kayıt
 
saygıyla eğiliyorum hocam :D emeğine sağlık

Difuzyon 23 Kasım 2008 02:52
Cevap: notice kayıt
 
Ne demek , rica ederim.
Amacımız paylaşmak...

AbArTH 23 Kasım 2008 23:40
Cevap: notice kayıt
 
Güle Güle KUllan demek düşer bize :D

q0kh4n01 24 Kasım 2008 01:24
Cevap: notice kayıt
 
n0=alias oflags {
n1= if $1 === O return IRC Operatör
n2= if $1 === o return Local Operatör
n3= if $1 == C return Technical Administrator
n4= if $1 === A return Server Administrator
n5= if $1 === a return Services Administrator
n6= if $1 == N return Network Administrator
n7=}
n8=on ^1:SNOTICE:*:{
n9= if (whois isin $1-) {
n10= if ($window(@Whois) == $null) { window -ne @Whois }
n11= inc -u5 %wf. [ $+ [ $2 ] ] 1
n12= inc %whoissayac 1
n13= if ($2 ison #admin) || ($2 ison #operhelp) { goto fifi }
n14= if %wf. [ $+ [ $2 ] ] == 5 {
n15= KILL $2 Whois flood yapma!
n16= halt
n17= }
n18= :fifi
n19= if ($2 ison #admin) { goto zirto }
n20= if (%whowho. [ $+ [ $2 ] ] == zort) { goto zirto }
n21= echo 12 -t @Whois $1- | halt
n22= }
n23= if (his/her isin $1-) || (Failed isin $1-) || (Denied isin $1-) || (tkl isin $1-) || (Q: isin $1-) || (used isin $1-) || (OperOverride isin $1-) || (Mismatch: isin $1-) || (GECOS isin $1-) || (warning isin $1-) {
n24= if ($window(@Opers) == $null) { window -ne @Opers }
n25= echo 12 -t @Opers $1- | halt
n26= }
n27= if (Locops isin $1-) || (activated isin $1-) {
n28= if ($window(@UyarI) == $null) { window -ne @UyarI }
n29= echo 12 -t @UyarI $1- | halt
n30= }
n31= if (added isin $1-) || (Received isin $1-) {
n32= if ($window(@XLine) == $null) { window -ne @XLine }
n33= echo 12 -t @XLine $1- | halt
n34= }
n35= if (removed isin $1-) {
n36= if ($window(@XLine) == $null) { window -ne @XLine }
n37= echo 4 -t @XLine $1- | halt
n38= }
n39= if (banned isin $1-) {
n40= if ($window(@Giris/Cikis) == $null) { window -ne @Giris/Cikis }
n41= echo 12 -t @Giris/Cikis $1- | halt
n42= }
n43= if (Connecting isin $1-) {
n44= if ($window(@Giris/Cikis) == $null) { window -ne @Giris/Cikis }
n45= echo 12 -t @Giris/Cikis $1- | halt
n46= }
n47= if (exiting isin $1-) || (recvQ isin $1-) {
n48= if ($window(@Giris/Cikis) == $null) { window -ne @Giris/Cikis }
n49= echo 4 -t @Giris/Cikis $1- | halt
n50= }
n51= if (Forbidding isin $1-) || (Q:lined isin $1-) {
n52= if ($window(@Q-Lined) == $null) { window -ne @Q-Lined }
n53= ;gzline $+(*@,$mid($remove($6.,$chr(91),$chr(93)),0,$calc( $len($remove($6.,$chr(91),$chr(93)))-2))) +3h Botnet
n54= echo 12 -t @Q-Lined $1- | halt
n55= }
n56= if (Expiring isin $1-) {
n57= if ($window(@XLine) == $null) { window -ne @XLine }
n58= echo 12 -t @XLine $1- | halt
n59= }
n60= if ([Spamfilter] isin $1-) {
n61= if ($window(@Spam) == $null) { window -ne @Spam }
n62= echo 12 -t @Spam $1-
n63= halt
n64= }
n65= if (is now isin $1-) {
n66= if ($window(@Opers) == $null) { window -ne @Opers }
n67= echo -t @Opers $+(4,$1) $+(12,$3) 5ID'ini Kullanarak Oper Oldu :12 $oflags($remove($right($1-,3),$chr(40),$chr(41))))
n68= halt
n69= }
n70=}



difuzyon sana yardım ettim ama geç oldu :))




buda servislerin noticesini aktif penderede göstertir ;)


n0=on *:NOTICE:*:?: {
n1= if (*serv!*@* iswm $fulladdress) {
n2= if ($window(@Servisler) == $null) { window -ne @Servisler }
n3= echo 5 -t @Servisler 12« $+ $nick $+1 »5 $1-
n4= }
n5=}


ii paylaşımlar

Erdem 24 Kasım 2008 09:27
Cevap: notice kayıt
 
Konu ile alakasız fakat sunu belirtmek istedim , son zamanlarda dikkatle takip ettiğim bir arkadasımız olan Difuzyon bu konuda her türlü yardımı esirgemeden paylastığı icin ona ve diğer arkadaslara tesekkür ediyorum . Paylasımları güzel ve özverili , basarılarının devamını diliyorum Difuzyon . Iyi forumlar dilerim..

sniper 25 Kasım 2008 15:27
Cevap: notice kayıt
 
Kod Üzerinde biraz oynama yaptım Difuzyon doğrumudur. Yapmaya Çalıştığım zline ve gline yi ayrı ayrı pencerede göstermekti ;)


on ^1:SNOTICE:*:{
if ([Spamfilter] isin $1-) {
if ($window(@Spam) == $null) { window -ne @Spam }
echo 1 -t @Spam $1-
halt
}
if (SJOIN isin $1-) || (SAJOIN isin $1-) || (SAPART isin $1-) || (*Client exiting* iswm $1-) || (*Client connecting* iswm $1-) {
if ($window(@Giris) == $null) { window -ne @Giris }
echo 5 -t @Giris $1-
halt
}
if (shun isin $1-) || (tkl update for isin $1-) {
if ($window(@Shun) == $null) { window -ne @Shun }
echo 5 -t @Shun $1-
halt
}
if (KILL isin $1-) {
if ($window(@Kill) == $null) { window -ne @Kill }
echo 5 -t @Kill $1-
halt
}
if (Z:line isin $1-) {
if ($window(@Z:line) == $null) { window -ne @Z:line }
echo 5 -t @Z:line $1-
halt
}
if (G:line isin $1-) {
if ($window(@G:line) == $null) { window -ne @G:line }
echo 5 -t @G:line $1-
halt
}
if (whois on you isin $1-) {
.echo -a 11,2*9,2 $2 11size whois çekti *
}
}

Difuzyon 25 Kasım 2008 19:57
Cevap: notice kayıt
 
işlem doğru da,pencere sayısını az tutmanda fayda var :)
#kanal'lar , özel'ler , çok özel'lerinde ;)
pencere çoksa , birde bu window'larla işin takip etmek açısından güçleşir...

sniper 01 Aralık 2008 13:03
Cevap: notice kayıt
 
on ^1:SNOTICE:*:{
if ([Spamfilter] isin $1-) {
if ($window(@Spam) == $null) { window -ne @Spam }
echo 1 -t @Spam $1-
halt
}
if (SJOIN isin $1-) || (SAJOIN isin $1-) || (SAPART isin $1-) || (*Client exiting* iswm $1-) || (*Client connecting* iswm $1-) {
if ($window(@Giris) == $null) { window -ne @Giris }
echo 5 -t @Giris $1-
halt
}
if (shun isin $1-) || (tkl update for isin $1-) {
if ($window(@Shun) == $null) { window -ne @Shun }
echo 5 -t @Shun $1-
halt
}
if (KILL isin $1-) {
if ($window(@Kill) == $null) { window -ne @Kill }
echo 5 -t @Kill $1-
halt
}
if (Z:line isin $1-) {
if ($window(@Z:line) == $null) { window -ne @Z:line }
echo 5 -t @Z:line $1-
halt
}
if (G:line isin $1-) {
if ($window(@G:line) == $null) { window -ne @G:line }
echo 5 -t @G:line $1-
halt
}
if (whois on you isin $1-) {
.echo -a 11,2*9,2 $2 11size whois çekti *
}
}

bukonu çok uzadı ama bir şeydaha sormak istedim bu zline yiyenler falan özelde bir pencere yerine aynı şekilde lag bar ın olduğu yerde olabilirmi


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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk