on *:load: {
.echo -aq $input(Author: SaNCaK $+ $crlf $+ $crlf $+ Addon: Ban List $chr(40) $+ v5.4 $+ $chr(41) $+ $crlf $+ $crlf $+ Released at: 17/10/2016 $+ $crlf $+ $crlf $+ Contact: sancak@outlook.com.tr $+ $crlf $+ $crlf $+ Thank you for using this Addon,igo,Addon: Ban List $chr(40) $+ v5.4 $+ $chr(41))
.echo -s _____________________________________________________
.echo -s 0,1 Loading 9,1Ban List0,1 Add-On...
.echo -s 0,1 You are running mIRC $version on Windows $+ $os
.echo -s ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
}
on *:unload: {
.echo -aq $input(Author: SaNCaK $+ $crlf $+ $crlf $+ Addon: Ban List $chr(40) $+ v5.4 $+ $chr(41) $+ $crlf $+ $crlf $+ Released at: 17/10/2016 $+ $crlf $+ $crlf $+ Contact: sancak@outlook.com.tr $+ $crlf $+ $crlf $+ Unloading...,igo,Addon: Ban List $chr(40) $+ v5.4 $+ $chr(41))
}
;############################ -«•»SaNCaK ScripT«•»- ############################
menu channel,menubar {
Ban List:iblstart
}
dialog ibllist {
title "Ban List"
size -1 -1 211 137
option dbu
box "List of bans:", 1, 3 3 137 131
list 2, 7 11 128 106, multsel check result
box "Ban Information:", 3, 143 3 64 51
text "Set by:", 4, 147 11 18 8
text "", 5, 147 21 56 8
text "Date set:", 6, 147 31 23 8
text "", 7, 147 41 56 8
button "CheckAll", 8, 143 57 64 12
button "Remove", 9, 143 72 64 12
button "Remove Selected", 10, 143 87 64 12
button "Remove All", 11, 143 102 64 12
button "Ok/Cancel", 12, 156 118 37 12, ok cancel
text "", 13, 7 122 128 8
}
on *:DIALOG:ibllist:init:*: {
if ($ibl($active,0) != 0) {
var %a = 1
while (%a <= $ibl($active,0)) {
did -a $dname 2 $ibl($active,%a)
inc %a
}
did -a $dname 13 Total entries on $+($active,$chr(58)) $ibl($active,0)
noop $input(All entries have been added..,o,Success!)
}
else {
noop $input(There are no entries for $+($active,.),o,Closing Dialog!)
dialog -x $dname
}
}
on *:DIALOG:ibllist:sclick:2,8-11: {
var %a
if ($did == 2) {
if ($did($dname,2,0).sel == 1) {
did -ra $dname 5 $ibl($active,$did($dname,2).sel).by
did -ra $dname 7 $ibl($active,$did($dname,2).sel).date
}
elseif ($did($dname,2,0).sel >= 2) {
did -ra $dname 5 Multiple Entries
did -ra $dname 7 Multiple Entries
}
elseif ($did($dname,2,0).sel == 0) {
if ($did($dname,5) != $null) && ($did($dname,7) != $null) {
did -r $dname 5,7
}
}
}
if ($did == 8) {
%a = 1
while (%a <= $did($dname,2).lines) {
if ($did(8).text == CheckAll) {
did -s $dname 2 %a
}
elseif ($did(8).text == UnCheckAll) {
did -l $dname 2 %a
}
inc %a
}
if ($did(8).text == CheckAll) {
did -ra $dname 8 UnCheckAll
}
elseif ($did(8).text == UnCheckAll) {
did -ra $dname 8 CheckAll
}
}
if ($did == 9) {
if ($did($dname,2,0).sel == 1) {
mode $active -b $did($dname,2,$did($dname,2).sel).text
did -d $dname 2 $did($dname,2).sel
.timer 1 1 refreshibl
}
}
if ($did == 10) {
%a = 0
var %bans
while ($did($dname,2,0).csel > 0) {
%bans = %bans $did($dname,2,$did($dname,2,1).csel).text
did -d $dname 2 $did($dname,2,1).csel
inc %a
if (%a == $modespl) {
mode $active - $+ $str(b,%a) %bans
%bans = $null
%a = 0
}
}
if (%bans) {
mode $active - $+ $str(b,%a) %bans
}
.timer 1 1 refreshibl
}
if ($did == 11) {
%a = 0
var %bans
while ($did($dname,2).lines > 0) {
%bans = %bans $did($dname,2,1).text
did -d $dname 2 1
inc %a
if (%a == $modespl) {
mode $active - $+ $str(b,%a) %bans
%bans = $null
%a = 0
}
}
if (%bans) {
mode $active - $+ $str(b,%a) %bans
}
.timer 1 1 refreshibl
}
}
alias iblstart {
if ($me !ison $active) {
return
}
if (!$chan($active).ibl) {
.enable #IBLList
.timerIBLListTimeout 1 8 ibltimeout
mode $active +b
}
else {
ibldialog
}
}
alias ibldialog {
dialog $iif($dialog(ibllist),-v,-m ibllist) ibllist
}
alias -l refreshibl {
did -ra ibllist 13 Total entries on $+($active,$chr(58)) $ibl($active,0)
}
#IBLList off
raw 368:*: {
HALTDEF
.timerIBLListTimeout off
.disable #IBLList
ibldialog
}
#IBLList end
alias ibltimeout {
.disable #IBLList
ibldialog
}