blob: f6ce13b3216e929105ccbc2c8cf28fcababb2f86 [file] [log] [blame]
MG Mud User88f12472016-06-24 23:31:02 +02001// MorgenGrauen MUDlib
2//
3// envchk.c -- verhindern, dass objekte ohne env herumfliegen
4//
5// $Id: thing.c 6283 2007-05-09 21:30:33Z Zesstra $
6
7#pragma strict_types
8#pragma save_types
9#pragma range_check
10#pragma no_clone
11#pragma pedantic
12
13#include <moving.h>
14#define NEED_PROTOTYPES
15#include <thing/moving.h>
16
17protected void check_for_environment(string cloner)
18{
19 // Clones, die innerhalb von 10 Sekunden kein Environment haben,
20 // sollen auf -debug scrollen.
21 if ( clonep() && !environment() ) {
22 // mal in den Muellraum bewegen, damit diese Objekte zwar nicht zerstoert
23 // werden, aber zumindest hinterher noch einfach auffindbar sind. (Und
24 // entweder per hand oder automatisch aufgeraeumt werden koennen.)
25 move("/room/muellraum",M_NOCHECK|M_SILENT);
26 if ( !stringp(cloner) || !sizeof(cloner) )
27 cloner = "<Unbekannt>";
28 raise_error("Objekt hat kein Environment. Cloner: ["+cloner+"] ");
29 }
30}
31
32void create()
33{
34 if( clonep() )
35 call_out(#'check_for_environment, 3, object_name(previous_object()));
36}