IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kod:
alias radyo { 

  sockclose radyo*S

  sockclose radyo*J    

  if (: !isin $1) && (!$2) { echo -a Port Yazın (Örn : radyo.deneme.com:2525) | return }

  if ($1 == $null) { echo -a Radyo Adı Yazın (Örn : radyo.deneme.com:2525) | return }  

  if (: isin $1) { 

    echo -a Lütfen Bekleyin..    

    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://,/) | echo -a Lütfen Bekleyin..  } 

} 

on *:SockOpen:radyo*S:{ 

  if ($sockerr) { echo -a Siteye BağLanmada Hata! | 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 ¿ $remove($gettok(%radyo,2,58),|) } 

  if (icy-genre isin %radyo) { set %radyo2 %radyo2 ¿ $remove($gettok(%radyo,2,58),|) }  

  if (icy-url isin %radyo) {  set %radyo2 %radyo2 ¿ $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) { 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:radyo*J:{ 

  if ($sockerr) { echo -a Siteye BağLanmada Hata! | 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 ¿ $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 = ÇaLan Parça 

  ; $5 = Şarkı Kalitesi 

  ; $6 = Dinleyici Sayısı 

  ; $7 = Max. Dinleyici Sayısı 

  ; $8 & $9 = DinLeyici Rekoru 

  msg %kanal 9,1Yayinda su an 8 $1 9,1bulunmakta. 13* 0Yayin Türü: 8 $1 13* 11Calan parca: 7>>>>> 9 $4 7<<<<<

  msg %kanal 15,1 Turkiye'nin en kaliteli online radyosu ve DJ'leri 7,1 Radyo %Rad 15,1Resmi Sitesi:0,6 %web 

  msg %kanal 15,1Şuanda 7,1 $6 KiŞi dinlemekTe. 15,1 ReKor : 7,1 $7

  msg %kanal 12Radyo ile ilgili sorunlariniz icin kanal aoplari ile görüşebilirsiniz. 

  set %dj $1

  set %cp $4

  set %ds $6

}

#dj on

on *:text:!dj:#Radyo: {

  msg #radyo 0,4 Dj GörevLisi 1 %dj 0,4Şu anda OnLine.

  #dj end

}

#parca on

on *:text:!parca:#Radyo: {

  msg #radyo 0,2ÇaLan parca:9 %cp 

  #parca end

}

#dinleyici on

on *:text:!dinleyici:#Radyo: {

  msg #radyo 0,6Radyomuzu Su anda 11 %ds 0,6Kişi DinLiyor.

  #dinleyici end

}
ben bunu Kullanıyorum sorunsuz çalısıyor
!istek !djekle !djsil !djsil qibi Komutlarda mevcut bu Çalısırsa Unreal e göre Editler Verebilirim O kodları da.