;;;;intersys;;;;;
on *:text:!user*:*:{
  if ($2 == add) {
    if ($3 ison %Achan) && ($regex($4,/Admin|Owner/i)) && (!$readini(Users.ini,$5,user)) && ($qauth($3)) {
      writeini -n Users.ini $5 Nick $3
      writeini -n Users.ini $5 Level $4
      writeini -n Users.ini $5 User $5
      writeini -n Users.ini $5 Pass $6
      writeini -n Users.ini $5 QAcc $qauth($3)
      writeini -n Users.ini $5 Logged OFF
      msg $nick User added successfully! with the details: User: $5 $+ , Password: $6 $+ , $+ Level: $4 $+ , QAccount: $qauth($3) $+ .
    }
    if ($3 !ison %Achan) { msg $nick $3 Must to be on the Channel: %AChan }
    elseif (!$regex($4,/Admin|Owner/i)) { msg $nick You must write the level of the user be (Admin/Owner). }
    elseif ($readini(Users.ini,$5,user)) { msg $nick The user $5 is already on the user list. }
    elseif (!$qauth($nick)) { msg $nick The user $5 must to set //mode $me +x. }
    elseif (6 > $len($6)) { msg $nick The user password must to be more then 6 letters. }
  }
  if (rem* iswm $2) || (del* iswm $2) {
    if ($readini(Users.ini,$3,user)) {
      remini Users.ini $3
      msg $nick The user $3 is successfuly delete from the user list
    }
    else { msg $nick No Such User $3 }
  }
  if ($2 == login) {
    if ($readini(users.ini,$3,pass) == $4) {
      writeini -n Users.ini $3 Logged ON
      msg $nick You are logged in successfuly! to user $3 $+ .
    }
    elseif ($usrinf(3).logged == on) msg $nick You are already logged in!
    else {
      msg nick The user or the password are worng.
    }
  }

}
alias usrinf {
  if ($prop == logged) { return $readini(users.ini,$1,logged) }
  elseif ($prop == lvl) { return $readini(users.ini,$1,level) }
  elseif ($prop == nick) { return $readini(users.ini,$1,nick) }
  elseif ($prop == qacc) { return $readini(users.ini,$1,qacc) }
  elseif ($prop == user) { return $readini(users.ini,$1,user) }
}

alias qauth {
  if (!$isid) || (*.??.quakenet.org !iswm $server) !return
  if ($ial($1).host) if ($regex($ial($1).host,(.+?)\.users\.quakenet\.org)) !return $regml(1)
  if ($ial($1).mark) !return $v1
  !set %getQauth [ $+ [ $1 ] ] -
  !.who $1 n%nat,101
  !var %i = 10
  while (%i) && (%getQauth [ $+ [ $1 ] ] == -) {
    sleep 10
    !dec %i
  }
  !var %return = $iif(%getQauth [ $+ [ $1 ] ] == -,$null,$v1)
  !unset %getQauth [ $+ [ $1 ] ]
  if (%return) !.ialmark $1 $v1
  !return %return
}