Zesstra | b0b953f | 2018-08-30 23:55:28 +0200 | [diff] [blame] | 1 | #pragma strong_types,rtt_checks |
| 2 | |
| 3 | inherit "/std/container"; |
| 4 | #include <moving.h> |
| 5 | |
Zesstra | bc517a4 | 2018-12-02 20:26:38 +0100 | [diff] [blame^] | 6 | object cloner; |
| 7 | |
Zesstra | b0b953f | 2018-08-30 23:55:28 +0200 | [diff] [blame] | 8 | protected void create() |
| 9 | { |
Zesstra | bc517a4 | 2018-12-02 20:26:38 +0100 | [diff] [blame^] | 10 | cloner=previous_object(); |
Zesstra | b0b953f | 2018-08-30 23:55:28 +0200 | [diff] [blame] | 11 | ::create(); |
| 12 | // Das Objekt raeumt sich selber im reset auf. (D.h. kein Env-Check) |
| 13 | SetAutoObject(1); |
| 14 | } |
| 15 | |
| 16 | // Dieses Objekt raeumt sich immer im ersten reset auf - es ist kurzlebig und |
| 17 | // transient und Aenderungen an seinen Daten bleiben nicht erhalten. |
| 18 | void reset() |
| 19 | { |
| 20 | remove(1); |
| 21 | } |
| 22 | |
| 23 | public varargs void init(object origin) |
| 24 | { |
| 25 | // leer ueberschreiben. Das klingt abstrus, hat aber folgenden Hintergrund: |
| 26 | // dieses Objekt ist nicht dazu gedacht, in irgendeine Umgebung zu gelangen. |
| 27 | // Und selbst wenn das jemand mit M_NOCHECK tut, soll die Interaktion dieses |
| 28 | // Objekts mit anderen minimiert werden. Also keine Anmeldung von actions |
| 29 | // etc. |
| 30 | } |
| 31 | |
| 32 | // Auch dies ist ungewoehnlich: Bewegung nie erlauben, daher eruebrigt sich |
| 33 | // der Aufruf des geerbten PreventMove(). Auch wird M_NOCHECK nicht |
| 34 | // beruecksichtigt... Don't do this anywhere else. |
| 35 | protected int PreventMove(object dest, object oldenv, int method) |
| 36 | { |
| 37 | return ME_NOT_ALLOWED; |
| 38 | } |
| 39 | |
Zesstra | bc517a4 | 2018-12-02 20:26:38 +0100 | [diff] [blame^] | 40 | public object *AllVirtualEnvironments() |
| 41 | { |
| 42 | if (cloner) |
| 43 | { |
| 44 | object *cloner_envs = all_environment(cloner) |
| 45 | || cloner->AllVirtualEnvironments(); |
| 46 | if (cloner_envs) |
| 47 | return ({cloner}) + cloner_envs; |
| 48 | return ({cloner}); |
| 49 | } |
| 50 | return 0; |
| 51 | } |