Added public files
Roughly added all public files. Probably missed some, though.
diff --git a/std/player/shadows/morph_shadow.c b/std/player/shadows/morph_shadow.c
new file mode 100644
index 0000000..afc97c4
--- /dev/null
+++ b/std/player/shadows/morph_shadow.c
@@ -0,0 +1,598 @@
+/* -*- lpc -*- */
+//--------------------------------------------------------------------------
+//
+// morph.c
+//
+// (c) Troy (troy@mg.mud.de)
+// Kopieren, Veraendern oder Weitergabe: na klar, immer zu, je schlimmer
+// um so besser
+//
+// Objekt erstellt: 14.08.01, Troy
+//
+// Dieser shadow implementiert generische Verwandlungen. Im Gegensatz oder
+// in Ergänzung zum Tarnhelm sind diese nicht auf die Beschreibung
+// beschränkt, sondern schlagen sich auch in anderen Properties nieder.
+//
+//--------------------------------------------------------------------------
+
+#include <moving.h>
+#include <properties.h>
+#include <wizlevels.h>
+
+//--------------------------------------------------------------------------
+
+#pragma strong_types,save_types
+
+//--------------------------------------------------------------------------
+
+varargs int remove( int silent );
+
+//--------------------------------------------------------------------------
+//
+// Property-Einstellungen je nach Rasse
+//
+//--------------------------------------------------------------------------
+
+private mapping morph_properties;
+
+private object pl; // der schattierte Spieler
+
+//--------------------------------------------------------------------------
+//
+// start_shadow( Spieler, Properties )
+//
+// Startet das Shadowing von Spieler. Properties ist ein Mapping mit
+// den zu ändernden Properties. Dort nicht vorhandene Properties werden
+// zum Spieler durchgereicht. Es werden dort entweder einzelne Werte
+// erwartet (Beispiel: ([ P_GENDER: MALE ])), die dann für alle Rassen
+// gelten, oder closures, die dann ausgeführt werden unter Übergabe der
+// Spielerrasse als Parameter oder aber Mappings mit den Rassennamen
+// (Beispiel: ([ P_GENDER: ([ "Mensch": NEUTER, "Elf": FEMALE,
+// "Zwerg": MALE, ... ]) ])). Ist eine Rasse in dem Rassenmapping nicht
+// vorhanden, so wird das Property zum Spieler durchgereicht. Speziell
+// behandelt werden P_IDS (siehe _query_ids()) und P_NAME (siehe
+// _query_name()).
+//
+//--------------------------------------------------------------------------
+int start_shadow( object _pl, mapping preset )
+{
+ if ( !clonep( this_object() ) )
+ return 1;
+ if ( !_pl || !query_once_interactive( _pl ) )
+ return remove();
+ pl = _pl;
+ morph_properties = deep_copy( preset );
+ shadow( pl, 1 );
+ return 1;
+}
+
+//--------------------------------------------------------------------------
+//
+// stop_shadow()
+//
+// Beendet das Shadowing und zerstört dieses Objekt
+//
+//--------------------------------------------------------------------------
+int stop_shadow( /* void */ )
+{
+ if ( !clonep( this_object() ) )
+ return 0;
+ unshadow();
+ return remove();
+}
+
+//--------------------------------------------------------------------------
+//
+// _query_property( Property )
+//
+// Generische Property-Maskierung. liefert aus morph_properties den zur
+// Rasse des Trägers passenden Eintrag.
+//
+//--------------------------------------------------------------------------
+nomask static mixed _query_property( string prop )
+{
+ string race;
+
+ // Rasse holen.
+ if ( IS_LEARNER(pl) )
+ race = "Magier";
+ else // _query_race() ist notwendig, um closures zu umgehen.
+ race = pl->_query_race();
+
+ if ( member( morph_properties, prop ) == 0 )
+ return pl->Query( prop );
+ if ( closurep( morph_properties[ prop ] ) )
+ return funcall( morph_properties[ prop ], race );
+ if ( mappingp( morph_properties[ prop ] ) )
+ {
+ if ( member( morph_properties[ prop ], race ) == 0 )
+ return pl->Query( prop );
+ if ( closurep( morph_properties[ prop ][ race ] ) )
+ return funcall( morph_properties[ prop ][ race ] );
+
+ return morph_properties[ prop ][ race ];
+ }
+ return morph_properties[ prop ];
+}
+
+//--------------------------------------------------------------------------
+//
+// _query_article()
+//
+// Property-Maskierung für P_ARTICLE
+//
+//--------------------------------------------------------------------------
+int _query_article( /* void */ )
+{
+ return (int)_query_property( P_ARTICLE );
+}
+
+//--------------------------------------------------------------------------
+//
+// _query_average_size()
+//
+// Property-Maskierung für P_AVERAGE_SIZE
+//
+//--------------------------------------------------------------------------
+int _query_average_size( /* void */ )
+{
+ return (int)_query_property( P_AVERAGE_SIZE );
+}
+
+//--------------------------------------------------------------------------
+//
+// _query_average_weight()
+//
+// Property-Maskierung für P_AVERAGE_WEIGHT
+//
+//--------------------------------------------------------------------------
+int _query_average_weight( /* void */ )
+{
+ return (int)_query_property( P_AVERAGE_WEIGHT );
+}
+
+//--------------------------------------------------------------------------
+//
+// _query_body()
+//
+// Property-Maskierung für P_BODY
+//
+//--------------------------------------------------------------------------
+int _query_body( /* void */ )
+{
+ return (int)_query_property( P_BODY );
+}
+
+//--------------------------------------------------------------------------
+//
+// _query_gender()
+//
+// Property-Maskierung für P_GENDER
+//
+//--------------------------------------------------------------------------
+int _query_gender( /* void */ )
+{
+ return (int)_query_property( P_GENDER );
+}
+
+//--------------------------------------------------------------------------
+//
+// _query_hands()
+//
+// Property-Maskierung für P_HANDS
+//
+//--------------------------------------------------------------------------
+mixed _query_hands( /* void */ )
+{
+ return _query_property( P_HANDS );
+}
+
+//--------------------------------------------------------------------------
+//
+// _query_ids()
+//
+// Property-Maskierung für P_IDS - Nicht-Standard, da je nach Ursprungs-
+// geschlecht des Spielers zusätzliche ids fällig werden. Ablauf: Es gibt
+// 5 Schritte, bei deren jeweiligem Versagen die ids des Spielers durch-
+// gereicht werden:
+// 1. P_IDS ist im property-mapping vorhanden
+// 2. a) es ist ein string oder ein array: es wird an die ids des Spielers
+// angehängt und zurückgegeben.
+// b) es ist eine closure. Diese wird ausgeführt unter Übergabe der
+// Spieler-ids, der Rasse des Spielers und der Geschlechter
+// (dieses Objekts und des Spielers). Der Ergebniswert der closure
+// wird direkt zurückgegeben.
+// c) es ist ein mapping. Hier nehmen wir nun das übliche Rassennamen-
+// mapping an -> 3.)
+// 3. Für die Rasse des Spielers wird ein Eintrag gesucht
+// a) er ist ein string oder ein array: er wird an die ids des Spielers
+// angehängt und zurückgegeben.
+// b) er ist eine closure. Diese wird ausgeführt unter Übergabe der
+// Spieler-ids, der Rasse des Spielers und der Geschlechter
+// (dieses Objekts und des Spielers). Der Ergebniswert der closure
+// wird direkt zurückgegeben.
+// c) er ist ein mapping. Es wird angenommen, dass je Geschlecht DIESES
+// Objekts ein Eintrag vorhanden ist. -> 4.)
+// 4. Für das Geschlecht dieses Objekts wird ein Eintrag gesucht
+// a) er ist ein string oder ein array: er wird an die ids des Spielers
+// angehängt und zurückgegeben.
+// b) er ist eine closure. Diese wird ausgeführt unter Übergabe der
+// Spieler-ids, der Rasse des Spielers und der Geschlechter
+// (dieses Objekts und des Spielers). Der Ergebniswert der closure
+// wird direkt zurückgegeben.
+// c) er ist ein mapping. Es wird angenommen, dass je Geschlecht DES
+// Spielers ein Eintrag vorhanden ist. -> 5.)
+// 5. Für das Geschlecht des Spielers wird ein Eintrag gesucht
+// a) er ist ein string oder ein array: er wird an die ids des Spielers
+// angehängt und zurückgegeben.
+// b) er ist eine closure. Diese wird ausgeführt unter Übergabe der
+// Spieler-ids, der Rasse des Spielers und der Geschlechter
+// (dieses Objekts und des Spielers). Der Ergebniswert der closure
+// wird direkt zurückgegeben.
+//
+//--------------------------------------------------------------------------
+mixed _query_ids( /* void */ )
+{
+ string race;
+ mixed ids;
+ int gender, sgender;
+
+ // Test 1.
+ ids = pl->Query( P_IDS );
+ if ( member( morph_properties, P_IDS ) == 0 )
+ return ids;
+
+ // Rasse holen.
+ if ( IS_LEARNER(pl) )
+ race = "Magier";
+ else // _query_race() ist notwendig, um closures zu umgehen.
+ race = pl->_query_race();
+
+ // Geschlechter holen
+ gender = _query_gender();
+ sgender = pl->Query( P_GENDER );
+
+ // Test 2.
+ // string? Dann einfach den normalen ids dazu, genauso mit array
+ if ( stringp( morph_properties[ P_IDS ] ) )
+ return ids + ({ morph_properties[ P_IDS ] });
+ if ( pointerp( morph_properties[ P_IDS ] ) )
+ return ids + morph_properties[ P_IDS ];
+ if ( closurep( morph_properties[ P_IDS ] ) )
+ return funcall( morph_properties[ P_IDS ], ids, race, gender, sgender );
+ // falls kein mapping, dann raus
+ if ( !mappingp( morph_properties[ P_IDS ] ) )
+ return ids;
+
+ // Test 3.
+ if ( member( morph_properties[ P_IDS ], race ) == 0 )
+ return ids;
+ if ( stringp( morph_properties[ P_IDS ][ race ] ) )
+ return ids + ({ morph_properties[ P_IDS ][ race ] });
+ if ( pointerp( morph_properties[ P_IDS ][ race ] ) )
+ return ids + morph_properties[ P_IDS ][ race ];
+ if ( closurep( morph_properties[ P_IDS ][ race ] ) )
+ return funcall( morph_properties[ P_IDS ][ race ], ids, race, gender, sgender );
+ // falls kein mapping, dann raus
+ if ( !mappingp( morph_properties[ P_IDS ][ race ] ) )
+ return ids;
+
+ // Test 4.
+ if ( member( morph_properties[ P_IDS ][ race ], gender ) == 0 )
+ return ids;
+ if ( stringp( morph_properties[ P_IDS ][ race ][ gender ] ) )
+ return ids + ({ morph_properties[ P_IDS ][ race ][ gender ] });
+ if ( pointerp( morph_properties[ P_IDS ][ race ][ gender ] ) )
+ return ids + morph_properties[ P_IDS ][ race ][ gender ];
+ if ( closurep( morph_properties[ P_IDS ][ race ][ gender ] ) )
+ return funcall( morph_properties[ P_IDS ][ race ][ gender ],
+ ids, race, gender, sgender );
+ // falls kein mapping, dann raus
+ if ( !mappingp( morph_properties[ P_IDS ][ race ][ gender ] ) )
+ return ids;
+
+ // Test 5.
+ if ( member( morph_properties[ P_IDS ][ race ][ gender ], sgender ) == 0 )
+ return ids;
+ if ( stringp( morph_properties[ P_IDS ][ race ][ gender ][ sgender ] ) )
+ return ids + ({ morph_properties[ P_IDS ][ race ][ gender ][ sgender ] });
+ if ( pointerp( morph_properties[ P_IDS ][ race ][ gender ][ sgender ] ) )
+ return ids + morph_properties[ P_IDS ][ race ][ gender ][ sgender ];
+ if ( closurep( morph_properties[ P_IDS ][ race ][ gender ][ sgender ] ) )
+ return funcall( morph_properties[ P_IDS ][ race ][ gender ][ sgender ],
+ ids, race, gender, sgender );
+
+ return ids;
+}
+
+//--------------------------------------------------------------------------
+//
+// _query_is_morphed()
+//
+// Property-Methode für "is_morphed"
+//
+//--------------------------------------------------------------------------
+int _query_is_morphed( /* void */ )
+{
+ return 1;
+}
+
+//--------------------------------------------------------------------------
+//
+// _query_max_hands()
+//
+// Property-Maskierung für P_MAX_HANDS
+//
+//--------------------------------------------------------------------------
+int _query_max_hands( /* void */ )
+{
+ return (int)_query_property( P_MAX_HANDS );
+}
+
+//--------------------------------------------------------------------------
+//
+// _query_mmsgin()
+//
+// Property-Maskierung für P_MMSGIN
+//
+//--------------------------------------------------------------------------
+string _query_mmsgin( /* void */ )
+{
+ return (string)(_query_property( P_MMSGIN ) || "");
+}
+
+//--------------------------------------------------------------------------
+//
+// _query_mmsgout()
+//
+// Property-Maskierung für P_MMSGOUT
+//
+//--------------------------------------------------------------------------
+string _query_mmsgout( /* void */ )
+{
+ return (string)(_query_property( P_MMSGOUT ) || "");
+}
+
+//--------------------------------------------------------------------------
+//
+// _query_msgin()
+//
+// Property-Maskierung für P_MSGIN
+//
+//--------------------------------------------------------------------------
+string _query_msgin( /* void */ )
+{
+ return (string)(_query_property( P_MSGIN ) || "");
+}
+
+//--------------------------------------------------------------------------
+//
+// _query_msgout()
+//
+// Property-Maskierung für P_MSGOUT
+//
+//--------------------------------------------------------------------------
+string _query_msgout( /* void */ )
+{
+ return (string)(_query_property( P_MSGOUT ) || "");
+}
+
+//--------------------------------------------------------------------------
+//
+// _query_name()
+//
+// Property-Methode für P_NAME. Leider ist die player-shell so grottig,
+// dass überall angenommen wird, QueryProp(P_NAME) liefere einen String :-|
+// Vollständiges Property daher unter _query_name_full().
+//
+//--------------------------------------------------------------------------
+string _query_name( /* void */ )
+{
+ mixed prop;
+ prop = _query_property( P_NAME );
+ if ( stringp( prop ) )
+ return sprintf( prop, pl->Query( P_NAME ) );
+ if ( pointerp( prop ) )
+ return map( prop,
+ lambda( ({ 'el, 's }),
+ ({#'sprintf, 'el, 's}) ),
+ pl->Query( P_NAME ) )[ WER ];
+ return pl->Query( P_NAME );
+}
+
+//--------------------------------------------------------------------------
+//
+// _query_name_full()
+//
+// Property-Methode für "name_full".
+//
+//--------------------------------------------------------------------------
+mixed _query_name_full( /* void */ )
+{
+ mixed prop;
+ prop = _query_property( P_NAME );
+ if ( stringp( prop ) )
+ return sprintf( prop, pl->Query( P_NAME ) );
+ if ( pointerp( prop ) )
+ return map( prop,
+ lambda( ({ 'el, 's }),
+ ({#'sprintf, 'el, 's}) ),
+ pl->Query( P_NAME ) );
+ return pl->Query( P_NAME );
+}
+
+//--------------------------------------------------------------------------
+//
+// _query_presay()
+//
+// Property-Maskierung für P_PRESAY
+//
+//--------------------------------------------------------------------------
+string _query_presay( /* void */ )
+{
+ return (string)(_query_property( P_PRESAY ) || "");
+}
+
+//--------------------------------------------------------------------------
+//
+// _query_race()
+//
+// Property-Maskierung für P_RACE
+//
+//--------------------------------------------------------------------------
+string _query_race( /* void */ )
+{
+ return (string)(_query_property( P_RACE ) || "");
+}
+
+//--------------------------------------------------------------------------
+//
+// _query_racestring()
+//
+// Property-Maskierung für P_RACESTRING
+//
+//--------------------------------------------------------------------------
+string* _query_racestring( /* void */ )
+{
+ return (string*)_query_property( P_RACESTRING );
+}
+
+//--------------------------------------------------------------------------
+//
+// _query_size()
+//
+// Property-Maskierung für P_SIZE
+//
+//--------------------------------------------------------------------------
+int _query_size( /* void */ )
+{
+ return (int)_query_property( P_SIZE );
+}
+
+//--------------------------------------------------------------------------
+//
+// _query_title()
+//
+// Property-Maskierung für P_TITLE
+//
+//--------------------------------------------------------------------------
+string _query_title( /* void */ )
+{
+ return (string)(_query_property( P_TITLE ) || "");
+}
+
+//--------------------------------------------------------------------------
+//
+// _query_weight()
+//
+// Property-Maskierung für P_WEIGHT
+//
+//--------------------------------------------------------------------------
+int _query_weight( /* void */ )
+{
+ return (int)(_query_property( P_WEIGHT ) || "");
+}
+
+//--------------------------------------------------------------------------
+//
+// id( Text, Level)
+//
+// Die Identifizierung spinnt mit P_NAME-Arrays
+//
+//--------------------------------------------------------------------------
+varargs int id( string str, int lvl )
+{
+ string plname;
+
+ if ( pl->QueryProp( P_GHOST ) )
+ if ( str == "geist" )
+ return 1;
+ else if ( ( sscanf( str, "geist von %s", plname ) == 1 ) &&
+ pl->id( plname ) )
+ return 1;
+ else if ( ( sscanf( str, "geist %s", plname ) == 1 ) &&
+ pl->id( plname ) )
+ return 1;
+
+ return pl->id( str, lvl );
+}
+
+//--------------------------------------------------------------------------
+//
+// long()
+//
+// Die Langbeschreibung im Spieler hadert mit dem Geschlecht NEUTER...
+//
+//--------------------------------------------------------------------------
+varargs string long( /* void */ )
+{
+ string slong;
+ slong = pl->long();
+
+ if ( _query_gender() == NEUTER )
+ {
+ string *along;
+ int i;
+
+ // alle Er-s und er-s suchen...
+ along = regexplode( slong, "\\<[Ee]r\\>" );
+ // ... und das r durch ein s ersetzen.
+ for ( i = 1 ; i < sizeof( along ) ; i += 2 )
+ along[ i ][ 1 ] = 's';
+ slong = implode( along, "" );
+ }
+
+ return slong;
+}
+
+//--------------------------------------------------------------------------
+//
+// short()
+//
+// Die Kurzbeschreibung im Spieler hat ein Problem mit P_NAME-Arrays
+//
+//--------------------------------------------------------------------------
+string short( /* void */ )
+{
+ mixed names;
+ string answer;
+ string title;
+
+ if ( pl->QueryProp( P_INVIS ) )
+ if ( interactive( previous_object() ) &&
+ IS_LEARNING( previous_object() ) )
+ return "(" + pl->Query( P_NAME ) + ") \n";
+ else
+ return (string)0;
+
+ names = _query_name_full();
+ if ( stringp( names ) )
+ names = ({ names, names, names, names });
+
+ if ( pl->QueryProp( P_GHOST ) )
+ answer = "Der Geist " + pl->QueryArticle( WESSEN, 0 ) + names[ WESSEN ];
+ else
+ answer = pl->QueryArticle( WER, 0 ) + names[ WER ];
+ if ( ( title = pl->QueryProp( P_TITLE ) ) &&
+ ( title != "" ) )
+ answer += " " + title;
+ if ( !interactive( pl ) )
+ answer += " (netztot)";
+ return capitalize( answer ) + ".\n";
+}
+
+//--------------------------------------------------------------------------
+//
+// remove( Schnauze )
+//
+// aufräumen
+//
+//--------------------------------------------------------------------------
+varargs int remove( int silent )
+{
+ destruct( this_object() );
+ return 1;
+}
+
+//--------------------------------------------------------------------------
+// -- ENDE --