IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

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/)
-   -   /* Radyo Botu (Socketed) */ (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/130410-radyo-botu-socketed.html)

XPhytoN 25 Ağustos 2008 08:07
/* Radyo Botu (Socketed) */
 
Kod:
alias radyo.kanal {
  return #radyo
}
alias radyo.host {
  return 64.56.66.142
}
alias radyo.port {
  return 8886
}
alias radyo.adminpass {
  return benimradyom
}
alias radyo.sock {
  return shoutcast
}
alias getxmltext {
  var %tag.open = $+(<, $1, >)
  var %tag.close = $+(</, $1, >)
  if $pos($2-,%tag.open) {
    var %start = $ifmatch + $len(%tag.open)
    var %length  = $calc($pos($2-, %tag.close) - %start)
    return $mid($2-, %start, %length)
  }
  return $null
}
on 1:SOCKOPEN:$($radyo.sock): {
  sockwrite -n $sockname GET $+(/admin.cgi?pass=,$radyo.adminpass,&mode=viewxml HTTP/1.1)
  sockwrite -n $sockname Host: $+($radyo.host, :, $radyo.port)
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8
  sockwrite -n $sockname *.*, */*
  ; sockwrite -n $sockname Accept-Language: en-us,en;q=0.5
  sockwrite -n $sockname Accept-Language: tr,tr;q=0.5
  sockwrite -n $sockname Accept-Encoding: gzip,deflate
  sockwrite -n $sockname Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
  sockwrite -n $sockname Keep-Alive: 300
  sockwrite -n $sockname Connection: keep-alive
  sockwrite -n $sockname $crlf
}
on 1:SOCKREAD:$($radyo.sock): {
  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(SERVERGENRE, %data) != $null {
      set %genre $remove($ifmatch,&#xFF;,&#x26;)
    }
    sockread -f %data
  }
}
on 1:SOCKCLOSE:$($radyo.sock): {
  if %songtitle != %lastsong {
    set %lastsong %songtitle
    var %msg = 0,4 %genre su anda online 0,2 Siradaki parca: %songtitle 0,6 Su anda %currentlisteners kisi dinliyor (rekor: %peaklisteners $+ ) 
    set %msg2 0,4 %genre su anda online 0,2 Siradaki parca: %songtitle 0,4<< 0,5 Radyomuzu dinlemek icin tiklayin 0,4 >>  http://208.98.57.80:4444/listen.pls
    msg $radyo.kanal Yayinda su an << $+ %genre $+ >> bulunmakta. * Yayin turu: %servertitle * Calan parca: >>>>> %songtitle <<<<<
    msg $radyo.kanal %msg
  }
}
alias shout {
  if $sock(shoutcast) {
    sockclose $ifmatch
  }
  sockopen $radyo.sock $radyo.host $radyo.port
}
on 1:text:*:#radyo:{
  if *!durum* iswm $1- {
    set -u10 %durum 1
    unset %lastsong
    .timershout 0 5 shout
  }
}
mIRC'inizin içerisinde ki o nacizane, Remote bölümüne eğer koyarsanız, ayarladığınız kanal içerisinden, sadece 1 kereye mahsus " !durum " yazdıktan sonra, radyonuz otomatik olarak çalışmaya başlayacaktır.

Not: Kalın olarak işaretlediğim yerleri, kendi bilgileriniz adına değiştirmelisiniz.

Bu postu nomercy'de ki radyo botuna ihtiyacı olan arkadaşımız için özel olarak hazırladığımı belirtmeliyim, yardımlaşmak her zaman, mutluluk getirir.

ihtiyacı olan herkes kullansınlar.

problem_cocuk 25 Ağustos 2008 10:41
Cevap: /* Radyo Botu (Socketed) */
 
alias radyo.adminpass {
return benimradyom
}

Bu kısıma ShoutCast Programında Password bölümüne Yazılan Radyo Şifresimi Yazılıcak ?

ve şöyle bir Hata veriyor . . .

* /timer: Geçersiz parametre (Satır 83, radyochan.txt)

XPhytoN 25 Ağustos 2008 18:15
Cevap: /* Radyo Botu (Socketed) */
 
evet, dediğin oraya radyo şifresi yazılacak, IP yazan yere , Radyo IP'si ve port yazan yere , radyo portu yazılacak, ben denedim, böyle bir problemle karşılaşmadım, lütfen dikkatlice eklemeleri yapın.

problem_cocuk 26 Ağustos 2008 10:34
Cevap: /* Radyo Botu (Socketed) */
 
* /timer: Geçersiz parametre (Satır 83, radyo.txt)

bu hatayı veriyor .

XPhytoN 26 Ağustos 2008 21:54
Cevap: /* Radyo Botu (Socketed) */
 
ilginç,

.timer shout 0 5

şu kısmı olmalı, onu timer $+ $r(1,999) 0 5

olarak, değiş eğer gene aynı hatayı veriyorsa, kodunda bracket ({) hatası var demektir.

problem_cocuk 27 Ağustos 2008 09:59
Cevap: /* Radyo Botu (Socketed) */
 
* /timer: timer 147 not active

Şimdide Bu hatayı verdi

Regex 31 Ağustos 2008 11:07
Cevap: /* Radyo Botu (Socketed) */
 
Alıntı:
.timer shout 0 5

Timer'da bu kullanım hatalı.

.timer 0 5 shout

Şeklinde olmalı.

Kolay gelsin.

XPhytoN 31 Ağustos 2008 13:41
Cevap: /* Radyo Botu (Socketed) */
 
Evet, o şekilde düzeltilirse bir sorun kalmayacak, nasıl oluyor da böyle ufak tefek hatalar gözümden kaçıyor anlamıyorum ..

wKatli4mci 31 Ağustos 2008 14:16
Cevap: /* Radyo Botu (Socketed) */
 
Ufak tefek bir hata arıyorsan, sağdan soldan çaldığın, editlediğin botları, ve kodları sahiplenmen en büyük hata ufak tefek sayma bu hatanı, sen *coder* değilsin hash, sock yazan bir insan böyle bir hata yapmaz ayrıca hadi diyelim gözünden kaçtı, bunu başkası düzeltene kadar sen niye düzeltmedinde, farklı şeyler söyledin *WingmaN* sen, coder değilsin .. Kandır bakalım milleti.

aLi ~

Duffy`DuCk 02 Eylül 2008 02:12
Cevap: /* Radyo Botu (Socketed) */
 
Alıntı:
wKatli4mci Nickli Üyeden Alıntı (Mesaj 536121)
Ufak tefek bir hata arıyorsan, sağdan soldan çaldığın, editlediğin botları, ve kodları sahiplenmen en büyük hata ufak tefek sayma bu hatanı, sen *coder* değilsin hash, sock yazan bir insan böyle bir hata yapmaz ayrıca hadi diyelim gözünden kaçtı, bunu başkası düzeltene kadar sen niye düzeltmedinde, farklı şeyler söyledin *WingmaN* sen, coder değilsin .. Kandır bakalım milleti.

aLi ~
Katılmamak elde değil xD


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 22:53.
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

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