PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias os.radiosys { if $server { join #radyo } | if (!$dialog(os.radiosys)) { dialog -md os.radiosys os.radiosys } | else { dialog -iev os.radiosys } }
dialog os.radiosys {
title "Radyo FM"
size -1 -1 285 192
option pixels
tab "Radyo", 1, 0 2 285 219
text "00:00", 6, 10 35 50 20, tab 1 center
text " hazır.", 7, 65 35 210 20, tab 1
list 8, 10 60 80 20, tab 1 size
text "0 Kbps", 9, 95 60 50 20, tab 1 center
text "0 KHz", 10, 150 60 40 20, tab 1 center
text "Mono", 11, 195 60 35 20, tab 1 center
text "Stereo", 12, 235 60 40 20, tab 1 center
text "Çalıyor", 13, 10 85 45 15, tab 1 center
text "Hafızada", 14, 60 85 55 15, tab 1 center
text "", 15, 120 85 155 15, tab 1
edit "", 17, 32 105 220 20, tab 1 read autohs center
box "", 18, 10 125 265 8, tab 1
button "Bağlan", 19, 62 135 80 20, tab 1
button "Duraklat", 20, 142 135 80 20, tab 1
tab "Radyo Bilgisi", 3
text "Radyo:", 28, 10 35 45 15, tab 3
text "irc.xxxxx.net", 33, 70 35 205 30, tab 3 center
text "Versiyon:", 30, 10 65 45 30, tab 3
text "N/A", 31, 70 65 205 30, tab 3 center
text "DJ:", 32, 10 95 45 15, tab 3
text "N/A", 29, 70 95 205 15, tab 3 center
text "Web Site:", 34, 10 110 50 15, tab 3
text "N/A", 35, 70 110 205 15, tab 3 center
text "Alınan byte:", 36, 10 125 60 15, tab 3
text "N/A", 37, 70 125 205 15, tab 3 center
text "Hız:", 38, 10 140 50 15, tab 3
text "N/A", 39, 70 140 205 15, tab 3 center
box "", 5, 5 25 275 162
button "", 42, 0 0 0 0, hide cancel
text "Online DJ", 108, 16 215 265 16, center
button "İsteğinizi göndermek için buraya tıklayın", 100, 10 161 266 20
text "Rumuzunuz:", 102, 10 237 64 16
edit "", 101, 78 234 197 20, autohs
text "İstek parça:", 103, 10 259 64 16
edit "", 104, 78 256 197 20, autohs
edit "", 106, 78 278 197 20, autohs
text "Armağan:", 105, 10 281 64 16
button "İsteğimi gönder...", 107, 8 307 266 20
}
on *:dialog:os.radiosys:init:*: {
os.mdxdll SetMircVersion $version | os.mdxdll MarkDialog $dname
mdx SetFont $dname 101,104,106 12 700 tahoma
mdx SetColor $dname 101,104,106 text $rgb(255,255,255)
mdx SetColor $dname 101,104,106 background $rgb(99,99,156)
mdx SetColor $dname 101,104,106 textbg $rgb(99,99,156)
os.mdxdll SetFont $dname 108 13 700 tahoma
os.mdxdll SetBorderStyle $dname 100,107 staticedge
os.mdxdll SetFont $dname 100 13 400 tahoma
os.mdxdll SetFont $dname 107 13 700 tahoma
os.mdxdll SetBorderStyle $dname 6,7,8,9,10,11,12,13,14,15,19,20,21,24,26,27,29,31,33,35,37,39 staticedge | os.mdxdll SetFont 6 16 700 Verdana | os.mdxdll SetFont 7,9,10,12,15,16,17,19,20,21,22,24,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41 13 400 Tahoma | os.mdxdll SetFont 13,14 12 400 Tahoma | os.mdxdll SetControlMDX $dname 8 trackbar tooltips > dlls\bars.mdx | did -i os.radiosys 8 1 params $os.vol.w 0 100 0 0 0 0 15 | os.mdxdll SetControlMDX $dname 15 ProgressBar smooth > dlls\ctl_gen.mdx | did -a $dname 15 50 0 100 | os.mdxdll SetControlMDX $dname 22 listview rowselect nosortheader grid showsel single report > dlls\views.mdx | os.ampdll PluginManager Load output dlls\out_wave.dll | os.ampdll PluginManager Load input dlls\in_mp3.dll
dialog -o $dname
.timer 1 7 dialog-o $dname
os.interr | os.monvol | os.contatore | .timeros-.k/s 0 1 os.k/s | os.preferitibar | ;did -i $dname 22 1 headertext +b 0 Commento $+ $chr(9) $+ +b 0 Indirizzo | if ($exists($+($shortfn($scriptdir),RSYS_Preferiti.ini)) != $true) { write -c $+($shortfn($scriptdir),RSYS_Preferiti.ini) } | ;loadbuf -o $dname 22 $scriptdirRSYS_Preferiti.ini | $iif($os.read(help) = YES,dialog -mo os.helpradio os.helpradio) | $iif($os.read(addr),did -a os.radiosys 17 $ifmatch)
did -ra $dname 17 Radyo Fm
did -a $dname 101 $me
_rbaglan
}
alias dialog-o {
if $dialog($1) {
dialog -n $1
}
}
on *:dialog:os.radiosys:dclick:22: did -c $dname 1 | did -ra $dname 17 $mid($gettok($did($dname,22).seltext,2,9),11) | os.write addr $mid($gettok($did($dname,22).seltext,2,9),11) | os.interr | sockopen os.radiosys-0 $gettok($did($dname,17),1,58) $gettok($did($dname,17),2,58) | os.wradio Connessione in corso | did -a $dname 19 Bağlantıyı kes
on *:dialog:os.radiosys:sclick:*: {
if ($did = 8) {
os.write vol $calc($gettok($did($dname,8,1),1,32) * 655.35) | vol -w $os.read(vol)
}
elseif ($did = 19) {
if ($sock(os.radiosys-*)) {
os.interr | os.wradio Bağlantı kesildi.
}
else {
;os.write addr $did($dname,17) | sockopen os.radiosys-0 $gettok($did($dname,17),1,58) $gettok($did($dname,17),2,58) | os.wradio Connessione in corso | did -a $dname 19 Bağlantıyı kes
_rbaglan
}
}
elseif ($did = 20) {
if ($os.ampdll(CurrentMusic,status) != OK paused) {
os.ampdll CurrentMusic pause | did -a $dname 20 Devam...
}
else {
os.ampdll CurrentMusic unpause
did -a $dname 20 Duraklat
}
}
elseif ($did = 21) {
os.helpradio
}
elseif ($did = 24) {
os.addserver
}
elseif ($did = 26) {
write -dl $+ $calc($did($dname,22).sel -1) $+($shortfn($scriptdir),RSYS_Preferiti.ini) | did -d $dname 22 $did($dname,22).sel
}
elseif ($did = 27) {
did -r $dname 22 | write -c $+($shortfn($scriptdir),RSYS_Preferiti.ini) | os.preferitibar
}
elseif ($did = 41) {
run mailto:hyron@sicilyonline.it
}
elseif ($did = 42) {
os.interr
if ($dialog(os.helpradio)) {
dialog -x os.helpradio
}
if ($dialog(os.addserver)) {
dialog -x os.addserver } | os.ampdll FlushAllPlugins .
}
elseif ($did == 100) {
if $did($dname,100) == İsteğinizi göndermek için buraya tıklayın {
dialog -s os.radiosys -1 -1 285 343
did -a os.radiosys 100 İstek panelini kapatmak için buraya tıklayın
}
else {
dialog -s os.radiosys -1 -1 285 218
did -a os.radiosys 100 İsteğinizi göndermek için buraya tıklayın
}
}
elseif ($did == 107) && ($did($dname,107) == İsteğimi gönder...) {
if !$did($dname,101) || !$did($dname,104) || !$did($dname,106) {
echo -q $input(Bölümleri boş bırakmayınız.,o,Hata)
return
}
set %istekrumuz $did($dname,101)
set %istekparca $did($dname,104)
set %istekarmagan $did($dname,106)
_istekyap
}
}
alias removex {
if $file($1) {
.remove $1
}
}
on *:sockclose:os.radiosys-0: os.interr | os.wradio Bağlantı kesildi.
on *:sockclose:os.radiosys-1: os.interr | os.wradio Bağlantı kesildi.
on *:sockopen:os.radiosys-0: if ($sockerr = 0) { .removex $+($shortfn($scriptdir),RSYS_RadioSYS.mp3) | sockwrite -n $sockname GET / HTTP/1.0 $+ $lf $+ Host: $ip $+ $lf $+ User-Agent: Radio-SYS-v0.2-By-}|-|yRoN{-}Y{asta|<illa-Team-©2002/2003 $+ $lf $+ Accept: */* $+ $lf $+ Icy-MetaData:1 $+ $lf $+ Connection: close $+ $lf $+ $crlf | os.wradio Bağlantı kuruluyor... } | else { os.interr | os.wradio Radyoya bağlanılamıyor. }
on *:sockread:os.radiosys-*: {
if ($sockerr = 0) {
if (*0 iswm $sockname) {
sockread %os.radiodata
if (!%os.radiodata) {
os.wradio Bağlantı kuruluyor... | os.infoserver
sockrename $sockname os.radiosys-1
}
else {
os.writeinfo $gettok(%os.radiodata,1,58) $gettok(%os.radiodata,2-,58)
}
}
elseif (*1 iswm $sockname) {
sockread &os.radiodata
bwrite $+($shortfn($scriptdir),RSYS_RadioSYS.mp3) -1 &os.radiodata
if ($os.mp3 >= 8000) { did -ra os.radiosys 15 0 0 100 | sockrename $sockname os.radiosys-2 | os.infomp3 | .timeros.playing 0 0 os.playing }
else { did -b os.radiosys 13 | did -e os.radiosys 14 | did -a os.radiosys 15 $os.probuff 0 100 }
}
else { sockread &os.radiodata | bwrite $+($shortfn($scriptdir),RSYS_RadioSYS.mp3) -1 &os.radiodata }
}
else { os.wradio Errore di dialogo, disconnesso }
}
alias os.wradio did -a os.radiosys 7 $chr(160) $+ $1-
alias os.mdxdll return $dll(dlls\mdx.dll,$1,$2-)
alias mdx return $dll(dlls\mdx.dll,$1,$2-)
alias os.ampdll return $dll(dlls\amp_in.dll,$1,$2-)
alias os.vol.w return $int($calc($vol(wave) / 655.35))
alias os.preferitibar return | ;did -i os.radiosys 22 1 headerdims $iif($lines($+($shortfn($scriptdir),RSYS_Preferiti.ini)) < 5,135,120) $+ :1 125:2
alias os.infoserver $iif($os.readinfo(icy-name),did -a os.radiosys 29 $ifmatch) | $iif($os.readinfo(Server),did -a os.radiosys 31 $ifmatch) | $iif($os.readinfo(icy-notice2),did -a os.radiosys 31 $remove($ifmatch,<BR>)) | $iif($os.readinfo(icy-genre),_djset $ifmatch) | $iif($os.readinfo(icy-url),did -a os.radiosys 35 $ifmatch)
alias os.infomp3 did -a os.radiosys 9 $mp3($+($shortfn($scriptdir),RSYS_RadioSYS.mp3)).bitrate Kbps | did -a os.radiosys 10 $int($calc($mp3($+($shortfn($scriptdir),RSYS_RadioSYS.mp3)).sample /1000)) Khz | did -e os.radiosys $iif($mp3($+($shortfn($scriptdir),RSYS_RadioSYS.mp3)).mode = Single Channel,11,12)
alias os.read return $readini($+($shortfn($scriptdir),RSYS_Options.ini),RadioSYS,$1)
alias os.write writeini $+($shortfn($scriptdir),RSYS_Options.ini) RadioSYS $1 $2-
alias os.del remini $+($shortfn($scriptdir),RSYS_Options.ini) RadioSYS $1
alias os.readinfo return $readini($+($shortfn($scriptdir),RSYS_Options.ini),InfoServer,$1)
alias os.writeinfo $iif($2-,writeini $+($shortfn($scriptdir),RSYS_Options.ini) InfoServer $1 $2-)
alias os.delinfo $iif($1,remini $+($shortfn($scriptdir),RSYS_Options.ini) InfoServer $1,remini $+($shortfn($scriptdir),RSYS_Options.ini) InfoServer)
alias os.monvol if ($dialog(os.radiosys)) { if ($os.read(vol) != $vol(wave)) { os.write vol $vol(wave) | did -i os.radiosys 8 1 params $os.vol.w 0 100 0 0 0 0 15 } | .timeros-.monvol -m 1 100 os.monvol }
alias os.pos return $gettok($os.ampdll(CurrentMusic,position),2,32)
alias os.mp3 return $round($calc($file($+($shortfn($scriptdir),RSYS_RadioSYS.mp3)).size / $mp3($+($shortfn($scriptdir),RSYS_RadioSYS.mp3)).bitrate * 7.99999),0)
alias os.interr .timeros.* off | sockclose os.radiosys-* | os.ampdll Stop . | os.delinfo | did -a os.radiosys 29,31,33,35,37,39 N/A | did -a os.radiosys 9 0 Kbps | did -a os.radiosys 10 0 KHz | did -b os.radiosys 11,12,13,14,20 | did -ra os.radiosys 15 0 0 100 | did -a os.radiosys 20 Duraklat | did -a os.radiosys 19 Bağlan
alias os.playing if ($os.pos = WAE0) && ($sock(os.radiosys-2)) && ($os.readinfo(pos) >= $calc($os.mp3 - 2000)) { os.wradio Bağlantı buffering durumunda. | .timeros.buffering 0 0 os.buffering | .timeros.playing off } | elseif ($os.pos = WAE0) && ($sock(os.radiosys-2)) { os.ampdll Play $+($shortfn($scriptdir),RSYS_RadioSYS.mp3) | os.ampdll CurrentMusic seek $os.readinfo(pos) | os.delinfo pos | os.wradio Bağlantı doğrulanıyor. } | elseif ($os.pos = WAE0) && (!$sock(os.radiosys-2)) { os.interr | os.wradio Bağlantı koptu. } | else { if (!$os.readinfo(pos)) { did -e os.radiosys 13,20 | did -b os.radiosys 14 | os.wradio Radyo FM dinlemek ayrıcalıktır... } | os.writeinfo pos $os.pos }
alias os.probuff return $round($calc($calc($os.mp3 - $os.readinfo(pos)) * 100 / 8000),0)
alias os.buffering if ($calc($os.mp3 - $os.readinfo(pos)) <= 8000) && ($sock(os.radiosys-2)) { did -b os.radiosys 13,20 | did -e os.radiosys 14 | did -a os.radiosys 15 $os.probuff 0 100 } | else { did -ra os.radiosys 15 0 0 100 | .timeros.buffering off | .timeros.playing 0 0 os.playing }
alias os.contatore if ($dialog(os.radiosys)) { did -a os.radiosys 6 $gmt($calc($os.readinfo(pos) /1000),nn:ss) | .timeros-.contatore -m 1 100 os.contatore }
alias os.k/s if ($dialog(os.radiosys)) { if (!$sock(os.radiosys-0)) && ($sock(os.radiosys-*)) { did -a os.radiosys 39 $bytes($calc($sock(os.radiosys-*).rcvd - $os.readinfo(bytesrcvd)),k) K/s | did -a os.radiosys 37 $bytes($sock(os.radiosys-*).rcvd,b) | os.writeinfo bytesrcvd $sock(os.radiosys-*).rcvd } } | else { .timeros-.k/s off }
alias os.addserver if (!$dialog(os.addserver)) { dialog -m os.addserver os.addserver }
dialog os.addserver {
title "Radio SYS v0.2 - Add Server"
size -1 -1 265 85
box "" 1,0 0 265 85
text "Commento:" 2,5 12 55 15
edit "" 3,60 10 200 20,autohs
text "Indirizzo:" 4,5 32 55 15
edit "" 5,60 30 200 20,autohs
box "" 6,5 48 255 8
button "Add Server" 7,50 60 80 20
button "Chiudi" 8,135 60 80 20,cancel
}
on *:dialog:os.addserver:init:*: os.mdxdll SetMircVersion $version | os.mdxdll MarkDialog $dname | os.mdxdll SetBorderStyle $dname 7,8 staticedge | os.mdxdll SetFont 2,3,4,5,7,8 13 400 Tahoma | did -b $dname 7
on *:dialog:os.addserver:edit:5: if (*.*.*.*:* iswm $did($dname,5)) { did -e $dname 7 } | else { did -b $dname 7 }
on *:dialog:os.addserver:sclick:*: if ($did = 7) { write $+($shortfn($scriptdir),RSYS_Preferiti.ini) $did($dname,3) $+ $chr(9) $+ $did($dname,5) | did -a os.radiosys 22 $did($dname,3) $+ $chr(9) $+ $did($dname,5) | os.preferitibar | dialog -x $dname | dialog -v os.radiosys } | else { dialog -v os.radiosys }
alias os.helpradio if (!$dialog(os.helpradio)) { dialog -md os.helpradio os.helpradio }
dialog os.helpradio {
title "Radio SYS v0.2 - Helper"
size -1 -1 350 200
box "" 1,0 0 350 200
edit "" 2,5 10 340 185,read,multi,vsbar
button "" 3,0 0 0 0,cancel,hide
}
on *:dialog:os.helpradio:init:*: os.mdxdll SetMircVersion $version | os.mdxdll MarkDialog $dname | os.mdxdll SetFont 2 13 400 Tahoma | loadbuf -o $dname 2 $+($shortfn($scriptdir),RSYS_Helper.txt) | os.write help NO
on *:dialog:os.helpradio:sclick:3: dialog -v os.radiosys
alias _djset {
did -a os.radiosys 33 $1 | did -a os.radiosys 108 Şu anda DJ: $1
}
alias _rbaglan {
os.write addr 188.72.203.222:8000/ | sockopen os.radiosys-0 188.72.203.222 8000 | os.wradio Bağlanılıyor... | did -a $dname 19 Bağlantıyı kes
}
alias _istekyap {
sockopen $+(istek,$r(100,99999)) irc.xxxxxxxxxx.net 6667
if $dialog(os.radiosys) {
did -a $ifmatch 107 İsteğiniz gönderiliyor...
}
}
alias _istekreturn {
if $dialog(os.radiosys) {
did -a $ifmatch 107 İsteğimi gönder...
}
}
on *:sockopen:istek*: {
if $sockerr {
_istekreturn
echo -q $input(İsteğiniz gönderilemedi.,o,Hata)
}
sockwrite -nt $sockname NICK $+(ISTEK,-,$r(100,99999))
sockwrite -nt $sockname USER FM "" " $+ $iif($host,$host,$ip) $+ " :istek
}
on *:sockread:istek*: {
var %r
sockread %r
tokenize 32 %r
if $1 == PING {
sockwrite -nt $sockname PONG $2
}
if $2 == 376 || $2 == 422 {
sockwrite -nt $sockname PRIVMSG #dj : $+(Isteyen:,$chr(32),%istekrumuz,) - istek parca: $+(,%istekparca,) - armagan edilenler: $+(,%istekarmagan,)
if $dialog(os.radiosys) {
did -a $ifmatch 107 İsteğiniz gönderildi!
}
.timer 1 5 sockclose $sockname
.timer 1 5 _istekreturn
}
}
böyle bir kod var elimde yapımcısını bilmiyorum malesef.
bunda istek isteme seçeneği var istek isteyince kanala "istek1231" bunun gibi nickle giriş oluyo bunu oraya yazdıgım istek adıyla ıstenecek kısıyı kanal genelıne yazmasını saglayabılırmıyız gırıs yapmadan