unit.c-Dateireferenz

#include <unit.h>
#include <properties.h>
#include <defines.h>
#include <language.h>
#include <moving.h>
#include <wizlevels.h>

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

gehe zum Quellcode dieser Datei

Makrodefinitionen
#define	NEED_PROTOTYPES
#define	ZDEBUG(x)
Funktionen
protected void	create ()
protected void	create_super ()
static void	check_leave ()
static int	_set_amount (int am)
static int	_query_u_req ()
static int	_query_value ()
static int	_set_value (int num)
static int	_query_weight ()
static int	_set_weight (int num)
static int	_query_total_weight ()
static int	_query_plural ()
static mixed	_query_name ()
static mixed	_set_name (mixed names)
void	AddSingularId (mixed str)
void	RemoveSingularId (mixed str)
void	AddPluralId (mixed str)
void	RemovePluralId (mixed str)
void	SetCoinsPerUnits (int coins, int units)
void	SetGramsPerUnits (int grams, int units)
int *	QueryCoinsPerUnits ()
int *	QueryGramsPerUnits ()
void	AddAmount (int am)
int	IsUnit ()
int	IsEqual (object ob)
varargs string	name (int fall, int demo)
varargs string	QueryPronoun (int casus)
string	short ()
varargs string	long ()
varargs int	id (string str, int lvl)
varargs int	move (mixed dest, int method)
void	reset ()
varargs int	remove ()
protected void	NotifyMove (object dest, object oldenv, int method)
private void	_call_DoDecay (object *klone)
public int	DoDecay (int silent)
protected void	DoDecayMessage (int oldamount, int zerfall)
static int	_query_unit_decay_interval ()
static int	_set_unit_decay_interval (int zeit)
static int	_query_unit_decay_quota ()
static int	_set_unit_decay_quota (int quota)
static int	_query_unit_decay_min ()
static int	_query_unit_decay_flags ()
Variablen
inherit std	thing
private nosave string	lastverb

---

Makro-Dokumentation

#define NEED_PROTOTYPES

Definiert in Zeile 15 der Datei unit.c.

#define ZDEBUG

(

x

)

Definiert in Zeile 27 der Datei unit.c.

---

Dokumentation der Funktionen

private void _call_DoDecay

(

object *

klone

)

Definiert in Zeile 469 der Datei unit.c.

Benutzt call_out(), i, ME, NO_DECAY, P_UNIT_DECAY_FLAGS, QueryProp() und ZDEBUG.

                                          {
  ZDEBUG(sprintf("call_DoDecay() in %O\n",ME));
  // Clone oder kein Decay konfiguriert?
  if (clonep()
      || QueryProp(P_UNIT_DECAY_FLAGS) & NO_DECAY)
    return;

  if (!pointerp(klone))
    klone = clones(2);
  // Klone da?
  int i=sizeof(klone);
  if (!i)
    return;

  // in allen Klonen DoDecay rufen
  while(get_eval_cost() > __MAX_EVAL_COST__/2 && i--) {
    if (objectp(klone[i]))
      catch(call_other(klone[i],"DoDecay", 0);publish);
  }
  // das i ist schon abgearbeitet.
  i--;
  // noch was uebrig?
  if (i >= 0)
    call_out(#'_call_DoDecay, 4, klone[0..i]);
}

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

static mixed _query_name

(

)

[static]

Definiert in Zeile 118 der Datei unit.c.

Benutzt P_NAME, Query() und U_REQ.

{
  if (Query(U_REQ)==1)
    return "%s%s"+((string *)Query(P_NAME))[0];
  return "%d %s"+((string *)Query(P_NAME))[1];
}

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

static int _query_plural

(

)

[static]

Definiert in Zeile 110 der Datei unit.c.

Benutzt i, Query() und U_REQ.

{
  int i;
  i=Query(U_REQ); // wichtig _nicht_ QueryProp
  return (i<=1 ? 0 : i);
}

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

static int _query_total_weight

(

)

[static]

Definiert in Zeile 99 der Datei unit.c.

Benutzt MAX, P_AMOUNT, Query() und U_GPU.

{
  mixed gpu, amount;
  if ((amount=Query(P_AMOUNT))<1) return 0;
  gpu=Query(U_GPU);
  if (intp(gpu))
    return amount*(int)gpu;
  if (!pointerp(gpu)) return 0;
  return MAX(1,(amount*gpu[0])/gpu[1]);
}

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

static int _query_u_req

(

)

[static]

Definiert in Zeile 58 der Datei unit.c.

Benutzt lastverb, P_AMOUNT, Query(), Set() und U_REQ.

{
  if (lastverb!=query_verb()) {
    lastverb=0;
    Set(U_REQ, Query(P_AMOUNT));
  }
  return Query(U_REQ);
}

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

static int _query_unit_decay_flags

(

)

[static]

Definiert in Zeile 690 der Datei unit.c.

                                     {
  if (clonep()) {
    // hat dieses Objekt einen eigenen wert gespeichert?
    int flags=Query(P_UNIT_DECAY_FLAGS, F_VALUE);
    if (flags)
      return flags;
    // sonst den Wert aus der Blueprint
    if (objectp(blueprint()))
      return blueprint()->QueryProp(P_UNIT_DECAY_FLAGS);
    else
      return load_object(load_name())->QueryProp(P_UNIT_DECAY_FLAGS);
  }
  // Die BP liefert den Wert auf jeden Fall ohne NO_DECAY_UNTIL_MOVE zurueck,
  // weil dieses Flag im Falle der BP nicht zurueckgesetzt wird und bei Clients 
  // ohne eigene Flags der Zerfall stoppen wuerde.
  return Query(P_UNIT_DECAY_FLAGS, F_VALUE) & ~NO_DECAY_UNTIL_MOVE;
}

static int _query_unit_decay_interval

(

)

[static]

Definiert in Zeile 604 der Datei unit.c.

                                        {
  if (clonep()) {
    // fuer clones den Wert aus der BP liefern, der Wert in Clones ist eh
    // uninteressant.
    if (objectp(blueprint()))
      return blueprint()->QueryProp(P_UNIT_DECAY_INTERVAL);
    else
      return load_object(load_name())->QueryProp(P_UNIT_DECAY_INTERVAL);
  }
  return Query(P_UNIT_DECAY_INTERVAL);
}

static int _query_unit_decay_min

(

)

[static]

Definiert in Zeile 675 der Datei unit.c.

                                   {
  if (clonep()) {
    // hat dieses Objekt einen eigenen wert gespeichert?
    int minimum=Query(P_UNIT_DECAY_MIN, F_VALUE);
    if (minimum)
      return minimum;
    // sonst den Wert aus der Blueprint
    if (objectp(blueprint()))
      return blueprint()->QueryProp(P_UNIT_DECAY_MIN);
    else
      return load_object(load_name())->QueryProp(P_UNIT_DECAY_MIN);
  }
  return Query(P_UNIT_DECAY_MIN, F_VALUE);
}

static int _query_unit_decay_quota

(

)

[static]

Definiert in Zeile 652 der Datei unit.c.

                                     {
  if (clonep()) {
    // hat dieses Objekt einen eigenen wert gespeichert?
    int quota=Query(P_UNIT_DECAY_QUOTA, F_VALUE);
    if (quota)
      return quota;
    // sonst den Wert aus der Blueprint
    if (objectp(blueprint()))
      return blueprint()->QueryProp(P_UNIT_DECAY_QUOTA);
    else
      return load_object(load_name())->QueryProp(P_UNIT_DECAY_QUOTA);
  }
  return Query(P_UNIT_DECAY_QUOTA, F_VALUE);
}

static int _query_value

(

)

[static]

Definiert in Zeile 68 der Datei unit.c.

Benutzt Query(), U_CPU und U_REQ.

{
  mixed cpu;
  cpu=Query(U_CPU);
  if (intp(cpu)) return Query(U_REQ)*(int)cpu;
  if (!pointerp(cpu)) return 0;
  return (Query(U_REQ)*cpu[0])/cpu[1];
}

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

static int _query_weight

(

)

[static]

Definiert in Zeile 83 der Datei unit.c.

Benutzt MAX, Query(), U_GPU und U_REQ.

{
  mixed gpu, req;
  if ((req=Query(U_REQ))<1) return 0;
  gpu=Query(U_GPU);
  if (intp(gpu)) return req*(int)gpu;
  if (!pointerp(gpu)) return 0;
  return MAX(1,(req*gpu[0])/gpu[1]);
}

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

static int _set_amount

(

int

am

)

[static]

Definiert in Zeile 51 der Datei unit.c.

Benutzt call_out(), P_AMOUNT, Set() und U_REQ.

{
  if (am<1) call_out("check_leave",1);
  Set(U_REQ, am);
  return Set(P_AMOUNT,am);
}

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

static mixed _set_name

(

mixed

names

)

[static]

Definiert in Zeile 126 der Datei unit.c.

Benutzt P_NAME, QueryProp() und Set().

{
  if(!names)
    return Set(P_NAME,({"",""}));
  if(stringp(names))
    return Set(P_NAME,({names,names}));
  if(pointerp(names))
    switch(sizeof(names)) {
      case 0:  return Set(P_NAME,({"",""}));
      case 1:  if(!stringp(names[0]))
                 names[0]="";
               return Set(P_NAME,({names[0],names[0]}));
      default: if(!stringp(names[0]))
                 names[0]="";
               if(!stringp(names[1]))
                 names[1]="";
               return Set(P_NAME,names[0..1]);
    }
  return QueryProp(P_NAME);
}

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

static int _set_unit_decay_interval

(

int

zeit

)

[static]

Definiert in Zeile 616 der Datei unit.c.

                                              {
  // fuer Clones ist die Prop sinnlos und kann nicht gesetzt werden.
  if (clonep()) {
    if (objectp(blueprint()))
      return blueprint()->QueryProp(P_UNIT_DECAY_INTERVAL);
    else
      return load_object(load_name())->QueryProp(P_UNIT_DECAY_INTERVAL);
  }
  // ueber diese Prop liesse sich der Reset relativ beliebig veraendern,
  // verhindern, etc. Daher darf sie nur von diesem Objekt gesetzt werden, von
  // Weisen+ oder eines Objektes, das die gleiche UID hat wie dieses hier oder
  // des Programmieres dieses Objekts oder eines Magiers, der berechtigt fuer
  // die jeweilige UID ist. Letztere beiden werden ueber den Ruf von
  // QueryUIDsForWizard() ermittelt.
  // erstes fremdes Objekt finden und pruefen.
  foreach(object po: caller_stack(1)) {
    if (po != ME) {
      // fremden Aufrufer gefunden
      if (getuid(po) != getuid(ME) 
                  && member(master()->QueryUIDsForWizard(getuid(po)),getuid(ME)) == -1
                  && (!this_interactive() || !IS_ELDER(this_interactive()) ) )
                // unberechtigt, Abbruch
                return QueryProp(P_UNIT_DECAY_INTERVAL);
      else
                // nur das erste ext. Objekt in der Callkette wird geprueft, raus.
                break;
    }
  }
  set_next_reset(zeit);
  // falls dies aus dem create() gesetzt wird, muss zeitverzoegert eine
  // Funktion von aussen am Objekt gerufen werden, da nach einem create() das
  // Objekt als resettet gilt und sonst keinen Reset kriegt.
  call_out("_query_unit_decay_interval",1);
  return Set(P_UNIT_DECAY_INTERVAL, zeit, F_VALUE);
}

static int _set_unit_decay_quota

(

int

quota

)

[static]

Definiert in Zeile 667 der Datei unit.c.

                                            { 
  // momentan nur quota zwischen 0 und 10000
  if (quota >= 0 && quota <=10000)
    return Set(P_UNIT_DECAY_QUOTA, quota, F_VALUE);
  else
    return Query(P_UNIT_DECAY_QUOTA, F_VALUE);
}

static int _set_value

(

int

num

)

[static]

Definiert in Zeile 77 der Datei unit.c.

Benutzt P_VALUE, Query(), QueryProp(), SetCoinsPerUnits() und U_REQ.

                               {
// Setzt den Wert fuer die derzeitige Anzahl
  SetCoinsPerUnits(num, Query(U_REQ));
  return QueryProp(P_VALUE);
}

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

static int _set_weight

(

int

num

)

[static]

Definiert in Zeile 93 der Datei unit.c.

Benutzt P_WEIGHT, Query(), QueryProp(), SetGramsPerUnits() und U_REQ.

                                {
// Setzt das Gewicht fuer die derzeitige Anzahl
    SetGramsPerUnits(num, Query(U_REQ));
    return QueryProp(P_WEIGHT);
}

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

void AddAmount

(

int

am

)

Definiert in Zeile 216 der Datei unit.c.

Benutzt P_AMOUNT, Query() und SetProp().

                       {
  SetProp(P_AMOUNT, am+Query(P_AMOUNT));
}

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

void AddPluralId

(

mixed

str

)

Definiert in Zeile 166 der Datei unit.c.

Benutzt ids, Query(), Set() und U_IDS.

Wird benutzt von create().

{
  string *ids;
  
  if (!pointerp(str))
    str=({str});
  ids=Query(U_IDS);
  Set(U_IDS,({ids[0],ids[1]+str}));
}

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

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

void AddSingularId

(

mixed

str

)

Definiert in Zeile 149 der Datei unit.c.

Benutzt ids, Query(), Set() und U_IDS.

Wird benutzt von create().

{
  string *ids;
  if (!pointerp(str))
    str=({str});
  ids=Query(U_IDS);
  Set(U_IDS,({ids[0]+str,ids[1]}));
}

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

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

static void check_leave

(

)

[static]

Definiert in Zeile 48 der Datei unit.c.

Benutzt P_AMOUNT und Query().

{  if (Query(P_AMOUNT)<1) remove();  }

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

protected void create

(

)

Definiert in Zeile 31 der Datei unit.c.

Benutzt create(), F_MODE_AS, P_AMOUNT, P_GENDER, P_UNIT_DECAY_INTERVAL, P_UNIT_DECAY_QUOTA, PROTECTED, Set(), SetProp() und U_IDS.

{
  ::create();
  SetProp(U_IDS,({({}),({})}));
  SetProp(P_GENDER, 1);
  SetProp(P_AMOUNT, 1);
  // Props sollten nicht direkt manipuliert werden, nur ueber Set-Methoden
  Set(P_UNIT_DECAY_INTERVAL, PROTECTED, F_MODE_AS);
  Set(P_UNIT_DECAY_QUOTA, PROTECTED, F_MODE_AS);
} 

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

protected void create_super

(

)

Definiert in Zeile 42 der Datei unit.c.

Benutzt set_next_reset().

                              {
  set_next_reset(-1);
}

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

public int DoDecay

(

int

silent

)

Definiert in Zeile 497 der Datei unit.c.

                               {
  // nur fuer Clones
  if (!clonep())
    return 0;
  ZDEBUG(sprintf("DoDecay() in %O\n",ME));

  // wenn das Objekt NO_DECAY oder NO_DECAY_UNTIL_MOVE in den Flags
  // zerfaellt nix.
  int flags = QueryProp(P_UNIT_DECAY_FLAGS);
  if ((flags & NO_DECAY) || (flags & NO_DECAY_UNTIL_MOVE) )
    return QueryProp(P_AMOUNT);

  int quota = QueryProp(P_UNIT_DECAY_QUOTA);

  // Zugewinn ist nicht. Ausserdem kann nicht mehr zerfallen, als da ist...
  // Also ohne gueltiges Quota raus. Nur bei abs. Zerfall sind Zahlen > 10000
  // erlaubt, bei relativen Zerfall waere das sinnlos.
  if (quota <= 0 || 
      (quota > 10000 && !(flags & ABSOLUTE_DECAY) ) ) 
    return QueryProp(P_AMOUNT);
  
  int amount = QueryProp(P_AMOUNT);
  int minimum = QueryProp(P_UNIT_DECAY_MIN);
  // Zerfall nur, wenn man mehr als das Minimum hat.
  if (amount > minimum) {
    int zerfall;
    if (flags & ABSOLUTE_DECAY) {
      // Decay Quota soll einfach als abs. Zahl aufgefasst werden:
      zerfall = quota;
    }
    else if (flags & INACCURATE_DECAY) {
      // Rundungsfehler ignorieren und dafuer immer min. eine Einheit
      // zerfallen lassein
      zerfall = (amount * quota) / 10000;
      if (zerfall <= 0) zerfall = 1;
    }
    else {
      // Standardfall:
      // nicht-ganzzahligen Rest als Wahrscheinlichkeit fuer den Zerfall einer
      // Einheit auffassen
      float tmp = amount * quota / 10000.0;
      zerfall = to_int(tmp);
      tmp -= zerfall; // Rest in tmp
      // tmp*n ist eine Zahl zwischen 0 und n, wenn tmp*n > random(n)+1,
      // dann zerfaellt eine Einheit extra. Da das Random fuer grosse Zahlen
      // besser verteilt ist, nehm ich n = __INT_MAX__
      if (ceil(tmp * __INT_MAX__) > random(__INT_MAX__) + 1)
                zerfall++;
    }

    // nicht unter Minimum zerfallen
    if (amount - zerfall < minimum)
      zerfall = amount - minimum;

    // erst ggf. Meldung ausgeben.
    if (!silent)
      DoDecayMessage(amount, zerfall);
    // dann runtersetzen.
    SetProp(P_AMOUNT, amount - zerfall);
    ZDEBUG(sprintf("%O decayed by %d\n",ME, zerfall));
    return amount-zerfall;
  }
  else if (amount < 0)
    return 0; // neg. Anzahl gilt als "0 uebrig".
  
  // sonst ists wohl zwischen 0 und minimum, nix aendert sich.
  return amount;
}

protected void DoDecayMessage	(	int	oldamount,
		int	zerfall
	)

Definiert in Zeile 571 der Datei unit.c.

                                                          {
  string msg;
  if (oldamount == zerfall) {
    if (living(environment())) {
      tell_object(environment(), break_string(sprintf(
                  "Auf einmal %s%s zu Staub!",
                  (oldamount>1?"zerfallen Deine ":"zerfaellt D"), name(WER)),78));
    }
    // das tell_room() muss auf jeden fall sein, weil es "lebende" Raeume
    // gibt. Liegt der KRam in einem solchen wuerden die Livings in diesem Raum
    // sonst keine meldung kriegen.
    tell_room(environment(), break_string(sprintf(
                  "Auf einmal %s %s zu Staub!",
                  (oldamount>1?"zerfallen":"zerfaellt"), name(WER)),78),
                ({environment()}));
  }
  else {
     if (living(environment())) {
      tell_object(environment(), break_string(sprintf(
                  "Auf einmal %s %d Deiner %s zu Staub!",
                  (zerfall>1?"zerfallen":"zerfaellt"),
                  zerfall, Query(P_NAME)[1]),78));
    }
    // das tell_room() muss auf jeden fall sein, weil es "lebende" Raeume
    // gibt. Liegt der KRam in einem solchen wuerden die Livings in diesem Raum
    // sonst keine meldung kriegen.
    tell_room(environment(), break_string(sprintf(
                  "Auf einmal %s %d %s zu Staub!",
                  (zerfall>1?"zerfallen":"zerfaellt"),
                  zerfall, Query(P_NAME)[1]),78), ({environment()}) ); 
  }
}

varargs int id	(	string	str,
		int	lvl
	)

Definiert in Zeile 291 der Datei unit.c.

{
  int i,amount;
  string s1,s2,*ids;

  if (!str) return 0;
  if (lastverb!=query_verb()) lastverb=0;
  if (::id(str)) {
    Set(U_REQ, Query(P_AMOUNT));
    lastverb=query_verb();
    return 1;
  }
  amount=Query(P_AMOUNT);
  //die casts auf 'mixed' sind absicht. Sonst geht der Driver offenbar davon
  //aus, dass ids[1] ein String ist. Es ist aber aber ein Array von Strings
  //und genau das will auch match_item() haben. ;-) Zesstra
  if (!amount || !(ids=Query(U_IDS))) return 0;
  if (match_item(str,(mixed)ids[1] )) {
    Set(U_REQ, amount);
    lastverb=query_verb();
    return 1;
  }
  if (match_item(str,(mixed)ids[0] )) {
    Set(U_REQ,1);
    lastverb=query_verb();
    return 1;
  }
  if (sscanf(str,"%s %s",s1,s2) && s1[0..3]=="alle" && 
    match_item(s2,(mixed)ids[1] )) {
    Set(U_REQ, amount);
    lastverb=query_verb();
    return 1;
  }
  if (sscanf(str,"%d %s",i,s1)==2 && i==1 && match_item(s1,(mixed)ids[0] )) {
    Set(U_REQ,1);
    lastverb=query_verb();
    return 1;
  }
  if (sscanf(str,"%d %s",i,s1)==2 && match_item(s1,(mixed)ids[1] ) && 
      i<=amount && i>0) {
    Set(U_REQ,i);
    lastverb=query_verb();
    return 1;
  }
  return 0;
}

int IsEqual

(

object

ob

)

Definiert in Zeile 224 der Datei unit.c.

Benutzt BLUE_NAME und ME.

{
  if (ob==this_object()) return 0; // das ist ZU gleich :)
  return (BLUE_NAME(ME)==BLUE_NAME(ob));
}

int IsUnit

(

)

Definiert in Zeile 220 der Datei unit.c.

Wird benutzt von cmd_shoot().

             {
  return 1;
}

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

varargs string long

(

)

Definiert in Zeile 285 der Datei unit.c.

{
  return (QueryProp(P_LONG) ? process_string(QueryProp(P_LONG)) : "")+
    sprintf("Du siehst %s.\n",name(WEN));
}

varargs int move	(	mixed	dest,
		int	method
	)

Definiert in Zeile 338 der Datei unit.c.

{
  int i, j, amount, req;
  string fname;
  mixed env;
  
  amount = QueryProp(P_AMOUNT);
  req = QueryProp(U_REQ);
  fname = BLUE_NAME(ME);
  
  if ( !(method & (M_MOVE_ALL|M_FORCE_SPLIT)) && amount != req ){
      env = environment(); // wird nur benoetigt bei amount!=U_REQ
      
     if ( env )
         env->query_weight_contents();
     // wenn in einem alten Paket das Gewicht noch nicht neu berechnet
     // wurde muss dies geschehn solange die Muenzen im Paket noch das
     // volle Gewicht haben...
     Set( P_AMOUNT, req );
  }
  
  i = ::move( dest, method );
  
  if ( i != 1 ){
      if (env){
          Set( P_AMOUNT, amount ); // verfruehte Aenderung rueckgaengig machen
          // ohne move auch keine Aenderung an P_LAST_CONTENT_CHANGE noetig
      }
      
      return i;
  }
  
  if (env) { // schliesst automatisch amount != req mit ein!
      if ( env == environment() && !(method & M_NOCHECK) ){
          // Objekt wurde nur an den Anfang des inventory bewegt, sonst nichts.
          Set( P_AMOUNT, amount ); // verfruehte Aenderung rueckgaengig machen.
          env = this_object();
          
          while ( env = environment(env) )
          // Ja. Man ruft die _set_xxx()-Funktionen eigentlich nicht direkt auf.
          // Aber das move() ist schon *so* rechenintensiv und gerade der
          // P_LAST_CONTENT_CHANGE-Cache wird *so* oft benoetigt, dass es mir
          // da um jedes bisschen Rechenzeit geht.
          // Der Zweck heiligt ja bekanntlich die Mittel. ;-)
          //
          // Tiamak
              env->_set_last_content_change(); // wurde beim ::move veraendert
      }
      else{ // verbleibende Muenzen zurueck moven
          object temp;
          temp = clone_object(fname);
          temp->SetProp( P_AMOUNT, amount-req );
          temp->move( env, M_NOCHECK );
      }
  }
  
  // wenn man in frisch geclonten Muenzen die noch kein environment haben
  // per Hand U_REQ auf einen Wert != P_AMOUNT setzt, so gehen die
  // Restmuenzen verloren (man behaelt ja eh keinen Zeiger darauf).
  if ( method & M_NOCHECK || !environment() )
      return 1;

  foreach(object item: all_inventory(environment())) {
      if ( IS_EQUAL(item) ) { // feature, bitte nicht ausbauen!!!
          amount = Query(P_AMOUNT) + item->Query(P_AMOUNT);
          item->Set( P_AMOUNT, 0 );
          item->remove();

          Set( P_AMOUNT, amount );
          if ( req < 0 )
              Set( U_REQ, amount );
      }
  }

  if ( amount < 1 )
      call_out( "check_leave", 1 );
  
  return 1;
}

varargs string name	(	int	fall,
		int	demo
	)

Definiert in Zeile 233 der Datei unit.c.

Benutzt name, P_NAME_ADJ, Query(), QueryProp(), RAW und U_REQ.

{
  int req;
  mixed n_adj;
  string adj;

  if ((req=Query(U_REQ))<1) return 0;
  if (fall!=RAW && 
      pointerp(n_adj=QueryProp(P_NAME_ADJ)) && sizeof(n_adj) )
    adj = implode(map(n_adj, #'DeclAdj, fall, demo && req==1), "");
  else
    adj = "";

  if (req==1)
    return sprintf(QueryProp(P_NAME),
                   (fall==RAW || !QueryProp(P_ARTICLE) 
                    ? "" : QueryArticle(fall,demo,1)), adj) /* +korrektur */;

  if (fall!=WEM)
    return sprintf(QueryProp(P_NAME), req, adj);
  else {
     int last;
     last=Query(P_NAME)[1][<1];
     return sprintf(QueryProp(P_NAME), req, adj)
                  +(last!='s' && last!='n' ? "n" : "");
  }
}

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

protected void NotifyMove	(	object	dest,
		object	oldenv,
		int	method
	)

Definiert in Zeile 455 der Datei unit.c.

Benutzt NO_DECAY_UNTIL_MOVE, NotifyMove(), P_UNIT_DECAY_FLAGS, QueryProp() und SetProp().

                                                                  {
  //TODO: Kram aus dem move() hierher verlagern.

  // wenn NO_DECAY_UNTIL_MOVE an ist und dieses ein Move ist, was von einem
  // Env in ein anderes Env geht, loeschen. Nicht geloescht wird
  // hingegen, wenn das move() in das allererste Env erfolgt (nach dem Clonen)
  if ( (QueryProp(P_UNIT_DECAY_FLAGS) & NO_DECAY_UNTIL_MOVE)
      && objectp(dest) && objectp(oldenv) && dest != oldenv)
    SetProp(P_UNIT_DECAY_FLAGS, 
                QueryProp(P_UNIT_DECAY_FLAGS) & ~NO_DECAY_UNTIL_MOVE );
  ::NotifyMove(dest, oldenv, method);
}

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

int* QueryCoinsPerUnits

(

)

Definiert in Zeile 200 der Datei unit.c.

Benutzt Query() und U_CPU.

{
  mixed cpu;
  cpu=Query(U_CPU);
  if (intp(cpu)) return ({ cpu, 1 });
  return cpu;
}

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

int* QueryGramsPerUnits

(

)

Definiert in Zeile 208 der Datei unit.c.

Benutzt Query() und U_GPU.

{
  mixed gpu;
  gpu=Query(U_GPU);
  if (intp(gpu)) return ({ gpu, 1 });
  return gpu;
}

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

varargs string QueryPronoun

(

int

casus

)

Definiert in Zeile 261 der Datei unit.c.

Benutzt WEM und WER.

{
  if (Query(U_REQ)==1)
    return ::QueryPronoun(casus);
  switch(casus) {
    case WESSEN: return "ihrer";
    case WEM:    return "ihnen";
    //default:     return "sie";
  }
  return("sie"); //fall-through
}

varargs int remove

(

)

Definiert in Zeile 445 der Datei unit.c.

Benutzt lastverb, P_AMOUNT, Query(), remove(), SetProp() und U_REQ.

{
  if (lastverb==query_verb() && Query(P_AMOUNT)>Query(U_REQ)) {
    SetProp(P_AMOUNT, Query(P_AMOUNT)-Query(U_REQ));
    return 1;
  }
  return ::remove();
}

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

void RemovePluralId

(

mixed

str

)

Definiert in Zeile 176 der Datei unit.c.

Benutzt Query(), Set() und U_IDS.

{ 
  if(stringp(str))
    str=({str});
  if(pointerp(str))
    return Set(U_IDS,({Query(U_IDS)[0],Query(U_IDS)[1]-str}));
}

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

void RemoveSingularId

(

mixed

str

)

Definiert in Zeile 158 der Datei unit.c.

Benutzt Query(), Set() und U_IDS.

{ 
  if(stringp(str))
    str=({str});
  if(pointerp(str))
    return Set(U_IDS,({Query(U_IDS)[0]-str,Query(U_IDS)[1]}));
}

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

void reset

(

void

)

Definiert in Zeile 418 der Datei unit.c.

             {
  if (!clonep(ME)) {
    // Blueprint ist Master fuer zerfallende Unitobjekte
    // das Decay sollte besser nicht durch manuellen Aufruf in der BP
    // ausgeloest werden, daher Pruefung hier (PO == ME, falls der Reset vom
    // Driver kommt).
    if (previous_object() && previous_object() != ME)
      return; 
    int zeit = QueryProp(P_UNIT_DECAY_INTERVAL);
    if (zeit > 0) {
      set_next_reset(zeit);
      // Das Callout muss auf jeden Fall gemacht werden, wenn ein Decay
      // Intervall gesetzt ist, damit die Blueprint auch den naechsten Reset
      // kriegt, auch wenn es jetzt keine Clone gibt. Wenn es kein Quota gibt,
      // kann der Callout wegfallen, beim Setzen eines Quota wird ja eine
      // Funktion an diesem Objekt gerufen.
      if (QueryProp(P_UNIT_DECAY_QUOTA) > 0)
                call_out(#'_call_DoDecay, 1, 0);
    }
  }
  else {
    // Clones
    if (Query(P_AMOUNT)<1) remove();
    else ::reset();
  }
}

void SetCoinsPerUnits	(	int	coins,
		int	units
	)

Definiert in Zeile 184 der Datei unit.c.

Benutzt Set() und U_CPU.

Wird benutzt von _set_value() und create().

{
  if (coins<0||units<=0) return;
  if (units==1)
    Set(U_CPU, coins);
  else Set(U_CPU,({coins,units}));
}

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

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

void SetGramsPerUnits	(	int	grams,
		int	units
	)

Definiert in Zeile 192 der Datei unit.c.

Benutzt Set() und U_GPU.

Wird benutzt von _set_weight() und create().

{
  if (grams<0||units<=0) return;
  if (units==1)
    Set(U_GPU, grams);
  else Set(U_GPU,({grams,units}));
}

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

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

string short

(

)

Definiert in Zeile 273 der Datei unit.c.

{
  int req;
  if (!lastverb||query_verb()!=lastverb) Set(U_REQ, Query(P_AMOUNT));
  if ((req=Query(U_REQ))<1 || QueryProp(P_INVIS)) return 0;
  return capitalize(name(WER,0))+".\n";
  /*
  if (req>1) return sprintf(QueryProp(P_NAME), req)+".\n";
  return capitalize(sprintf(QueryProp(P_NAME), QueryArticle(WER,0,1)))+".\n";
  */
}

---

Variablen-Dokumentation

private nosave string lastverb

Definiert in Zeile 29 der Datei unit.c.

Wird benutzt von _query_u_req() und remove().

inherit std thing

Definiert in Zeile 13 der Datei unit.c.