Akick nicks/idents/hosts INI v1.2 for Ruther

alias blacklisted {
  var %c = $1
  if ($status !== connected) || (!%c) || (%c !ischan) || ($me isreg %c) { return }

  var %f = akicks.ini

  var %t = $ini(%f,nicknames,0)
  if (!%t) { goto idents }

  var %i = 1

  while (%i <= %t) {
    var %n = $ini(%f,nicknames,%i)
    var %r = $readini(%f,n,nicknames,%n)

    if (%n ison %c) && (%r) { mode %c +b %n $+ !*@* | kick %c %n %r }

    inc %i
  }

  :idents

  var %tt = $ini(%f,idents,0)
  if (!%tt) { goto ips }

  var %ii = 1

  while (%ii <= %tt) {
    var %d = $ini(%f,idents,%ii)
    var %rr = $readini(%f,n,idents,%d)
    var %mm = $remove($ialchan(*! $+ %d $+ @*,%c,1),~)
    var %nn = $gettok(%mm,1,33)

    if (%mm) && (%nn ison %c) && (%rr) { mode %c +b *! $+ %d $+ @* | kick %c %nn %rr }

    inc %ii
  }

  :ips

  var %ttt = $ini(%f,ips,0)
  if (!%ttt) { return }

  var %iii = 1

  while (%iii <= %ttt) {
    var %h = $ini(%f,ips,%iii)
    var %rrr = $readini(%f,n,ips,%h)
    var %mmm = $ialchan(*@ $+ %h,%c,1)
    var %nnn = $gettok(%mmm,1,33)

    if (%mmm) && (%nnn ison %c) && (%rrr) { mode %c +b *!*@ $+ %h | kick %c %nnn %rrr }

    inc %iii
  }
}