pythianproject-cvsmail

[Stefan G. <sgl...@us...>]

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

Modified Files:
	BaseAIs.pas 
Log Message:
change related to the movement command data

Index: BaseAIs.pas
===================================================================
RCS file: /cvsroot/pythianproject/PythianProject/Source/Units/BaseAIs.pas,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -r1.11 -r1.12
*** BaseAIs.pas	2000/09/10 16:47:17	1.11
--- BaseAIs.pas	2000/09/20 18:07:08	1.12
***************
*** 131,140 ****
  procedure TBaseAI.TurnLeft;
  type PInteger = ^integer;
! var turn:PInteger;
  begin
    New(turn);
    // example of specifing turn - 20 is default.
    // refer to Dynamic Objects unit for calculations
!   Turn^ := 40;
    MakeAndAddAICommand(cmdTurnLeft,Turn);
  end;
--- 131,141 ----
  procedure TBaseAI.TurnLeft;
  type PInteger = ^integer;
! var turn:PMotionData;
  begin
    New(turn);
    // example of specifing turn - 20 is default.
    // refer to Dynamic Objects unit for calculations
!   Turn^.speed := 40;
!   Turn^.MaxMotion := 360;
    MakeAndAddAICommand(cmdTurnLeft,Turn);
  end;
***************
*** 142,149 ****
  procedure TBaseAI.TurnRight;
  type PInteger = ^integer;
! var turn:PInteger;
  begin
    New(turn);
!   Turn^ := 40;
    MakeAndAddAICommand(cmdTurnRight,Turn);
  end;
--- 143,151 ----
  procedure TBaseAI.TurnRight;
  type PInteger = ^integer;
! var turn:PMotionData;
  begin
    New(turn);
!   Turn^.speed := 40;
!   Turn^.MaxMotion := 360;
    MakeAndAddAICommand(cmdTurnRight,Turn);
  end;