blob: ecf6f7444eeca5217ac1913007b1ec0fcd26cc02 [file] [log] [blame]
MG Mud User88f12472016-06-24 23:31:02 +02001//--------------------------------------------------------------------------------
2// Name des Objects: Zauberkiste
3// Letzte Aenderung: 10.05.2002
4// Magier: Vanion
5// Was: Die ID fuer die Kompos der Zauberer umgestellt.
6//--------------------------------------------------------------------------------
7#pragma strong_types,rtt_checks
8
9#include "schrankladen.h"
10
11// Fuer die IDs
12#include "/p/zauberer/zauberer.h"
13
14inherit LADEN("swift_std_container");
15
16#define VERSION_OBJ "3"
17
18protected void create()
19{
20 if (!clonep(TO)) return;
21 swift_std_container::create();
22 SetProp(P_SHORT, "Eine Zauberkiste");
23 SetProp(P_LONG, BS(
24 "Eine kleine Kiste aus Birnbaumholz. Da diesem seltenen Holz selbst "
25 +"magische Faehigkeiten nachgesagt werden, ist es wohl das ideale Material, "
26 +"um die teilweise gefaehrlichen Komponenten eines Zauberers darin "
27 +"unterzubringen.")+"@@cnt_status@@");
28 AddId(({"zauberkiste", "kiste"}));
29 SetProp("cnt_version_obj", VERSION_OBJ);
30 SetProp(P_NAME, "Zauberkiste");
31 SetProp(P_GENDER, FEMALE);
32 SetProp(P_WEIGHT, 5000); // Gewicht 5 Kg
33 SetProp(P_MAX_WEIGHT, 1000000); // Es passen fuer 1000 kg Sachen rein.
34 SetProp(P_WEIGHT_PERCENT, 100); // Dafuer macht er auch nix leichter :)
35 SetProp(P_MAX_OBJECTS, 100); // Mehr sollte nicht sein, lt. Tiamak.
36 SetProp(P_VALUE, 0); // Kein materieller Wert. Ist eh nicht verkaufbar.
37 SetProp(P_NOBUY, 1); // Wird im Laden zerstoert, falls er verkauft wird.
38 SetProp(P_NOGET, "Das geht nicht. "+Name(WER,1)+" haftet wie magisch am Boden.\n");
39 SetProp(P_MATERIAL, ({MAT_PEAR_WOOD, MAT_MISC_MAGIC}) );
40 SetProp(P_INFO, "Versuchs mal mit: \"skommandos "+QueryProp(P_IDS)[1]+"\" !\n");
41
42 AD(({"holz", "birnbaumholz"}), BS("Fast koenntest Du meinen, dass "+name(WER,1)
43 +" lebt!"));
44}
45
46varargs int PreventInsert(object ob)
47{
48 // Keine Zauberkompo? Hat in diesem Container nix verloren!
49 if( !ob->id(Z_ID_ZUTAT) )
50 {
51 write( BS("In "+name(WEN,1)+" kannst Du nur Zauberer-Komponenten legen!"));
52 return 1;
53 }
54 else
55 return ::PreventInsert(ob);
56}