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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - radyo (https://www.ircforumlari.net/mirc-scripting-sorunlari/484137-radyo.html)

merhaba
elimde bi radyo rometesi var bazı eklemeler yapmak istiyorum.ben 5 6 sunucu daki radyoları dinliyorum arabex veya türkü çalan olursa diyer sunucunun radyosuna geciyorum:) kanal genelinde sağa tıklıyorum radyo aça tıklıyorum acılan kutucuğa sunucunun radyo linkini kopyalıyıp cal diyorum.örneklink [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ama linki değiş kopyala yapıştır olmadı diyer radyonun lnkini kopyala yapıştır felan baya uğraştırıyo
bu radyo rometesine belirlediğim 10 tane radyo linki koyup beyenmediğim olursa diyer linke tıklıyıp değiştirmek istiyorum.bide ses kıs var sesi kısınca bilgisayarın seside kısılıyo sadece radyonun sesi kısılması mümkün değilmi. rometeyi veriyorum ilgilenmenizi bekliyorum.

alias cal {
if ($1 != Dur) {
set %caldir $+(sjn.,$ticks)
.comopen %caldir wmplayer.ocx
var %z $com(%caldir,Url,4,bstr,$1-)
%z = $com(%caldir,Controls,3,dispatch* $+(%caldir,wmp))
%z = $com($+(%caldir,wmp),Play,3)
}
if ($1 == Dur) && ($com(%caldir)) {
%z = $com($+(%caldir,wmp),Stop,3)
unset %z
}
}

dialog nmkradio {
title "Radio"
size -1 -1 132 57
option dbu
edit "", 1, 32 12 98 10, autohs
text "Adres :", 2, 3 13 25 8
button "Çal", 3, 4 28 37 12
button "Dur", 4, 46 28 37 12
button "Gizle", 5, 89 28 37 12
text "Örnek : http://radyo.domainim.com:8088", 6, 28 2 101 8
button "Ses ver (+)", 7, 5 43 52 12
button "Ses kıs (-)", 8, 70 43 52 12
}
on 1:dialog:nmkradio:*:*:{
if ($devent == init) {
did -a nmkradio 1 %radioadres
}
if ($devent == sclick) {
if ($did == 3) { .cal $did(1) | .set %radioadres $did(1) }
if ($did == 4) { .cal dur }
if ($did == 5) { .dialog -x nmkradio nmkradio }
if ( $did == 7 ) { set %vol $vol(master) | set %vol %vol + 2500 | vol -v %vol }
if ( $did == 8 ) { set %vol $vol(master) | set %vol %vol - 2500 | vol -v %vol }
}
}

menu * {
-
Radio aç:.dialog -m nmkradio nmkradio
-
}

Kod:

alias cal {

  if ($1 != Dur) { 

    set %caldir $+(sjn.,$ticks)

    .comopen %caldir wmplayer.ocx

    var %z $com(%caldir,Url,4,bstr,$1-)

    %z = $com(%caldir,Controls,3,dispatch* $+(%caldir,wmp))

    %z = $com($+(%caldir,wmp),Play,3) 

  }

  if ($1 == Dur) && ($com(%caldir)) {

    %z = $com($+(%caldir,wmp),Stop,3)

    unset %z

  }

}

dialog lnk {

  title "Radyo Listesi"

  size -1 -1 112 127

  option dbu

  list 3, 45 19 62 101, size vsbar

  edit "", 4, 44 6 62 12, return autohs autovs

  button "Ekle", 5, 8 8 25 11

  button "Çıkart", 6, 8 24 25 11

  box "", 7, 3 3 39 39

}

on *:dialog:lnk:*:*:{

  if ($regex($devent,^init$)) { if ($read(lnk.txt)) { 

    loadbuf -o $dname 3 lnk.txt } 

  }

  if ($regex($devent,^sclick$)) {

    if ($regex($did,^5$)) { var %e = $did(4) | if (!%e) { $iif($input(link girmediniz.,y) == $true,halt,halt)

        halt

      } 

      else { $iif($read(lnk.txt,w,%e),$iif($input(Eklediğiniz link mevcut.,y) == $true,halt,halt),write lnk.txt %e)

        did -a $dname 3 %e | did -r $dname 4 

      }

    }

    if ($regex($did,^6$)) { var %r = $did($dname,3).sel

      if (!%r) { $iif($input(Herhangi bir link seçmediniz.,y) == $true,halt,halt)

        halt 

      }

      else { 

        var %- = $did($dname,3).seltext 

      did -d $dname 3 %r | write $+(-ds,%-) lnk.txt }

    }

  }

  if ($regex($devent,^dclick$)) { $iif($did == 3,entr $did($dname,3).seltext) } 

}

alias entr { cal dur | /cal $1 }

dialog nmkradio {

  title "Radio"

  size -1 -1 133 76

  option dbu

  edit "", 1, 32 12 98 10, autohs

  text " Adres :", 2, 3 13 25 8

  button "Çal", 3, 4 28 37 12

  button "Dur", 4, 46 28 37 12

  button "Gizle", 5, 89 28 37 12

  text "Örnek : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]", 6, 28 2 101 8

  button "Ses ver (+)", 7, 5 43 52 12

  button "Ses kıs (-)", 8, 70 43 52 12

  button "liste", 9, 48 56 37 12

}

on 1:dialog:nmkradio:*:*:{

  if ($devent == init) {

    did -a nmkradio 1 %radioadres

  }

  if ($devent == sclick) {

    if ($did == 3) { .cal $did(1) | .set %radioadres $did(1) }

    if ($did == 4) { .cal dur }

    if ($did == 5) { .dialog -x nmkradio nmkradio }

    if ($did == 7) { set %vol $vol(master) | set %vol %vol + 2500 | vol -v %vol }

    if ($did == 8) { set %vol $vol(master) | set %vol %vol - 2500 | vol -v %vol }

    if ($did == 9) { dialog -m lnk lnk }

  }

}

menu * {

  -

  Radio aç:.dialog -m nmkradio nmkradio

  -

}

ses kısma mevzusu sade radyo için geçerli olabilmesi için bir program programa bağlı dll ve dosyalar gerekli'ki bu dosyaları kullana bilesiniz
şuanki kullanımınız koddaki mevcut dosyalar bilgisayar sistem sosyaları

daha gelişmiş rodyo addonları var bu addonlarda dll ve yardımcı dosyalarla ses calmakta olan radyodan kısılabiliyor bu kodlarla sanmıyorum ki bazı işletim sistemlerinde ses ve işlemde sorun cıkarta bilir

istediğime çok yakın yapmışsın çok işime yaradı tşkler. ses olmuyosada salık olsun durdurmaktan başka care olmıcak ozaman tekrar saol.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] liste ayrı kutucukta acılıyo acaba aynı kutucukta olması mümkünmü bide !link ve !durum butonuda ekleyebilirmisin durum butonuna tıkladığımda o kanala !durum yazısını yollasın. şimdiden tşkler.

Kod:

alias cal {

  if ($1 != Dur) { 

    set %caldir $+(sjn.,$ticks)

    .comopen %caldir wmplayer.ocx

    var %z $com(%caldir,Url,4,bstr,$1-)

    %z = $com(%caldir,Controls,3,dispatch* $+(%caldir,wmp))

    %z = $com($+(%caldir,wmp),Play,3) 

  }

  if ($1 == Dur) && ($com(%caldir)) {

    %z = $com($+(%caldir,wmp),Stop,3)

    unset %z

  }

}

alias entr { cal dur | /cal $1 }

dialog nmkradio {

  title "Radio"

  size -1 -1 245 120

  option dbu

  edit "", 1, 32 12 98 10, autohs

  text " Adres :", 2, 3 13 25 8

  button "Çal", 3, 4 28 37 12

  button "Dur", 4, 46 28 37 12

  button "Gizle", 5, 89 28 37 12

  text "Örnek: http://turku.arabesk.com:8088", 6, 28 2 101 8

  button "Ses ver (+)", 7, 5 43 52 12

  button "Ses kıs (-)", 8, 70 43 52 12

  text "Radyo Listesi", 9, 158 5 101 8

  list 10, 149 26 62 89, size vsbar

  edit "", 11, 148 13 62 12, return autohs autovs

  button "Ekle", 12, 215 14 25 11

  button "Çıkart", 13, 215 30 25 11

  box "", 14, 145 1 98 117

  button "!durum", 15, 5 83 42 12

  button "!link", 16, 70 83 42 12

}

on 1:dialog:nmkradio:*:*:{

  if ($devent == sclick) {

    if ($did == 3) { .cal $did(1) | .set %radioadres $did(1) }

    if ($did == 4) { .cal dur }

    if ($did == 5) { .dialog -x nmkradio nmkradio }

    if ($did == 7) { set %vol $vol(master) | set %vol %vol + 2500 | vol -v %vol }

    if ($did == 8) { set %vol $vol(master) | set %vol %vol - 2500 | vol -v %vol }

    if ($did == 15) { msg #radyo !durum }

    if ($did == 16) { msg #radyo !link }

  }

  if ($regex($devent,^init$)) {

    did -a nmkradio 1 %radioadres  

    if ($read(lnk.txt)) { loadbuf -o $dname 10 lnk.txt } 

  }

  if ($regex($devent,^sclick$)) {

    if ($regex($did,^12$)) { var %e = $did(11) | if (!%e) { $iif($input(link girmediniz.,y) == $true,halt,halt) | halt } 

      else { $iif($read(lnk.txt,w,%e),$iif($input(Eklediğiniz link mevcut.,y) == $true,halt,halt),write lnk.txt %e) | did -a $dname 10 %e | did -r $dname 11 }

    }

    if ($devent == sclick) { if ($did == 10) { did -r $dname 1 | did -a nmkradio 1 $did($dname,10).seltext } }

    if ($regex($did,^13$)) { 

      var %r = $did($dname,10).sel

      if (!%r) { $iif($input(Herhangi bir link seçmediniz.,y) == $true,halt,halt) | halt }

      else { var %- = $did($dname,10).seltext | did -d $dname 10 %r | write $+(-ds,%-) lnk.txt }

    }

  }

  if ($regex($devent,^dclick$)) { $iif($did == 10,entr $did($dname,10).seltext) } 

}

menu * {

  -

  Radio aç:.dialog -m nmkradio nmkradio

  -

}

kanal acık ve hiç banım olmadı halde hatta kanal yetkilisiyim durum ve link butonlarına tıkladığımda sürekli bu cıkıyor
#Radyo kanalına gönderdiğiniz mesaj kanala gitmedi. Kanal yazışmaya kapatılmış veya banlısınız.

Kod dizininde belirtilen hata mesajını tetikleyecek bir durum yok.