Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:dialog:sagbar:init:0: {
mdx MarkDialog $dname
mdx SetDialog $dname style
rebar HideToolbar .
rebar Dock $dialog(sagbar).hwnd > right
mdx SetControlMDX $dname 1 Progressbar smooth > $ctl
mdx SetControlMDX $dname 1 ToolBar flat wrap arrows nodivider > $bars
mdx SetBorderStyle 1
did -i $dname 1 1 setbkg stretch imgarkamenu.bmp
did -i $dname 1 1 bmpsize 33 33
did -a $dname 1 +a 1 $chr(32) +o $chr(9) $+ Nick Listesinde Seçtiğiniz Nicke Op verir
did -a $dname 1 +a -
did -a $dname 1 +a 2 $chr(32) -o $chr(9) $+ Nick Listesinde Seçtiğiniz Nicki Deop Eder
did -a $dname 1 +a -
did -a $dname 1 +a 3 $chr(32) +D $chr(9) $+ Kendinizi +D moduna alırsınız
did -a $dname 1 +a -
did -a $dname 1 +a 4 $chr(32) -D $chr(9) $+ Kendinizi -D moduna alırsınız
did -a $dname 1 +a -
did -a $dname 1 +a 5 $chr(32) Kick $chr(9) $+ Seçilen Nicki Tüm Kanallardan Atar.
did -a $dname 1 +a -
did -a $dname 1 +a 6 $chr(32) Ban $chr(9) $+ Nick Listesinde Seçtiğiniz Nicke Ban Atar
did -a $dname 1 +a -
did -a $dname 1 +a 7 $chr(32) Showmirc $chr(9) $+ Showmirc -lt Yaparsınız
did -a $dname 1 +a -
did -a $dname 1 +a 8 $chr(32) Clearall $chr(9) $+ Clearall Komutu Uygulanır
did -a $dname 1 +a -
did -a $dname 1 +a 9 $chr(32) !temizle $chr(9) $+ !temizle Komutu Uygulanır
did -a $dname 1 +a -
did -a $dname 1 +a 10 $chr(32) whois $chr(9) $+ Kişi Bilgilerini Gösterir
did -a $dname 1 +a -
did -i $dname 1 1 setimage icon large imgop.ico
did -i $dname 1 1 setimage icon large imgop.ico
did -i $dname 1 1 setimage icon large imgV.ico
did -i $dname 1 1 setimage icon large imgV.ico
did -i $dname 1 1 setimage icon large imgK.ico
did -i $dname 1 1 setimage icon large imgB.ico
did -i $dname 1 1 setimage icon large imgK.ico
did -i $dname 1 1 setimage icon large imgM.ico
did -i $dname 1 1 setimage icon large imgM.ico
did -i $dname 1 1 setimage icon large imgW.ico
dll aniwin.dll anime $dialog($dname).hwnd -hn 650
}
on *:dialog:sagbar:sclick:*: {
if ($did($dname,1).sel == 2) {
if ($status == disconnected) { Echo -a %logo 0,12 Sunucuya Bağlı Değilsiniz Bu Komutu Kullanamazsınız! | halt }
elseif ($status != disconnected) && ($window($active).type == channel) && (!$regex($nick($active,$me).pnick,&|@|~)) { Echo -a %logo 0,12 $active Kanalında Yetkiniz Yok! | halt }
elseif ($status != disconnected) && ($window($active).type != channel) { Echo -a %logo 0,12 Bu Özelliği Kanalda Kullanabilirsiniz! | halt }
elseif ($status != disconnected) && ($window($active).type == channel) && !$sline($active,0) { Echo -a %logo 0,12 Bu Özelliği Kullanıp İşlem Yapmak İçin Nick Listesinde Nick Seçiniz! | Halt }
elseif ($status != disconnected) && ($window($active).type == channel) {
var %i = 1, %t = $sline($active,0)
while (%i <= %t) {
var %nickler $addtok(%nickler,$sline($active,%i),32)
inc %i
}
mode $active $+(+,$str(o,$sline($active,0))) %nickler
}
}
elseif ($did($dname,1).sel == 4) {
if ($status == disconnected) { Echo -a %logo 0,12 Sunucuya Bağlı Değilsiniz Bu Komutu Kullanamazsınız! | halt }
elseif ($status != disconnected) && ($window($active).type == channel) && (!$regex($nick($active,$me).pnick,&|@|~)) { Echo -a %logo 0,12 $active Kanalında Yetkiniz Yok! | halt }
elseif ($status != disconnected) && ($window($active).type != channel) { Echo -a %logo 0,12 Bu Özelliği Kanalda Kullanabilirsiniz! | halt }
elseif ($status != disconnected) && ($window($active).type == channel) && !$sline($active,0) { Echo -a %logo 0,12 Bu Özelliği Kullanıp İşlem Yapmak İçin Nick Listesinde Nick Seçiniz! | Halt }
elseif ($status != disconnected) && ($window($active).type == channel) {
var %i = 1, %t = $sline($active,0)
while (%i <= %t) {
var %nickler $addtok(%nickler,$sline($active,%i),32)
inc %i
}
mode $active $+(-,$str(o,$sline($active,0))) %nickler
}
}
elseif ($did($dname,1).sel == 6) {
if ($status == disconnected) { Echo -a %logo 0,12 Sunucuya Bağlı Değilsiniz Bu Komutu Kullanamazsınız! | halt }
elseif ($status != disconnected) {
mode $me +D
}
}
elseif ($did($dname,1).sel == 8) {
if ($status == disconnected) { Echo -a %logo 0,12 Sunucuya Bağlı Değilsiniz Bu Komutu Kullanamazsınız! | halt }
elseif ($status != disconnected) {
mode $me -D
}
}
elseif ($did($dname,1).sel == 10) {
if ($status == disconnected) { Echo -a %logo 0,12 Sunucuya Bağlı Değilsiniz Bu Komutu Kullanamazsınız! | halt }
elseif ($status != disconnected) && ($window($active).type == channel) && (!$regex($nick($active,$me).pnick,&|@|~)) { Echo -a %logo 0,12 $active Kanalında Yetkiniz Yok! | halt }
elseif ($status != disconnected) && ($window($active).type != channel) { Echo -a %logo 0,12 Bu Özelliği Kanalda Kullanabilirsiniz! | halt }
elseif ($status != disconnected) && ($window($active).type == channel) && !$sline($active,0) { Echo -a %logo 0,12 Bu Özelliği Kullanıp İşlem Yapmak İçin Nick Listesinde Nick Seçiniz! | Halt }
elseif ($status != disconnected) && ($window($active).type == channel) {
var %i = 1
while $comchan($sline($active,1),%i) {
var %c $v1
if $me isop %c {
kick %c $sline($active,1) %logo
}
inc %i
}
}
}
elseif ($did($dname,1).sel == 12) {
if ($status == disconnected) { Echo -a %logo 0,12 Sunucuya Bağlı Değilsiniz Bu Komutu Kullanamazsınız! | halt }
elseif ($status != disconnected) && ($window($active).type == channel) && (!$regex($nick($active,$me).pnick,&|@|~)) { Echo -a %logo 0,12 $active Kanalında Yetkiniz Yok! | halt }
elseif ($status != disconnected) && ($window($active).type != channel) { Echo -a %logo 0,12 Bu Özelliği Kanalda Kullanabilirsiniz! | halt }
elseif ($status != disconnected) && ($window($active).type == channel) && !$sline($active,0) { Echo -a %logo 0,12 Bu Özelliği Kullanıp İşlem Yapmak İçin Nick Listesinde Nick Seçiniz! | Halt }
elseif ($status != disconnected) && ($window($active).type == channel) {
var %i = 1, %t = $sline($active,0)
while (%i <= %t) {
var %nickler $addtok(%nickler,$sline($active,%i),32)
inc %i
}
mode $active $+(+,$str(b,$sline($active,0))) %nickler
}
}
elseif ($did($dname,1).sel == 14) {
showmirc -lt
}
elseif ($did($dname,1).sel == 16) {
if ($status == disconnected) { Echo -a %logo 0,12 Sunucuya Bağlı Değilsiniz Bu Komutu Kullanamazsınız! | halt }
elseif ($status != disconnected) && ($window($active).type == channel) && (!$regex($nick($active,$me).pnick,&|@|~)) { Echo -a %logo 0,12 $active Kanalında Yetkiniz Yok! | halt }
elseif ($status != disconnected) && ($window($active).type != channel) { Echo -a %logo 0,12 Bu Özelliği Kanalda Kullanabilirsiniz! | halt }
elseif ($status != disconnected) && ($window($active).type == channel) { clearall }
}
elseif ($did($dname,1).sel == 18) {
if ($status == disconnected) { Echo -a %logo 0,12 Sunucuya Bağlı Değilsiniz Bu Komutu Kullanamazsınız! | halt }
elseif ($status != disconnected) && ($window($active).type == channel) && (!$regex($nick($active,$me).pnick,&|@|~)) { Echo -a %logo 0,12 $active Kanalında Yetkiniz Yok! | halt }
elseif ($status != disconnected) && ($window($active).type != channel) { Echo -a %logo 0,12 Bu Özelliği Kanalda Kullanabilirsiniz! | halt }
elseif ($status != disconnected) && ($window($active).type == channel) { msg $active !temizle }
}
elseif ($did($dname,1).sel == 20) {
if ($status == disconnected) { Echo -a %logo 0,12 Sunucuya Bağlı Değilsiniz Bu Komutu Kullanamazsınız! | halt }
elseif ($status != disconnected) && ($window($active).type == channel) && !$sline($active,0) { Echo -a %logo 0,12 Nick Listesinden Nicke Tıklayıp Whois Butonuna Basınız! | Halt }
elseif ($status != disconnected) && ($window($active).type == channel) && $sline($active,0) { whois $sline($active,1) }
elseif ($status != disconnected) && ($window($active).type == query) { whois $window($active) }
}
}