diff --git a/std/channel_supervisor.c b/std/channel_supervisor.c
new file mode 100644
index 0000000..bb57717
--- /dev/null
+++ b/std/channel_supervisor.c
@@ -0,0 +1,125 @@
+// /std/channel_supervisor.c
+//
+// Der Standard-Supervisor fuer Ebenen. Wird genutzt vom channeld fuer die
+// Ebenen, die der verwaltet.
+
+#pragma strict_types,save_types, rtt_checks
+#pragma no_shadow, no_clone
+
+#include <wizlevels.h>
+#include "/p/daemon/channel.h"
+#include <living/description.h>
+
+// Indizes fuer Zugriffe auf das Mapping <admin>.
+#define RECV    0
+#define SEND    1
+#define FLAG    2
+
+// Ebenenflags, gespeichert in admin[ch, FLAG]
+// F_WIZARD kennzeichnet reine Magierebenen
+#define F_WIZARD 1
+// Ebenen, auf denen keine Gaeste erlaubt sind, sind mit F_NOGUEST markiert.
+#define F_NOGUEST 2
+
+/* Speichert Sende- und Empfangslevel sowie Flags zu den einzelnen Channeln.
+ * Diese werden aber nur ausgewertet, wenn der Channeld die Rechtepruefung
+ * fuer die jeweilige Ebene macht, d.h. in der Praxis bei Ebenen, bei denen
+ * der CHANNELD der Supervisor ist.
+ * Deswegen sind diese Daten auch nicht in der struct (<channel_s>) drin.
+ * Wird beim Laden des Masters via create() -> initalize() -> setup() mit den
+ * Daten aus dem Init-File ./channeld.init befuellt.
+   mapping admin = ([ string channel_name : int RECV_LVL,
+                                            int SEND_LVL,
+                                            int FLAG ]) */
+private mapping admin = m_allocate(0, 3);
+
+// check_ch_access() prueft die Zugriffsberechtigungen auf Ebenen.
+//
+// Gibt 1 zurueck, wenn Aktion erlaubt, 0 sonst.
+// Wird von access() gerufen; access() gibt das Ergebnis von
+// check_ch_access() zurueck.
+//
+// Verlassen (C_LEAVE) ist immer erlaubt. Die anderen Aktionen sind in zwei
+// Gruppen eingeteilt:
+// 1) RECV. Die Aktionen dieser Gruppe sind Suchen (C_FIND), Auflisten
+//          (C_LIST) und Betreten (C_JOIN).
+// 2) SEND. Die Aktion dieser Gruppe ist zur Zeit nur Senden (C_SEND).
+//
+// Aktionen werden zugelassen, wenn Spieler/MagierLevel groesser ist als die
+// fuer die jeweilige Aktionsgruppe RECV oder SEND festgelegte Stufe.
+// Handelt es sich um eine Magierebene (F_WIZARD), muss die Magierstufe
+// des Spielers groesser sein als die Mindeststufe der Ebene. Ansonsten
+// wird gegen den Spielerlevel geprueft.
+//
+// Wenn RECV_LVL oder SEND_LVL auf -1 gesetzt ist, sind die Aktionen der
+// jeweiligen Gruppen komplett geblockt.
+
+public int check_ch_access(string ch, object pl, string cmd)
+{
+  // <pl> ist Gast, es sind aber keine Gaeste zugelassen? Koennen wir
+  // direkt ablehnen.
+  if ((admin[ch, FLAG] & F_NOGUEST) && ({int})pl->QueryGuest())
+    return 0;
+
+  // Ebenso auf Magier- oder Seherebenen, wenn ein Spieler anfragt, der
+  // noch kein Seher ist.
+  if ((admin[ch, FLAG] & F_WIZARD) && query_wiz_level(pl) < SEER_LVL)
+    return 0;
+
+  // Ebene ist Magierebene? Dann werden alle Stufenlimits gegen Magierlevel
+  // geprueft, ansonsten gegen Spielerlevel.
+  int level = (admin[ch, FLAG] & F_WIZARD
+                  ? query_wiz_level(pl)
+                  : ({int})pl->QueryProp(P_LEVEL));
+
+  switch (cmd)
+  {
+    case C_FIND:
+    case C_LIST:
+    case C_JOIN:
+      if (admin[ch, RECV] == -1)
+        return 0;
+      if (admin[ch, RECV] <= level)
+        return 1;
+      break;
+
+    case C_SEND:
+      if (admin[ch, SEND] == -1)
+        return 0;
+      if (admin[ch, SEND] <= level)
+        return 1;
+      break;
+
+    // Verlassen ist immer erlaubt
+    case C_LEAVE:
+      return 1;
+
+    default:
+      break;
+  }
+  return 0;
+}
+
+// ggf. zum ueberschreiben
+protected int ch_caller_allowed(object caller)
+{
+  if (caller == find_object(CHMASTER))
+    return 1;
+  return 0;
+}
+
+// stores the read and write levels and flags for a channel for
+// usage in check_ch_access(). By default it is called by channeld::setup()
+// during setup of a default channel in the supervisor configured for the
+// channel.
+// recv and send are minimum levels, flag is a combination of the F_* above.
+visible void ch_supervisor_setup(string chname, int recv, int send, int flag)
+{
+  if (!extern_call() || ch_caller_allowed(previous_object()))
+  {
+    admin[chname, FLAG] = flag;
+    admin[chname, SEND] = send;
+    admin[chname, RECV] = recv;
+  }
+}
+