ŞaH Script 2014 v2.0 - Sayfa 2 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Vesaire · 23 Nisan 2014, 22:41

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] senden 2014 yılına damga vuracak her yönüyle kullanıcıları mest edecek script çalışması görebilecekmiyiz

Feragat · 24 Nisan 2014, 17:09

VeSaiRe Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] senden 2014 yılına damga vuracak her yönüyle kullanıcıları mest edecek script çalışması görebilecekmiyiz

Maalesef @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...], sıfırdan script yapımı ile ilgilenmiyorum. Fakat snippet(parça) kod olarak pek çok script'e destek verdim, elimden geldiğince ve zaman buldukça da destek vermeye çalışıyorum. Eğer bizim ekip (mIRCScripting Ekibi) bir script yapmaya karar verirse, bende katkıda bulunurum elimden geldiğince. Bunun dışında bir script projem yok, olmayacakta. İyi forumlar diliyorum.

angry1 · 26 Nisan 2014, 15:36

Feragat Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Emeğine sağlık, hazır kodlar kullanmış olsan da uğraşıp emek vermişsin. Tebrik ederim. Hatalarını da en kısa zamanda gidermeni temenni ederim.

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

/sockopen: 'radyo2' Soket Kullanılıyor (Satır 23, radyo)

radyo2 isimli socket açıkken tekrar aynı socket'i açmaya çalışıyor. Haliyle socket kullanılıyor hatası veriyor. Scriptin içeriğini incelemedim ama o kısıma if $sock(Socketadı) { gibi bir koşul koyabilirsin, Socket açıksa { Şunları yap } Değilse { Şunları yap } gibi..

Bunları göz önüne alarak ve forumda biraz araştırma yaparak eminim ki diğer sorunlarını da çözebilirsin. Bundan sonrası için iyi çalışmalar diliyorum.

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

alias radyoal { 
  if $sock(radyo) { sockclose radyo }
  if (: isin $1) { 
    tokenize 58 $1  
    sockopen radyo $1 $2 
    set %site $1 $2 
  } 
  else { sockopen radyo $1- | set %site $1- } 
} 
on *:SockOpen:radyo:{ 
  if ($sockerr > 0) return    
  sockwrite -tn $sockname GET / HTTP/1.1 
  sockwrite -tn $sockname $crlf 
} 
on *:Sockread:radyo:{ 
  if ($sockerr > 0) return    
  sockread %radyo 
  if (icy-name isin %radyo) { set %radyo2 %radyo2 ¿ $gettok(%radyo,2,58) } 
  if (icy-genre isin %radyo) { set %radyo2 %radyo2 ¿ $gettok(%radyo,2,58) }  
  if (icy-url isin %radyo) {  set %radyo2 %radyo2 ¿ $remove(%radyo,icy-url:) | sockclose radyo | radyo2 } 
} 
on *:Sockclose:radyo:radyo2 
alias radyo2 { sockopen radyo2 %site | unset %site } 
on *:SockOpen:radyo2:{ 
  if ($sockerr > 0) return    
  sockwrite -tn $sockname GET /7.html HTTP/1.0 
  sockwrite -tn $sockname User-Agent: Mozilla 
  sockwrite -tn $sockname 
} 
on *:Sockread:radyo2:{ 
  if ($sockerr > 0) return    
  var %z 
  sockread %z 
} 
on *:SockClose:radyo2:{  
  sockread -f %radyo 
  var %z $remove(%radyo,<HTML><meta http-equiv="Pragma" content="no-cache"></head><body>,</body></html>) 
  var %i $numtok(%z,44) 
  while %i { 
    set %radyo2 %radyo2 ¿ $gettok(%z,%i,44) 
    dec %i 
  } 
  tokenize 168 %radyo2 
  gostert 
  unset %radyo2 
  unset %radyo 
} 
alias -l gostert { 
  tokenize 191 %radyo2 
  if  $dialog(e-gibi) {
    did -ra e-gibi 58 $1
    did -ra e-gibi 59 $4
  }
}

Sevgili Feragat tam olarak nasıl ve nereye ekliyeceğimi buradan gösterebilirmisin

Feragat · 26 Nisan 2014, 16:13

angry1 Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Sevgili Feragat tam olarak nasıl ve nereye ekliyeceğimi buradan gösterebilirmisin

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Script'i verilen linkten rar olarak indirip kurdum. Yarım saatten fazla bir süre sunucuya bağlanıp radyo dinledim. Herhangi bir hata ile karşılaşmadım. Karşılaşsaydım radyo kısmını düzeltip atardım. Şuan yapabileceğim bir şey kalmıyor maalesef.

angry1 · 26 Nisan 2014, 16:21

ŞaH ın da dediği gibi Feragat bazen bu hatayı veriyor peki benim gösterdiğim hata şeklinde
if (icy-name isin %radyo) { set %radyo2 %radyo2 ¿ $gettok(%radyo,2,58) } if (icy-genre isin %radyo) { set %radyo2 %radyo2 ¿ $gettok(%radyo,2,58) } if (icy-url isin %radyo) { set %radyo2 %radyo2 ¿ $remove(%radyo,icy-url
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
| sockclose radyo | radyo2 } }
satır 18 19 ve 20 yi gösteriyor
her 5 saniyede bir bilgileri güncellemek için . senin dediğin gibi bir eklendi de yapılamazmı
vala nasıl olcak kafam karıştı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sende haklısın suan hata vermiyor
bekleyelim hata verirse yıne aynı hatayı özelinizden kopyalayıp yardım rica ederim sizden Feragat..

ŞaH · 05 Mayıs 2014, 12:51

Script dosyaları içerisinde system/radyo dosyasını;

Alıntı:

alias radyoal {
if $sock(radyo) { sockclose radyo }
if (: isin $1) {
tokenize 58 $1
sockopen radyo $1 $2
set %site $1 $2
}
else { sockopen radyo $1- | set %site $1- }
}
on *:SockOpen:radyo:{
if ($sockerr > 0) return
sockwrite -tn $sockname GET / HTTP/1.1
sockwrite -tn $sockname $crlf
}
on *:Sockread:radyo:{
if ($sockerr > 0) return
sockread %radyo
if (icy-name isin %radyo) { set %radyo2 ¿ $gettok(%radyo,2,58) }
if (icy-genre isin %radyo) { set %radyo2 ¿ $gettok(%radyo,2,58) }
if (icy-url isin %radyo) { set %radyo2 %radyo2 ¿ $remove(%radyo,icy-url:) | sockclose radyo | radyo2 }
}
on *:Sockclose:radyo:radyo2
alias radyo2 { sockopen radyo2 %site | unset %site }
on *:SockOpen:radyo2:{
if ($sockerr > 0) return
sockwrite -tn $sockname GET /7.html HTTP/1.0
sockwrite -tn $sockname User-Agent: Mozilla
sockwrite -tn $sockname
}
on *:Sockread:radyo2:{
if ($sockerr > 0) return
var %z
sockread %z
}
on *:SockClose:radyo2:{
sockread -f %radyo
var %z $remove(%radyo,<HTML><meta http-equiv="Pragma" content="no-cache"></head><body>,</body></html>)
var %i $numtok(%z,44)
while %i {
set %radyo2 %radyo2 ¿ $gettok(%z,%i,44)
dec %i
}
tokenize 168 %radyo2
gostert
unset %radyo2
unset %radyo
}
alias -l gostert {
tokenize 191 %radyo2
if $dialog(e-gibi) {
did -ra e-gibi 58 $1
did -ra e-gibi 59 $3
}
}

Bu şekilde değiştirirseniz hata verme olasılığı çok daha azalacaktır.

GoldKey · 04 Ağustos 2014, 23:02

bu scprit cok güzel olmuş amaa cok donuyor yazmak cok agır oluyorr onun icin birşey yapamazmısın daha güzel projelerde seni görmek isteriz allah kolaylık versin ..

aLone · 05 Ağustos 2014, 02:55

o kasılma Radyonun
/sockopen: 'radyo2' Soket Kullanılıyor (Satır 23, radyo)
hatası vermesinden kaynaklı

.Emre · 23 Şubat 2018, 19:33

bozuk linkler...

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
LaDyGiRL ScripT Bayanlara Özel ScripT Bir ScripT Huzurlanızda.	Bozkurt-	mIRC Scripting Tanıtımları	10	20 Mart 2013 11:57

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.