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

AyazGeceLer · 31 Ocak 2009, 20:28

Elimde Su SekiLde Dort Tane Kod Var

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

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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