alias kickban {
[color:green] if !$dialog(kickban) { dialog -mo kickban kickban }[/color]
}
dialog kickban {
title "Kick/Ban"
size -1 -1 172 146
option dbu
box "Victim", 1, 8 7 157 33
text "", 2, 15 22 142 9
radio "Kick victim", 3, 10 51 35 9, group
radio "Kick and Ban victim", 4, 10 66 55 9
box "Ban Mask type", 5, 70 45 95 30
combo 6, 76 58 84 12, drop
box "Kick Message", 7, 8 82 157 33
edit "", 8, 15 96 142 11, autohs
button "Cancel", 9, 132 127 32 12, cancel
[color:green] button "OK", 10, 93 127 32 12, ok,disable[/color]
}
on *:dialog:kickban:init:0:{
[color:gray] ; line removed[/color]
var %i = 0
[color:green] while %i < 10 { did -a $dname 6 $+([,%i,]) $mask(nick!user@host.domain,%i) | inc %i }[/color]
if (%bancombo.type == $null) { %bancombo.type = 3 | %bancombo.sel = $gettok($did(1,%bancombo.type),2,32) }
did -c $dname 6 %bancombo.type
;----
did -a $dname 2 $snick($active)
if (%kick-penality == on) { did -c $dname 3 }
if (%kickban-penality == on) { did -c $dname 4 }
svictim
}
[color:green]alias svictim { .timersvictim 0 1 did -ra kickban 2 $!snick($active) $(|) did $!iif($snick($active),-e,-b) kickban 10 }[/color]