/* NoMercy Hataları ve Eksikleri */ - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

WingmaN · 28 Kasım 2008, 15:23

/* 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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

%songtitle

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

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

WingmaN · 28 Kasım 2008, 15:42

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

Kod: Kodu kopyalamak için üzerine çift tıklayın!

;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: Kodu kopyalamak için üzerine çift tıklayın!

    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.

WingmaN · 28 Kasım 2008, 16:07

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: Kodu kopyalamak için üzerine çift tıklayın!

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.

RaRaeL · 28 Kasım 2008, 16:56

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..
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

q0kh4n01 · 28 Kasım 2008, 22:13

dostum her zaman demişimdir bu wingman baska bi insan
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

(bazıları ne kadar sana gıcık gitsede)

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

q0kh4n01 · 29 Kasım 2008, 10:07

; 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ü

WingmaN · 29 Kasım 2008, 17:33

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: Kodu kopyalamak için üzerine çift tıklayın!

 
    if %::chan == #Haberler {
      if $gettok(%::text,1,32) == !haberler {
        haber
      }
    }

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

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 
    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.

q0kh4n01 · 29 Kasım 2008, 23:34

if $getxmltext(SONGTITLE, %data) != $null {
set %songtitle $remove($ifmatch,ÿ,&#x26
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

WingmaN · 29 Kasım 2008, 23:52

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.

30 Kasım 2008, 00:45

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

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Telekom'un eksikleri neler?	Kalemzede	Diğer Spor Branşları	0	17 Ekim 2011 12:09
Evinizin eksikleri mi var? Ya da ofisinize farklı mobilyalar mı arıyorsunuz?	Kalemzede	Ev Dekorasyonu	0	25 Eylül 2011 15:22

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.