IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Tekil Mesaj gösterimi

SCouNDReL · 06 Temmuz 2006, 01:07

Sorunun Nerden KaynakLandıını AnLayamadım Ama Şöyle bir Çözüm Üretmeye Çalıştım;

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

;Radyo Bilgileri G&#246;sterici By SCouNDReL
;Kullanim /radyo Server(ip) Port

alias radyo { 
  sockclose radyo  
  if (: !isin $1) && (!$2) { echo -a Port Yazın (&#214;rn : radyo.deneme.com:2525) | return }
  if ($1 == $null) { echo -a Radyo Adı Yazın (&#214;rn : radyo.deneme.com:2525) | return }  
  if (: isin $1) { 
    echo -a L&#252;tfen Bekleyin..    
    tokenize 58 $remove($1,http://,/) 
    sockopen radyo $1 $2 
    set %site $1 $2 
  } 
  else { sockopen radyo $remove($1-,http://,/) | set %site $remove($1-,http://,/) | echo -a L&#252;tfen Bekleyin.. } 
} 
on *:SockOpen:radyo:{ 
  if ($sockerr) { echo -a Siteye BağLanmada Hata! | return }   
  sockwrite -tn $sockname GET / HTTP/1.1 
  sockwrite -tn $sockname $crlf 
} 
on *:Sockread:radyo:{    
  if ($sock(radyo)) { sockread %radyo } | else { echo -a Data Okumada Hata! | return } 
  if (icy-name isin %radyo) { set %radyo2 %radyo2 &#191; $remove($gettok(%radyo,2,58),|) } 
  if (icy-genre isin %radyo) { set %radyo2 %radyo2 &#191; $remove($gettok(%radyo,2,58),|) }  
  if (icy-url isin %radyo) {  set %radyo2 %radyo2 &#191; $remove(%radyo,icy-url:) | sockclose radyo | radyo2 } 
} 
on *:Sockclose:radyo:radyo2 
alias radyo2 { sockopen radyo2 %site | unset %site } 
on *:SockOpen:radyo2:{ 
  if ($sockerr) { echo -a Siteye BağLanmada Hata! }    
  sockwrite -tn $sockname GET /7.html HTTP/1.0 
  sockwrite -tn $sockname User-Agent: Mozilla 
  sockwrite -tn $sockname 
} 
on *:Sockread:radyo2:{ 
  if ($sockerr) { echo -a Siteye BağLanmada Hata! | return }   
  var %z 
  if ($sock(radyo2)) { sockread %z } | else { echo -a Data Okumada Hata! | return }
} 
on *:SockClose:radyo2:{  
  if ($sock(radyo2)) { sockread -f %radyo } | else { echo -a Data Okumada Hata! | return }  
  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 &#191; $remove($gettok(%z,%i,44),|) 
    dec %i 
  } 
  gostert 
  unset %radyo2 
  unset %radyo 
} 
alias -l gostert { 
  tokenize 191 %radyo2 
  ; $1 = Dj in Yazdığı İsim 
  ; $2 = Genre 
  ; $3 = URL 
  ; $4 = &#199;aLan Par&#231;a 
  ; $5 = Şarkı Kalitesi 
  ; $6 = Dinleyici Sayısı 
  ; $7 = Max. Dinleyici Sayısı 
  ; $8 & $9 = DinLeyici Rekoru 
  ; $10 = Ne oLduunu biLmiOm :) 
  echo -a İsim : $1 
  echo -a Genre : $2 
  echo -a URL : $3 
  echo -a &#199;aLan Par&#231;a : $4 
  echo -a Şarkı KaLiteSi : $5 
  echo -a DinLeyici Sayısı : $6 
  echo -a Max. Dinleyici Sayısı : $7 
  echo -a DinLeyici Rekoru : $8 & $9 
}

Eğer haLa Aynı Hatayı aLırSan Hatayı Tam Satır Numarasıyla verirsen ii oLur...