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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Bu kodu uyarlayamadım.. (https://www.ircforumlari.net/mirc-scripting-sorunlari/426844-bu-kodu-uyarlayamadim.html)

Paint 16 Kasım 2011 19:08

Cevap: Bu kodu uyarlayamadım..
 
Alıntı:

LordAres Nickli Üyeden Alıntı (Mesaj 1040917252)
Vayy be Paint hocam çok sağolasın iki gündür yapmadım şey kalmamıştı evet çalışıyor. Harikasın teşekkürler Fakat sorun şu mirci ilk açtığımda
çal tuşuna tıklarsam çalmıyor. başta mutlaka /cal Adres yapmam gerekiyor.
bunu yaptıktan sonra çal tuşuna tıklarsam çalışıyor.
çalmaya başladığında Çal buttonundaki yazıyı Çalıyor Yapabilirmiyim yada neresini değiştirmem lazım

Kardeşim sorunu tam olarak anlayamadım ama script açıldığında otomatik olarak /cal Adres yapabilir şu kodu eklersen.

Kod:

on *:start:/cal Adres

LordAres 16 Kasım 2011 19:28

Cevap: Bu kodu uyarlayamadım..
 
yani scripti ilk açtığımda çal tuşuna basarsan radyo çalmıyor. scripti açar açmaz /cal adres yapmak gerekiyor. bunu yaptıktan sonra çal tuşuna basarsan çalışıyor.
Senin dediğin gibi açılışa koyarsam script açılır açılmaz çalmaya başlıyor.

Paint 16 Kasım 2011 22:10

Cevap: Bu kodu uyarlayamadım..
 
Kod:

on 1:start:{
  _basla
}

on *:connect: {
  update.tb
  set %olay bagli
  .timerbaglanti -o 0 10 .baglantikontrol
}

alias baglantikontrol {
  if ($status == disconnected) { Echo -a %Lord 0,1 Bağlantın Kopmuş Tekrar Bağlandı! | server }
}

on *:close:*: {
  update.tb
}

on *:appactive: {
  ;.timer -m 1 100 _dotray
  if $appactive {
    update.tb
  }
}

alias mdx dll dlls\mdx.dll $1-
alias bars return dlls\bars.mdx
alias update.tb {
  if (!$dialog(tb)) { halt }
  else {
    scid $activecid
    if ($scid($activecid).status = connecting) || ($scid($activecid).status = connected) || ($status == connected)  {
      did -o tb 1 2 +a 2 Kes
    }
    else {
      did -o tb 1 2 +a 1 Bağlan $chr(9) $+ Sohbete Başla!
    }
  }
}

dialog tb {
  title "x"
  size 0 0 1500 17
  option dbu
  list 1, 2 -1 2978 25, size
  text "Adres :",14, 5 22 37 8, center
  edit "", 15,35 21 85 10,autohs 
  button "ÇaL", 16, 125 21 23 9
  button "DuR", 17, 148 21 18 9
  button "+", 18, 166 21 18 9
  button "-", 19, 184 21 18 9
  text "İstek :", 20, 205 21 21 8, right
  edit "", 21,228 21 73 10 
  button "Gönder", 22,303 21 25 9

}
on *:dialog:tb:init:0: {
  idset 100
  mdx MarkDialog $dname
  mdx SetDialog $dname style
  mdx SetBorderStyle $dname 2 staticedge   
  rebar HideToolbar .
  rebar Dock $dialog(tb).hwnd > top
  mdx SetControlMDX $dname 1,3,6 Progressbar smooth > $ctl
  mdx SetControlMDX $dname 1 ToolBar list flat wrap arrows nodivider > $bars
  mdx SetBorderStyle 1
  ;mdx SetColor $dname 1 background $rgb(255,255,255)
  kalin 1 13
  ;did -i $dname 1 1 setcheme $rgb(191,239,255) $rgb(191,239,255)
  did -i $dname 1 1 bmpsize 30 30
  did -i $dname 1 1 setimage icon large img\baglan.ico
  did -i $dname 1 1 setimage icon large img\kopar.ico
  did -i $dname 1 1 setimage icon large img\kanal.ico
  did -i $dname 1 1 setimage icon large img\adcon.ico
  did -i $dname 1 1 setimage icon large img\ayar.ico
  did -i $dname 1 1 setimage icon large img\koruma.ico
  did -i $dname 1 1 setimage icon large img\extra.ico
  did -i $dname 1 1 setimage icon large img\admin.ico
  did -i $dname 1 1 setimage icon large img\cesuryurek.ico
  did -i $dname 1 1 setimage icon large img\opmen.ico
  did -i $dname 1 1 setimage icon large img\List.ico
  did -i $dname 1 1 setimage icon large img\spams.ico
  did -i $dname 1 1 setimage icon large img\logs.ico

  did -a $dname 1 +a 1 Bağlantıyı Kes
  did -a $dname 1 +a 3 Kanallar $chr(9) $+ Kanal Klasörünü Açar
  did -a $dname 1 +a 4 Admin Paneli $chr(9) $+ Admin Menüsü..
  did -a $dname 1 +a 5 Script Düzeni $chr(9) $+ Scriptinizin Ayarları
  did -a $dname 1 +a 6 Korumalar $chr(9) $+ Korumalar Menüsü..
  did -a $dname 1 +a 7 Extra Menü $chr(9) $+ --- Player, Fal, vs...
  did -a $dname 1 +a 8 GLine $chr(9) $+ Gline Menü
  did -a $dname 1 +a 9 AkiLL $chr(9) $+ Akill Menü
  did -a $dname 1 +a 10 Oper Menü $chr(9) $+ Oper Menüsü..
  did -a $dname 1 +a 11 Spam $chr(9) $+ Spam Menüsü..
  did -a $dname 1 +a 12 Stats $chr(9) $+ Stats Menü..
  did -a $dname 1 +a 13 Loglar $chr(9) $+ Log Oku..
  did -i $dname 1 1 setbkg stretch img\b13.bmp
  if ($did(15) == $null) { did -ra $dname 15 http://radyo.chattur.com:9090 }
  update.tb  --
  dll aniwin.dll anime $dialog($dname).hwnd -hn 650
}

on *:dialog:tb:*:*: {
  if $devent == sclick {
    if $did == 1 {
      if ($did($dname,1).sel = 2) {
        if ($scid($activecid).status == connecting) || ($scid($activecid).status == connected) || ($status == connected) { scid $activecid disconnect  | halt  }
        elseif ($status != connected) || ($scid($activecid).status == connected) { scid $activecid server  }
        update.tb
        did -f $dname 1
        scid $activecid window -a "status window"
      }
    }
    if ($did($dname,1).sel = 3) { madkanalmd }
    if ($did($dname,1).sel = 4) {  helperircop  }
    if ($did($dname,1).sel = 5) { dialog -m scriptduzen scriptduzen }
    if ($did($dname,1).sel = 6) { dialog -m korumalar korumalar }
    if ($did($dname,1).sel = 7) { /efekt  }
    if ($did($dname,1).sel = 8) {  klines }
    if ($did($dname,1).sel = 9) { szline }
    if ($did($dname,1).sel = 10) { helps }
    if ($did($dname,1).sel = 11) { spam }
    if ($did($dname,1).sel = 12) { States }
    if ($did($dname,1).sel = 13) { loglar }
    if ($did == 16) { echo -a $did(15) adresi çalınıyor... | cal dur | cal $did(15) }
    if ($did == 17) { $iif($input(Radyo Durduruldulsunmu,a),cal dur) }
    if ($did == 22) { $iif($did(21),msg #radyo !istek $v1,echo -a Istek kutusu bos - isteginizi yazarak deneyiniz.)) }
  }
}
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
    unset %radyoyayin
  }
}

Denemedim ama olur sanırım.

LordAres 16 Kasım 2011 22:44

Cevap: Bu kodu uyarlayamadım..
 
Paint arkadaşım yardımların sayesinde sorunu çözdüm çok teşekkür ediyorum.
Yardımcı olan arkadaşlar çok teşekkürler

Kodu şu şekilde çalışır durumda

Kod:

on 1:start:{
  _basla
  set %radyoyayin -
}

on *:connect: {
  update.tb
  set %olay bagli
  .timerbaglanti -o 0 10 .baglantikontrol
}

alias baglantikontrol {
  if ($status == disconnected) { Echo -a %Lord 0,1 Bağlantın Kopmuş Tekrar Bağlandı! | server }
}

on *:close:*: {
  update.tb
  set %radyoyayin -
}

on *:appactive: {
  ;.timer -m 1 100 _dotray
  if $appactive {
    update.tb
  }
}

alias mdx dll dlls\mdx.dll $1-
alias bars return dlls\bars.mdx
alias update.tb {
  if (!$dialog(tb)) { halt }
  else {
    scid $activecid
    if ($scid($activecid).status = connecting) || ($scid($activecid).status = connected) || ($status == connected)  {
      did -o tb 1 2 +a 2 Kes
    }
    else {
      did -o tb 1 2 +a 1 Bağlan $chr(9) $+ Sohbete Başla!
    }
  }
}

dialog tb {
  title "x"
  size 0 0 1500 17
  option dbu
  list 1, 2 -1 2978 25, size
  text "Adres :",14, 2 22 35 8, left
  edit "", 15,30 21 105 10,autohs 
  button "ÇaL", 16, 138 21 25 9
  button "DuR", 17, 163 21 18 9
  button "+", 18, 181 21 18 9
  button "-", 19, 199 21 18 9
  text "İstek :", 20, 220 22 21 8, right
  edit "", 21,243 21 73 10 
  button "Gönder", 22,318 21 25 9

}
on *:dialog:tb:init:0: {
  idset 100
  mdx MarkDialog $dname
  mdx SetDialog $dname style
  mdx SetBorderStyle $dname 2 staticedge   
  rebar HideToolbar .
  rebar Dock $dialog(tb).hwnd > top
  mdx SetControlMDX $dname 1,3,6 Progressbar smooth > $ctl
  mdx SetControlMDX $dname 1 ToolBar list flat wrap arrows nodivider > $bars
  mdx SetBorderStyle 1
  ;mdx SetColor $dname 1 background $rgb(255,255,255)
  kalin 1 13
  ;did -i $dname 1 1 setcheme $rgb(191,239,255) $rgb(191,239,255)
  did -i $dname 1 1 bmpsize 30 30
  did -i $dname 1 1 setimage icon large img\baglan.ico
  did -i $dname 1 1 setimage icon large img\kopar.ico
  did -i $dname 1 1 setimage icon large img\kanal.ico
  did -i $dname 1 1 setimage icon large img\adcon.ico
  did -i $dname 1 1 setimage icon large img\ayar.ico
  did -i $dname 1 1 setimage icon large img\koruma.ico
  did -i $dname 1 1 setimage icon large img\extra.ico
  did -i $dname 1 1 setimage icon large img\admin.ico
  did -i $dname 1 1 setimage icon large img\cesuryurek.ico
  did -i $dname 1 1 setimage icon large img\opmen.ico
  did -i $dname 1 1 setimage icon large img\List.ico
  did -i $dname 1 1 setimage icon large img\spams.ico
  did -i $dname 1 1 setimage icon large img\logs.ico

  did -a $dname 1 +a 1 Bağlantıyı Kes
  did -a $dname 1 +a 3 Kanallar $chr(9) $+ Kanal Klasörünü Açar
  did -a $dname 1 +a 4 Admin Paneli $chr(9) $+ Admin Menüsü..
  did -a $dname 1 +a 5 Script Düzeni $chr(9) $+ Scriptinizin Ayarları
  did -a $dname 1 +a 6 Korumalar $chr(9) $+ Korumalar Menüsü..
  did -a $dname 1 +a 7 Extra Menü $chr(9) $+ --- Player, Fal, vs...
  did -a $dname 1 +a 8 GLine $chr(9) $+ Gline Menü
  did -a $dname 1 +a 9 AkiLL $chr(9) $+ Akill Menü
  did -a $dname 1 +a 10 Oper Menü $chr(9) $+ Oper Menüsü..
  did -a $dname 1 +a 11 Spam $chr(9) $+ Spam Menüsü..
  did -a $dname 1 +a 12 Stats $chr(9) $+ Stats Menü..
  did -a $dname 1 +a 13 Loglar $chr(9) $+ Log Oku..
  did -i $dname 1 1 setbkg stretch img\b13.bmp
  if ($did(15) == $null) { did -ra $dname 15 http://radyo.chattur.com:9090 }
  update.tb  --
  dll aniwin.dll anime $dialog($dname).hwnd -hn 650
}

on *:dialog:tb:*:*: {
  if $devent == sclick {
    if $did == 1 {
      if ($did($dname,1).sel = 2) {
        if ($scid($activecid).status == connecting) || ($scid($activecid).status == connected) || ($status == connected) { scid $activecid disconnect  | halt  }
        elseif ($status != connected) || ($scid($activecid).status == connected) { scid $activecid server  }
        update.tb
        did -f $dname 1
        scid $activecid window -a "status window"
      }
    }
    if ($did($dname,1).sel = 3) { madkanalmd }
    if ($did($dname,1).sel = 4) {  helperircop  }
    if ($did($dname,1).sel = 5) { dialog -m scriptduzen scriptduzen }
    if ($did($dname,1).sel = 6) { dialog -m korumalar korumalar }
    if ($did($dname,1).sel = 7) { /efekt  }
    if ($did($dname,1).sel = 8) {  klines }
    if ($did($dname,1).sel = 9) { szline }
    if ($did($dname,1).sel = 10) { helps }
    if ($did($dname,1).sel = 11) { spam }
    if ($did($dname,1).sel = 12) { States }
    if ($did($dname,1).sel = 13) { loglar }
    if ($did == 16) {
      if (%radyoyayin == +) { echo -a 3 2 $me Yanlış Yere Tıkladın Zaten Radyo Açık... }
      if (%radyoyayin == -) { cal $did(15) | .set %radioadres $did(15) | set %radyoyayin + | did -a $dname 16 Çalıyor }
    }
    if ($did == 17) { $iif($input(Radyo Durduruldulsunmu,a),cal dur) }
    if ($did == 18) { set %vol $vol(master) | set %vol %vol + 2500 | vol -v %vol  }
    if ($did == 19) { set %vol $vol(master) | set %vol %vol - 2500 | vol -v %vol  }
    if ($did == 22) { $iif($did(21),msg #radyo !istek $v1,echo -a Istek kutusu bos - isteginizi yazarak deneyiniz.)) }
  }
}
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
    unset %radyoyayin
    set %radyoyayin -
  }
}


Paint 16 Kasım 2011 23:11

Cevap: Bu kodu uyarlayamadım..
 
Alıntı:

LordAres Nickli Üyeden Alıntı (Mesaj 1040917616)
Paint arkadaşım yardımların sayesinde sorunu çözdüm çok teşekkür ediyorum.
Yardımcı olan arkadaşlar çok teşekkürler

Kodu şu şekilde çalışır durumda

Kod:

on 1:start:{
  _basla
  set %radyoyayin -
}

on *:connect: {
  update.tb
  set %olay bagli
  .timerbaglanti -o 0 10 .baglantikontrol
}

alias baglantikontrol {
  if ($status == disconnected) { Echo -a %Lord 0,1 Bağlantın Kopmuş Tekrar Bağlandı! | server }
}

on *:close:*: {
  update.tb
  set %radyoyayin -
}

on *:appactive: {
  ;.timer -m 1 100 _dotray
  if $appactive {
    update.tb
  }
}

alias mdx dll dlls\mdx.dll $1-
alias bars return dlls\bars.mdx
alias update.tb {
  if (!$dialog(tb)) { halt }
  else {
    scid $activecid
    if ($scid($activecid).status = connecting) || ($scid($activecid).status = connected) || ($status == connected)  {
      did -o tb 1 2 +a 2 Kes
    }
    else {
      did -o tb 1 2 +a 1 Bağlan $chr(9) $+ Sohbete Başla!
    }
  }
}

dialog tb {
  title "x"
  size 0 0 1500 17
  option dbu
  list 1, 2 -1 2978 25, size
  text "Adres :",14, 2 22 35 8, left
  edit "", 15,30 21 105 10,autohs 
  button "ÇaL", 16, 138 21 25 9
  button "DuR", 17, 163 21 18 9
  button "+", 18, 181 21 18 9
  button "-", 19, 199 21 18 9
  text "İstek :", 20, 220 22 21 8, right
  edit "", 21,243 21 73 10 
  button "Gönder", 22,318 21 25 9

}
on *:dialog:tb:init:0: {
  idset 100
  mdx MarkDialog $dname
  mdx SetDialog $dname style
  mdx SetBorderStyle $dname 2 staticedge   
  rebar HideToolbar .
  rebar Dock $dialog(tb).hwnd > top
  mdx SetControlMDX $dname 1,3,6 Progressbar smooth > $ctl
  mdx SetControlMDX $dname 1 ToolBar list flat wrap arrows nodivider > $bars
  mdx SetBorderStyle 1
  ;mdx SetColor $dname 1 background $rgb(255,255,255)
  kalin 1 13
  ;did -i $dname 1 1 setcheme $rgb(191,239,255) $rgb(191,239,255)
  did -i $dname 1 1 bmpsize 30 30
  did -i $dname 1 1 setimage icon large img\baglan.ico
  did -i $dname 1 1 setimage icon large img\kopar.ico
  did -i $dname 1 1 setimage icon large img\kanal.ico
  did -i $dname 1 1 setimage icon large img\adcon.ico
  did -i $dname 1 1 setimage icon large img\ayar.ico
  did -i $dname 1 1 setimage icon large img\koruma.ico
  did -i $dname 1 1 setimage icon large img\extra.ico
  did -i $dname 1 1 setimage icon large img\admin.ico
  did -i $dname 1 1 setimage icon large img\cesuryurek.ico
  did -i $dname 1 1 setimage icon large img\opmen.ico
  did -i $dname 1 1 setimage icon large img\List.ico
  did -i $dname 1 1 setimage icon large img\spams.ico
  did -i $dname 1 1 setimage icon large img\logs.ico

  did -a $dname 1 +a 1 Bağlantıyı Kes
  did -a $dname 1 +a 3 Kanallar $chr(9) $+ Kanal Klasörünü Açar
  did -a $dname 1 +a 4 Admin Paneli $chr(9) $+ Admin Menüsü..
  did -a $dname 1 +a 5 Script Düzeni $chr(9) $+ Scriptinizin Ayarları
  did -a $dname 1 +a 6 Korumalar $chr(9) $+ Korumalar Menüsü..
  did -a $dname 1 +a 7 Extra Menü $chr(9) $+ --- Player, Fal, vs...
  did -a $dname 1 +a 8 GLine $chr(9) $+ Gline Menü
  did -a $dname 1 +a 9 AkiLL $chr(9) $+ Akill Menü
  did -a $dname 1 +a 10 Oper Menü $chr(9) $+ Oper Menüsü..
  did -a $dname 1 +a 11 Spam $chr(9) $+ Spam Menüsü..
  did -a $dname 1 +a 12 Stats $chr(9) $+ Stats Menü..
  did -a $dname 1 +a 13 Loglar $chr(9) $+ Log Oku..
  did -i $dname 1 1 setbkg stretch img\b13.bmp
  if ($did(15) == $null) { did -ra $dname 15 http://radyo.chattur.com:9090 }
  update.tb  --
  dll aniwin.dll anime $dialog($dname).hwnd -hn 650
}

on *:dialog:tb:*:*: {
  if $devent == sclick {
    if $did == 1 {
      if ($did($dname,1).sel = 2) {
        if ($scid($activecid).status == connecting) || ($scid($activecid).status == connected) || ($status == connected) { scid $activecid disconnect  | halt  }
        elseif ($status != connected) || ($scid($activecid).status == connected) { scid $activecid server  }
        update.tb
        did -f $dname 1
        scid $activecid window -a "status window"
      }
    }
    if ($did($dname,1).sel = 3) { madkanalmd }
    if ($did($dname,1).sel = 4) {  helperircop  }
    if ($did($dname,1).sel = 5) { dialog -m scriptduzen scriptduzen }
    if ($did($dname,1).sel = 6) { dialog -m korumalar korumalar }
    if ($did($dname,1).sel = 7) { /efekt  }
    if ($did($dname,1).sel = 8) {  klines }
    if ($did($dname,1).sel = 9) { szline }
    if ($did($dname,1).sel = 10) { helps }
    if ($did($dname,1).sel = 11) { spam }
    if ($did($dname,1).sel = 12) { States }
    if ($did($dname,1).sel = 13) { loglar }
    if ($did == 16) {
      if (%radyoyayin == +) { echo -a 3 2 $me Yanlış Yere Tıkladın Zaten Radyo Açık... }
      if (%radyoyayin == -) { cal $did(15) | .set %radioadres $did(15) | set %radyoyayin + | did -a $dname 16 Çalıyor }
    }
    if ($did == 17) { $iif($input(Radyo Durduruldulsunmu,a),cal dur) }
    if ($did == 18) { set %vol $vol(master) | set %vol %vol + 2500 | vol -v %vol  }
    if ($did == 19) { set %vol $vol(master) | set %vol %vol - 2500 | vol -v %vol  }
    if ($did == 22) { $iif($did(21),msg #radyo !istek $v1,echo -a Istek kutusu bos - isteginizi yazarak deneyiniz.)) }
  }
}
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
    unset %radyoyayin
    set %radyoyayin -
  }
}



if (%radyoyayin == +) { echo -a 3 2 $me Yanlış Yere Tıkladın Zaten Radyo Açık... }
if (%radyoyayin == -) { cal $did(15) | .set %radioadres $did(15) | set %radyoyayin + | did -a $dname 16 Çalıyor }
}
bu kodlar bence mantığa aykırı çünkü mesala a adresi çalarken b adresine geçmek istersem bana radyo açık uyarısı verecek.

LordAres 17 Kasım 2011 00:27

Cevap: Bu kodu uyarlayamadım..
 
peki nasıl yapmalıyım.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 04:20.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk