fener1907 | 28 Ocak 2010 14:29 | radyo istek PHP- Kodu: 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 |