Tekil Mesaj gösterimi
Alt 18 Temmuz 2009, 11:03   #5
Çevrimdışı
ORçun Şimşek
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: KoD arıyorum ??




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 "ruyalardasin.com Radyo" size -1 -1 285 218 icon icos/maddddd.ico, 0 option pixels tab "Radyo", 1, 0 2 285 219 text "00:00", 6, 10 35 50 20, tab 1 center text " hazir.", 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 "Çaliyor", 13, 10 85 45 15, tab 1 center text "Hafizada", 14, 60 85 55 15, tab 1 center text "", 15, 120 85 155 15, tab 1 edit "", 17, 32 105 220 20, tab 1 center read autohs box "", 18, 10 125 265 8, tab 1 button "Baglan", 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 "N/A", 29, 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", 33, 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 "Alinan byte:", 36, 10 125 60 15, tab 3 text "N/A", 37, 70 125 205 15, tab 3 center text "Hiz:", 38, 10 140 50 15, tab 3 text "N/A", 39, 70 140 205 15, tab 3 center box "", 5, 5 25 275 187 button "", 42, 0 0 0 0, hide cancel text "Online DJ", 108, 10 164 265 16, center button "Isteginizi göndermek için buraya tiklayin", 100, 10 188 266 20 text "Rumuzunuz:", 102, 10 237 64 16 edit "", 101, 78 234 197 20, autohs text "Istek parça:", 103, 10 259 64 16 edit "", 104, 78 256 197 20, autohs edit "", 106, 78 278 197 20, autohs text "Armagan:", 105, 10 281 64 16 button "Istegimi 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\MDX\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\MDX\ctl_gen.mdx | did -a $dname 15 50 0 100 | os.mdxdll SetControlMDX $dname 22 listview rowselect nosortheader grid showsel single report > dlls\MDX\views.mdx | os.ampdll PluginManager Load output dlls\MDX\out_wave.dll | os.ampdll PluginManager Load input dlls\MDX\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 irc.ruyalardasin.com #radyo 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 Baglantiyi 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 Baglanti 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 Baglantiyi 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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
} 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) == Isteginizi göndermek için buraya tiklayin { dialog -s os.radiosys -1 -1 285 343 did -a os.radiosys 100 Istek panelini kapatmak için buraya tiklayin } else { dialog -s os.radiosys -1 -1 285 218 did -a os.radiosys 100 Isteginizi göndermek için buraya tiklayin } } elseif ($did == 107) && ($did($dname,107) == Istegimi gönder...) { if !$did($dname,101) || !$did($dname,104) || !$did($dname,106) { echo -q $input(Bölümleri bos birakmayiniz.,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 Baglanti kesildi. on *:sockclose:os.radiosys-1: os.interr | os.wradio Baglanti 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 Baglanti kuruluyor... } | else { os.interr | os.wradio Radyoya baglanilamiyor. } on *:sockread:os.radiosys-*: { if ($sockerr = 0) { if (*0 iswm $sockname) { sockread %os.radiodata if (!%os.radiodata) { os.wradio Baglanti 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\mdx.dll,$1,$2-) alias mdx return $dll(dlls\MDX\mdx.dll,$1,$2-) alias os.ampdll return $dll(dlls\MDX\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 Baglan alias os.playing if ($os.pos = WAE0) && ($sock(os.radiosys-2)) && ($os.readinfo(pos) >= $calc($os.mp3 - 2000)) { os.wradio Baglanti 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 Baglanti dogrulaniyor. } | elseif ($os.pos = WAE0) && (!$sock(os.radiosys-2)) { os.interr | os.wradio Baglanti koptu. } | else { if (!$os.readinfo(pos)) { did -e os.radiosys 13,20 | did -b os.radiosys 14 | os.wradio ruyalardasin.com Radyo 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 irc.ruyalardasin.com:7295 | sockopen os.radiosys-0 irc.ruyalardasin.com 7295 | os.wradio Baglaniliyor... | did -a $dname 19 Baglantiyi kes } alias _istekyap { sockopen $+(istek,$r(100,99999)) irc.ruyalardasin.com 6669 if $dialog(os.radiosys) { did -a $ifmatch 107 Isteginiz gönderiliyor... } } alias _istekreturn { if $dialog(os.radiosys) { did -a $ifmatch 107 Istegimi gönder... } } on *:sockopen:istek*: { if $sockerr { _istekreturn echo -q $input(Isteginiz gönderilemedi.,o,Hata) } sockwrite -nt $sockname NICK $+(ISTEK,-,$r(100,99999)) sockwrite -nt $sockname USER Ruya-ScRipT "" " $+ $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 Isteginiz gönderildi! } .timer 1 5 sockclose $sockname .timer 1 5 _istekreturn } }



KOD bu arkadaslar bunun oto acılıp calmasını ıstıyorum

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver