on *:JOIN:%home:{
  if ($readini(operators/users.ini,Ops,$address($nick,2)) {
    mode %home +o $nick
    halt
  }
  if ($readini(operators/users.ini,Masters,$address($nick,2)) {
    mode %home +o $nick
    halt
  }
  if ($readini(operators/users.ini,Owner,$address($nick,2)) {
    msg $chan WELLCOME NOIOGA G
    mode %home +o $nick
    halt
  }
  if ($readini(operators/users.ini,Coowners,$address($nick,2)) {
    mode %home +o $nick
    halt
  }
  if ($readini(operators/users.ini,Peons,$address($nick,2)) {
    mode %home +v $nick
    halt
  }
}

on *:TEXT:.adduser*:%home:{
  if ($nick isop $chan) {
    if ($readini(operators/users.ini,Owner,$nick)) || ($readini(operators/users.ini,Masters,$nick)) || ($readini(operators/users.ini,Masters,$nick)) || ($readini(operators/users.ini,Coowners,$nick)) {
      if (!$2) {
        notice $nick Invalid Syntax: .adduser NAMEHERE
        halt
      }
      if ($2 !ison $chan) {
        notice $nick Error: $2 is not in $chan $+ .
        halt
      }
      if ($readini(operators/users.ini,Ops,$2)) {
        notice $nick Error: $2 is already on the userlist.
        halt
      }
      else {
        writeini operators/users.ini Ops $address($2,2) $address($nick,2) $2 - $3
        notice $nick Success: $2 has been added to the userlist.
        mode $chan +o $2
      }
    }
    else {
      msg $chan %access
      halt
    }
  }
}

on *:TEXT:.deluser*:%home:{
  if ($nick isop $chan) {
    if ($readini(operators/users.ini,Owner,$nick)) || ($readini(operators/users.ini,Masters,$nick)) || ($readini(operators/users.ini,Masters,$nick)) || ($readini(operators/users.ini,Coowners,$nick)) {
      if (!$2) {
        notice $nick Invalid Syntax: .deluser NAMEHERE
        halt
      }
      if (!$readini(operators/users.ini,Ops,$2)) {
        notice $nick Error: $2 is not on the userlist.
        halt
      }
      else {
        remini operators/users.ini Ops $address($2,2) $2-
        notice $nick Success: $2 has been deleted from the userlist
        mode $chan -o $2
      }
    }
    else {
      msg %home %access
      halt
    }
  }
}

on *:TEXT:.access*:%home:{
  if ($nick isop $chan) || ($nick isvoice $chan) {
    if ($readini(operators/users.ini,Peons,$address($nick,2)) {
      msg $chan %skin1 Access %skin2 $v1 %skin3
    }
    if ($readini(operators/users.ini,Ops,$address($nick,2))) {
      msg $chan %skin1 Access %skin2 $v1 %skin3
    }
    if ($readini(operators/users.ini,Masters,$address($nick,2))) {
      msg $chan %skin1 Access %skin2 $v1 %skin3
    }
    if ($readini(operators/users.ini,Coowners,$address($nick,2))) {
      msg $chan %skin1 Access %skin2 $v1 %skin3
    }
    if ($readini(operators/users.ini,Owner,$address($nick,2))) {
      msg $chan %skin1 Access %skin2 $v1 %skin3
    }
  }      
}