Radyo Mirc Remotesi

alias radyo { if (!$dialog(radyo)) { .dialog -md radyo radyo } }

alias -l radyom { sockopen bilgi $1 $2 }

alias -l radyobaslat { if ($exists(ilk.mp3) == $true) { .remove ilk.mp3 } | if ($exists(son.mp3) == $true) { .remove son.mp3 } | %dosya = ilk.mp3 | .timerradyoyubaslat 1 30 radyoçal | if ($sock(radyo)) { .sockclose radyo }  | .sockopen radyo $did(radyo,1).seltext $did(4).text | .did -b radyo 1,4,5,8,14 | .did -e radyo 7 }

alias -l mp3degistir { if ($exists($filename) == $true) { .remove $shortfn($filename) |  if (%dosya == ilk.mp3) { .set %dosya son.mp3 } | else { .set %dosya ilk.mp3 } } }

alias -l radyoçal { if $exists(%dosya) { .radyom $did(radyo,1).seltext $did(radyo,4).text  | .splay %dosya } | .did -ra Radyo 6 Radyo Aktif!.. | if (%dosya == ilk.mp3) { .set %dosya son.mp3 } | else { .set %dosya ilk.mp3 }  }

alias -l radyoyukle { .splay stop | if ($sock(radyo)) { sockclose radyo } | %SC = 0 | .did -r radyo 1 | while ($lines(Radyo.txt) > %SC) { .inc %SC 1 | .did -a radyo 1 $gettok($read(Radyo.txt,%SC),1,58)  } | .did -c radyo 1 1 | portuyaz }

alias -l radyoekle { .write Radyo.txt $+($?:"Eklenecek Radyonun IP Adresi? Ornek:radyo ip",:,$?:"Port? Ornek: port adresiniz") | radyoyukle }

alias -l radyosil { .write -dl $+ $did(radyo,1).sel Radyo.txt | radyoyukle }

alias -l portuyaz { %SC = 0 | while ($lines(Radyo.txt) > %SC) { .inc %SC 1 | if ($did(radyo,1).seltext == $gettok($read(Radyo.txt,%SC),1,58)) { .did -ra radyo 4 $gettok($read(Radyo.txt,%SC),2,58)  }  }  }

on 1:mp3end:{ if $exists(%dosya) { .splay %dosya | .radyom $did(radyo,1).seltext $did(radyo,4).text } | .mp3degistir }

on 1:sockopen:radyo:{

  if ($sockerr) { .did -ra radyo 6 Baglanti Kurulamadi.. Tekrar Deneyiniz! | halt }

  .sockwrite -n radyo get / http/1.0

  .sockwrite -n radyo Host: $sock(radyo).ip

  .sockwrite -n radyo user-agent: mssc/1.1

  .sockwrite -n radyo accept: */*

  .sockwrite -n radyo icy-metadata:0

  .sockwrite -n radyo connection: close

  .sockwrite -n radyo

  .did -ra Radyo 6 Baglanti Kuruldu Lutfen Bekleyiniz..

}

on 1:sockread:radyo:{ .sockread &radyo | .bwrite %dosya -1 -1 &radyo | .sockread &radyo }

on 1:sockclose:radyo:{ .did -ra radyo 6 Baglanti Kurulamadi!.. }

dialog Radyo {

  title " Radio"

  size -1 -1 185 72

  option dbu

  text "Radyo Server :", 2, 5 18 38 18

  text "Port :", 3, 125 20 15 8

  edit "", 4, 142 19 28 10

  button "Radyoyu Baslat", 5, 95 47 75 12

  edit "", 6, 5 8 165 10, read center

  button "Radyo KAPAT", 7, 5 32 81 14, cancel

  button "Radyo Sil", 8, 133 32 37 12

  text "", 9, 3 63 61 8

  combo 1, 46 19 76 40, size drop edit

  text "Ses :", 10, 6 49 16 8

  button "Azalt", 11, 23 47 30 12

  button "Yukselt", 12, 56 47 30 12

  box "Ayarlar", 13, 2 0 171 62

  button "Radyo Ekle", 14, 95 32 37 12

}

on *:dialog:radyo:init:0:{ .radyoyukle | .did -b radyo 7 | .did -ra radyo 6 Baglanti Yok

  mdxinit

  mdx SetDialog  $dname  bgcolor  $rgb(255,140,0)

  mdx SetColor $dname 1,2,3,4,6,9,10,13 textbg $rgb(255,140,0)

  mdx SetColor $dname 1,2,3,4,6,9,10,13 background $rgb(255,140,0)

  mdx SetFont 1,2,3,4,5,6,7,8,9,10,11,12,13,14 13 800 tahoma

  mdx SetColor  2,3,10  text $rgb(0,0,0)

  mdx SetBorderStyle 5,7,8,11,12,14 staticedge

}

on *:dialog:radyo:*:*:{

  if $devent == sclick {

    if $did == 1 { .portuyaz }

    if $did == 5 { .radyobaslat }

    if $did == 11 { .vol -p $calc($vol(song) - 4000) }

    if $did == 12 { .vol -p $calc($vol(song) + 4000) }

    if $did == 14 { .radyoekle }

    if $did == 8 { .radyosil }

    if $did == 7 { .did -e radyo 1,4,5,7,8,14 | .sockclose radyo | .splay stop | .did -ra radyo 6 Baglanti Yok }

  }

  if $devent == close { .timerradyoyubaslat off | .sockclose radyo | .splay stop }

}

on *:sockopen:bilgi:{

  if ($sockerr > 0) return

  .sockwrite -n bilgi GET /7.html HTTP/1.0

  .sockwrite -n bilgi User-Agent: Mozilla

  .sockwrite -n bilgi

}

on *:sockread:bilgi:{  if ($sockerr > 0) return | var %oku | sockread -f %oku | while ($sockbr) sockread %oku }

on *:sockclose:bilgi:{ var %csj | sockread -f %csj | %csj = $remove(%csj,<body>,<html>,</body>,</html>,<head>,</head>,<meta http-equiv="Pragma" content="no-cache">) | .did -ra radyo 6 Su an Calan Parca: $gettok(%csj,7-,44) $+  }

On *:LOAD:{

  .echo $timestamp 4*** Mirc Radyo* yuklendi..

  .echo $timestamp 12*** Kullanmak icin /Radyo yazıp Enterlayiniz!..

  .echo $timestamp 10*** sizin site

}

 

Tweet

Benzer Yayınlar

Radyo Mirc Remotesi

4/ 5

Oleh WebYazilimciniz

WebYazilimciniz Mart 25, 2025 Yorum