Not: Toolbardaki menüleri sen dolduruyorsun. Burada sadece menü isimleri, iconları gibi şeyler ayarlanmış gerisi artık insanlar ne yapmak isterse onu yapmak üzere bırakılmıştır.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
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 $date $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) Kes $chr(9) $+ Bağlantıyı Kes
}
else {
did -o toolbar 1 3 +a 1 $chr(32) Bağlan $chr(9) $+ Servere Bağlan
}
}
}
dialog toolbar {
title "x"
size 0 2 396 $iif($temabul,29,31)
option dbu
list 13, 0 0 396 19
list 1, 0 11 396 17, size
list 2, 403 13 150 8, size
list 7, 403 25 150 13, size
list 9, 403 -3 150 1
box "Hızlı İşlemler", 8, 397 5 44 34,default
text "", 11, 463 17 45 26, center
text "", 12, 466 21 39 22, center
}
on *:dialog:toolbar:init:0: {
mdx MarkDialog $dname
mdx SetDialog $dname style
mdx SetFont $dname 12 17 550 Courier New
.timersaat 0 1 saat 12
rebar HideToolbar
rebar Dock $dialog(toolbar).hwnd > top
mdx SetControlMDX $dname 1,2,7,9,13 ToolBar flat wrap arrows nodivider > $bars
mdx SetBorderStyle 1,2,7,9,13
did -i $dname 2 1 bmpsize 16 16
did -i $dname 2 1 setimage +nhd 0 icon small icon\operator.ico
did -a $dname 2 +b 1 $chr(32) $+ $chr(9) $+ OP / DEOP
did -i $dname 2 1 setimage +nhd 0 icon small icon\voice.ico
did -a $dname 2 +b 2 $chr(32) $+ $chr(9) $+ VOICE / DEVOICE
did -i $dname 2 1 setimage +nhd 0 icon small icon\ikaz.ico
did -a $dname 2 +b 3 $chr(32) $+ $chr(9) $+ KICK BAN
did -i $dname 7 1 bmpsize 16 16
did -i $dname 7 1 setimage +nhd 0 icon small icon\kick.ico
did -a $dname 7 +b 1 $chr(32) $+ $chr(9) $+ Kick
did -i $dname 7 1 setimage +nhd 0 icon small icon\Whois.ico
did -a $dname 7 +b 2 $chr(32) $+ $chr(9) $+ Whois Çek
did -i $dname 7 1 setimage +nhd 0 icon small icon\Query.ico
did -a $dname 7 +b 3 $chr(32) $+ $chr(9) $+ Özel Aç
did -i $dname 1 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
did -i $dname 1 1 bmpsize 26 26
did -i $dname 1 1 setimage icon large icon\connect.ico
did -i $dname 1 1 setimage icon large icon\disconnect.ico
did -i $dname 1 1 setimage icon large icon\Ayarlar1.ico
did -i $dname 1 1 setimage icon large icon\kanallar.ico
did -i $dname 1 1 setimage icon large icon\korumalar2.ico
did -i $dname 1 1 setimage icon large icon\mp3.ico
did -i $dname 1 1 setimage icon large icon\dost.ico
did -i $dname 1 1 setimage icon large icon\oyunlar.ico
did -i $dname 1 1 setimage icon large icon\internet.ico
did -i $dname 1 1 setimage icon large icon\panel2.ico
did -i $dname 1 1 setimage icon large icon\help2.ico
did -i $dname 1 1 setimage icon large icon\info.ico
did -a $dname 1 +a -
did -a $dname 1 +a 1 Bağlan $chr(9) $+ Servere Bağlan
did -a $dname 1 +a -
did -a $dname 1 +a 3 $chr(32) Ayarlar $chr(9) $+ Bağlantı ve Scriptle İlgili Diğer Ayarları Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 4 $chr(32) Kanallar $chr(9) $+ Kanala Giriş Diyalogunu Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 5 $chr(32) Korumalar $chr(9) $+ Kanal, Kişisel ve Flood Korumalarını Gösterir.
did -a $dname 1 +a -
did -a $dname 1 +a 6 $chr(32) Mp3 Çalar $chr(9) $+ Mp3 Çaları Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 7 $chr(32) Notify $chr(9) $+ Gelişmiş Notify Listesi ve Adres Defterini Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 8 $chr(32) Oyunlar $chr(9) $+ Script Oyunlarını Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 9 $chr(32) Adresler $chr(9) $+ Internet Adreslerini içeren dialogu Açar..
did -a $dname 1 +a -
did -a $dname 1 +a 10 $chr(32) Panel $chr(9) $+ Tüm Ayarların gösterildiği kontrol panelini açar.
did -a $dname 1 +a -
did -a $dname 1 +a 11 $chr(32) Yardım $chr(9) $+ Yardım Menüsünü Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 12 $chr(32) Hakkında $chr(9) $+ Script Hakkındaki Bilgileri Açar.
did -a $dname 1 +a -
}
on *:dialog:toolbar:sclick:*:{
if $did == 2 {
if $did(2).sel == 2 {
if $sline($active,1) isop $active {
mode $active -o $sline($active,1)
}
else {
mode $active +o $sline($active,1)
}
}
if $did(2).sel == 3 {
if $sline($active,1) isvoice $active {
mode $active -v $sline($active,1)
}
else {
mode $active +v $sline($active,1)
}
}
if $did(2).sel == 4 {
mode $active +b $sline($active,1) $+ !*@*
kick $active $sline($active,1) 4Bu kanaldan atıldınız. Güle güle derim sana...
}
}
if $did == 7 {
if $did(7).sel == 2 {
kick $active $sline($active,1) 4Bu kanaldan atıldınız. Güle güle derim sana...
}
}
if $did == 7 {
if $did(7).sel == 3 {
whois $nick $sline($active,1)
}
}
if $did == 7 {
if $did(7).sel == 4 {
query $nick $sline($active,1)
}
}
if $devent == sclick {
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) {
.ayarlar
}
if ($did($dname,1).sel = 7) {
.kanallar
}
if ($did($dname,1).sel = 9) {
.kanalkorumalari
}
if ($did($dname,1).sel = 11) {
.mp3c
}
if ($did($dname,1).sel = 13) {
.Notifylist
}
if ($did($dname,1).sel = 15) {
.oyunlar
}
if ($did($dname,1).sel = 17) {
.internet
}
if ($did($dname,1).sel = 19) {
.cpanel
}
if ($did($dname,1).sel = 21) {
.run help.chm
}
if ($did($dname,1).sel = 23) {
.hakkinda
}
}
}
}