Kod: Kodu kopyalamak için üzerine çift tıklayın!
dialog sagbar {
title "kontrol"
size 5 5 18 514
option dbu
list 1, 1 -1 42 389, size
}
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 img\bLord.bmp
did -i $dname 1 1 bmpsize 32 32
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) +v $chr(9) $+ Nick Listesinde Seçtiğiniz Nicke +v verir
did -a $dname 1 +a -
did -a $dname 1 +a 4 $chr(32) -v $chr(9) $+ Nick Listesinde Seçtiğiniz Nickin Voicesini Alır
did -a $dname 1 +a -
did -a $dname 1 +a 5 $chr(32) Kick $chr(9) $+ Nick Listesinde Seçtiğiniz Nicki 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) K+Ban $chr(9) $+ Nick Listesinde Seçtiğiniz Nicke Kick+Ban Uygular
did -a $dname 1 +a -
did -a $dname 1 +a 8 $chr(32) +m $chr(9) $+ Kanalı Konuşmaya Kapatır
did -a $dname 1 +a -
did -a $dname 1 +a 9 $chr(32) -m $chr(9) $+ Kanalı Konuşmaya Açar
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 img\sag.ico
did -i $dname 1 1 setimage icon large img\sag1.ico
did -i $dname 1 1 setimage icon large img\sag.ico
did -i $dname 1 1 setimage icon large img\sag1.ico
did -i $dname 1 1 setimage icon large img\sag.ico
did -i $dname 1 1 setimage icon large img\sag1.ico
did -i $dname 1 1 setimage icon large img\sag.ico
did -i $dname 1 1 setimage icon large img\sag1.ico
did -i $dname 1 1 setimage icon large img\sag.ico
did -i $dname 1 1 setimage icon large img\sag1.ico
did -i $dname 1 1 setimage icon large img\sag.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 %Sohbet 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 %Sohbet 0,12 $active Kanalında Yetkiniz Yok! | halt }
elseif ($status != disconnected) && ($window($active).type != channel) { Echo -a %Sohbet 0,12 Bu Özelliği Kanalda Kullanabilirsiniz! | halt }
elseif ($status != disconnected) && ($window($active).type == channel) && !$sline($active,0) { Echo -a %Sohbet 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 %Sohbet 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 %Sohbet 0,12 $active Kanalında Yetkiniz Yok! | halt }
elseif ($status != disconnected) && ($window($active).type != channel) { Echo -a %Sohbet 0,12 Bu Özelliği Kanalda Kullanabilirsiniz! | halt }
elseif ($status != disconnected) && ($window($active).type == channel) && !$sline($active,0) { Echo -a %Sohbet 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 %Sohbet 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 %Sohbet 0,12 $active Kanalında Yetkiniz Yok! | halt }
elseif ($status != disconnected) && ($window($active).type != channel) { Echo -a %Sohbet 0,12 Bu Özelliği Kanalda Kullanabilirsiniz! | halt }
elseif ($status != disconnected) && ($window($active).type == channel) && !$sline($active,0) { Echo -a %Sohbet 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(v,$sline($active,0))) %nickler
}
}
elseif ($did($dname,1).sel == 8) {
if ($status == disconnected) { Echo -a %Sohbet 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 %Sohbet 0,12 $active Kanalında Yetkiniz Yok! | halt }
elseif ($status != disconnected) && ($window($active).type != channel) { Echo -a %Sohbet 0,12 Bu Özelliği Kanalda Kullanabilirsiniz! | halt }
elseif ($status != disconnected) && ($window($active).type == channel) && !$sline($active,0) { Echo -a %Sohbet 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(v,$sline($active,0))) %nickler
}
}
elseif ($did($dname,1).sel == 10) {
if ($status == disconnected) { Echo -a %Sohbet 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 %Sohbet 0,12 $active Kanalında Yetkiniz Yok! | halt }
elseif ($status != disconnected) && ($window($active).type != channel) { Echo -a %Sohbet 0,12 Bu Özelliği Kanalda Kullanabilirsiniz! | halt }
elseif ($status != disconnected) && ($window($active).type == channel) && !$sline($active,0) { Echo -a %Sohbet 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) {
kick $active $sline($active,%i) %Sohbet
inc %i
}
}
}
elseif ($did($dname,1).sel == 12) {
if ($status == disconnected) { Echo -a %Sohbet 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 %Sohbet 0,12 $active Kanalında Yetkiniz Yok! | halt }
elseif ($status != disconnected) && ($window($active).type != channel) { Echo -a %Sohbet 0,12 Bu Özelliği Kanalda Kullanabilirsiniz! | halt }
elseif ($status != disconnected) && ($window($active).type == channel) && !$sline($active,0) { Echo -a %Sohbet 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) {
if ($status == disconnected) { Echo -a %Sohbet 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 %Sohbet 0,12 $active Kanalında Yetkiniz Yok! | halt }
elseif ($status != disconnected) && ($window($active).type != channel) { Echo -a %Sohbet 0,12 Bu Özelliği Kanalda Kullanabilirsiniz! | halt }
elseif ($status != disconnected) && ($window($active).type == channel) && !$sline($active,0) { Echo -a %Sohbet 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) {
Echo -a ban -k $active $sline($active,%i) %Sohbet
inc %i
}
}
}
elseif ($did($dname,1).sel == 16) {
if ($status == disconnected) { Echo -a %Sohbet 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 %Sohbet 0,12 $active Kanalında Yetkiniz Yok! | halt }
elseif ($status != disconnected) && ($window($active).type != channel) { Echo -a %Sohbet 0,12 Bu Özelliği Kanalda Kullanabilirsiniz! | halt }
elseif ($status != disconnected) && ($window($active).type == channel) { mode $active +m }
}
elseif ($did($dname,1).sel == 18) {
if ($status == disconnected) { Echo -a %Sohbet 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 %Sohbet 0,12 $active Kanalında Yetkiniz Yok! | halt }
elseif ($status != disconnected) && ($window($active).type != channel) { Echo -a %Sohbet 0,12 Bu Özelliği Kanalda Kullanabilirsiniz! | halt }
elseif ($status != disconnected) && ($window($active).type == channel) { mode $active -m }
}
elseif ($did($dname,1).sel == 20) {
if ($status == disconnected) { Echo -a %Sohbet 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 %Sohbet 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) }
}
}