restrictions.c-Dateireferenz

#include "/sys/thing/properties.h"
#include <defines.h>
#include <thing/description.h>

Include-Abhängigkeitsdiagramm für restrictions.c:

gehe zum Quellcode dieser Datei

Makrodefinitionen
#define	NEED_PROTOTYPES
#define	ENV   environment
#define	PO   previous_object()
#define	POS_INVERS   0x01
#define	POS_LETZTES   0x02
Funktionen
static int	_query_total_weight ()
void	create ()
static int	_query_last_content_change ()
public varargs int	_set_last_content_change (mixed wert)
int	query_weight_contents ()
static int	_query_total_objects ()
int	MayAddObject (object ob)
int	MayAddWeight (int w)
varargs int	PreventInsert (object ob)
varargs int	PreventLeave (object ob, mixed dest)
varargs int	PreventInsertLiving (object ob)
varargs int	PreventLeaveLiving (object ob, mixed dest)
static int	_behalten (object ob, string uid)
object *	present_objects (string complex_desc)
object *	locate_objects (string complex_desc, int info)
Variablen
private nosave int	LastWeightCalc
private nosave int	contents
private nosave int	LastObjectCount
private nosave int	objcount
private nosave int	last_content_change

---

Makro-Dokumentation

#define ENV   environment

Definiert in Zeile 125 der Datei restrictions.c.

#define NEED_PROTOTYPES

Definiert in Zeile 30 der Datei restrictions.c.

#define PO   previous_object()

Definiert in Zeile 126 der Datei restrictions.c.

#define POS_INVERS   0x01

Definiert in Zeile 204 der Datei restrictions.c.

Wird benutzt von present_objects().

#define POS_LETZTES   0x02

Definiert in Zeile 205 der Datei restrictions.c.

Wird benutzt von present_objects().

---

Dokumentation der Funktionen

static int _behalten	(	object	ob,
		string	uid
	)			[static]

Definiert in Zeile 192 der Datei restrictions.c.

Benutzt P_KEEP_ON_SELL.

{
    return (string)ob->QueryProp(P_KEEP_ON_SELL) == uid;
}

static int _query_last_content_change

(

)

[static]

Definiert in Zeile 58 der Datei restrictions.c.

Benutzt last_content_change.

Wird benutzt von _query_int_light() und _query_total_light().

{
    return last_content_change;
}

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird:

static int _query_total_objects

(

)

[static]

Definiert in Zeile 99 der Datei restrictions.c.

Benutzt last_content_change, LastObjectCount und objcount.

{
  if ( last_content_change == LastObjectCount )
      return objcount;

  objcount = sizeof( filter_objects( all_inventory(), "short" ) );
  LastObjectCount = last_content_change;
  return objcount;
}

static int _query_total_weight

(

)

[static]

Definiert in Zeile 184 der Datei restrictions.c.

Benutzt P_WEIGHT, P_WEIGHT_PERCENT, query_weight_contents() und QueryProp().

{ 
    return QueryProp(P_WEIGHT) +
        (QueryProp(P_WEIGHT_PERCENT) * query_weight_contents() / 100); 
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

public varargs int _set_last_content_change

(

mixed

wert

)

Definiert in Zeile 66 der Datei restrictions.c.

Benutzt last_content_change.

{
    // Der uebergebene Wert ist unerheblich. Die Property
    // P_LAST_CONTENT_CHANGE wird so oder so bei jedem SetProp()-
    // Aufruf um eins erhoeht, um der 2s-"Unschaerfe" von time()
    // aus dem Weg zu gehen.
    return ++last_content_change;
}

void create

(

)

Definiert in Zeile 45 der Datei restrictions.c.

Benutzt F_MODE, F_SET_METHOD, LastObjectCount, LastWeightCalc, NOSETMETHOD, P_MAX_OBJECTS, P_TOTAL_OBJECTS, P_TOTAL_WEIGHT, P_WEIGHT_PERCENT, PROTECTED und Set().

{
    Set( P_WEIGHT_PERCENT, 50 );
    Set( P_TOTAL_WEIGHT, NOSETMETHOD, F_SET_METHOD );
    Set( P_TOTAL_WEIGHT, PROTECTED, F_MODE );
    Set( P_MAX_OBJECTS, 100 );
    Set( P_TOTAL_OBJECTS, NOSETMETHOD, F_SET_METHOD );
    Set( P_TOTAL_OBJECTS, PROTECTED, F_MODE );
    LastWeightCalc = -1;
    LastObjectCount = -1;
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

object* locate_objects	(	string	complex_desc,
		int	info
	)

Definiert in Zeile 448 der Datei restrictions.c.

Benutzt present_objects().

                                                        {
    string was, wo;

    if ( sscanf( complex_desc, "%s in %s", was, wo ) == 2 ){
      object *found_obs = ({});
      foreach(object invob: present_objects(wo)) {
        // || ({}) weil invob ein Objekt ohne locate_objects() sein koennte.
        found_obs += (object *)invob->locate_objects( was, info) || ({});
      }
      return found_obs;
    }
    // kein "in" gefunden
    return present_objects( complex_desc );
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

int MayAddObject

(

object

ob

)

Definiert in Zeile 111 der Datei restrictions.c.

Benutzt ME, P_MAX_OBJECTS, P_TOTAL_OBJECTS und QueryProp().

{
    if (ob) {
        if ( !ob->short() )
            return 1; // invis-Objekte duerfen immer
        
        if ( ob == ME || environment(ob) == ME)
            return 1; // objekt ist schon drin
    }
    
    return (QueryProp(P_TOTAL_OBJECTS) < QueryProp(P_MAX_OBJECTS));
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

int MayAddWeight

(

int

w

)

Definiert in Zeile 128 der Datei restrictions.c.

Benutzt ENV, ME, P_MAX_WEIGHT, P_WEIGHT_PERCENT, PO, query_weight_contents() und QueryProp().

{
    int nw, aw;

    // was nix wiegt, passt
    if ( w <= 0 )
        return 0;

    nw = w; // Gewicht im neuen Container
    aw = 0; // Gewicht fuer das env()

    // Von Raum in Behaelter im Spieler: Container sieht volles Gewicht (nw=w),
    // Check im env() (Spieler) mit reduziertem Gewicht.
    if ( ENV() && PO && ENV(PO) != ENV() )
        aw = QueryProp(P_WEIGHT_PERCENT) * w / 100 || 1;

    if ( PO && ENV(PO) && ENV(ENV(PO)) ){
        // Wenn das Objekt ein env() hochbewegt wird, wird das Gewicht im alten
        // Container abgezogen. Weiterer Check im env() ist unnoetig (aw=0).
        if ( ENV(ENV(PO)) == ME )
            nw = w - (int)ENV(PO)->QueryProp(P_WEIGHT_PERCENT) * w / 100;
        // Eine Ebene tiefer bewegen: Test im neuen Container mit unveraendertem
        // Gewicht; Check im env() mit um Gewichtsreduktion verringertem Gewicht
        else if ( present( ME, ENV(PO) ) )
            aw = QueryProp(P_WEIGHT_PERCENT) * w / 100 - w;
        // Auf derselben Ebene verschieben (von Paket in Beutel):
        // Neuer Container sieht volles Gewicht (nw=w), Check im env() mit
        // Differenz aus Gewicht in Container1 und in Container2.
        else if ( ENV(ENV(ENV(PO))) && ENV() == ENV(ENV(PO)) )
            aw = QueryProp(P_WEIGHT_PERCENT) * w / 100
                - ((int)ENV(PO)->QueryProp(P_WEIGHT_PERCENT) * w / 100 || 1);
    }

    if ( query_weight_contents() + nw > QueryProp(P_MAX_WEIGHT) )
        // Container kann Gewicht nicht mehr aufnehmen
        return -1;
    
    if ( aw && ENV()->MayAddWeight(aw) < 0 )
        // Umgebung des Containers kann Gewicht nicht mehr aufnehmen
        return -2;
    
    return 0;
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

object* present_objects

(

string

complex_desc

)

Definiert in Zeile 207 der Datei restrictions.c.

Benutzt i, ME, name, ob(), obs, P_ARMOUR_TYPE, P_ARMOURS, P_WEAPON, P_WEAPON_TYPE, POS_INVERS, POS_LETZTES, QueryProp() und WEM.

Wird benutzt von __find_objects() und locate_objects().

{
    int i;          // Zaehlervariable
    int meth;       // 0x01 = invers?,  0x02 = letztes?
    object ob;      // einzelnes temporaeres Objekt
    object *obs;    // liste der ausgewaehlten Objekte
    object *erg;    // zum sammeln bis es nachher zurueckgegeben wird...
    string *strlst; // liste aller Gruppen die mit AND verknuepft sind
    object haufen;

    strlst = allocate(2);
    
    if ( sscanf( complex_desc, "%s ausser %s", strlst[0], strlst[1]) == 2 ){
        erg = present_objects( strlst[0] );
        obs = present_objects( strlst[1] );
        return erg-obs;
    }
    
   strlst = explode( complex_desc, " und " );
   erg = ({});
   
   for ( i = sizeof(strlst); i--; ){
       complex_desc = strlst[i];
       // auf letzte/letztes/letzten pruefen...
       if ( complex_desc[0..5] == "letzte" ){
           switch( complex_desc[6..6] ){
           case " ":
               meth |= POS_LETZTES;
               complex_desc = complex_desc[7..];
               break;
           case "s":
           case "n":
           case "m":
           case "r":
               if ( complex_desc[7..7] != " " )
                   break;
               meth |= POS_LETZTES;
               complex_desc = complex_desc[8..];
               break;
           default:
           }
       }
       
       // auf verneinung pruefen
       if ( complex_desc[0..5] == "nicht " ){
           meth |= POS_INVERS;
           complex_desc = complex_desc[6..];
       }
       obs=({});
       // nun nach Main-Ids (Gruppen) suchen...
       if ( meth & POS_LETZTES ){ // geht es nur um den letzten Gegenstand?
           switch( complex_desc ){
           case "waffe":
               obs = filter_objects( all_inventory(), "QueryProp",
                                     P_WEAPON_TYPE );
               break;
               
           case "ruestung":
               obs = filter_objects( all_inventory(), "QueryProp",
                                     P_ARMOUR_TYPE );
               break;
                  
                   case "kleidung":
                       obs = filter_objects( all_inventory(), "IsClothing");
                       break;
               
           case "verschiedenem":
           case "verschiedenes":
               obs = all_inventory();
               obs -= filter_objects( obs, "QueryProp", P_WEAPON_TYPE );
               obs -= filter_objects( obs, "QueryProp", P_ARMOUR_TYPE );
                       obs -= filter_objects( obs, "IsClothing");
               obs -= filter( obs, #'living/*'*/ );
               break;
        
                   case "eigenes":
                   case "meins":
                       if (objectp(haufen=present("\nhaufen "+
                                     this_player()->name(WEM)))) {
                                  obs = all_inventory(haufen);
                       }
                       // kein break;, Fall-through!
           case "behaltenem":
           case "behaltenes":
               obs += filter( all_inventory(), "_behalten", ME,
                                   getuid(this_player() || previous_object()) );

               obs += (QueryProp(P_ARMOURS) || ({}))
                   + ({ QueryProp(P_WEAPON) }) - ({ 0 });
                   break;
                   
           case "gegenstand":
               obs = all_inventory() -
                   filter( all_inventory(), #'living/*'*/ );
               break;
               
           default:
               obs = filter_objects( all_inventory(), "id", complex_desc );
           }

           // unsichtbare objekte entfernen
           obs = filter_objects( obs, "short" );

           // letzten Gegenstand raussuchen
           obs = obs[0..0]; 
       }
       else { // ganze Gruppen und nicht nur das letzte Objekt
           switch ( complex_desc ){
           case "allem":
           case "alles":
           case "jeden gegenstand":
           case "jedem gegenstand":
           case "gegenstaende":
           case "alle gegenstaende":
           case "allen gegenstaenden":
               if ( meth & POS_INVERS )
                   continue; // alles nicht = nichts :)
               
               obs = all_inventory() -
                   filter( all_inventory(), #'living/*'*/ );
               break;
               
           case "waffen":
           case "jede waffe":
           case "jeder waffe":
           case "alle waffen":
           case "allen waffen":
               obs = filter_objects( all_inventory(), "QueryProp",
                                     P_WEAPON_TYPE );
               break;
               
           case "ruestungen":
           case "jede ruestung":
           case "jeder ruestung":
           case "alle ruestungen":
           case "allen ruestungen":
               obs = filter_objects( all_inventory(), "QueryProp",
                                     P_ARMOUR_TYPE );
               break;
 
                   case "kleidung":
           case "jede kleidung":
           case "jeder kleidung":
           case "alle kleidung":
           case "allen kleidung":
               obs = filter_objects( all_inventory(), "IsClothing");
               break;
              
           case "gegenstand":
               obs = filter_objects( all_inventory() -
                                     filter( all_inventory(),
                                                   #'living/*'*/ ),
                                     "short" )[0..0];
               break;
               
           case "verschiedenem":
           case "verschiedenes":
               obs = all_inventory();
               obs -= filter_objects( obs, "QueryProp", P_WEAPON_TYPE );
               obs -= filter_objects( obs, "QueryProp", P_ARMOUR_TYPE );
                       obs -= filter_objects( obs, "IsClothing");
               obs -= filter( obs, #'living/*'*/ );
               break;
       
                   case "eigenes":
                   case "eigenem":
                   case "eigenen":
                   case "meins":
                   case "alles eigene":
                       if (objectp(haufen=present("\nhaufen "+
                                       this_player()->name(WEM)))) {
                                  obs = all_inventory(haufen);
                       }
                       // kein break;, Fall-through!
           case "behaltenem":
           case "behaltenen":
           case "behaltenes":
           case "alles behaltene":
               obs += filter( all_inventory(), "_behalten", ME,
                                   getuid(this_player() || previous_object()) );

               obs += (QueryProp(P_ARMOURS) || ({}))
                   + ({ QueryProp(P_WEAPON) }) - ({ 0 });
                   break;
                   
           default:
               if ( complex_desc[0..3] == "jede" ||
                    complex_desc[0..4] == "alle "){
                   if ( complex_desc[4..4] == " " ){
                       obs = filter_objects( all_inventory(), "id",
                                             complex_desc[5..] );
                       break;
                   }
                   else{
                       switch( complex_desc[4..5] ){
                       case "m ":
                       case "r ":
                       case "n ":
                       case "s ":
                           obs = filter_objects( all_inventory(), "id",
                                                 complex_desc[6..] );
                           break;
                           
                       default:
                           obs = 0;
                       }
                       if (obs)
                           break;
                   }
               }
               ob = present( complex_desc, ME );
               
               if ( meth & POS_INVERS ){
                   if ( ob && ob != ME )
                       erg += (filter_objects( all_inventory(), "short" )
                               - ({ ob }) );
                   else
                       erg += filter_objects( all_inventory(), "short" );
               }
               else if ( ob && ob != ME )
                   erg += ({ ob });
               continue;
           }
           // unsichtbare objekte entfernen
           obs = filter_objects( obs, "short" ); 
       }
       if ( meth & POS_INVERS )
           erg += ( filter_objects( all_inventory(), "short" ) - obs );
       else
           erg += obs;
   }
   return erg;
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird:

varargs int PreventInsert

(

object

ob

)

Definiert in Zeile 177 der Datei restrictions.c.

{ return 0; }

varargs int PreventInsertLiving

(

object

ob

)

Definiert in Zeile 179 der Datei restrictions.c.

{ return 0; }

varargs int PreventLeave	(	object	ob,
		mixed	dest
	)

Definiert in Zeile 178 der Datei restrictions.c.

{ return 0; }

varargs int PreventLeaveLiving	(	object	ob,
		mixed	dest
	)

Definiert in Zeile 180 der Datei restrictions.c.

{ return 0; }

int query_weight_contents

(

)

Definiert in Zeile 76 der Datei restrictions.c.

Benutzt contents, i, last_content_change, LastWeightCalc, P_TOTAL_WEIGHT, P_WEIGHT und QueryProp().

Wird benutzt von _query_total_weight() und MayAddWeight().

{
    object *objs;
    int w, w2, i;

    if ( last_content_change == LastWeightCalc )
        return contents;
    
    w = 0;
    objs = all_inventory(this_object());
    i = sizeof(objs);
    
    while ( i-- ){
        if ( !(w2 = (int)objs[i]->QueryProp(P_TOTAL_WEIGHT)) )
            w2 = (int)objs[i]->QueryProp(P_WEIGHT);
        w += w2;
    }
    
    LastWeightCalc = last_content_change;
    return contents = w;
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird:

---

Variablen-Dokumentation

private nosave int contents

Definiert in Zeile 41 der Datei restrictions.c.

Wird benutzt von empty(), fuelle() und query_weight_contents().

private nosave int last_content_change

Definiert in Zeile 42 der Datei restrictions.c.

Wird benutzt von _query_last_content_change(), _query_total_objects(), _set_last_content_change() und query_weight_contents().

private nosave int LastObjectCount

Definiert in Zeile 41 der Datei restrictions.c.

Wird benutzt von _query_total_objects() und create().

private nosave int LastWeightCalc

Definiert in Zeile 41 der Datei restrictions.c.

Wird benutzt von create() und query_weight_contents().

private nosave int objcount

Definiert in Zeile 41 der Datei restrictions.c.

Wird benutzt von _query_total_objects().