i've done it!!!!!

Finally i could do it ... just fixed a few bugs, for the curious ones, grab the new code:

on *:text:*:#:{
inc %asn. [ $+ [ $nick ] ]
if ($me isop $chan) && ($nick !isop $chan) {
var %a = 1
var %b = $ini(sysbadword.ini,$chan,0)
var %c = $ini(sysbadword.ini,$chan,%a)
while (%a <= %b) {
if (%c isin $1-) {
if (%asn. [ $+ [ $nick ] ] == 1) { kick $chan $nick $readini(sysbadword.ini,$chan,%c) ( $+ %c $+ ) }
if (%asn. [ $+ [ $nick ] ] == 2) {
/mode $chan +b $address($nick,1)
/kick $chan $nick $readini(sysbadword.ini,$chan,%c) ( $+ %c $+ )
/timerlavaaboca 1 18000 /mode $chan -b $address($nick,1)
}
/set %a $calc(%b + 1)
}
else { halt }
}
inc %a
}
}