Arkadaslar sımdı benım mircin normal toolbar ı var ama ben bu nıck listesının yanına LaureLL ın yaptıgı gıbı bır operator kıckban voıce kıck gıbı bır toolbar menu eklemek ıstıyorum Laurell ın toolbarını ekledım operator toolbar ama mirci acınca otomatık kapanıyor bu sefer nasıl yapabılırım bu asagıdakı benım normal toolbarım
Alıntı:
on *:start: {
dialog -m toolbar toolbar
}
alias Temadene { echo -a Temam: $iif($temabul,XP Teması,Klasik Windows Teması) }
alias Temabul { .comreg dll/Tema.dll | .comopen toolbar Tema.buL | var %komut = $com(toolbar,TemaBul,1) | var %komut = $com(toolbar).result | .comclose toolbar | .comreg -u dll/Tema.dll | return %komut }
alias mdx { return $dll(DLL\mdx.dll,$1,$2-) }
alias rebar { dll DLL\rebar.dll $$1- }
alias bars { return DLL\bars.mdx }
on *:connect: {
update.toolbar
}
on *:disconnect: {
update.toolbar
}
on *:close:*: {
update.toolbar
}
alias saat { if ($dialog(toolbar)) { did -a toolbar $1 $time } }
alias update.toolbar {
if (!$dialog(toolbar)) { halt }
else {
scid $activecid
if ( $scid($activecid).status = connecting || $scid($activecid).status = connected ) {
did -o toolbar 1 3 +a 2 $chr(32) Bağlantıyı Kes $chr(9) $+ IRC Serverle Bağlantınızı Koparır.
}
else {
did -o toolbar 1 3 +a 1 $chr(32) Servere Bağlan $chr(9) $+ IRC Servere Bağlantı Kurar.
}
}
}
dialog toolbar {
title "x"
size 0 0 550 $iif($temabul,18,21)
option dbu
list 1, 0 4 274 17, size
list 10, 280 8 270 12, size
box "Servisler Op Control", 14, 275 -1 185 33,default
text "", 2, 464 6 45 16, center
text "", 3, 467 10 39 11, center
}
on *:dialog:toolbar:init:0: {
mdx MarkDialog $dname
mdx SetDialog $dname style
mdx SetFont $dname 1,14 Turkish 14 800 Cyrillic
mdx SetColor $dname 3 text $rgb(0,0,0)
mdx SetFont $dname 3 +a 20 600 arial
.timersaat 0 1 saat 3
rebar HideToolbar
rebar Dock $dialog(toolbar).hwnd > top
mdx SetControlMDX $dname 1,3,4 Progressbar smooth > $ctl
mdx SetControlMDX $dname 1,10,4 ToolBar flat wrap arrows nodivider > $bars
mdx SetBorderStyle 1,10
did -i $dname 10 1 bmpsize 25 25
did -i $dname 10 1 setimage icon large icon\cpanel.ico
did -i $dname 10 1 setimage icon large icon\cpanel.ico
did -i $dname 10 1 setimage icon large icon\cpanel.ico
did -i $dname 10 1 setimage icon large icon\cpanel.ico
did -i $dname 10 1 setimage icon large icon\cpanel.ico
did -a $dname 10 +a -
did -a $dname 10 +a 1 $chr(32) Admin $chr(9) $+ Admin Servisleri
did -a $dname 10 +a -
did -a $dname 10 +a 2 $chr(32) OperServ $chr(9) $+ Oper Servisleri
did -a $dname 10 +a -
did -a $dname 10 +a 3 $chr(32) ChanServ $chr(9) $+ Chanserv Servıslerı
did -a $dname 10 +a -
did -a $dname 10 +a 4 $chr(32) NickServ $chr(9) $+ NickServ Servıslerı
did -a $dname 10 +a -
did -a $dname 10 +a 5 $chr(32) MemoServ $chr(9) $+ MemoServ Servıslerı
did -a $dname 10 +a -
did -i $dname 1 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
did -i $dname 1 1 bmpsize 32 32
did -i $dname 1 1 setimage icon large icon\baglan.ico
did -i $dname 1 1 setimage icon large icon\kes.ico
did -i $dname 1 1 setimage icon large icon\Ayarlar.ico
did -i $dname 1 1 setimage icon large icon\kanal.ico
did -i $dname 1 1 setimage icon large icon\mp3.ico
did -i $dname 1 1 setimage icon large icon\kontrolpanel.ico
did -i $dname 1 1 setimage icon large icon\8.ico
did -a $dname 1 +a -
did -a $dname 1 +a 1 $chr(32) Server Bağlan $chr(9) $+ IRC Servere Bağlantı Kurar.
did -a $dname 1 +a -
did -a $dname 1 +a 3 $chr(32) Bağlantı $chr(9) $+ Bağlantı Ayarlarını Yapar.
did -a $dname 1 +a -
did -a $dname 1 +a 4 $chr(32) Kanallar $chr(9) $+ Kanallara Giriş Penceresini Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 5 $chr(32) Away $chr(9) $+ aWay
did -a $dname 1 +a -
did -a $dname 1 +a 6 $chr(32) Flood Panel $chr(9) $+ Scriptinizle İlgili Tüm Ayarları Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 7 $chr(32) Log $chr(9) $+ ßad Nick
did -a $dname 1 +a -
}
on *:dialog:toolbar:*:*: {
if $devent == sclick {
if $did == 10 {
if ($did($dname,10).sel = 3) {
/dialog -m serverinfo serverinfo
}
if ($did($dname,10).sel = 5) {
/dialog -m operserv operserv
}
if ($did($dname,10).sel = 7) {
dialog -m chanserv chanserv
}
if ($did($dname,10).sel = 9) {
/dialog -ma nickserv nickserv
}
if ($did($dname,10).sel = 11) {
/dialog -ma memoserv memoserv
}
}
if $did == 1 {
if ($did($dname,1).sel = 3) {
if ($scid($activecid).status = connecting || $scid($activecid).status = connected ) { scid $activecid disconnect }
else {
scid $activecid server
}
update.toolbar
did -f $dname 1
scid $activecid window -a "status window"
}
if ($did($dname,1).sel = 5) {
sendkey ALT O
}
if ($did($dname,1).sel = 7) {
_k
}
if ($did($dname,1).sel = 9) {
/awaysys
}
if ($did($dname,1).sel = 11) {
/fp
}
if ($did($dname,1).sel = 13) {
.kayitgosterici
}
}
}
}