User list manger

;___________________________
;(---- Userlist Manger ----)
;___________________________
;By MakiMaki
;Edit User Levels or remove from User list

;Menus
menu Channel {
  Userlist Manger: getulist
}
menu @Userlist {
  Change Level: ul.change $$?="Enter new level for user:"
  Remove User : ul.remove
  Reload List : getulist
}

;User Lister
alias getulist {
  var %w @Userlist
  $iif(!$window(%w),window -blk -t22 +benstx %w,/window -a %w)
  clear %w | aline %w 7Level $chr(1) Gate $chr(9) Nick
  aline %w 7Script Owners:
  var %f 1
  while ($ulist(*,Owner,%f)) {
    aline %w 10Owner $v1 $ulist(*, Owner,%f).info
    inc %f
  }
  aline %w 7Script Hosts:
  var %f 1
  while ($ulist(*,Host,%f)) {
    aline %w 12Host $v1 $ulist(*, Host,%f).info
    inc %f
  }
  aline %w 7Global Banlist:
  var %f 1
  while ($ulist(*,Banlist,%f)) {
    aline %w 4Banlist $v1 $ulist(*, Banlist,%f).info
    inc %f
  }
}

;Change/Remove User LVL
alias Ul.change {
  var %s 1
  while ($sline(@Userlist,%s).ln) {
    .auser $1 $gettok($line(@Userlist,$v1),2-,32)
    inc %s
  }
  getulist
}

alias Ul.remove {
  var %s 1
  while ($sline(@Userlist,%s).ln) {
    .ruser $gettok($line(@Userlist,$v1),1,32) $gettok($line(@Userlist,$v1),2,32)
    inc %s
  }
  getulist
}