mIRC.Net.tr

PHP- Kodu:
on *:text:*:#:{
if $chan == #radyo {
if !istek* iswm $1- {
if $2 == $null {
msg $chan 1Lütfen Bir İstek Parça Belirtin $nick Örnegin: .istek şeklinde istekte bulunabilirsiniz.
}
else {
inc -u180 $+(%,istek.,$nick) 1
if ($($+(%,istek.,$nick),2) >= 2) {
!.msg $chan 1Lütfen Ard Arda Istek Istemeyin ßir Kişi 15 Dakikada ßir Istek Isteyebilir.. | return }
else {
inc %isayi
msg #istek 4,4 0,1Radyo Istek 
msg #istek 4,4 0,1
msg #istek 4,4 0,1
msg #istek 4,4 0,1 $nick 9,1 ( $+ $2- $+ )
msg #istek 4,4 0,1
msg #istek 4,4 0,1
msg #istek 4,4 0,1 Radyo Istek
msg $chan 4,4 1,8 İsteginiz DJ’lerimize iletilmistir 
msg $chan 4,4 0,1 İstenilen İstek Sayısı: %isayi 
msg $chan 4,4 0,1 $nick 9,1 ( $+ $2- $+ ) 
msg $chan 4,4 9,1 !istek şeklinde istekte bulunabilirsiniz.
msg $chan 4,4 4,1BaksenFm 8,1WinAmp Adresimiz 9,http://83.170.93.64:7575/listen.pls .write istekler.txt $+($nick,$chr(11),$2-)
}
}
}
}
if $chan == #istek {
if !istekvar* iswm $1- {
if $2 == $null {
msg $chan 1Lütfen Bir Nick Belirtin.. ÖRN: !istekvar
}
else {
if $read(istekler.txt,w,$2 $+ *) {
msg #istek Sıradaki parça ( $+ $2- $+ ) iletildi; Isteği: $gettok($read(istekler.txt,w,$2 $+ *),2,11)
msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 1 7Radyo kanalında yapmış olduğunuz istek sıraya alınmıştır.En kısa sürede yayınlanacaktır.12 Sizin Sesiniz Radyo BaksenFm’desiniz 4İyi dinletiler ..
msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 5 isteğiniz: 4 $gettok($read(istekler.txt,w,$2 $+ *),2,11)
write $+(-,dl,$readn) istekler.txt
.halt
}
if !$read(istekler.txt,w,$2 $+ *) {
msg $chan $2 1Nicki Listede Gözükmüyor.
}
}
}
if !istekyok* iswm $1- {
if $2 == $null {
msg $chan 1Lütfen Bir Nick Belirtin.. ÖRN: !istekyok
}
else {
if $read(istekler.txt,w,$2 $+ *) {
msg #istek Reddedilen Istek ( $+ $2- $+ ) iletildi; Isteği: $gettok($read(istekler.txt,w,$2 $+ *),2,11)
msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 1Radyo kanalında yapmış olduğunuz istek Dj’imizin Arşivinde olmadığından,Sıradaki çalışma Dj tarafından size Armağan edilecektir.Yada yeni bir istekte bulunabilirsiniz.[ Sizin Sesiniz Radyo BaksenFm'desiniz ] İyi dinletiler.
msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 1isteğiniz: $gettok($read(istekler.txt,w,$2 $+ *),2,11)
write $+(-,dl,$readn) istekler.txt
.halt
}
if !$read(istekler.txt,w,$2 $+ *) {
msg $chan $2 1Nicki Listede Gözükmüyor
}
}
}
}
}

[16:42] !istek ibrahım erkal canısı
[16:42] <@KoRuMa> İsteginiz DJ’lerimize iletilmistir
[16:42] <@KoRuMa> İstenilen İstek Sayısı: 2
[16:42] <@KoRuMa> DaDaS (ibrahım erkal canısı)
[16:42] <@KoRuMa> !istek şeklinde istekte bulunabilirsiniz.
[16:42] <@KoRuMa> BaksenFm WinAmp Adresimiz http://72.20.58.176:8687/listen.pls

PHP- Kodu:
alias radyom {
sockclose radyo*S
sockclose radyo*J
if (: !isin $1) && (!$2) { echo -a 8687 radyo.BaksenFm.com | return }
if ($1 == $null) { echo -a 72.20.58.176 radyo.BaksenFm.com | 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,,)
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
echo -a İsim : $1
echo -a Genre : $2
echo -a URL : $3
echo -a ÇaLan Parç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
.msg #radyo 7,1BaksenFm 11Şuanda Çalan Parçamız. :8,1 $4 
.msg #radyo 0,1~~
.msg #radyo 11,1Yayını Winamptan Dinlemek Için Tıklayınız 9http://72.20.58.176:8687/listen.pls 
.msg #radyo 0,1~~
.msg #radyo 11,1Yayındaki DJ’imiz 8,1 $1
.msg #radyo 0,1~~
.msg #radyo 11,1Şuanda Yayınımızı 8,1 $6 11,1Kişi Dinlemektedir..
.msg #radyo 0,1~~
.msg #radyo 14,1!istek Sanatcı Ismi & Şarkısı & Mesajınız Komutunu Kullandıgınızda Isteğiniz Otomatikman Dj’e iletiliyor.  
}
}
on me:*:join:#radyo:{
.timer 1 2 radyom http://72.20.58.176:8687/listen.pls
.timer 0 240 radyom http://72.20.58.176:8687/listen.pls
.timer 0 300 msg #radyo 0,1 9BaksenFm 7Winamp’tan Dinlemek icin Tiklayınız 4 –> 8 http://72.20.58.176:8687/listen.pls 
}
on *:text:*:#radyo:{
elseif !link == $1 { msg #radyo 0,1 9BaksenFm 0Winamp’tan Dinlemek icin Tiklayınız 4 —-> 8 http://72.20.58.176:8687/listen.pls 0Adresine Tıklayınız  }
}

[16:30] <@KoRuMa> BaksenFm Winamp’tan Dinlemek icin Tiklayınız –> http://72.20.58.176:8687/listen.pls
[16:30] <@KoRuMa> BaksenFm Şuanda Çalan Parçamız. : 053-Serdar ortac-bu nasil ayrilik (Yigit yaparel Remix)
[16:30] <@KoRuMa> ~~
[16:30] <@KoRuMa> Yayını Winamptan Dinlemek Için Tıklayınız http://72.20.58.176:8687/listen.pls
[16:30] <@KoRuMa> ~~
[16:30] <@KoRuMa> Yayındaki DJ’imiz CiCeK
[16:30] <@KoRuMa> ~~
[16:30] <@KoRuMa> Şuanda Yayınımızı 14 Kişi Dinlemektedir..
[16:30] <@KoRuMa> ~~
[16:30] <@KoRuMa> !istek Sanatcı Ismi & Şarkısı & Mesajınız Komutunu Kullandıgınızda Isteğiniz Otomatikman Dj’e iletiliyor.