blob: fe79fa4cc4a66731905489cb723d5072ddc9af0a [file] [log] [blame]
MG Mud User88f12472016-06-24 23:31:02 +02001/*
2 * kommentar.c -- DIE Ergaenzung zum Bausparvertrag
3 *
4 * (c) 1994 Beldin@MorgenGrauen
5 *
6 * $Date: 1994/10/13 14:14:06 $
7 * $Revision: 1.2 $
8 * $Log: kommentar.c,v $
9 * Revision 1.2 1994/10/13 14:14:06 Wargon
10 * Ins Seherverzeichnis verlegt, angepasst und "reindented".
11 *
12 * Revision 1.1 1994/10/13 14:10:02 Wargon
13 * Initial revision
14 *
15 */
16
17inherit "std/thing";
18
19#include <properties.h>
20#include <language.h>
21#include "haus.h"
22
23create()
24{
25 ::create();
26 SetProp(P_GENDER,MALE);
27 SetProp(P_SHORT,"Ein Kommentar");
28 SetProp(P_WEIGHT, 500);
29 SetProp(P_VALUE, 0);
30 SetProp(P_NAME,"Kommentar");
31 SetProp(P_LONG,
32 "\nDies ist ein Kommentar. Er besteht aus 100%-recyclefaehigem Altpapier, und\n"
33 +"ist chlorfrei gebleicht. Das Papier scheint duenn zu sein.\n"
34 +"Vielleicht solltest Du ihn schnell lesen!\n\n"
35 );
36
37 AddId( ({"kommentar", "kommentierung"}));
38 AddCmd("lies","lesen");
39}
40
41rem()
42{
43 call_out("remove", 2);
44 tell_object(environment(), "\n\nDer Kommentar loest sich in Wohlgefallen auf.\n\n");
45 return 1;
46}
47
48lesen(str)
49{
50 string komment;
51 komment=PATH+"txt/kommentar.txt";
52 if (!str) return 0;
53 if (id(str)) {
54 this_player()->More(komment,1,#'rem);
55 return 1;
56 }
57 else {
58 notify_fail("Was willst Du lesen???\n");
59 return 0;
60 }
61}
62