| ORçun Şimşek | 18 Temmuz 2009 11:03 |
Cevap: KoD arıyorum ??
Kod:
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 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
}
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 |
