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

 Kayıt ol  Topluluk
5Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 16 Kasım 2011, 19:08   #11
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Bu kodu uyarlayamadım..




LordAres Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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:   Kodu kopyalamak için üzerine çift tıklayın!
on *:start:/cal Adres


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet
Alt 16 Kasım 2011, 19:28   #12
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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.

 
Alıntı ile Cevapla

Alt 16 Kasım 2011, 22:10   #13
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Bu kodu uyarlayamadım..




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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.

 
Alıntı ile Cevapla

Alt 16 Kasım 2011, 22:44   #14
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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:   Kodu kopyalamak için üzerine çift tıklayın!
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 - } }


 
Alıntı ile Cevapla

Alt 16 Kasım 2011, 23:11   #15
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Bu kodu uyarlayamadım..




LordAres Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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:   Kodu kopyalamak için üzerine çift tıklayın!
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.

 
Alıntı ile Cevapla

Alt 17 Kasım 2011, 00:27   #16
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Bu kodu uyarlayamadım..




peki nasıl yapmalıyım.

 
Alıntı ile Cevapla

Cevapla

Etiketler
bu, kodu, uyarlayamadım


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Hazir Kodu Sound kodu Lazim Pandorum mIRC Scripting Sorunları 2 22 Ekim 2010 12:00
web kodu Lovestory mIRC Scripting Sorunları 3 21 Ocak 2010 02:51
selam status ekranına saat kodu koydum O Kodu NASIL SİLECEM ??? Y ofofyaRim mIRC Scripting Sorunları 5 31 Ağustos 2009 23:42
Log kodu Xcrape mIRC Scripting Sorunları 0 03 Eylül 2008 19:18