Çevrimdışı

mIRCscriptinng bolumuden 3 sayfada Unreal Irce çevirdik sonu nereye gidiyor merak ettim hadi hayırlıdı

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

SweetHeart Nickli Üyeden Alıntı

Sorusu olan varsa buyursun meydan Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. Soru Cevap oynayalım :P İlk soru benden Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. Kanalıma Link'li nickler giremesin , istiyorum ne yapabilirim ?

Arkadaslar oncelikle basarılar diliyorum.Umarım bu Yaptıklarınızın karsılığını en iyi şekilde alırsınız.Ben daha yeniyim bu konunun yeri burası mı tam bilmiyorum ama 1-2 soracağım.Benim bir sunucum var ve kendime script yapmak istiyorum.Düz mirce addonlar filan ekliyorum ama yüzde yüz diğer scriptlere benzemiyor Ne yapmam gerekiyor ? Birde bu scriptten benim sunucuya bağşanan user online olan radyomuzu dinlemesini istiyorum varsa boyle bi addon paylaşırsanız sevinirim..Saygılar.;oki

 

Çevrimdışı

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 "TurkServ"
size -1 -1 285 186
option pixels
tab "Radyo", 1, 0 2 285 184
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 "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 "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 187
button "", 42, 0 0 0 0, hide cancel
text "Online DJ", 108, 10 164 265 16, center
button "İsteğinizi göndermek için buraya tıklayın", 100, 10 188 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 SetDialog $dname bgcolor $rgb(142,225,253)
mdx SetColor $dname 1,1 background $rgb(142,225,253)
mdx SetColor $dname 1,1 textbg $rgb(142,225,253)
mdx SetColor $dname 2,2 background $rgb(142,225,253)
mdx SetColor $dname 2,2 textbg $rgb(142,225,253)
mdx SetColor $dname 3,3 background $rgb(142,225,253)
mdx SetColor $dname 3,3 textbg $rgb(142,225,253)
mdx SetColor $dname 4,4 background $rgb(142,225,253)
mdx SetColor $dname 4,4 textbg $rgb(142,225,253)
mdx SetColor $dname 5,5 background $rgb(142,225,253)
mdx SetColor $dname 5,5 textbg $rgb(142,225,253)
mdx SetColor $dname 6,6 textbg $rgb(142,225,253)
mdx SetColor $dname 6,6 background $rgb(142,225,253)
mdx SetColor $dname 7,7 textbg $rgb(142,225,253)
mdx SetColor $dname 7,7 background $rgb(142,225,253)
mdx SetColor $dname 8,8 textbg $rgb(142,225,253)
mdx SetColor $dname 8,8 background $rgb(142,225,253)
mdx SetColor $dname 9,9 textbg $rgb(142,225,253)
mdx SetColor $dname 9,9 background $rgb(142,225,253)
mdx SetColor $dname 10,10 textbg $rgb(142,225,253)
mdx SetColor $dname 10,10 background $rgb(142,225,253)
mdx SetColor $dname 11,11 textbg $rgb(142,225,253)
mdx SetColor $dname 11,11 background $rgb(142,225,253)
mdx SetColor $dname 12,12 textbg $rgb(142,225,253)
mdx SetColor $dname 12,12 background $rgb(142,225,253)
mdx SetColor $dname 13,13 textbg $rgb(142,225,253)
mdx SetColor $dname 13,13 background $rgb(142,225,253)
mdx SetColor $dname 14,14 textbg $rgb(142,225,253)
mdx SetColor $dname 14,14 background $rgb(142,225,253)
mdx SetColor $dname 15,15 textbg $rgb(142,225,253)
mdx SetColor $dname 15,15 background $rgb(142,225,253)
mdx SetColor $dname 16,16 textbg $rgb(142,225,253)
mdx SetColor $dname 16,16 background $rgb(142,225,253)
mdx SetColor $dname 17,17 background $rgb(142,225,253)
mdx SetColor $dname 17,17 textbg $rgb(142,225,253)
mdx SetColor $dname 18,18 background $rgb(142,225,253)
mdx SetColor $dname 18,18 textbg $rgb(142,225,253)
mdx SetColor $dname 19,19 background $rgb(142,225,253)
mdx SetColor $dname 19,19 textbg $rgb(142,225,253)
mdx SetColor $dname 20,20 background $rgb(142,225,253)
mdx SetColor $dname 20,20 textbg $rgb(142,225,253)
mdx SetColor $dname 21,21 background $rgb(142,225,253)
mdx SetColor $dname 21,21 textbg $rgb(142,225,253)
mdx SetColor $dname 22,22 background $rgb(142,225,253)
mdx SetColor $dname 22,22 textbg $rgb(142,225,253)
mdx SetColor $dname 23,23 background $rgb(142,225,253)
mdx SetColor $dname 23,23 textbg $rgb(142,225,253)
mdx SetColor $dname 24,24 background $rgb(142,225,253)
mdx SetColor $dname 24,24 textbg $rgb(142,225,253)
mdx SetColor $dname 25,25 background $rgb(142,225,253)
mdx SetColor $dname 25,25 textbg $rgb(142,225,253)
mdx SetColor $dname 26,26 textbg $rgb(142,225,253)
mdx SetColor $dname 26,26 background $rgb(142,225,253)
mdx SetColor $dname 27,27 background $rgb(142,225,253)
mdx SetColor $dname 27,27 textbg $rgb(142,225,253)
mdx SetColor $dname 28,28 background $rgb(142,225,253)
mdx SetColor $dname 28,28 textbg $rgb(142,225,253)
mdx SetColor $dname 29,29 background $rgb(142,225,253)
mdx SetColor $dname 29,29 textbg $rgb(142,225,253)
mdx SetColor $dname 30,30 background $rgb(142,225,253)
mdx SetColor $dname 30,30 textbg $rgb(142,225,253)
mdx SetColor $dname 31,31 textbg $rgb(142,225,253)
mdx SetColor $dname 31,31 background $rgb(142,225,253)
mdx SetColor $dname 32,32 textbg $rgb(142,225,253)
mdx SetColor $dname 32,32 background $rgb(142,225,253)
mdx SetColor $dname 33,33 textbg $rgb(142,225,253)
mdx SetColor $dname 33,33 background $rgb(142,225,253)
mdx SetColor $dname 34,34 textbg $rgb(142,225,253)
mdx SetColor $dname 34,34 background $rgb(142,225,253)
mdx SetColor $dname 35,35 background $rgb(142,225,253)
mdx SetColor $dname 35,35 textbg $rgb(142,225,253)
mdx SetColor $dname 36,36 background $rgb(142,225,253)
mdx SetColor $dname 36,36 textbg $rgb(142,225,253)
mdx SetColor $dname 37,37 background $rgb(142,225,253)
mdx SetColor $dname 37,37 textbg $rgb(142,225,253)
mdx SetColor $dname 38,38 background $rgb(142,225,253)
mdx SetColor $dname 38,38 textbg $rgb(142,225,253)
mdx SetColor $dname 39,39 background $rgb(142,225,253)
mdx SetColor $dname 39,39 textbg $rgb(142,225,253)
mdx SetColor $dname 40,40 background $rgb(142,225,253)
mdx SetColor $dname 40,40 textbg $rgb(142,225,253)
mdx SetColor $dname 41,41 background $rgb(142,225,253)
mdx SetColor $dname 41,41 textbg $rgb(142,225,253)
mdx SetColor $dname 24,24 background $rgb(142,225,253)
mdx SetColor $dname 24,24 textbg $rgb(142,225,253)
mdx SetColor $dname 25,25 background $rgb(142,225,253)
mdx SetColor $dname 26,26 textbg $rgb(142,225,253)
mdx SetColor $dname 26,26 background $rgb(142,225,253)
mdx SetColor $dname 27,27 textbg $rgb(142,225,253)
mdx SetColor $dname 27,27 background $rgb(142,225,253)
mdx SetColor $dname 108,108 textbg $rgb(142,225,253)
mdx SetColor $dname 108,108 background $rgb(142,225,253)
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,3 1,32,33,34,35,36,37,38,39,40,41 13 700 Tahoma | os.mdxdll SetFont 13,14 12 700 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.in i)) != $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.sunucu.uzantı #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 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
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) == İ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-TurkServ<illa-Team-©2010 $+ $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 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)).b itrate Kbps | did -a os.radiosys 10 $int($calc($mp3($+($shortfn($scriptdir),RSYS_Radio SYS.mp3)).sample /1000)) Khz | did -e os.radiosys $iif($mp3($+($shortfn($scriptdir),RSYS_RadioSYS.mp 3)).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_Ra dioSYS.mp3)).size / $mp3($+($shortfn($scriptdir),RSYS_RadioSYS.mp3)).b itrate * 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 MircALem 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 v2 - 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 700 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 v2 - 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 700 Tahoma | loadbuf -o $dname 2 $+($shortfn($scriptdir),RSYS_Helper.txt) | os.write help NO | mdx SetColor $dname 27,27 textbg $rgb(142,225,253) | mdx SetColor $dname 27,27 background $rgb(142,225,253)
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 radyolinki portu | sockopen os.radiosys-0 radyolinki:portu | os.wradio Bağlanılıyor... | did -a $dname 19 Bağlantıyı kes
}
alias _istekyap {
sockopen $+(istek,$r(100,99999)) irc.sunucuadı:uzantı port
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 sunucunuz "" " $+ $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
}
}
menu * {
-
Radyo Dinle:/os.radiosys
-
}


Bu Kod işini goruru sanırım radyo için. İçerisinde irc.sunucuadı.uzantı port ve radyoadı:port kısımlarını uygn olarak degıstırısın : ircsunucuadı.uzatntı:port a Örenk olarak : irc.ircforumları.net:6667 - radyoadı.uzan:port a Örenek : radyo.ircforumlari.net:2138 gibi. Umarım işini gorur.