// This file is part of UNItopia Mudlib.
// ----------------------------------------------------------------
// File:	/room/bsp/bsp_eingang.c
// Description:	Eingang zu den Beispielraeumen.
// Author:	
// Modified by:	
//
// $Log: bsp_eingang.c,v $
// Revision 1.7  2002/01/13 04:50:19  freaky
// query_long() umgestellt.
//
// Revision 1.6  2001/03/28 01:09:11  gnomi
// Die Parameter von shorttimestr nutzen, anstatt [0..7].
//
// Revision 1.5  2001/03/28 00:44:20  gnomi
// Kein tell_room/tell_object/say/write mehr verwenden.
//
// Revision 1.4  2001/02/04 22:37:59  freaky
// Room-Type Pantheon gesetzt.
//

// Nice try, aber bitte geh erst mal nach Norden, dort
// faengt der Kurs erst richtig an.
// (Merke: 'zmore hier' ist wichtig!)

inherit "/i/room";

#include <config.h>
#include <message.h>

string file_date() {
    return shorttimestr(file_time(object_name()+".c"),1,2);
}

void create()
{
   add_type("kunstlicht",1);
   add_type("teleport_rein_verboten", 1);
   set_own_light(1);
   set_long(
     wrap (
      "Du stehst in der Eingangshalle der unterschiedlichsten Kurse. "
      "Noch sinds erst zwei, aber das aendert sich sicher bald in ein "
      "paar Jahren.")+
     wrap (
      "Suedlich findest Du einen Einstiegskurs fuer Neugoetter "
      "ohne LPC Kenntnisse, noerdlich einen fuer etwas fortgeschrittenere "
      "Junggoetter.")+
     wrap (
      "In den Kursen kannst du alle Objekte (also Raeume, Monster, "
      "Gegenstaende, usw.) mit dem Zauberstabbefehl 'zmore <Obj>' "
      "begutachten.")+
     wrap (
      "Die Beispielraeume wurden am "+file_date()+
      " zum letzen Mal aktualisiert, "
      "falls dieses Datum deutlich vom heutigen abweicht, solltest Du "+
      liste(map(ADMINS - ({"sissi"}), #'capitalize), " oder ")+
      " mal auf den Fuessen rumtreten..."));
   set_short("Einfuehrungskurs - Eingangshalle");
   set_exits(({"bsp1", "/p/Doc/Lehre/Einstieg/room/startraum", "../rathaus/forum"}),
             ({"norden", "sueden", "forum"}));
   set_room_domain("Pantheon");
}

int filter_norden(object who)
{
   object ob;
   if(playerp(who) && !present("enzyclopedia",who))
   {
      ob = clone_object("/obj/enzyclopedia");
      ob->move(who);
      call_out("enzy_in_der_hand", 0);
   }
   return 0;
}

void enzy_in_der_hand()
{
   this_player()->send_message_to(this_player(), MT_NOTIFY|MT_LOOK, MA_MOVE,
      "\nPloetzlich hast Du eine Enzyklopedia "+MUD_NAME+" in der Hand.\n");
}