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

Elimde Su SekiLde Dort Tane Kod Var

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 0,1 YayInda Su An 8 $1 0BuLunmakta. * YayIn Turu: 8 $1 0* Calan parca: 4>>>>> 8 $4 4<<<<< 

  msg %kanal 0,1 Turkiye'nin En KaLiteLi OnLine Radyosu ve DJ'Leri Radyo 8 %Rad 0Resmi Sitesi: 8 %web 

  msg %kanal 0,1 8 $1 0Su Anda OnLine Siradaki Parca :8 $4 0Su anda 4<8 $6 4> 0 kisi dinliyor 8 (rekor: $8) 

  msg %kanal 8,1 ** 9,1 RadyoRitmik'i 0Winamp'tan DinLemek IcIn TikLayInIz 4 --> 7 http:// $+ %link $+ : $+ %port $+ /listen.pls 0,1Adresine TikLayiniz ! 

}

Kod:

on *:connect:{ 

  .nick %nick

  .identify %sifre 

  .partall

  .timer 1 1  join %kanal

  .timer 1 1  join %djk 

  .rd

  .web

}

on *:start:{ 

  .set %logo 1« Radyo Bøt Script v1.o 4®1 »

  .xecho

  .timer 1 1 /rad

}

alias rad { dialog -m rb rb }

alias xecho {

  echo -a [Rb] « Radyo Bøt Script v1.o 4®1 »

  echo -a [Rb] Radyo Script Suanda KuLLanIma HazIr !

  echo -a [Rb] Tarih $date

  echo -a [Rb] Tarih $time

  echo -a [Rb] Radyo Script Suana Kadar %rb Sefer AciLdi !

  echo -a [Rb] Radyo Script [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Tarafindan DuzeLtiLmistir !

  .titlebar «Radyo Bøt Script v1.o ®»

  .ignore -r

  inc %rb

}

ctcp 1:version:*:{

  ctcpreply $nick  Radyo Bøt Script v1.o ® 

}

ctcp 1:finger:*:{

  ctcpreply $nick  Radyo Bøt Script v1.o ® 

}

Kod:

on *:text:*:%kanal:{

  if ($1 == !durum) { .radyo  %link $+ : $+ %port }

  if ($1 == !istekbilgi) { msg %kanal 0,1 IstekLerInIzI Radyo KanaLina 9!istek 4<9istediginiz sarki ve mesajiniz4> 0,1SekLinde YazabiLirsInIz. Ornek: 9!istek Gece YoLcuLari 4- 9Unut beni4 - 8Tum %Rad ailesine gelsin. }

  if ($1 == !link) { msg %kanal 8,1 ** 9,1 RadyoRitmik'i 0Winamp'tan DinLemek IcIn TikLayInIz 4 --> 7 http:// $+ %link $+ : $+ %port $+ /listen.pls 0,1Adresine TikLayInIz!  }

  if ($1 == !istek) { msg %Djk 0,1 Isteyen: 8 $nick 0 Istek 4 $2- | msg %kanal 9,1 Sarki 0,1 IstegInIz DJ'LerImIze iLetiLmIstIr 7 $nick 8( $+ $2- $+ ) }

  if ($1 == !İstek) { msg %Djk 0,1 Isteyen: 8 $nick 0 Istek 4 $2- | msg %kanal 9,1 Sarki 0,1 IstegInIz DJ'LerImIze iLetiLmIstIr 7 $nick 8( $+ $2- $+ ) }

}

Kod:

dialog rb {

  title "Radyo mIRC - [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"

  size -1 -1 289 164

  option dbu

  text "Sunucu Adı", 1, 15 20 45 8

  text "Bot Nicki", 2, 15 35 45 8

  text "Bot Şifresi", 3, 15 50 45 8

  text "Yayın Kanalı", 4, 15 65 45 8

  text "Dj Kanalı", 5, 15 80 45 8

  text "Radyo IP Adresi", 6, 15 95 45 8

  text "Radyo Portu", 7, 15 110 45 8

  text "Radyo Adı", 8, 15 125 45 8

  text "Radyo Web Sitesi", 9, 15 140 45 8

  edit "", 10, 70 20 50 10, autohs autovs

  edit "", 11, 70 35 50 10, autohs autovs

  edit "", 12, 70 50 50 10, autohs autovs pass

  edit "", 13, 70 65 50 10, autohs autovs

  edit "", 14, 70 80 50 10, autohs autovs

  edit "", 15, 70 95 50 10, autohs autovs

  edit "", 16, 70 110 50 10, autohs autovs

  edit "", 17, 70 125 50 10, autohs autovs

  edit "", 18, 70 140 50 10, autohs autovs

  text "ÖR: irc.adres.com", 19, 125 20 45 8

  text "ÖR: Radyo", 20, 125 35 45 8

  text "ÖR: 13mir13cd13", 21, 125 50 45 8

  text "ÖR: #Radio", 22, 125 65 45 8

  text "ÖR: #Dj", 23, 125 80 45 8

  text "ÖR: 208.98.57.49", 24, 125 95 45 8

  text "ÖR: 9777", 25, 125 110 45 8

  text "ÖR: Ritmik FM", 26, 125 125 45 8

  text "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]", 27, 125 140 45 8

  text "- Değerli kullanici;                                * Radyo Script kodları toplama kodlar olarak sizlere sunulmuştur. Bu yuzden ufak sorunlar çıkabilir, ancak Script ayarlanılınca en iyi şekilde yapılmaya çalışılmıştır.                                                                                              ***Not: Botun duzgun çalışması için belirtilen yerleri eksiksiz olarak doldurun.                                                                                                           ***UYARI: Script Kodları kaynak gosterilmeden  yayınlanması yasaktir.", 28, 185 20 90 99

  button "Tamam", 29, 185 125 37 12, flat ok

  text "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]", 30, 230 155 55 8, disable center

}

on 1:dialog:rb:sclick:29:{

  set %server $did(10)

  set %nick $did(11)

  set %sifre $did(12)

  set %kanal $did(13)

  set %djk $did(14)

  set %link $did(15)

  set %port $did(16)

  set %Rad $did(17)

  set %Web $did(18)

  server %server

}

Bu KodLar Var CaLisiyorLar Ama mIRC Otomatik oLarak

<+RadyoBot> Suan Yayinimizi << 37 >> Kisi Dinlemektedir.

[20:09] <+RadyoBot> Suan Yayinimizi << 37 >> Kisi Dinlemektedir.
[20:09] <+RadyoBot> İsteklerinizin Calinmasi İcin Yapmaniz Gereken Tek Sey; #Radyo Kanalinda !istek < istediginiz Şarkı ve Mesajiniz > Şuanda Yayinda Olan << Dj SeRSeRi iLe DuYGu SeLi >>
[20:09] <+RadyoBot> .
[20:09] <+RadyoBot> Siradaki Çalicak Olan Parça : 02 {aþk} her {Þeye} {deðer} {aslý} {güngör} 2009 uykc blogcu com ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[20:09] <+RadyoBot> ..
[20:09] <+RadyoBot> RadyoRitmik 'i Winamp Üzerinden Dinlemek İçin Tiklayiniz ---> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[20:08] <+RadyoBot> RadyoRitmik Hakkinda Bilgilendirme !durum - !istek - !link - çalan - !dinleyen
[20:08] <+RadyoBot> Suan Yayinimizi << 32 >> Kisi Dinlemektedir.

SekLinde KendiLiqinden Mesaj AtmIyor ßunu NasiL ayarLiyabiLirim Yardimci oLurmusunuz Simdiden TskLer