d/seher/haeuser/kommentar.c

/*
 * kommentar.c -- DIE Ergaenzung zum Bausparvertrag
 *
 * (c) 1994 Beldin@MorgenGrauen
 *
 * $Date: 1994/10/13 14:14:06 $
 * $Revision: 1.2 $
 * $Log: kommentar.c,v $
 * Revision 1.2  1994/10/13  14:14:06  Wargon
 * Ins Seherverzeichnis verlegt, angepasst und "reindented".
 *
 * Revision 1.1  1994/10/13  14:10:02  Wargon
 * Initial revision
 *
 */

inherit "std/thing";

#include <properties.h>
#include <language.h>
#include "haus.h"

create()
{
  ::create();
  SetProp(P_GENDER,MALE);
  SetProp(P_SHORT,"Ein Kommentar");
  SetProp(P_WEIGHT, 500);
  SetProp(P_VALUE, 0);
  SetProp(P_NAME,"Kommentar");
  SetProp(P_LONG,
     "\nDies ist ein Kommentar. Er besteht aus 100%-recyclefaehigem Altpapier, und\n"
    +"ist chlorfrei gebleicht. Das Papier scheint duenn zu sein.\n"
    +"Vielleicht solltest Du ihn schnell lesen!\n\n"
     );

  AddId( ({"kommentar", "kommentierung"}));
  AddCmd("lies","lesen");
}

rem()
{
  call_out("remove", 2);
  tell_object(environment(), "\n\nDer Kommentar loest sich in Wohlgefallen auf.\n\n");
  return 1;
}

lesen(str)
{
  string komment;
  komment=PATH+"txt/kommentar.txt";
  if (!str) return 0;
  if (id(str)) {
    this_player()->More(komment,1,#'rem);
    return 1;
    }
  else {
    notify_fail("Was willst Du lesen???\n");
    return 0;
  }
}