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

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

- - /* NoMercy Hataları ve Eksikleri */ (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/161173-nomercy-hatalari-ve-eksikleri.html)

/* NoMercy Hataları/Eksikleri/Geliştirilmesi */

/* NoMercy Hataları ve Eksikleri */

NoMercy üzerinde gördüğüm bir kaç gözardı edilmiş kod eksikliklerini/hatalarını düzeltelim. Şimdilik gördüğüm Radyo Botun'da ki Türkçe karakterleri saçma sapan göstermesiydi. Bunun için sıkılan arkadaşlarımız vardır.

öncelikle, ; Radyobot olan kısmı aratıp bulun ve hemen altına birkaç boşluk bırakıp, bu kodu ekleyin ..

Kod:

alias turkceh {
  return $replace($1-,&#xFD;,ı,&#xFC;,ü,&#xF0;,ğ,&#xFE;,ş,&#xF6;,ö,&#xDD;,İ,&#xE7;,ç,&#xDC;,Ü,&#xD6;,Ö,&#xC7;,Ç,&#xDE;,Ş,ÿ,$chr(160),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
face="Tahoma">}

Bunu ekledikten sonra;

Kod:

%songtitle

Bu kelimeleri bulup, yerlerine şu şekilde değiştiriniz;

Kod:

$turkceh(%songtitle)

Tabii ki, DJ-Nick'i içinde geçerli olabilicek ayarları yapabilirsiniz ya da başka bir yer için..

Not: NoMercy hakkında ki bütün gelişmeleri, bu posttan tamamlayacağım, isteklerinizi de burdan yazabilir, elimizden geldiğince kafamızın yettiğince, yardım etmeye çalışırız...

/* Haberler yenilendi */

NoMercy üzerinde ki, çalışmayan tabiri ile düşündüğünüz, haberler kısmını yeniliyorum, lütfen düzeltin ..

Kod:

;Son Dakika Haberleri
 on *:sockopen:sdk*: {

  if ($sockerr) .sw NoMercy prvimsg #Haberler 2Bağlantı Kurulamadı.

  else {

    sockwrite -n $sockname GET / HTTP/1.1

    sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
     sockwrite -n $sockname $crlf

  }

}

on *:sockread:sdk*: {

  var %sd

  sockread %sd

  if (color="maroon"> isin %sd) set %saat $htmlfree(%sd)

  if (sondakika.asp?a= isin %sd) {

    var %url = $remove($gettok(%sd,3,32),onClick="MM_openBrWindow ,$chr(40),'sondakika.asp?a=,sd,width=500,height=40 0,,top=20,left=20,scrollbars=yes,$chr(9),$chr(44),' )

    .sw NoMercy privmsg #Haberler $rkr($+(2[,%saat,] $chr(32),1--,$chr(32),5,$htmlfree(%sd),$chr(32),--,12,$chr(32),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
face="Tahoma">alias haber {

  .sw NoMercy privmsg #Haberler 4Son Dakika 2Haberleri alınıyor, lütfen bekleyiniz ..

  sockclose $+(sdk*,#haberler)

  sockopen $+(sdk*,#haberler) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80

  .timer 1 5 .sockclose $+(sdk*,#haberler)

}
 alias rurl {

  return $remove($1-,height=400)

}
 alias rkr {

  return $remove($1-,        )

}
 alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;,$chr(9)) | return %x } }

Kanalda göstermesini sağlayan kod için, uygun olan yere

Kod:

    if %::chan == #Haberler {

      if $gettok(%::text,1,32) == !haberler {

        haber

      }

    }

Ekleyiniz ve, düzeltiniz. #Haberler kanalından !haberler yazdığınız takdirde, son dakika haberleri, düzgün birşekilde önünüzde olacaktır.

/* Kanal Koruma Modülleri */

Arkadaşlar hepinize öncelikle özür borçluyorum. NoMercy v2.0 içerisinde, Kanal koruma modullerinde ki ufak bir hata yuzunden, bir kaç modul doğru dürüst çalışmadığı tespit edilmiştir. Özür dilerim ..

Hatalar bulunup, düzenlenmiş ve en doğru çalışan şeklinde sizlere aktarıyorum, lütfen düzeltiniz ...

Kod:

alias kanal_koru {
  if !$read(yonetimchans.txt,w,%::chan) && $left(%::chan,1) == $chr(35) {
    if !$read(oyunchans.txt,w,%::chan) {
      if $len(%::text) > 30 {
        if $numtok(%::text,32) > 6 {
          %::text = $gettok(%::text,1-5,32)
        }
        inc -u10 %mflood. [ $+ [ $+(%::chan,$hash($_dellast($strip(%::text)),32)) ] ]
        if %mflood. [ $+ [ $+(%::chan,$hash($_dellast($strip(%::text)),32)) ] ] == 5 {
          sw NoMercy PRIVMSG #Opers :Saldiri tespit edildi: %::chan
          sw NoMercy PRIVMSG #Opers :Saldiri texti: %::text
          _gzline $botfnick(%::add) Saldiri/flood girisimi tespit edilmistir. [NoMercy]
          return
        }
      }
    }
    if *
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
iswm %::text || http isin %::text || *.net* iswm %::text || *.com* iswm %::text {
      if !$xisop(%::chan,%::nick) {
        killnick %::nick
        sw irobot privmsg #Opers : $1-
        return
      }
    }
    if $hfind(kufur,%::text,1,W).data && !$read(oyunchans.txt,w,%::chan) && !$read(***chans.txt,w,%::chan) && !$xisop(%::chan,%::nick) {
      if !%banning. [ $+ [ %::nick ] ] {
        inc -u10 %banning. [ $+ [ %::nick ] ] 1
        maskban %::chan %::nick
        clear %::chan
        ;killnick %::nick
        sw NoMercy PRIVMSG %::chan : $+ $+(,%::nick,) $+ ; Kanal genellerinde kufur/argo icerikli cumleler kurdugunuz icin 30dk sure ile engellendiniz. Seviyeli bir sohbet kurmaya ozen gosterelim. Yakalanan kelimeniz: 4,4 $hget(kufur,$hfind(kufur,%::text,1,W).data) 
        return
      }
    }
    if $chr(35) isin %::text && !$read(oyunchans.txt,w,%::chan) && !$read(yonetimchans.txt,w,%::chan) && !$xisop(%::chan,%::nick) {
      if !%banning. [ $+ [ %::nick ] ] {
        inc -u10 %banning. [ $+ [ %::nick ] ] 1
        maskban %::chan %::nick
        sw NoMercy PRIVMSG %::chan : $+ $+(,%::nick,) $+ ; kanal genelinde baska bir kanalin tanıtımını yaptiginiz icin 30 dk. sureyle konusmaniz engellendi.
        ; _kick %::chan %::add Kanal genellerinde baska kanal reklami yapmak yasaktir. Bu olayin tekrarlanmasi halinde yetkililer uyarilip kanaliniz kapatilabilir.
        return
      }
    }
    if ( isin %::text2 ||  isin %::text2 ||  isin %::text2) && !$xisop(%::chan,%::nick) {
      inc -u60 %renklitext. [ $+ [ %::nick ] ] 1
      if %renklitext. [ $+ [ %::nick ] ] == 3 {
        if !%banning. [ $+ [ %::nick ] ] {
          inc -u10 %banning. [ $+ [ %::nick ] ] 1
          maskban %::chan %::nick
          sw NoMercy PRIVMSG %::chan : $+ $+(,%::nick,) $+ ; kanal takibini zorlastiracak derecede renkli yazdiginiz icin 30 dk. sureyle konusmaniz engellendi.
        }
      }
    }
    if !$read(oyunchans.txt,w,%::chan) {
      inc -u1 %flood. [ $+ [ %::chan ] $+ . $+ [ $hash(%::nick,32) ] ] 1
      if %flood. [ $+ [ %::chan ] $+ . $+ [ $hash(%::nick,32) ] ] == 7 {
        ;maskban %::chan %::nick
        ;_kick %::chan %::add Kanal genellerinde flood seklinde yazmak, yazi karisikligi yaratmak ve kopyala/yapistir yapmak yasaktir.
      }
      var %yazi = $hash($strip($_dellast(%::text)),32)
      var %eski.yazi = %tekrar. [ $+ [ %::chan ] $+ . $+ [ %::nick ] ]
      var %eski.yazi = $deltok(%eski.yazi,1,46)
      if (%tekrar. [ $+ [ %::chan ] $+ . $+ [ %::nick ] ] == $null) || (%eski.yazi != %yazi) {
        set -u60 %tekrar. [ $+ [ %::chan ] $+ . $+ [ %::nick ] ] 1. $+ %yazi 
        goto hm
      }
      var %bugra = %tekrar. [ $+ [ %::chan ] $+ . $+ [ %::nick ] ]
      var %sayac = $gettok(%bugra,1,46)
      inc %sayac
      set -u60 %tekrar. [ $+ [ %::chan ] $+ . $+ [ %::nick ] ] %sayac $+ . $+ %yazi
      if (%sayac >= 3) {
        if !%banning. [ $+ [ %::nick ] ] {
          inc -u10 %banning. [ $+ [ %::nick ] ] 1
          ;maskban %::chan %::add
          ;sw NoMercy mode %::chan +b %::nick
          ;sw NoMercy PRIVMSG %::chan : $+ $+(,%::nick,) $+ ; kanal genelinde ayni yazinin tekrarini fazlaca yaptiginiz icin 30 dk. sureyle konusmaniz engellendi.
          ; _kick %::chan %::add Biz bir kereden anliyoruz ki?
        }
      }
      :hm
    }
  }
 }

Not:Yazdığımız kodlarda, eksikler olduğu sürece, herkes kullanıcıya bir özür borçludur.

Cevap: /* NoMercy Hataları ve Eksikleri */

Ellerine sağlık buğra sürekli bişeler kazandırman gerçekten güzel kardeşim. Çalışmalarının devamını bekliyoruz.. :)

Cevap: /* NoMercy Hataları ve Eksikleri */

dostum her zaman demişimdir bu wingman baska bi insan :)
(bazıları ne kadar sana gıcık gitsede)

Siz Edit Yapmaya Tşk Ediyosanız Buna Ne Dersiniz ?

Cevap: /* NoMercy Hataları ve Eksikleri */

; sockwrite -n $sockname Accept-Language: en-us,en;q=0.5

bu satır kesilmiş anlamı ne bunun :S
radyo botunda üstten 5. satır açsam sakıncası olur mu

bide bu haber botu için bişe sorcam biz bunu !haberler demek yerine sürekli güncel haberleri yansıtamazmıyız öyle bişey mükün mü

Cevap: /* NoMercy Hataları ve Eksikleri */

Kabul edilen dili göstermekte, onu çıkartabilirsin, kapalı olarak duruyor bir anlam ifade etmiyor orda. Sadece belki ihtiyacım olur diye, kaldırmadım. Çünkü bazı makinalar Türkçe dilini kapsamıyor, bu da tabi can sıkabilir.

Haberler, son dakika (Güncel) haberleri yansıtmaktadır. Eğer, sürekli vermesini istiyorsan, ufak bir timer'la işlemi gördürebilirsin diye düşünüyorum .

Kod:

 

    if %::chan == #Haberler {

      if $gettok(%::text,1,32) == !haberler {

        haber

      }

    }

Şu kodu şöyle değiştirebilirsin,

Kod:

 

    if %::chan == #Haberler {

        if %::nick == Nickin && %::text == !haberler {

        sw $sockname privmsg #Haberler Haberler aktif hale getirilmiştir, 5 dakikada bir, kanala son dakika (Güncel) haberleri kanala yansıtılacaktır.

       .timerHABERLER 0 300 haber

           }

        if %::nick == Nickin && %::text == !haberdur {

         .timerHABERLER off

          sw $sockname privmsg #Haberler Haberler durdurulmuştur.

         }

    }

Sadece, senin nick'ine uygun bir şekilde başlatılmasını ve durdurulmasını sağlayabilirsin.

Cevap: /* NoMercy Hataları ve Eksikleri */

if $getxmltext(SONGTITLE, %data) != $null {
set %songtitle $remove($ifmatch,ÿ,&)

sanırım bu satırd bi hata var radyo botu için

* /set: Geçersiz parametre (Satır 2514, nomercy.mrc) diyo sürekli

o satırdaki %songtitle yi $turkceh(%songtitle) yaptım ondan hata verdi bi bakarsan sevinirim

Cevap: /* NoMercy Hataları ve Eksikleri */

Set komutuna, Replace içeren kodları yerleştirirsen elbetteki hata verir, $turkceh yazı içerisinde ki harfleri değiştirmesi için yazılmış bir kod. Yani var olanı düzeltmek, çevirmek, değiştirmek amaçlı. Ordakine yazmana gerek yok.

Cevap: /* NoMercy Hataları ve Eksikleri */

WingmaN ayrıdır ya emeğine sağlık kardeşim