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

SCouNDReL · 30 Ocak 2007, 18:15

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

alias radyo { 
  sockclose radyo*S
  sockclose radyo*J 
  if (: !isin $1) && (!$2) { echo -a 1453 | return }
  if ($1 == $null) { echo -a 38.99.21.22 | return } 
  if (: isin $1) { 
    msg #radyo 7,1 Radyo Bilgileri Alınıyor... 
    tokenize 58 $remove($1,http://,/) 
    sockopen $+(radyo,$r(1,9999),S) $1 $2 
    set %site $1 $2 
  } 
  else { sockopen $+(radyo,$r(1,999),!) $remove($1-,http://,/) | set %site $remove($1-,http://,/) | msg #radyo 4,0 Radyo Bilgileri Alınıyor... } 
} 
on *:SockOpen:radyo*S:{ 
  if ($sockerr) { msg #radyo 4,0 Radyo Offline.. | return } 
  sockwrite -tn $sockname GET / HTTP/1.1 
  sockwrite -tn $sockname $crlf 
} 
on *:Sockread:radyo*S:{ 
  sockread %radyo 
  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*S:radyo2 
alias radyo2 { sockopen $+(radyo,$r(1,9999),J) %site | unset %site } 
on *:SockOpen:radyo*J:{ 
  if ($sockerr) { msg #Radyo 4,0 Radyo Offline.. } 
  sockwrite -tn $sockname GET /7.html HTTP/1.0 
  sockwrite -tn $sockname User-Agent: Mozilla 
  sockwrite -tn $sockname 
} 
on *:Sockread:radyo*J:{ 
  if ($sockerr) { msg #radyo0,4 Yayın Offline | return } 
  var %z 
  sockread %z
} 
on *:SockClose:radyo*J:{ 
  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 &#191; $remove($gettok(%z,%i,44),|) 
    dec %i 
  } 
  gostert 
  unset %radyo2 
  unset %radyo 
} 
alias -l gostert { 
  sockclose radyo*S
  sockclose radyo*J 
  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 
  msg %radyo.kanal DJ : $1 &#199;alan Par&#231;a : $4 Dinleyici Sayısı: $6
}
on *:TEXT:!durum:#:{ set %radyo.kanal $chan | radyo $1- }

!durum ip:port