diff --git a/room/konstrukt.c b/room/konstrukt.c
new file mode 100644
index 0000000..5ce524c
--- /dev/null
+++ b/room/konstrukt.c
@@ -0,0 +1,108 @@
+#pragma strong_types,save_types,rtt_checks
+#pragma no_clone,no_inherit,no_shadow
+#pragma pedantic, range_check
+
+#include <rooms.h>
+#include <files.h>
+#include <properties.h>
+#include <config.h>
+
+inherit "/std/room";
+
+protected void add_testmud_gexits();
+
+protected void create() {
+  ::create();
+
+  SetProp(P_INT_LONG,
+    break_string(
+      "Du befindest Dich im \"Konstrukt\", einem weissen Nichts eines "
+      "jungfraeulichen Universums. Dieser Ort wartet darauf, dass Du ihn "
+      "mit Deiner Phantasie auffuellst. Von hier aus kann man wohl durch "
+      "blossen Willen andere Orte erreichen, die es in diesem jungen "
+      "Universum schon gibt.", 78));
+  SetProp(P_INT_SHORT, "Im Konstrukt");
+  SetProp(P_LIGHT, 1);
+
+  AddDetail(({"konstrukt","nichts"}),
+    break_string("Es ist weiss - und sonst Nichts.", 78));
+  AddDetail("universum",
+    break_string("Es liegt dir zu Fuessen.", 78));
+  AddDetail(({"fuss","fuesse"}),
+    break_string("Deine Fuesse.", 78));
+  AddDetail("phantasie",
+    break_string("Sie schlummert in dir. Es ist an dir, ihr Gestalt "
+                 "zu geben.", 78));
+
+  AddExit("bsp","/doc/beispiele/misc/bspraum1");
+  AddExit("ssp","/doc/beispiele/ssp/l1/m3x1");
+  AddExit("zauberwald","/doc/beispiele/zauberwald/room/eingang");
+  AddExit("gilde","/gilden/abenteurer");
+
+#if defined(__TESTMUD__) || MUDHOST!=__HOST_NAME__
+  ({"/doc/beispiele/misc/bspraum1",
+    "/doc/beispiele/ssp/l1/m3x1",
+    "/doc/beispiele/zauberwald/room/eingang"})->AddExit("konstrukt",
+                                                  load_name(this_object()));
+  call_out(#'add_testmud_gexits, 1);
+#endif
+}
+
+protected string get_vcomp_possibility(mapping gdirectory) {
+  foreach(string path, int tp: gdirectory) {
+    if(tp>20) {
+      string head = read_file(path);
+      if(head && strstr(head, "compile_object")>=0) {
+        return path;
+      }
+    }
+  }
+  return 0;
+}
+
+protected void get_dirs_and_files(mapping gdirs, mapping gfiles) {
+  mapping gdirectory =
+    mkmapping(get_dir("/gilden/", GETDIR_PATH|GETDIR_UNSORTED),
+              get_dir("/gilden/", GETDIR_SIZES));
+  m_delete(gdirectory, "/gilden/access_rights.c");
+
+  gdirs = filter(gdirectory, function int(string path, int tp) {
+                               if(tp == FSIZE_DIR)
+                                 return 1;
+                               return 0;
+                             });
+  gfiles = filter(gdirectory, function int(string path, int tp) {
+                                if(tp > 0)
+                                  return 1;
+                                return 0;
+                              });
+}
+
+protected void try_add_gexit(string realpath, string *added_exists) {
+  object ob;
+  if(member(added_exists, realpath)<0 &&
+     !catch(ob=load_object(realpath); nolog) && ob &&
+     member(inherit_list(ob), "/std/gilden_room.c")>=0) {
+    AddExit(explode(realpath, "/")[<1][0..<3], realpath);
+    ob->AddExit("konstrukt", load_name(this_object()));
+  }
+}
+
+protected void add_testmud_gexits() {
+  mapping gdirs, gfiles;
+  get_dirs_and_files(&gdirs, &gfiles);
+
+  string vcomp = get_vcomp_possibility(gfiles);
+  m_delete(gfiles, vcomp);
+
+  string *added_exists = allocate(0);
+  foreach(string path, int tp: gfiles)
+    try_add_gexit(path, &added_exists);
+
+  if(vcomp)
+    foreach(string path, int tp: gdirs)
+      if(strstr(path, "files.")>0) {
+        string realpath = implode(explode(path, "files."), "")+".c";
+        try_add_gexit(realpath, &added_exists);
+      }
+}