| MG Mud User | 88f1247 | 2016-06-24 23:31:02 +0200 | [diff] [blame^] | 1 | // 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 | |
| 17 | protected 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 | |
| 32 | void create() |
| 33 | { |
| 34 | if( clonep() ) |
| 35 | call_out(#'check_for_environment, 3, object_name(previous_object())); |
| 36 | } |