diff --git a/d/seher/haeuser/tools/haus.apx b/d/seher/haeuser/tools/haus.apx
new file mode 100644
index 0000000..74e2877
--- /dev/null
+++ b/d/seher/haeuser/tools/haus.apx
@@ -0,0 +1,25 @@
+
+  AddCmd( ({ "betritt", "betrete" }), "betritt");
+}
+
+string long()
+{
+  string door;
+
+  door = haustuer::long();
+
+  return QueryProp(P_LONG)+door;
+}
+
+static int betritt(string str)
+{
+  notify_fail("Was moechtest Du betreten?\n");
+
+  if (!str || !id(str))
+    return 0;
+
+  if (Query(H_DOORSTAT) & D_CLOSED) {
+    printf("%s von %s ist zu.\n", capitalize(name(WER,1)), capitalize(owner));
+    return 1;
+  }
+