mIRc Toolbar Menüsü

on *:start: { dialog -m toolbar }
on *:connect: {
update.toolbar
join #sanalcafe
}
on *:disconnect: {
update.toolbar
}
on *:close:*: {
update.toolbar
}
dialog toolbar {
title "LauReLL"
size 5 5 43 514
option dbu
list 1, 2 5 42 389, size
}
on *:appactive: {
if $appactive {
update.toolbar
}
}
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) Disconnect $chr(9) $+ IRC Serverle Bağlantınızı Koparır.
}
else {
did -o toolbar 1 3 +a 1 $chr(32) _Connect_ $chr(9) $+ IRC Servere Bağlantı Kurar.
}
}
}
on *:dialog:toolbar:init:0: {
mdx MarkDialog $dname
mdx SetDialog $dname style
mdx SetFont $dname 1 12 700 Verdana
rebar HideToolbar .
rebar Dock $dialog(toolbar).hwnd > left
mdx SetControlMDX $dname 1 Progressbar smooth > $ctl
mdx SetControlMDX $dname 1 ToolBar flat wrap arrows nodivider > $bars
mdx SetColor 1 background $rgb(170,170,170)
mdx SetDialog [ $dname ] bgcolor $rgb(170,170,170)
mdx SetBorderStyle 1
did -i $dname 1 1 setscheme $rgb(0,0,0) $rgb(170,170,170)
did -i $dname 1 1 bmpsize 32 32
did -i $dname 1 1 setimage icon large icon\1.ico
did -i $dname 1 1 setimage icon large icon\2.ico
did -i $dname 1 1 setimage icon large icon\baglantı.ico
did -i $dname 1 1 setimage icon large icon\kanallar.ico
did -i $dname 1 1 setimage icon large icon\cpaneL.ico
did -i $dname 1 1 setimage icon large icon\Away.ico
did -i $dname 1 1 setimage icon large icon\MP3.ico
did -i $dname 1 1 setimage icon large icon\help.ico
did -i $dname 1 1 setimage icon large icon\Oyun.ico
did -i $dname 1 1 setimage icon large icon\hakkında.ico
did -a $dname 1 +a -
did -a $dname 1 +a 1 $chr(32) $iif($scid($activecid).status == connected,bağlantıyı kes,Bağlantılar) $chr(9) $+ IRC Servere Bağlantı kurar.
did -a $dname 1 +a -
did -a $dname 1 +a 3 $chr(32) Server $chr(9) $+ Bağlantı Ayarlarını Yapar.
did -a $dname 1 +a -
did -a $dname 1 +a 4 $chr(32) Kanallarımız $chr(9) $+ Kanallara Giriş Penceresini Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 5 $chr(32) Alternatifler $chr(9) $+ Tüm ayarkarın Yapıldığı Kontrol panelini açar
did -a $dname 1 +a -
did -a $dname 1 +a 6 $chr(32) Away İşLemi $chr(9) $+ Meşgul menünüzü Açar
did -a $dname 1 +a -
did -a $dname 1 +a 7 $chr(32) Mp3_ Menüsü $chr(9) $+ Mp3 Player Açar
did -a $dname 1 +a -
did -a $dname 1 +a 8 $chr(32) Yardım kanal $chr(9) $+ Yardım KanaLına Gider
did -a $dname 1 +a -
did -a $dname 1 +a 9 $chr(32) Oyun aynayn $chr(9) $+ Oyun KanaLına Gider
did -a $dname 1 +a -
did -a $dname 1 +a 10 $chr(32) hakkımızda... $chr(9) $+ Hakkında Bilgi
did -a $dname 1 +a -
}
on *:dialog:toolbar:*:*: {
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) {
echo -a 12 Bağlantı Dialogunu Giriniz...
}
if ($did($dname,1).sel = 7) {
echo -a 12 kanal listesi Dialogunu Giriniz...
}
if ($did($dname,1).sel = 9) {
echo -a 12 Cpanel Dialogunu Giriniz...
}
if ($did($dname,1).sel = 11) {
echo -a 12 Away PaneLi Dialogunu Giriniz...
}
if ($did($dname,1).sel = 13) {
echo -a 12 MP3 Menüsü Dialogunu Giriniz...
}
if ($did($dname,1).sel = 15) {
join #help
}
if ($did($dname,1).sel = 17) {
join #oyun
}
if ($did($dname,1).sel = 19) {
echo -a 12 mIRc BiLgi Dialogunu Giriniz...
}
}
}
}
alias mdx { return $dll(DLL\mdx.dll,$1,$2-) }
alias mdxdll { return $dll(DLL\mdx.dll,$1,$2-) }
alias rebar { dll DLL\rebar.dll $$1- }
alias bars { return DLL\bars.mdx }
alias ctl { return DLL\ctl_gen.mdx }
alias views { return DLL\views.mdx }

ALINTIDIR.

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir