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/)
-   -   /* NoMercy Hataları ve Eksikleri */ (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/161173-nomercy-hatalari-ve-eksikleri.html)

WingmaN 28 Kasım 2008 15:23
/* 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-,ý,ı,ü,ü,ð,ğ,þ,ş,ö,ö,Ý,İ,ç,ç,Ü,Ü,Ö,Ö,Ç,Ç,Þ,Ş,ÿ,$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...

WingmaN 28 Kasım 2008 15:42
/* 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.

WingmaN 28 Kasım 2008 16:07
/* 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.

RaRaeL 28 Kasım 2008 16:56
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.. :)

q0kh4n01 28 Kasım 2008 22:13
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 ?

q0kh4n01 29 Kasım 2008 10:07
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ü

WingmaN 29 Kasım 2008 17:33
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.

q0kh4n01 29 Kasım 2008 23:34
Cevap: /* NoMercy Hataları ve Eksikleri */
 
if $getxmltext(SONGTITLE, %data) != $null {
set %songtitle $remove($ifmatch,&#xFF;,&#x26;)

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

SLyther 30 Kasım 2008 00:45
Cevap: /* NoMercy Hataları ve Eksikleri */
 
WingmaN ayrıdır ya emeğine sağlık kardeşim

xfactor 30 Kasım 2008 16:39
Cevap: /* NoMercy Hataları ve Eksikleri */
 
ellerine sağlıK

RaRaeL 30 Kasım 2008 17:36
Cevap: /* NoMercy Hataları ve Eksikleri */
 
eLine koLuna sağLık winq..

WingmaN 02 Aralık 2008 04:55
Cevap: /* NoMercy Hataları ve Eksikleri */
 
/* Radyo Durum Sistemi */

Radyo'muzu baştan aşşağı değiştirmek zorunda kaldım, uygun ve düzenli çalışabilmesi için. Her ne kadar baştan aşşağı değiştirmek zorunda kalmışta olsam, bu gerçekten radyo için çok önemli birşeydir. Bu yuzden, hiç üşenmedim açıkçası.

Başlıyoruz; Öncelikle alttaki bölümü bulun;
Kod:
    if $getxmltext(SERVERGENRE, %data) != $null {
      set %genre $remove($ifmatch,&#xFF;,&#x26;)
    }
Hemen altına, göstereceğim kodu ekleyin.
Kod:
    if $getxmltext(STREAMSTATUS, %data) != $null {
      set %radyodurum $remove($ifmatch,&#xFF;,&#x26;)
    }
Bu kodu ekledikten sonra; alttaki bölümü bulun;
Kod:
on 1:SOCKCLOSE:$($shoutcast.socket): {
  if %songtitle != %lastsong {
    set %lastsong %songtitle
Bu gösterdiğim satırın altında ki herşeyi ( } ) bu işarete kadar olan ki kısımları, kesin (ctrl + x) ve bir not defterine yapıştırın. Başka bir yere aktaracağız, bu değiştirdiğimiz bölümü ise, şu şekilde değiştireceksiniz.
Kod:
on 1:SOCKCLOSE:$($shoutcast.socket): {
  if %songtitle != %lastsong {
    set %lastsong %songtitle
    radyodurum %radyodurum
  }
}
Şimdi, hemen bu kodun altına, aşşağıda vereceğim kodu ekleyeceksiniz;
Kod:
alias radyodurum {
  if $1 = 0 {
    sw NoMercy privmsg $shoutcast.channel :9,1[7 Bilgilendirme - 0Radyo9 ] - 5Radyomuz şuan da kapalı durumdadır, bizi tercih ettiğiniz için, teşekkür ederiz.
    sw NoMercy TOPIC $shoutcast.channel :9,1[7 Bilgilendirme - 0Radyo9 ] - 5Radyomuz şuan da kapalı durumdadır, bizi tercih ettiğiniz için, teşekkür ederiz.
    .halt
  }
  if $1 = 1 {
    .timer 1 20 sw NoMercy PRIVMSG $shoutcast.channel : $+ $djnick(%genre)
    var %msg = 0,4 $fants(%genre) su anda online 0,2 Siradaki parca: $turkceh(%songtitle) 0,6 Su anda %currentlisteners kisi dinliyor (rekor: %peaklisteners $+ ) 

    sw NoMercy topic $shoutcast.channel :9,1[7 Bilgilendirme - 0Radyo9 ] - $+ %msg
    sw NoMercy privmsg $shoutcast.channel :9,1[7 Bilgilendirme - 0Radyo9 ] - 0,012Şuan da DJ Olarak ( $+ 4 %genre 12 $+ ) yayındadır!
    sw NoMercy privmsg $shoutcast.channel :9,1[7 Bilgilendirme - 0Radyo9 ] - 0,06Bakalım kaç kişi dinliyor ? ;) 2 %currentlisteners  6kişi dinliyor!
    sw NoMercy privmsg $shoutcast.channel :9,1[7 Bilgilendirme - 0Radyo9 ] - 0,02Hmm hangi şarkı caliyo ki? 13 $turkceh(%songtitle)  2 parcasi caliyomus hehe!
    sw NoMercy privmsg $shoutcast.channel :9,1[7 Bilgilendirme - 0Radyo9 ] - 0,05Rekor'a baksana sen ya! 12 %peaklisteners  5kişi dinlemiş bizi!
    sw NoMercy privmsg $shoutcast.channel :9,1[7 Bilgilendirme - 0Radyo9 ] 0,0-----------------------------------------------------------------------------------------------
    sw NoMercy privmsg $shoutcast.channel :9,1[7 Bilgilendirme - 0Radyo9 ] - 0,04Sende Dinlemek istiyorsan eğer, hemen tıkla! 6> 12http:// $+ $shoutcast.host $+ : $shoutcast.port $+ /listen.pls
  }
}
Ben size bu kodu tam olarak veriyorum ki bazı yapamayan ya da yanlış anlayabilicek olan arkadaşlarımız da, iyice anlayabilsinler.

/* Bu kısımdan sonra ki bölüm, q0kh4n01 nick'li arkadaşımız için hazırlanmıştır. */

Gökhan, senin için özel olarak kodun şu kısmını değiştirmelisin, söylediğin mesajı arada bir kanala attırmak istediğinden bahsetmişsin, bu yuzden senin için bu kodu değiştirip veriyorum.

Kod:
alias radyodurum {
  timerRADYOX 0 300 sw NoMercy privmsg $shoutcast.channel :9,1[7 Bilgilendirme - 0Radyo9 ] - 5Radyomuz şuan da kapalı durumdadır, bizi tercih ettiğiniz için, teşekkür ederiz.
  if $1 = 0 {
    sw NoMercy privmsg $shoutcast.channel :9,1[7 Bilgilendirme - 0Radyo9 ] - 5Radyomuz şuan da kapalı durumdadır, bizi tercih ettiğiniz için, teşekkür ederiz.
    sw NoMercy TOPIC $shoutcast.channel :9,1[7 Bilgilendirme - 0Radyo9 ] - 5Radyomuz şuan da kapalı durumdadır, bizi tercih ettiğiniz için, teşekkür ederiz.
    .halt
  }
Bu şekilde değiştirdiğin zaman, her !durum çekildiğinde 5 dakikada bir belirlediğin mesajı kanala yazacaktır. Mesajı değiştirebilirsin, ben örnek olarak kendi kullandığımı veriyorum.

Saygılarımla, Scripting'li Günler dilerim ..

aSpeRa 02 Aralık 2008 20:30
Cevap: /* NoMercy Hataları ve Eksikleri */
 
abi bu Nomercy Botu editlemeyi YazarsanÇok SeViniRim

q0kh4n01 03 Aralık 2008 15:35
Cevap: /* NoMercy Hataları ve Eksikleri */
 
ee tşk butonu kalkmış ne ayaq :)
çok tşk ettim winq emeqine saqlık

WingmaN 04 Aralık 2008 03:14
Cevap: /* NoMercy Hataları ve Eksikleri */
 
aSpeRa;
Bunun için, başka bir konu açarım, forumu takip edersen, bulabilirsin.

q0kh4n01;
Rica ederim, işine yaradıysa sevindim :-) Eksik gördükleriniz, ya da güzel olmasını düşündüğünüz fikirleriniz varsa, paylaşın. Geliştirelim, Güzelleştirelim.

q0kh4n01 05 Aralık 2008 22:35
Cevap: /* NoMercy Hataları ve Eksikleri */
 
şimdi burda 2 tane aynı alias var çakışmıcaklar mı :S
hem kafam karıştı ya
Kod:
on 1:SOCKREAD:$($shoutcast.socket): {
  var %data
  sockread -f %data
  while $sockbr > 0 && $sockerr == 0 {
    if $getxmltext(SERVERTITLE, %data) != $null {
      set %servertitle $remove($ifmatch,&#xFF;,&#x26;)
    }
    if $getxmltext(CURRENTLISTENERS, %data) != $null {
      set %currentlisteners $ifmatch
    }
    if $getxmltext(SONGTITLE, %data) != $null {
      set %songtitle $remove($ifmatch,&#xFF;,&#x26;)
    }
    if $getxmltext(BITRATE, %data) != $null {
      set %bitrate $ifmatch
    }
    if $getxmltext(PEAKLISTENERS, %data) != $null {
      set %peaklisteners $ifmatch
    }
    if $getxmltext(STREAMSTATUS, %data) != $null {
      set %radyodurum $remove($ifmatch,&#xFF;,&#x26;)
    }
    sockread -f %data
  }
}

on 1:SOCKCLOSE:$($shoutcast.socket): {
  if %songtitle != %lastsong {
    set %lastsong $turkceh(%songtitle)
    .timer 1 7 sw nomercy PRIVMSG $shoutcast.channel : $djnick(%genre)
    .timer 1 20 sw nomercy PRIVMSG $shoutcast.channel : $djnick(%genre)
    var %msg = 0,4 $fants(%genre) su anda online 0,2 Siradaki parca: $turkceh(%songtitle) 0,6 Su anda $+ %currentlisteners kisi dinliyor (rekor: %peaklisteners $+ ) 
    sw nomercy topic $shoutcast.channel : 0,4 ** 0,2 Yayinda su an » 0,4 $fants(%genre) 0,2 « bulunmakta 0,4 ** 0,2 Yayin turu: 0,14 %servertitle 0,2 0,4 ** 0,2 Calan parca: 0,14 $turkceh(%songtitle)  0,2 0,4 ** 
    sw nomercy privmsg $shoutcast.channel : 2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
    sw nomercy privmsg $shoutcast.channel : 0,4 < ** > 0,0 0,2 DJ`lerimizden 0,4 $fants(%genre) 0,2 su anda online 
    sw nomercy privmsg $shoutcast.channel : 2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
    sw nomercy privmsg $shoutcast.channel : 0,4 < ** > 0,0 0,2 Calan parca : 0,4 $turkceh(%songtitle) 
    sw nomercy privmsg $shoutcast.channel : 2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
    sw nomercy privmsg $shoutcast.channel : 0,4 < ** > 0,0 0,2 Dinlenme Oranı : 0,14  %currentlisteners $+   kisi dinliyor 0,4 (rekor: %peaklisteners $+ ) 
    sw nomercy privmsg $shoutcast.channel : 2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
    sw nomercy privmsg $shoutcast.channel : 0,4 < ** > 0,0 9,1 Radyomuzu winamp'dan dinlemek icin tiklayin 0,4 >>  12http://212.175.158.58:2222/listen.pls
    sw nomercy privmsg $shoutcast.channel : 2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
    sw nomercy privmsg $shoutcast.channel : 0,4 < ** > 0,0 9,1 Radyomuzu web'den dinlemek icin tiklayin 0,4 >>  12
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sw nomercy privmsg $shoutcast.channel : 2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
    sw nomercy privmsg $chr(36) $+ *.mIRCDark.Com :0,4 < ** > 0,0 0,2 DJ`lerimizden 0,4 $fants(%genre) 0,2 su anda online 0,4 ** 0,20,2 Calan parca:0,4 $turkceh(%songtitle) 
    sw nomercy privmsg $chr(36) $+ *.mIRCDark.Com :0,4 < ** > 0,0 9,1 Radyomuzu winamp'dan dinlemek icin tiklayin 0,4 >>  12http://212.175.158.58:2222/listen.pls
  }
}
kısmını tam olarak nasıl değiştirmem lazım :S
kusra bakma fazla soru sordumda . . .

WingmaN 06 Aralık 2008 16:41
Cevap: /* NoMercy Hataları ve Eksikleri */
 
Üst taraf böyle kalıcak;
Kod:
on 1:SOCKCLOSE:$($shoutcast.socket): {
  if %songtitle != %lastsong {
    set %lastsong %songtitle
    radyodurum %radyodurum
  }
}
alt tarafa ise bu eklenicek;

Kod:
alias radyodurum {
  if $1 = 0 {
    sw NoMercy privmsg $shoutcast.channel :9,1[7 Bilgilendirme - 0Radyo9 ] - 5Radyomuz şuan da kapalı durumdadır, bizi tercih ettiğiniz için, teşekkür ederiz.
    sw NoMercy TOPIC $shoutcast.channel :9,1[7 Bilgilendirme - 0Radyo9 ] - 5Radyomuz şuan da kapalı durumdadır, bizi tercih ettiğiniz için, teşekkür ederiz.
    .halt
  }
  if $1 = 1 {
    .timer 1 20 sw NoMercy PRIVMSG $shoutcast.channel : $+ $djnick(%genre)
  var %msg = 0,4 $fants(%genre) su anda online 0,2 Siradaki parca: $turkceh(%songtitle) 0,6 Su anda $+ %currentlisteners kisi dinliyor (rekor: %peaklisteners $+ ) 
    sw nomercy topic $shoutcast.channel : 0,4 ** 0,2 Yayinda su an » 0,4 $fants(%genre) 0,2 « bulunmakta 0,4 ** 0,2 Yayin turu: 0,14 %servertitle 0,2 0,4 ** 0,2 Calan parca: 0,14 $turkceh(%songtitle)  0,2 0,4 ** 
    sw nomercy privmsg $shoutcast.channel : 2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
    sw nomercy privmsg $shoutcast.channel : 0,4 < ** > 0,0 0,2 DJ`lerimizden 0,4 $fants(%genre) 0,2 su anda online 
    sw nomercy privmsg $shoutcast.channel : 2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
    sw nomercy privmsg $shoutcast.channel : 0,4 < ** > 0,0 0,2 Calan parca : 0,4 $turkceh(%songtitle) 
    sw nomercy privmsg $shoutcast.channel : 2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
    sw nomercy privmsg $shoutcast.channel : 0,4 < ** > 0,0 0,2 Dinlenme Oranı : 0,14  %currentlisteners $+   kisi dinliyor 0,4 (rekor: %peaklisteners $+ ) 
    sw nomercy privmsg $shoutcast.channel : 2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
    sw nomercy privmsg $shoutcast.channel : 0,4 < ** > 0,0 9,1 Radyomuzu winamp'dan dinlemek icin tiklayin 0,4 >>  12http://212.175.158.58:2222/listen.pls
    sw nomercy privmsg $shoutcast.channel : 2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
    sw nomercy privmsg $shoutcast.channel : 0,4 < ** > 0,0 9,1 Radyomuzu web'den dinlemek icin tiklayin 0,4 >>  12
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sw nomercy privmsg $shoutcast.channel : 2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
    sw nomercy privmsg $chr(36) $+ *.mIRCDark.Com :0,4 < ** > 0,0 0,2 DJ`lerimizden 0,4 $fants(%genre) 0,2 su anda online 0,4 ** 0,20,2 Calan parca:0,4 $turkceh(%songtitle) 
    sw nomercy privmsg $chr(36) $+ *.mIRCDark.Com :0,4 < ** > 0,0 9,1 Radyomuzu winamp'dan dinlemek icin tiklayin 0,4 >>  12http://212.175.158.58:2222/listen.pls
  }
}

q0kh4n01 02 Ocak 2009 01:41
Cevap: /* NoMercy Hataları ve Eksikleri */
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
bu radyo botu olan kısmını ayrı sockette çalıştırmak istiyorum denedim ama olmadı sen yapabilirmisin böle bişe ?

Seven_46 02 Ocak 2009 12:27
Cevap: /* NoMercy Hataları ve Eksikleri */
 
Yanlış Post Buğra Basarılarının Devamını dilerim..

q0kh4n01 02 Ocak 2009 17:55
Cevap: /* NoMercy Hataları ve Eksikleri */
 
nomercy mi arıyorsun forumda zibil gibi var :S

q0kh4n01 06 Ocak 2009 14:47
Cevap: /* Haberler yenilendi */
 
Alıntı:
WingmaN Nickli Üyeden Alıntı (Mesaj 594805)
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.
ya kaptan bu haber kısmı çalışmıyor sürekli hata veriyor
* /on: Servera bağlı değilsiniz diyor satırda su
on *:sockopen:sdk*: {
ne hata var bunda anlayamadım

WingmaN 07 Şubat 2009 14:56
Cevap: /* NoMercy Hataları ve Eksikleri */
 
Haberler botunda bir arıza yok, senin botunda bir bracket eksik. Onları bir kontrol et.

WoLF 24 Nisan 2010 20:46
Cevap: /* NoMercy Hataları ve Eksikleri */
 
!haberler komutunda, Haberler Alınıyor, Lütfen bekleyin diyor ve orada kalıyor WingmaN bilgin olsun.

AaRAdyOcU 07 Ağustos 2010 02:42
Cevap: /* NoMercy Hataları ve Eksikleri */
 
Buğra yaptıgın script süper ellerine saqLIk.Bende denemek amaclı kurdum ama tek skıntım !komutlar yazdıgımda komutlari göstermemesi idi...


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

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