blob: fe79fa4cc4a66731905489cb723d5072ddc9af0a [file] [log] [blame]
/*
* 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;
}
}