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