IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 28 Ocak 2010, 14:29   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
radyo istek




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 285 192
  option pixels
  tab 
"Radyo"10 2 285 219
  text 
"00:00"610 35 50 20tab 1 center
  text 
" hazır."765 35 210 20tab 1
  
list 810 60 80 20tab 1 size
  text 
"0 Kbps"995 60 50 20tab 1 center
  text 
"0 KHz"10150 60 40 20tab 1 center
  text 
"Mono"11195 60 35 20tab 1 center
  text 
"Stereo"12235 60 40 20tab 1 center
  text 
"Çalıyor"1310 85 45 15tab 1 center
  text 
"Hafızada"1460 85 55 15tab 1 center
  text 
""15120 85 155 15tab 1
  edit 
""1732 105 220 20tab 1 read autohs center
  box 
""1810 125 265 8tab 1
  button 
"Bağlan"1962 135 80 20tab 1
  button 
"Duraklat"20142 135 80 20tab 1
  tab 
"Radyo Bilgisi"3
  text 
"Radyo:"2810 35 45 15tab 3
  text 
"irc.xxxxx.net"3370 35 205 30tab 3 center
  text 
"Versiyon:"3010 65 45 30tab 3
  text 
"N/A"3170 65 205 30tab 3 center
  text 
"DJ:"3210 95 45 15tab 3
  text 
"N/A"2970 95 205 15tab 3 center
  text 
"Web Site:"3410 110 50 15tab 3
  text 
"N/A"3570 110 205 15tab 3 center
  text 
"Alınan byte:"3610 125 60 15tab 3
  text 
"N/A"3770 125 205 15tab 3 center
  text 
"Hız:"3810 140 50 15tab 3
  text 
"N/A"3970 140 205 15tab 3 center
  box 
""55 25 275 162
  button 
""420 0 0 0hide cancel
  text 
"Online DJ"10816 215 265 16center
  button 
"İsteğinizi göndermek için buraya tıklayın"10010 161 266 20
  text 
"Rumuzunuz:"10210 237 64 16
  edit 
""10178 234 197 20autohs
  text 
"İstek parça:"10310 259 64 16
  edit 
""10478 256 197 20autohs
  edit 
""10678 278 197 20autohs
  text 
"Armağan:"10510 281 64 16
  button 
"İsteğimi gönder..."1078 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/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 -$+($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-{
  if 
$dialog($1) {
    
dialog -$1
  
}
}
on *:dialog:os.radiosys:dclick:22did -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 -$+($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 285 343
      did 
-a os.radiosys 100 İstek panelini kapatmak için buraya tıklayın
    
}
    else {
      
dialog -s os.radiosys --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-0os.interr os.wradio Bağlantı kesildi.
on *:sockclose:os.radiosys-1os.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-AgentRadio-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

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Cevapla

Etiketler
istek, mirc, mirc download, mirc indir, radyo


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
radyo tclsi istek AnoXs TCL Scriptler 3 24 Mayıs 2009 17:40
!radyo , !istek istek parçasi Yunus mIRC Scripting Sorunları 2 21 Temmuz 2008 21:11
radyo sadece istek TCL si CONSTANTiN TCL Scriptler 2 14 Mayıs 2007 16:44
Radyo TCL'le Eklenti.(!istek,!yes,!no) AsiLmavi TCL Scriptler 4 18 Ağustos 2006 23:13