@@ -1,2 +1,3 @@
 #define EUNAME "username is already taken"
-#define EUFULL "users table is full"+#define EUFULL "users table is full"
+#define ENOUNI "universe is null"

@@ -114,7 +114,7 @@
   scat(file, "/realm");
   f = fopen(file, "w");
   if (f != nil) {
-    fprintf(f, "%hu %s, %llu", self->max, self->master, self->password);
+    fprintf(f, "%hu %s %llu", self->max, self->master, self->password);
     fclose(f);
     save_universe(cart, self->universe, self->name);
     fprintf(stderr, "saved realm data");

@@ -76,11 +76,18 @@
 void set_atom(Universe* self, Atom* atom) {
   uvlong i = hash(atom->name, 256);
   Atom* a = self->atoms[i];
+  Atom* last;
+
+  if (a == nil) {
+    self->atoms[i] = atom;
+    return;
+  }
+
   while (a != nil) {
+    last = a;
     a = a->next;
   }
-  a = atom;
-  atom->next = nil;
+  last->next = atom;
 }
 
 Atom* get_atom(Universe* self, char* name) {

@@ -121,7 +121,7 @@ } else {
     r = parse_realm(u->cart->name, realm_name);
     if (r == nil)
       return 0;
-    if (j <= r->max)
+    if (j >= r->max)
       return 0;
     u->realm = r;
     return 1;

@@ -124,6 +124,7 @@ for (i = 0; i < 15 && i < r->ifcall.count && *c != ' ' && *c != '\n'; i++) {
     ccat(key, *c++);
   }
   c++;
+  c++;
   for (i = 0; i < 63 && i < r->ifcall.count && *c != ' ' && *c != '\n'; i++) {
     ccat(value, *c++);
   }
@@ -145,6 +146,27 @@ r->fid->file->dir.length = r->ifcall.count;
   respond(r, nil);
 }
 
+void write_scope(Req* r) {
+  String* scope = s_new();
+  char* c = r->ifcall.data;
+  UserInfo* u = find_user(users_table, r->fid->uid);
+  int i;
+
+  for (i = 0; i < r->ifcall.count; i++) {
+    s_putc(scope, *c++);
+  }
+  s_terminate(scope);
+
+  if (u != nil && u->realm != nil && u->realm->universe != nil) {
+    u->scope = malloc(r->ifcall.count);
+    memcpy(u->scope, scope->base, r->ifcall.count);
+  }
+  s_free(scope);
+  r->ofcall.count = r->ifcall.count;
+  r->fid->file->dir.length = r->ifcall.count;
+  respond(r, nil);
+}
+
 void xrxs_write(Req* r) {
   Aux* a = r->fid->file->aux;
   switch (a->type) {
@@ -155,7 +177,7 @@ case UNIVERSE:
       write_universe(r);
       break;
     case SCOPE:
-      // write_scope(r);
+      write_scope(r);
     default:
       respond(r, nil);
       break;
@@ -345,6 +367,11 @@ return;
   }
 
   universe = u->realm->universe;
+  if (universe == nil) {
+    respond(r, ENOUNI);
+    return;
+  }
+
   for (i = 0; i < 256; i++) {
     a = universe->atoms[i];
     while (a != nil) {
@@ -361,6 +388,95 @@ respond(r, nil);
   s_free(data);
 }
 
+void read_scope(Req* r) {
+  char* uname = r->fid->uid;
+  UserInfo* u = find_user(users_table, uname);
+  String* data = s_new();
+  Universe* universe;
+  Atom* a;
+  char key[16] = {0};
+  char* c = u->scope;
+
+  if (u == nil || u->scope == nil || u->realm == nil) {
+    respond(r, nil);
+    return;
+  }
+
+  universe = u->realm->universe;
+  if (universe == nil) {
+    respond(r, ENOUNI);
+    return;
+  }
+
+  while (*c) {
+    while (*c != '\n') {
+      ccat(key, *c++);
+    }
+    a = get_atom(universe, key);
+    if (a != nil) {
+      s_append(data, a->value);
+      s_putc(data, '\n');
+    }
+    *key = '\0';
+    c++;
+  }
+
+  s_terminate(data);
+  readstr(r, data->base);
+  respond(r, nil);
+  s_free(data);
+}
+
+void read_random(Req* r) {
+  char buf[8] = {0};
+  srand(rand());
+  sprintf(buf, "%d\n", rand() % 100);
+  readstr(r, buf);
+}
+
+void read_grandom(Req* r) {
+  char buf[8] = {0};
+  int i;
+  int reset = 0;
+  int random;
+  UserInfo* u = find_user(users_table, r->fid->uid);
+  UserInfo** usrs = malloc(64 * sizeof(UserInfo*));
+  UserInfo* p = users_table;
+  UserInfo** uu = usrs;
+
+  if (u->realm == nil)
+    return;
+
+  for (i = 0; i < 64; i++) {
+    if (scmp(p->realm->name, u->realm->name)) {
+      *uu++ = p;
+      if (i < 64)
+        *uu = nil;
+    }
+  }
+  uu = usrs;
+  for (i = 0; i < 64; i++) {
+    if ((*uu) != nil && (*uu)->random >= 0) {
+      reset = 1;
+      break;
+    }
+  }
+  if (reset) {
+    srand(rand());
+    random = rand() % 100;
+    uu = usrs;
+    for (i = 0; i < 64; i++) {
+      if ((*uu) != nil) {
+        (*uu)->random = random;
+      }
+      uu++;
+    }
+  }
+  sprintf(buf, "%d\n", u->random);
+  u->random = -1;
+  readstr(r, buf);
+}
+
 void xrxs_read(Req* r) {
   Aux* a = r->fid->file->aux;
   switch (a->type) {
@@ -385,13 +501,13 @@ case UNIVERSE:
       read_universe(r);
       break;
     case SCOPE:
-      // read_scope(r);
+      read_scope(r);
       break;
     case RANDOM:
-      // read_random(r);
+      read_random(r);
       break;
     case GRANDOM:
-      // read_grandom(r);
+      read_grandom(r);
       break;
     default:
       respond(r, nil);