| MG Mud User | 88f1247 | 2016-06-24 23:31:02 +0200 | [diff] [blame^] | 1 | //-------------------------------------------------------------------------------- |
| 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 | |
| 14 | inherit LADEN("swift_std_container"); |
| 15 | |
| 16 | #define VERSION_OBJ "3" |
| 17 | |
| 18 | protected 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 | |
| 46 | varargs 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 | } |