Aop/Banscan

; -----------------------------)
; -- AOP & Banlist Fibonacci --)
; -----------------------------)
;Update aop, scan for banlisted users
;Created by MakiMaki for seraphim

;AOP Update
alias update.aop {
  var %i 0, %o 0, %h 0
  while (%i < $nick(#,0)) {
    inc %i
    if ($nick(#,%i) != $me) {
      if ($nick(#,%i) isowner #) && (!$get.aop(# $+ _local_Owners, $uid($nick(#,%i)))) { add.aop # $+ _local_Owners $uid($nick(#,%i)) $nick(#,%i) # Owner | inc %o }
      elseif ($nick(#,%i) isop #) && (!$get.aop(# $+ _local_Owners, $uid($nick(#,%i)))) && ($nick(#,%i) !isowner #) { add.aop # $+ _local_Host $uid($nick(#,%i)) $nick(#,%i) # Host | inc %h }
  } }
  msg # * %o Owners  and %h Hosts, New entries have been logged. AOP Update Completed.
}

;Banlist room scan
alias banscan {
  var %i 0, %b 0
  while (%i < $nick($1,0)) {
    inc %i
    if ($nick($1,%i) != $me) {
      if ($get.ban(Global_Banlist,$uid($nick($1,%i)))) { user.ban $1 $nick($1,%i) 0 Banlisted Banlist scan and $nick($1,%i) you are on ban status. | inc %b }
      if ($get.ban(local_ $+ # $+ _banlist,$uid($nick($1,%i)))) { user.ban $1 $nick($1,%i) 0 Banlisted Banlist scan and $nick($1,%i) you are on ban status. | inc %b }
  } }
  msg $1 * Total of %b Banlisted users found.
}

;AOP Data
alias get.aop return $readini(data\ $+ $network $+ aop.ini,$1,$2)
alias add.aop writeini data\ $+ $network $+ aop.ini $1-
alias rem.aop remini -n data\ $+ $network $+ aop.ini $1-

;Ban Data
alias get.ban return $readini(data\ $+ $network $+ banlist.ini,$1,$2)
alias add.ban writeini data\ $+ $network $+ banlist.ini $1-
alias rem.ban remini -n data\ $+ $network $+ banlist.ini $1-

alias uid return $ial($1).user

;Join event
on *:JOIN:#: {
  var %id $uid($nick)
  if ($me !isop #) { return }

  ;Banlists
  if ($level(%ad) == banlist) { user.ban # $nick 0 Banlisted You are currently on ban status. | return }
  elseif ($get.ban(Global_Banlist,%id)) { user.ban # $nick 0 Banlisted $gettok($get.ban(Global_Banlist,%id), 2-, 32) | return }
  elseif ($get.ban(local_ $+ # $+ _banlist,%id)) && ($get.ban(#,banlist) != halt) { user.ban # $nick 0 Banlisted $gettok($get.ban(local_ $+ # $+ _banlist,%id), 2-, 32) | return }


  ;AOP
  if ($get.aop(#,AOP) != halt) {
    if ($get.aop(# $+ _local_Owners,%id) || $get.aop(Global_Owners,%id) ) { mode # +q $nick }
    elseif ($get.aop(# $+ _local_Host,%id) || $get.aop(Global_Host,%id)) { mode # +o $nick }
} }