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)

LordAres 15 Kasım 2011 02:25
Bu kodu uyarlayamadım..
 
Toplam 1 Eklenti bulunuyor.
arkadaşlar, bunu ayrı bir pencerede değilde toolbardaki çal dur buttonuna nasıl uyarlarım. Bir türlü çözemedim.

///Radyo kodunu Fener1907 arkadaşım paylaşmıştı.

Kod:
on *:LOAD:{
.set %radyoyayin -
}
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 43
option dbu
edit "http://212.175.122.53:1453 ", 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://212.175.122.53:1453", 6, 28 2 101 8
}
on 1:dialog:nmkradio:*:*:{
if ($devent == init) {
did -a nmkradio 1 %radioadres
if (%radyoyayin == -) { did -a $dname 3 Çal }
if (%radyoyayin == +) { did -a $dname 3 Çalıyor }
}
if ($devent == sclick) {
if ($did == 3) {
if (%radyoyayin == +) { echo -a 3 2 $me Yanlış Yere Tıkladın Zaten Radyo Açık... }
if (%radyoyayin == -) {
.cal $did(1) | .set %radioadres $did(1) | set %radyoyayin + | did -a $dname 3 Çalıyor
}
}
if ($did == 4) {
if (%radyoyayin == -) { echo -a $me Yanlış Yere Tıkladın Zaten Radyo Kapalı... }
if (%radyoyayin == +) {
.cal dur | set %radyoyayin - | did -a $dname 3 Çal
}
}
if ($did == 5) { .dialog -x nmkradio nmkradio }
}
}
menu * {
-
Radio aç:.timer 1 1 dialog -m nmkradio nmkradio | unset %radioadres
-
}
//// buda toolbarı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 }

  }
}

Paint 15 Kasım 2011 21:22
Cevap: Bu kodu uyarlayamadım..
 
Toolbar bana Profesyonel Scripti anımsattı. Neden acaba ?

LordAres 16 Kasım 2011 02:52
Cevap: Bu kodu uyarlayamadım..
 
Evet çok hoşuma gitti bende en çok kullandığım bir kodu eklemek istedim. Radyo eklemek istedim tek sorun ayrı bir pencere de olsun istemiyorum toolbara koyduğum çal, dur istek gönder olsun istedim. Fakat olmadı.

Scripti hazırlayan arkadaşa buradan teşekkürler çok güzel ve kasmadan çalışan harika bir script olmuş.Keşke şu radyoyuda ekeleyebilsem. Herkes kullansın diye yayınlanan bir scripti görünce bu kadar şaşırmanda ilginç geldi :) kullanmasamıydık acaba ?

Set 16 Kasım 2011 05:24
Cevap: Bu kodu uyarlayamadım..
 
denemedim ama boyle olmasi gerek, hayirli IF'ler.
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) { $iif(%radyoyayin,echo -a Zaten yayin Acik,cal $did(15)) | set %radyoyayin + }
    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
  }
}

Decard 16 Kasım 2011 15:03
Cevap: Bu kodu uyarlayamadım..
 
Aeg Farkı :)

LordAres 16 Kasım 2011 16:42
Cevap: Bu kodu uyarlayamadım..
 
Set cevabın için teşekkürler fakat olmadı. olmamasındaki neden aliasta çal buttonunun idsi 4 yani bendeki ise list 16 daki 2 . Şu aliası nasıl düzenlemeliyim
Aşagıdaki aliasta kırmızı ile belirttim yerler çal, dur buttonlarının idleri.
Bu bir dialog ta olduğu için sadece buttonun idsini vermek yetiyor fakat bunu tolbara koyunca değişiyor. Toolbardaki buttonum list 16 daki 2 düğme
bunu kırmızı ile belirttim yerde nasıl demeliyim. şöylemi olmalı


var %z $com(%caldir,Url,if ($did($dname,16).sel = 2),bstr,$15-)

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
}
}

Paint 16 Kasım 2011 17:14
Cevap: Bu kodu uyarlayamadım..
 
Alıntı:
LordAres Nickli Üyeden Alıntı (Mesaj 1040917031)
Set cevabın için teşekkürler fakat olmadı. olmamasındaki neden aliasta çal buttonunun idsi 4 yani bendeki ise list 16 daki 2 . Şu aliası nasıl düzenlemeliyim
Aşagıdaki aliasta kırmızı ile belirttim yerler çal, dur buttonlarının idleri.
Bu bir dialog ta olduğu için sadece buttonun idsini vermek yetiyor fakat bunu tolbara koyunca değişiyor. Toolbardaki buttonum list 16 daki 2 düğme
bunu kırmızı ile belirttim yerde nasıl demeliyim. şöylemi olmalı


var %z $com(%caldir,Url,if ($did($dname,16).sel = 2),bstr,$15-)

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
}
}
Sapa sağlam çalışıyor.

LordAres 16 Kasım 2011 17:52
Cevap: Bu kodu uyarlayamadım..
 
çal tuşuna bastığımda radyo zaten çalıyor diyor. oysa radyo çalmıyor. yani sclick ( tıklanma olayı çalışıyor ) Fakat Alias radyodaki button id leri farklı olduğu için radyo çalmıyor.

Paint 16 Kasım 2011 18:32
Cevap: Bu kodu uyarlayamadım..
 
Alıntı:
LordAres Nickli Üyeden Alıntı (Mesaj 1040917097)
çal tuşuna bastığımda radyo zaten çalıyor diyor. oysa radyo çalmıyor. yani sclick ( tıklanma olayı çalışıyor ) Fakat Alias radyodaki button id leri farklı olduğu için radyo çalmıyor.
O kodun Dialogla bir işi yok kardeşim.

/cal adres şeklinde denersen çalıştığını göreceksin.

Ben toolbarı alıp denedim ve sorunsuz bir şekilde çalıştı.

LordAres 16 Kasım 2011 18:56
Cevap: Bu kodu uyarlayamadım..
 
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

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: 14:21.

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