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/)
-   -   Temiz kodu (https://www.ircforumlari.net/mirc-scripting-sorunlari/485924-temiz-kodu.html)

Cpu 31 Mayıs 2012 12:51
Temiz kodu
 
on 1:text:temiz*:#zurnaop:{ msg # Emeginize saglık tesekkürler. }
on 1:text:tmz*:#zurnaop:{ msg # Emeginize saglık tesekkürler. }
on 1:text:temız*:#zurnaop:{ msg # Emeginize saglık tesekkürler. }

bottaki bu kodu oplar için ekledik fakat biz temiz raporu veren herkezin listesini almak istiyoruz

mesela Bosson nicki toplam 10 kere temizle raporu vermiştir.
gibi raporları txt dosyasına kaydetmesini ve zurnahelp kanalında !temizlelist dediğimizde bu listeyi bize göstermesini istiyoruz.Yardımcı olursanız sevinirim.

Cpu 08 Haziran 2012 13:54
Cevap: Temiz kodu
 
Yardımcı olabilecek kimse yok mu bu konuda ?

illusi0n 28 Haziran 2012 17:18
Cevap: Temiz kodu
 
Evet bana da gerekli bir remote bu. Biri yardımcı olursa sevinirim

TriviuM 28 Haziran 2012 22:11
Cevap: Temiz kodu
 
Tabi olalım fakat, temiz raporun'dan kasıt nedir. tam olarak yapmak istediğin şeyi anlatır mısın?

cashmare 29 Haziran 2012 00:06
Cevap: Temiz kodu
 
temizlist.txt ye şu şekilde eklemesini istersen yardımcı olabilirim.
Kod:
ali
veli
ahmet
ahmet
ali
ali
veli
veli
ahmet
ahmet
yani demek istedigim. örnegin yukarda ahmet kelimesi 4 defa geçiyor. ahmet 4 kere temizle çekti degilde
4 kere ahmet oldugu içn nickleri sayıcaksın kendin kaç tane cektigini öyle bulcaksın.
bu şekilde işine yararsa vereyim codeyi.yani bir nick temizle cektiginde temizlist.txt ye o nick 1 defa daha eklenicek şekilde.
umarım anlatabilmişmdir.

muratt_aziz 29 Haziran 2012 06:36
Cevap: Temiz kodu
 
Kod:
alias tlist {
  var %x = 1
  var %t = $lines(tmz.txt)
  while %x <= %t {
    echo -a 4Toplam3 $read(tmz.txt,%x) 4kere temizle raporu vermiştir.
    inc %x
  }
}
on *:text:*:#: { 
  if $nick isop # {
    if temiz isin $strip($1) || tmz isin $strip($1) || temız isin $strip($1) { set %tn $nick | inc %tnck $+ %tn
      if $read(tmz.txt,w,%tn $+ *) { set %tnc tnck $+ %tn }
      if $read(tmz.txt,w,%tn $+ *) { write $+(-dl,$readn) tmz.txt }
      write tmz.txt $nick % $+ %tnc
    }
  }
  if $chan == #zurnaop {
  if $nick isop # {
    if $strip($1) == !temizlelist { tlist }
    }
  }
}

illusi0n 29 Haziran 2012 14:19
Cevap: Temiz kodu
 
Verdiğin komut gayet güzel şekilde çalıyor fakat sıfırlamak istediğimizde nasıl yapıcaz ? Txt dosyasını içini sildiğimde bile hafızada tutuyor. Sıfırlamak için ne yapabiliriz ?

Cpu 29 Haziran 2012 17:27
Cevap: Temiz kodu
 
Alıntı:
muratt_aziz Nickli Üyeden Alıntı (Mesaj 1041153325)
Kod:
alias tlist {
  var %x = 1
  var %t = $lines(tmz.txt)
  while %x <= %t {
    echo -a 4Toplam3 $read(tmz.txt,%x) 4kere temizle raporu vermiştir.
    inc %x
  }
}
on *:text:*:#: { 
  if $nick isop # {
    if temiz isin $strip($1) || tmz isin $strip($1) || temız isin $strip($1) { set %tn $nick | inc %tnck $+ %tn
      if $read(tmz.txt,w,%tn $+ *) { set %tnc tnck $+ %tn }
      if $read(tmz.txt,w,%tn $+ *) { write $+(-dl,$readn) tmz.txt }
      write tmz.txt $nick % $+ %tnc
    }
  }
  if $chan == #zurnaop {
  if $nick isop # {
    if $strip($1) == !temizlelist { tlist }
    }
  }
}
verdiğiniz kodda 2 şer atlıyor sayıları

illusi0n 29 Haziran 2012 17:47
Cevap: Temiz kodu
 
if $nick isop # { yerine on @*:text:*:#: {
if $nick isreg $chan { olması gerek, ayrıca her op için ayrı kayıt tutmuyor. listelediğimde her op için aynı kayıdı veriyor.

Paint 29 Haziran 2012 20:34
Cevap: Temiz kodu
 
Kod:
on *:text:t*:#zurnaop:{
  if $regex(temiz tmz temız,$1) {
    inc $+(%,tmz,:,$nick)
    msg # Emeğinize sağlık, teşekkürler.
  }
  if temizliste == $1 {
    if !$var(%tmz*,0) { msg # Hiç temiz raporu verilmedi. | halt }
    var %t 0
    var %a 1
    while %a <= $var(%tmz*,0) {
      msg # $gettok($var(%tmz*,%a),2,$asc(:)) nicki $var(%tmz*,%a).value temiz raporu vermiştir.
      inc %t $var(%tmz*,%a).value
      inc %a
    }
    msg # -
    msg # Toplam %t kere temiz raporu verilmiştir.
  }
  if $1 == temizsil { unset %tmz* | msg # Temiz listesi temizlenmiştir. }
}
Komutlar:

tmz, temiz, temız: Temiz kaydını alır.
temizliste: Temiz raporu verenleri görüntüler.
temizsil: Temiz rapor listesini temizler.

Bütün komutlar #zurnaop kanalında geçerlidir.

muratt_aziz 29 Haziran 2012 22:02
Cevap: Temiz kodu
 
Alıntı:
Bosson Nickli Üyeden Alıntı (Mesaj 1041132930)
on 1:text:temiz*:#zurnaop:{ msg # Emeginize saglık tesekkürler. }
on 1:text:tmz*:#zurnaop:{ msg # Emeginize saglık tesekkürler. }
on 1:text:temız*:#zurnaop:{ msg # Emeginize saglık tesekkürler. }

bottaki bu kodu oplar için ekledik fakat biz temiz raporu veren herkezin listesini almak istiyoruz

mesela Bosson nicki toplam 10 kere temizle raporu vermiştir.
gibi raporları txt dosyasına kaydetmesini ve zurnahelp kanalında !temizlelist dediğimizde bu listeyi bize göstermesini istiyoruz.Yardımcı olursanız sevinirim.
Alıntı:
Bosson Nickli Üyeden Alıntı (Mesaj 1041154012)
verdiğiniz kodda 2 şer atlıyor sayıları
kodu şuan deniyorum bende teker teker sayı ları arttırıyor ki ikişer artırma ihtimali yok inc %veri mircte her kullanısta bir sayı arttır demektir

bende inc kullandım


Alıntı:
illusi0n Nickli Üyeden Alıntı (Mesaj 1041153699)
Verdiğin komut gayet güzel şekilde çalıyor fakat sıfırlamak istediğimizde nasıl yapıcaz ? Txt dosyasını içini sildiğimde bile hafızada tutuyor. Sıfırlamak için ne yapabiliriz ?
verdiğimiz kodu isteğe göredir durdurmak istiyorsanız koda başına

#dur on

kodu buraya eklersiniz

#dur end

menu * {
Temizkod
.aç:enable #dur
.kapat:disable #dur
;sıfırlamak için ise
.sil:remove tmz.txt
}
yazmanız yeterli

Alıntı:
illusi0n Nickli Üyeden Alıntı (Mesaj 1041154027)
if $nick isop # { yerine on @*:text:*:#: {
if $nick isreg $chan { olması gerek, ayrıca her op için ayrı kayıt tutmuyor. listelediğimde her op için aynı kayıdı veriyor.
isop # ile on @*:text: arasındaki fark nedir isreg diyorsun birde kısaca özetleyeyim yazdığını

@*:text: herhangi bir kanalda op ise yazıyazan demişsin buraya kadar
isreg kısmında ise hiçbir yetkiye sahip değilse kod çalışmaya devam etsin demişssin isreg demek yetkisis user demek cok mantıksız

her op için ayrı kayıt tutmuyor demişssin bukanıya nasıl vardın

%tnckhalis 34
%tnckburak 58
%tnckNaZo 1
%tnckCaN 33

BEN BUŞEKİLDE AYARLADIM ve benim mircimde buşekilde sonuc veriyor veriables kısmında muhtemelen en altta olmalı

ya bende bir sorun var ya sizlerde

illusi0n 29 Haziran 2012 23:51
Cevap: Temiz kodu
 
Alıntı:
muratt_aziz Nickli Üyeden Alıntı (Mesaj 1041154324)
kodu şuan deniyorum bende teker teker sayı ları arttırıyor ki ikişer artırma ihtimali yok inc %veri mircte her kullanısta bir sayı arttır demektir

bende inc kullandım




verdiğimiz kodu isteğe göredir durdurmak istiyorsanız koda başına

#dur on

kodu buraya eklersiniz

#dur end

menu * {
Temizkod
.aç:enable #dur
.kapat:disable #dur
;sıfırlamak için ise
.sil:remove tmz.txt
}
yazmanız yeterli



isop # ile on @*:text: arasındaki fark nedir isreg diyorsun birde kısaca özetleyeyim yazdığını

@*:text: herhangi bir kanalda op ise yazıyazan demişsin buraya kadar
isreg kısmında ise hiçbir yetkiye sahip değilse kod çalışmaya devam etsin demişssin isreg demek yetkisis user demek cok mantıksız

her op için ayrı kayıt tutmuyor demişssin bukanıya nasıl vardın

%tnckhalis 34
%tnckburak 58
%tnckNaZo 1
%tnckCaN 33

BEN BUŞEKİLDE AYARLADIM ve benim mircimde buşekilde sonuc veriyor veriables kısmında muhtemelen en altta olmalı

ya bende bir sorun var ya sizlerde

isreg dememdeki amaç op kanalımda bulunan kimsede prefix yok onlar temiz dediklerinde kayıt altına alabilmek için isreg olarak belirttim. Her op için ayrı kayıt tutmuyor dememdeki sebeb ise aşağıda göreceğin gibi Paradox nicki 5 kere temiz dedi fakat Sky nicki 3 kere demiş olmasına rağman ikisinide aynı gösteriyor.

Toplam Paradox 5 kere temizle raporu vermiştir.
Toplam Sky 5 kere temizle raporu vermiştir.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Temizlemeyi ekledim ve uyguladım çalışmasında bir sıkıntı yok fakat temizlemiş görünsede kaldığı yerden devam ediyor. XX nicki 5 rapor verdiyse temizlediğimde 0 olması gerekirken hala 5 kalıyor.

* Removed 'D:\xx\xx\Zero\Yeni Klasör\tmz.txt'
-
Toplam Paradox 5 kere temizle raporu vermiştir.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

illusi0n 29 Haziran 2012 23:55
Cevap: Temiz kodu
 
Alıntı:
Paint Nickli Üyeden Alıntı (Mesaj 1041154220)
Kod:
on *:text:t*:#zurnaop:{
  if $regex(temiz tmz temız,$1) {
    inc $+(%,tmz,:,$nick)
    msg # Emeğinize sağlık, teşekkürler.
  }
  if temizliste == $1 {
    if !$var(%tmz*,0) { msg # Hiç temiz raporu verilmedi. | halt }
    var %t 0
    var %a 1
    while %a <= $var(%tmz*,0) {
      msg # $gettok($var(%tmz*,%a),2,$asc(:)) nicki $var(%tmz*,%a).value temiz raporu vermiştir.
      inc %t $var(%tmz*,%a).value
      inc %a
    }
    msg # -
    msg # Toplam %t kere temiz raporu verilmiştir.
  }
  if $1 == temizsil { unset %tmz* | msg # Temiz listesi temizlenmiştir. }
}
Komutlar:

tmz, temiz, temız: Temiz kaydını alır.
temizliste: Temiz raporu verenleri görüntüler.
temizsil: Temiz rapor listesini temizler.

Bütün komutlar #zurnaop kanalında geçerlidir.

Dostum remoteye yükledim fakat çalışmadı. Herhangi bir hatada vermiyor eksik birşeyler mi var acaba ?

muratt_aziz 30 Haziran 2012 00:10
Cevap: Temiz kodu
 
arkadasım

Toplam NaZo 15 kere temizle raporu vermiştir.
Toplam CaN 30 kere temizle raporu vermiştir.

/tlist yapınca aldığım cvp üstte

Bende çalışıyor size kolay gelsin

Paint 30 Haziran 2012 00:12
Cevap: Temiz kodu
 
Alıntı:
illusi0n Nickli Üyeden Alıntı (Mesaj 1041154463)
Dostum remoteye yükledim fakat çalışmadı. Herhangi bir hatada vermiyor eksik birşeyler mi var acaba ?
Eksik birşey yok. Komutların başında ünlem falan kullanma olduğu gibi yaz örneğin direk temiz yaz kanala bir de yüklediğin mIRC te kullanma.

Cpu 02 Temmuz 2012 16:30
Cevap: Temiz kodu
 
istediğimiz cevabı alamadık biz zurnaop da temiz raporu verildiğinde kayıt olmasını zurnahelp kanalında !temizlelist dediğimizde insanları görmeyi istiyorduk bot tarafından şu nick badnick taraması etmiştir diye

Cpu 16 Temmuz 2012 23:07
Cevap: Temiz kodu
 
hala bir cevap yok sanırım

Difuzyon 17 Temmuz 2012 00:28
Cevap: Temiz kodu
 
Alıntı:
Bosson Nickli Üyeden Alıntı (Mesaj 1041132930)
on 1:text:temiz*:#zurnaop:{ msg # Emeginize saglık tesekkürler. }
on 1:text:tmz*:#zurnaop:{ msg # Emeginize saglık tesekkürler. }
on 1:text:temız*:#zurnaop:{ msg # Emeginize saglık tesekkürler. }

bottaki bu kodu oplar için ekledik fakat biz temiz raporu veren herkezin listesini almak istiyoruz

mesela Bosson nicki toplam 10 kere temizle raporu vermiştir.
gibi raporları txt dosyasına kaydetmesini ve zurnahelp kanalında !temizlelist dediğimizde bu listeyi bize göstermesini istiyoruz.Yardımcı olursanız sevinirim.
Daha önce eklemiş olduğunuz(yukarıdaki) 3 satırı siliniz,aşağıdaki kodda birleştirdim.

Kod:
on *:text:*:#:{
  if $chan == #zurnaop && $regex($1,/^t(e?)m(i|ı)z/i) {
    msg #zurnaop Emeğinize sağlık teşekkürler.
    if !$read(temizle.txt,w,$+(*,$nick,*)) { write temizle.txt $nick 1 }
    else {
      var %dify $readn
      var %yeah = $calc($token($read(temizle.txt,%dify),2,32) +1)
      write $+(-l,%dify) temizle.txt $nick %yeah
    }
  }
  if $chan == #zurnahelp && $1 == !temizlelist {
    msg #zurnahelp Temizle komutu kullanım listesi:
    play #zurnahelp temizle.txt 1000
  }
}
on *:playend:if $filename == temizle.txt { msg #zurnahelp Liste sonu. }

Cpu 17 Temmuz 2012 09:15
Cevap: Temiz kodu
 
Alıntı:
Difuzyon Nickli Üyeden Alıntı (Mesaj 1041170564)
Daha önce eklemiş olduğunuz(yukarıdaki) 3 satırı siliniz,aşağıdaki kodda birleştirdim.

Kod:
on *:text:*:#:{
  if $chan == #zurnaop && $regex($1,/^t(e?)m(i|ı)z/i) {
    msg #zurnaop Emeğinize sağlık teşekkürler.
    if !$read(temizle.txt,w,$+(*,$nick,*)) { write temizle.txt $nick 1 }
    else {
      var %dify $readn
      var %yeah = $calc($token($read(temizle.txt,%dify),2,32) +1)
      write $+(-l,%dify) temizle.txt $nick %yeah
    }
  }
  if $chan == #zurnahelp && $1 == !temizlelist {
    msg #zurnahelp Temizle komutu kullanım listesi:
    play #zurnahelp temizle.txt 1000
  }
}
on *:playend:if $filename == temizle.txt { msg #zurnahelp Liste sonu. }
Hallettik dostum çok saol ama biraz geç oldu


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

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