on *:TEXT:@adduser*:#:{ 
 if ($3 >= 500) { notice $nick You cannot give users access greater than or equal to your own. | halt }
  if ($level($address($2,2)) > 1) { notice $nick $2 is already on the user list (with $level($address($2,2)) access). | halt }
  if ($3 >= $ulevel) { notice $nick You cannot give users access greater than or equal to your own. | halt }
  if ($2 == $nick) { notice $nick You cannot change your own access. | halt }
  if ($2 == $null) { notice $nick $1 requires more parameters. | halt }
  if ($3 == $null) { notice $nick $1 requires more parameters. | halt }
  if ($3 == 0) { notice $nick 0 is an invalid access level. | halt }
   guser $3 $2 2 | notice $nick Added $2 to the user list with $3 access. }

on *:TEXT:@clvl*:#:{ 
 if ($3 >= 500) { notice $nick You cannot give users access greater than or equal to your own. | halt }
  if ($3 >= $ulevel) { notice $nick You cannot give users access greater than or equal to your own. | halt }
  if ($2 == $nick) { notice $nick You cannot change your own access. | halt }
  if ($2 == $null) { notice $nick $1 requires more parameters. | halt }
  if ($3 == $null) { notice $nick $1 requires more parameters. | halt }
  if ($3 == 0) { notice $nick 0 is an invalid access level. | halt }
   guser $3 $2 2 | notice $nick $2 now has $3 access. }
    
on *:TEXT:@deluser*:#:{
   if ($2 == $null) { notice $nick $1 requires more parameters. | halt }
   if ($2 == $nick) { notice $nick You cannot remove your own access. | halt }
   if ($level($address($2,2)) >= $ulevel) { notice $nick You cannot delete users with access greater than or equal to your own. | halt }
     ruser $2 2 | notice $nick Deleted $2 from the user list. }

on *:TEXT:@delme*:#:{
  if ($ulevel == 1) { notice $nick You are not on the user list. | halt }
    ruser $nick 2 | notice $nick You have deleted yourself from the user list. }

on 2:TEXT:@resync*:#:{ saveini | notice $nick Synchronized users with the user list. }

 
on *:TEXT:@users:#:{
 notice $nick Access Account
 var %i = 1
 while ($readini(remote.ini,users,$ini(remote.ini,users,%i))) {
 var %a = $gettok($readini(remote.ini,users,$ini(remote.ini,users,%i)),1,$asc(:))
 var %b = $gettok($readini(remote.ini,users,$ini(remote.ini,users,%i)),2-,$asc(:))
 notice $nick %a - %b $iif($ial(%b).nick != $null,$ial(%b).nick)
 inc %i
 }
}
on *:TEXT:@a*:#:{
 if ($1 == @a) || ($1 == @access) {
 if ($2 == $null) {
  notice $nick $nick ( $+ $address($nick,2) $+ ) $iif($ulevel == 1,lacks,has $ulevel) access.
  halt
 }
 if (* !isin $2) {
 if ($ial($2) == $null) {
  notice $nick User with nick $2 does not exist.
 }
 else notice $nick $2 ( $+ $address($2,2) $+ ) $iif($level($address($2,2)) == 1,lacks, has $v1) access.
 }
 if (* isin $2) {
 notice $nick $2 $iif($ial($2).nick,$chr(40) $+ $v1 $+ $chr(41)) $iif($level($2) == 1,lacks,has $v1) access.
}
}