mIRC'te nick listin yanında yani sağ tarafta gözükecek kısayol bi toolbar var fakat bunu buton içinde daha belirgin bi şekilde yapma şansımız varmı acaba?
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:start: { dialog -m toolbarr toolbarr }
on *:connect: {
update.toolbarr
}
on *:disconnect: {
update.toolbarr
}
on *:close:*: {
update.toolbarr
}
alias update.toolbarr {
if (!$dialog(toolbarr)) { halt }
}
dialog toolbarr {
title "toolbar"
size 5 5 30 50
option dbu
box "Al/ver", 1, 3 3 17 30
list 2, 7 12 30 11, size
list 3, 7 29 30 11, size
list 4, 7 46 30 11, size
list 5, 7 63 30 11, size
list 6, 7 81 30 11, size
list 7, 7 98 30 11, size
list 8, 7 115 30 11, size
list 9, 7 133 30 11, size
box "Ekle\Sil", 10, 3 155 67 120
list 11, 7 163 30 14, size
list 12, 7 181 30 14, size
list 13, 7 200 60 14, size
list 14, 7 218 60 14, size
list 15, 7 237 60 14, size
list 16, 8 256 60 14, size
}
on *:dialog:toolbarr:init:0: {
mdx MarkDialog $dname
mdx SetDialog $dname style
mdx SetFont $dname 1 12 700 Verdana
rebar Dock $dialog(toolbarr).hwnd > right
mdx SetControlMDX $dname 1 Progressbar smooth > $ctl
mdx SetControlMDX $dname 1 ToolBarr flat wrap arrows nodivider > $bars
mdx SetControlMDX $dname 2,3,4,5,6,7,8,9,11,12,13,14,15,16 Toolbar flat wrap arrows nodivider list > $bars
mdx SetControlMDX $dname 2,3,4,5,6,7,8,9,11,12,13,14,15,16 Progressbar smooth > $ctl
mdx SetBorderStyle $dname 2,3,4,5,6,7,8,9,11,12,13,14,15,16
mdx SetFont 1,2,3,4,5,6,7,8,9,11,12,13,14,15,16 -11 700 Tahoma
mdx SetDialog [ $dname ] bgcolor $rgb(255,255,255)
mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16 background $rgb(255,255,255)
did -i $dname 2 1 bmpsize 12 12
did -i $dname 2 1 setimage icon large 0, $+ icon\help.ico
did -a $dname 2 +W 175 1 +o
did -i $dname 3 1 bmpsize 12 12
did -i $dname 3 1 setimage icon large 0, $+ icon\help.ico
did -a $dname 3 +W 175 1 -o
did -i $dname 4 1 bmpsize 12 12
did -i $dname 4 1 setimage icon large 0, $+ icon\help.ico
did -a $dname 4 +W 175 1 +v
did -i $dname 5 1 bmpsize 12 12
did -i $dname 5 1 setimage icon large 0, $+ icon\help.ico
did -a $dname 5 +W 175 1 -v
did -i $dname 6 1 bmpsize 12 12
did -i $dname 6 1 setimage icon large 0, $+ icon\help.ico
did -a $dname 6 +W 175 1 +h
did -i $dname 7 1 bmpsize 12 12
did -i $dname 7 1 setimage icon large 0, $+ icon\help.ico
did -a $dname 7 +W 175 1 -h
did -i $dname 8 1 bmpsize 12 12
did -i $dname 8 1 setimage icon large 0, $+ icon\help.ico
did -a $dname 8 +W 175 1 +m
did -i $dname 9 1 bmpsize 12 12
did -i $dname 9 1 setimage icon large 0, $+ icon\help.ico
did -a $dname 9 +W 175 1 -m
did -i $dname 11 1 bmpsize 12 12
did -i $dname 11 1 setimage icon large 0, $+ icon\favori.ico
did -a $dname 11 +W 175 1 +o
did -i $dname 12 1 bmpsize 12 12
did -i $dname 12 1 setimage icon large 0, $+ icon\favori.ico
did -a $dname 12 +W 175 1 -o
did -i $dname 13 1 bmpsize 12 12
did -i $dname 13 1 setimage icon large 0, $+ icon\favori.ico
did -a $dname 13 +W 175 1 +h
did -i $dname 14 1 bmpsize 12 12
did -i $dname 14 1 setimage icon large 0, $+ icon\favori.ico
did -a $dname 14 +W 175 1 -h
did -i $dname 15 1 bmpsize 12 12
did -i $dname 15 1 setimage icon large 0, $+ icon\favori.ico
did -a $dname 15 +W 175 1 Zline
did -i $dname 16 1 bmpsize 12 12
did -i $dname 16 1 setimage icon large 0, $+ icon\favori.ico
did -a $dname 16 +W 175 1 Kill
did -i $dname 17 1 bmpsize 12 12
did -i $dname 17 1 setimage icon large 0, $+ icon\favori.ico
did -a $dname 17 +W 175 1 Kick
did -i $dname 18 1 bmpsize 12 12
did -i $dname 18 1 setimage icon large 0, $+ icon\favori.ico
did -a $dname 18 +W 175 1 BAN
}
on *:dialog:toolbarr:sclick:*: {
if $did == 2 { mode $active +o $snick($active,1) }
if $did == 3 { mode $active -o $snick($active,1) }
if $did == 4 { mode $active +v $snick($active,1) }
if $did == 5 { mode $active -v $snick($active,1) }
if $did == 6 { mode $active +h $snick($active,1) }
if $did == 7 { mode $active -h $snick($active,1) }
if $did == 8 { mode $active +m $($active,1) }
if $did == 9 { mode $active -m $($active,1) }
if $did == 11 { cs aop $active add $snick($active,1) }
if $did == 12 { cs aop $active del $snick($active,1) }
if $did == 13 { cs halfop $active add $snick($active,1) }
if $did == 14 { cs halfop $active del $snick($active,1) }
if $did == 15 { zline $snick($active,1) dışarı. }
if $did == 16 { kill $snick($active,1) lütfen kurallara uyunuz. }
if $did == 17 { zline $snick($active,1) dışarı. }
if $did == 18 { ban $snick($active,1) | /kick # $snick($active,1) 1Hadi gülüm dışarı. 2 $time %logo }
}