pythianproject-cvsmail

[Michael H. <mh...@us...>]

Update of /cvsroot/pythianproject/PythianProject/Source/GameEngine
In directory slayer.i.sourceforge.net:/tmp/cvs-serv20015

Modified Files:
	Commands.pas DynObjsState.pas 
Log Message:
-mike

Index: Commands.pas
===================================================================
RCS file: /cvsroot/pythianproject/PythianProject/Source/GameEngine/Commands.pas,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -r1.16 -r1.17
*** Commands.pas	2000/09/20 18:08:50	1.16
--- Commands.pas	2000/10/14 19:41:23	1.17
***************
*** 16,21 ****
      CommandType :integer; // what command is it?
      Data :Pointer; // points to attached data
!     //DeleteOnHandle :boolean; // should this command be deallocated once it has been executed?
!     TTL:integer;
      // Time to live: when -1, lives forever, until manually removed.
      // Equivalent to DeleteOnHandle := false. When 0, will be removed at the end of the game cycle
--- 16,20 ----
      CommandType :integer; // what command is it?
      Data :Pointer; // points to attached data
! //    TTL:integer;
      // Time to live: when -1, lives forever, until manually removed.
      // Equivalent to DeleteOnHandle := false. When 0, will be removed at the end of the game cycle
***************
*** 178,183 ****
  begin
    // removes from list, then frees
!   RemoveCommand(c);
!   Dispose(c);
  end;
  
--- 177,185 ----
  begin
    // removes from list, then frees
!   if assigned(c) then
!   begin
!     RemoveCommand(c);
!     Dispose(c);
!   end;
  end;
  
***************
*** 254,258 ****
      CommandType := -1;
      Data := nil;
!     TTL := 1;
      OriginatingState := StateMachine.CurrentState;
    end;
--- 256,260 ----
      CommandType := -1;
      Data := nil;
!     //@@TTL := 1;
      OriginatingState := StateMachine.CurrentState;
    end;

Index: DynObjsState.pas
===================================================================
RCS file: /cvsroot/pythianproject/PythianProject/Source/GameEngine/DynObjsState.pas,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -r1.16 -r1.17
*** DynObjsState.pas	2000/09/20 18:08:50	1.16
--- DynObjsState.pas	2000/10/14 19:41:23	1.17
***************
*** 120,125 ****
        end;
        // now check if it is to be thrown away
!       if TTL>0 then // mike, is this correct here ???
!         dec(TTl);
      end;
    end;
--- 120,129 ----
        end;
        // now check if it is to be thrown away
! 
!       // no stefan, the TTL system is obsolete. commands stay in
!       // the system for exactly 1 cycle, but if this causes problems
!       // we can change it.
!      { if TTL>0 then // mike, is this correct here ???
!         dec(TTl); }
      end;
    end;