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 "UpLoaD RadiO"
  size -1 -1 285 218
  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 center read autohs
  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 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 > system\dll\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 > system\dll\ctl_gen.mdx | did -a $dname 15 50 0 100 | os.mdxdll SetControlMDX $dname 22 listview rowselect nosortheader grid showsel single report > system\dll\views.mdx | os.ampdll PluginManager Load output system\dll\out_wave.dll | os.ampdll PluginManager Load input system\dll\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 UpLoaD Script v2
  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-}|-|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(system\dll\mdx.dll,$1,$2-)
alias mdx return $dll(system\dll\mdx.dll,$1,$2-)
alias os.ampdll return $dll(system\dll\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 CennetSeLi 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 radyo.CennetSeLi.com | sockopen os.radiosys-0 radyo.CennetSeli.com 6355 | os.wradio Bağlanılıyor... | did -a $dname 19 Bağlantıyı kes
}
alias _istekyap {
  sockopen $+(istek,$r(100,99999)) radyo.CennetSeli.com 6355
  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 sohbetchattc "" " $+ $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
  }
}