moving.c-Dateireferenz

#include <hook.h>
#include <living/moving.h>
#include <living/skills.h>
#include <thing/properties.h>
#include <thing/description.h>
#include <moving.h>
#include <new_skills.h>
#include <living.h>
#include <config.h>
#include <language.h>
#include <wizlevels.h>
#include <defines.h>

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

gehe zum Quellcode dieser Datei

Makrodefinitionen
#define	NEED_PROTOTYPES
Funktionen
public void	create ()
public void	AddPursuer (object ob)
public void	RemovePursuer (object ob)
public void	_SetPursued (object ob)
public void	_RemovePursued (object ob)
private void	kampfende (object en)
private int	_is_learner (object pl)
protected int	PreventMove (object dest, object oldenv, int method)
protected void	NotifyMove (object dest, object oldenv, int method)
varargs public int	move (mixed dest, int method, string direction, string textout, string textin)
public void	TakeFollowers ()
varargs public int	remove ()

Makro-Dokumentation

#define NEED_PROTOTYPES

Definiert in Zeile 12 der Datei moving.c.

Dokumentation der Funktionen

private int _is_learner ( object pl )

Definiert in Zeile 102 der Datei moving.c.

Benutzt IS_LEARNER.

00102                                    {
00103   return IS_LEARNER(pl); 
00104 }

public void _RemovePursued ( object ob )

Definiert in Zeile 80 der Datei moving.c.

Benutzt P_PURSUERS, Query() und Set().

00081 {
00082   mixed *pur;
00083 
00084   if (!pointerp(pur=Query(P_PURSUERS)) || pur[0]!=ob)
00085     return;
00086   pur[0]=0;
00087   pur[1]-=({0});
00088   if (!sizeof(pur[1]))
00089     pur=0;
00090   Set(P_PURSUERS,pur);
00091 }

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

public void _SetPursued ( object ob )

Definiert in Zeile 66 der Datei moving.c.

Benutzt ME, P_PURSUERS, Query(), RemovePursuer() und Set().

00067 {
00068   mixed *pur;
00069 
00070   if (!pointerp(pur=Query(P_PURSUERS)))
00071     pur=({0,({})});
00072   else
00073     if (objectp(pur[0]))
00074       pur[0]->RemovePursuer(ME);
00075   pur[0]=ob;
00076   pur[1]-=({0});
00077   Set(P_PURSUERS,pur);
00078 }

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

public void AddPursuer ( object ob )

Definiert in Zeile 36 der Datei moving.c.

Benutzt ME, P_PURSUERS, Query() und SetProp().

00037 {
00038   mixed *pur;
00039 
00040   if (!objectp(ob))
00041     return;
00042 
00043   if (!pointerp(pur=Query(P_PURSUERS)))
00044     pur=({0,({})});
00045   else
00046     if (member(pur[1],ob)!=-1)
00047       return;
00048   SetProp(P_PURSUERS,({ pur[0], pur[1]+({ob})-({0}) }));
00049   ob->_SetPursued(ME);
00050 }

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

public void create ( )

Definiert in Zeile 31 der Datei moving.c.

Benutzt H_HOOK_MOVE und offerHook().

00031                      { 
00032     offerHook(H_HOOK_MOVE,1);
00033 }

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

private void kampfende ( object en )

Definiert in Zeile 94 der Datei moving.c.

Benutzt ME, name und WEN.

00094                                     {
00095   if (!objectp(en)) return;
00096   tell_object( ME, capitalize(en->name()) +
00097       " ist jetzt hinter Dir her.\n" );
00098   tell_object( en, "Du verfolgst jetzt " + name(WEN) + ".\n" );      
00099   en->InsertSingleEnemy(ME);
00100 }

varargs public int move	(	mixed	dest,
		int	method,
		string	direction,
		string	textout,
		string	textin
	)

Definiert in Zeile 178 der Datei moving.c.

Benutzt ExitAttack(), H_ALTERED, H_CANCELLED, H_HOOK_MOVE, H_RETCODE, H_RETDATA, HookFlow(), inv(), invis, IS_LEARNER, M_NO_ATTACK, M_NOCHECK, M_SILENT, M_TPORT, ME, ME_CANT_LEAVE_ENV, ME_DONT_WANT_TO_BE_MOVED, ME_WAS_DESTRUCTED, mout, name, Name(), P_MMSGOUT, P_MSGOUT, P_NO_PLAYERS, P_PARA, P_TESTPLAYER, P_TMP_MOVE_HOOK, PreventMove(), QueryEnemies(), QueryProp(), SetProp(), VALID_MOVE_ERROR und WER.

00181 00182 00183 00184 00185 00186 00187 00188 00189 00190 00191 00192 00193 00194 00195 00196 00197 00198 00199 00200 00201 00202 00203 00204 00205 00206 00207 00208 00209 00210 00211 00212 00213 00214 00215 00216 00217 00218 00219 00220 00221 00222 00223 00224 00225 00226 00227 00228 00229 00230         } 00231     } 00232 00233 00234 00235 00236 00237 00238 00239 00240 00241 00242 00243 00244 00245 00246 00247 00248 00249 00250 00251 00252 00253     } 00254 00255 00256 00257 00258 00259 00260       } 00261 00262 00263 00264 00265 00266 00267 00268       } 00269     } 00270 00271 00272 00273 00274 00275 00276 00277 00278 00279 00280 00281 00282     } 00283 00284 00285 00286 00287 00288 00289 00290 00291 00292 00293 00294 00295 00296 00297 00298 00299 00300 00301 00302 00303 00304 00305 00306 00307 00308 00309 00310 00311 00312         } 00313 00314 00315 00316 00317 00318 00319 00320 00321 00322 00323 00324 00325 00326         } 00327 00328 00329 00330 00331 00332 00333 00334 00335 00336 00337 00338 00339 00340 00341 00342 00343 00344 00345 00346 00347 00348 00349 00350 00351 00352 00353 00354 00355 00356 00357 00358 00359 00360 00361 00362 00363 00364 00365 00366 00367 00368 00369 00370 00371 00372 00373 00374 00375 00376 00377 00378 00379     } 00380 00381 00382 00383 00384 00385 00386 00387 00388 00389 00390 00391 00392 00393 00394 00395 00396 00397 00398 00399 00400 00401

class="fragment">00180 { int para, nightvis, invis, tmp; object oldenv, *inv; string fn,vc; mixed res; mixed hookData, hookRes; if (!objectp(dest) && !stringp(dest)) raise_error(sprintf("Wrong argument 1 to move(). 'dest' must be a " "string or object! Argument was: %.100O\n", dest)); // altes Env erstmal merken. oldenv = environment(); //erstmal den richtigen Zielraum suchen, bevor irgendwelche Checks gemacht //werden... // Ist der Spieler in einer Parallelwelt? if ( (para = QueryProp(P_PARA)) && intp(para) ) { fn = objectp(dest) ? object_name(dest) : dest; // Falls der Zielraum nicht schon explizit in der Parallelwelt ist, // neuen Zielraum suchen. Aber nur, wenn fn kein # enthaelt (also kein // Clone ist), sonst wuerde eine Bewegung nach raum#42^para versucht, // was dann buggt. ;-) Problem wird offenbar, wenn ein Para-Lebewesen // im create() eines VC-Raums in Para in den Raum bewegt wird, da // dieser dann noch nicht vom Driver umbenannt wurde und raum#42 // heisst. if ( !sizeof(regexp( ({ fn }), "\\^[1-9][0-9]*$" )) && strrstr(fn,"#")==-1 ) { fn += "^" + para; // Der Parallelwelt-Raum muss existieren und fuer Spieler // freigegeben sein, damit er zum neuen Ziel wird. Ansonsten // duerfen nur NPCs, Testspieler und Magier herein. if ( (find_object(fn) || ((file_size(fn+".c")>0 || (file_size(vc=implode(explode(fn,"/")[0..<2],"/")+ "/virtual_compiler.c")>0 && !catch(tmp=(int)call_other(vc,"QueryValidObject",fn); publish) && tmp>0)) && !catch(load_object(fn);publish) )) && (!interactive(ME) || !fn->QueryProp(P_NO_PLAYERS) || (method & M_NOCHECK) || IS_LEARNER(ME) || (stringp(res = QueryProp(P_TESTPLAYER)) && IS_LEARNER( lower_case(res) ))) ) dest = fn; else // Wir bleiben in der Normalwelt. para = 0; // jetzt erstmal Hooks abpruefen, da sie ggf. die Daten aendern. // alten P_TMP_MOVE_HOOK pruefen. if ( res = QueryProp(P_TMP_MOVE_HOOK) ){ if ( pointerp(res) && sizeof(res) >= 3 && intp(res[0]) && time()<res[0] && objectp(res[1]) && stringp(res[2]) ){ if ( res = call_other( res[1], res[2], dest, method, direction, textout, textin ) ){ if ( pointerp(res) && sizeof(res) == 5 ){ dest = res[0]; method = res[1]; direction = res[2]; textout = res[3]; textin = res[4]; } else if ( intp(res) && res == -1 ) return ME_CANT_LEAVE_ENV; } } else SetProp( P_TMP_MOVE_HOOK, 0 ); // move hook nach neuem Hooksystem triggern. hookData=({dest,method,direction,textout,textin}); hookRes=HookFlow(H_HOOK_MOVE,hookData); if(hookRes && pointerp(hookRes) && sizeof(hookRes)>H_RETDATA) { if(hookRes[H_RETCODE]==H_CANCELLED) { return ME_CANT_LEAVE_ENV; else if(hookRes[H_RETCODE]==H_ALTERED && hookRes[H_RETDATA] && pointerp(hookRes[H_RETDATA]) && sizeof(hookRes[H_RETDATA])>=5 ){ dest = hookRes[H_RETDATA][0]; method = hookRes[H_RETDATA][1]; direction = hookRes[H_RETDATA][2]; textout = hookRes[H_RETDATA][3]; textin = hookRes[H_RETDATA][4]; // dest auf Object normieren if (stringp(dest)) dest=load_object(dest); // jetzt Checks durchfuehren, ob das Move durchgefuehrt werden darf. if (tmp=PreventMove(dest, oldenv, method)) { // auf gueltigen Fehler pruefen, wer weiss, was Magier da evtl. // versehentlich zurueckgeben. if (VALID_MOVE_ERROR(tmp)) return(tmp); else return(ME_DONT_WANT_TO_BE_MOVED); if ( invis = QueryProp(P_INVIS) ) method |= M_SILENT; if ( objectp(oldenv) ) { if ( !(method & M_SILENT) ) { string *mout; if ( !textout ){ if ( method & M_TPORT ) textout = (string) QueryProp(P_MMSGOUT) || (string) QueryProp(P_MSGOUT); else textout = (mout = explode( (string) QueryProp(P_MSGOUT) || "", "#" ))[0] || (string)QueryProp(P_MMSGOUT); } if ( !strlen(direction) ) direction = 0; inv = all_inventory(environment()) - ({ this_object() }); inv = filter( inv, #'living/*'*/ ); inv -= filter_objects( inv, "CannotSee", 1 ); filter( inv, #'tell_object/*'*/, Name( WER, 2 ) + " " + textout + (direction ? " " + direction : "") + (sizeof(mout) > 1 ? mout[1] : "") + ".\n" ); // Magier sehen auch Bewegungen, die M_SILENT sind else if ( interactive(ME) ){ inv = (all_inventory(environment()) & users()) - ({ this_object() }); inv = filter( inv, #'_is_learner/*'*/ ); if ( invis ) fn = "(" + capitalize(getuid(ME)) + ") verschwindet " "unsichtbar.\n"; else fn = capitalize(getuid(ME)) + " verschwindet ganz leise.\n"; filter( inv, #'tell_object/*'*/, fn ); // Nackenschlag beim Fluechten: if ( !(method & M_NO_ATTACK) && objectp(ME) ) ExitAttack(); //falls nach ExitAttack() das Living nicht mehr existiert, muss das //move() auch nicht mehr fortgesetzt werden. Weiter unten gibt es auch //min. eine Stelle, die nicht prueft und ggf. buggt. Daher erfolgt //hier ggf. ein Abbruch. 15.11.06 Zesstra if (!objectp(ME)) return(ME_WAS_DESTRUCTED); // Nackenschlag kann ME in den Todesraum bewegt haben... if ( oldenv == environment() ) { // Fuer alle anwesenden gegner kampfende() aufrufen filter((QueryEnemies()[0] & all_inventory(oldenv))-({0}), #'kampfende); // Bugs im exit() sind ohne catch() einfach mist. catch(environment()->exit(ME, dest);publish); } } // irgendwas kann das Objekt zerstoert haben, z.B. env->exit(). if (!objectp(ME)) return(ME_WAS_DESTRUCTED); if ( oldenv != environment() ) // Der Nackenschlag oder exit() koennen einen schon bewegt haben. // Und wenn es in den Todesraum ist. ;^) return MOVE_OK; SetProp( P_PREPARED_SPELL, 0 ); // Spruchvorbereitung abgebrochen SetProp( P_LAST_MOVE, time() ); // Zeitpunkt der letzten Bewegung move_object(ME, dest); if (!objectp(ME)) return(ME_WAS_DESTRUCTED); dest = environment(); nightvis = UseSkill(SK_NIGHTVISION); // Meldungen an nicht-Blinde ausgeben, falls keine 'stille' Bewegung if ( !(method & M_SILENT) ) { if ( !textin ) { if ( method & M_TPORT ) textin = (string) QueryProp(P_MMSGIN); else textin = (string) QueryProp(P_MSGIN); } inv = all_inventory(environment()) - ({ this_object() }); inv = filter( inv, #'living/*'*/ ); inv -= filter_objects( inv, "CannotSee", 1 ); filter( inv, #'tell_object/*'*/, capitalize(name( WER, 0 )) + " " + textin + ".\n" ); // sonst: Magier sehen auch M_SILENT-Bewegungen, hier also nur an Magier // ausgeben, alle anderen sehen eh nix. else if ( interactive(ME) ) { inv = (all_inventory(environment()) & users()) - ({this_object()}); inv = filter( inv, #'_is_learner/*'*/ ); if ( invis ) fn = "(" + capitalize(getuid(ME)) + ") taucht unsichtbar auf.\n"; else fn = capitalize(getuid(ME)) + " schleicht leise herein.\n"; filter( inv, #'tell_object, fn ); } // "Objekt" ueber das Move informieren. NotifyMove(dest, oldenv, method); // InitAttack() in NotifyMove() kann das Objekt zerstoert haben. if (!objectp(ME)) return(ME_WAS_DESTRUCTED); //scheint wohl geklappt zu haben. return MOVE_OK; }

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

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

Definiert in Zeile 152 der Datei moving.c.

Benutzt call_out(), InitAttack(), IsTeamLeader(), M_NO_ATTACK, ME, P_PURSUERS, P_TEAM_AUTOFOLLOW, Query() und QueryProp().

00152                                                                   {
00153   mixed res;
00154   object enem;
00155 
00156   // Begruessungsschlag fuer die Gegener
00157   if ( !(method & M_NO_ATTACK) )
00158       InitAttack();
00159 
00160   if (!objectp(ME)) return;
00161 
00162   // Verfolger nachholen.
00163   if ( pointerp(res = Query(P_PURSUERS)) && sizeof(res[1]) ) {
00164       while ( remove_call_out( "TakeFollowers" ) >= 0 );
00165 
00166       call_out( "TakeFollowers", 0 );
00167   }
00168 
00169   // und noch das Team nachholen.
00170   if ( oldenv != dest
00171       && objectp(ME)
00172       && QueryProp(P_TEAM_AUTOFOLLOW)
00173       && objectp( enem = IsTeamLeader() ) )
00174       enem->StartFollow(oldenv); // Teamverfolgung
00175 
00176 }

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

protected int PreventMove	(	object	dest,
		object	oldenv,
		int	method
	)

Definiert in Zeile 109 der Datei moving.c.

Benutzt M_GO, M_NOCHECK, M_TPORT, ME_CANT_BE_INSERTED, ME_CANT_LEAVE_ENV, ME_CANT_TPORT_IN, ME_CANT_TPORT_OUT, ME_PLAYER, NO_TPORT, NO_TPORT_IN, NO_TPORT_OUT, P_NO_TPORT und QueryProp().

00109                                                                   {
00110 
00111   // M_NOCHECK? -> Bewegung eh erlaubt (und Rueckgabewert wuerde ignoriert),
00112   // aber PreventInsert/PreventLeave() rufen und ignorieren.
00113   if ((method&M_NOCHECK)) {
00114       // erst PreventLeaveLiving() rufen...
00115       if(environment())         
00116                   environment()->PreventLeaveLiving(this_object(), dest);
00117       // dann PreventInsertLiving() im Ziel-Env.
00118       dest->PreventInsertLiving(this_object());
00119       // und raus...
00120       return(0);
00121   }
00122 
00123   // bei Lebewesen muss die Bewegungsmethode M_GO und M_TPORT sein. Dies ist
00124   // gleichzeigt die Restriktion gegen das Nehmen von Lebewesen, da dort
00125   // M_GET/M_GIVE/M_PUT etc. verwendet wuerde. Bei M_GO und M_TPORT findet
00126   // keine Pruefung statt, ob das Objekt ins Ziel 'reinpasst' (Gewicht, Anzahl
00127   // Objekte usw.).
00128   // Ich finde es etwas merkwuerdig gebaut (Zesstra).
00129   if ( !(method & (M_GO | M_TPORT)) )
00130       return ME_PLAYER;
00131   
00132   // alte und neue Umgebung auf NO_TPORT pruefen.
00133   if ( (method & M_TPORT) ) {
00134     if ( environment() &&
00135         (environment()->QueryProp(P_NO_TPORT) & (NO_TPORT_OUT|NO_TPORT)) )
00136           return ME_CANT_TPORT_OUT;
00137     else if ( dest->QueryProp(P_NO_TPORT) & (NO_TPORT_IN|NO_TPORT) )
00138           return ME_CANT_TPORT_IN;
00139   }
00140 
00141   // erst PreventLeaveLiving() testen...
00142   if( environment() && environment()->PreventLeaveLiving(this_object(), dest))
00143       return ME_CANT_LEAVE_ENV;
00144   // dann PreventInsertLiving() im Ziel-Env
00145   if (dest->PreventInsertLiving(this_object())) 
00146       return ME_CANT_BE_INSERTED;
00147 
00148   return 0;
00149 }

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

varargs public int remove ( )

Definiert in Zeile 431 der Datei moving.c.

00432 { object team;
00433 
00434   if ( objectp(team=Query(P_TEAM)) )
00435     catch(team->RemoveMember(ME);publish);
00436 
00437   if( environment() ) environment()->NotifyRemove(ME);
00438   destruct(ME);
00439   return 1;
00440 }

public void RemovePursuer ( object ob )

Definiert in Zeile 52 der Datei moving.c.

Benutzt ME, P_PURSUERS, Query() und SetProp().

Wird benutzt von _SetPursued().

00053 {
00054   mixed *pur;
00055 
00056   if (pointerp(pur=Query(P_PURSUERS)) && member(pur[1],ob)!=-1)
00057   {
00058     pur[1]-=({ob,0});
00059     ob->_RemovePursued(ME);
00060     if (!pur[0]&&!sizeof(pur[1]))
00061       pur=0;
00062     SetProp(P_PURSUERS,pur);
00063   }
00064 }

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

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

public void TakeFollowers ( )

Definiert in Zeile 403 der Datei moving.c.

Wird benutzt von modify_command().

00404 {
00405   mixed *f,env;
00406   int meth,i,r;
00407 
00408   f=Query(P_PURSUERS);
00409   if (!pointerp(f))
00410     return;
00411   env=environment();
00412   if(object_name(env) == "/room/netztot") return;
00413   foreach(object follower: f[1]-({0}) ) {
00414     // die pruefung auf objectp ist nicht verrueckt, es kann theo. sein, dass
00415     // Verfolger im PreventFollow() oder in ihrem move/init andere Verfolger
00416     // zerstoeren.
00417     if (objectp(follower) && environment(follower)!=env) {
00418       //meth=M_NOCHECK;
00419       meth=M_GO;
00420       if (follower->Query(P_FOLLOW_SILENT))
00421                   meth|=M_SILENT|M_NO_SHOW;
00422       catch(r=follower->PreventFollow(env);publish);
00423       if (!r)
00424                   follower->move(env,meth);
00425       else if (r==2)
00426                   RemovePursuer(follower);
00427     }
00428   }
00429 }

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

moving.c-Dateireferenz

Makrodefinitionen

Funktionen

Makro-Dokumentation

Dokumentation der Funktionen