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 }
  } }
  echo -ta * %o Owners  and %h Hosts, New entrys 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.data(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.data(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 }
  } }
  echo 7 -t $1 * Total of %b Banlisted users found.
}

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

;Grabs Gen Data
alias get.data return $readini(data\settings.ini,$1,$2)
alias add.data writeini data\settings.ini $1-
alias rem.data remini -n data\settings.ini $1-
alias add.user writeini data\settings.ini $2 $uid($1) $1 - Reason $3-
alias rem.user remini -n data\settings.ini $2 $uid($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 $nick $+ , email anahera@null.net to get this removed. | return }
  elseif ($get.data(Global_Banlist,%id)) { user.ban # $nick 0 Banlisted $gettok($get.data(Global_Banlist,%id), 2-, 32) | return }
  elseif ($get.data(local_ $+ # $+ _banlist,%id)) && ($get.data(#,banlist) != halt) { user.ban # $nick 0 Banlisted $gettok($get.data(local_ $+ # $+ _banlist,%id), 2-, 32) | return }


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