hedgewars/uAIActions.pas
changeset 15412 7a3d70c364fd
parent 15411 56f2c70723c8
child 15624 30ad3fd974f1
equal deleted inserted replaced
15411:56f2c70723c8 15412:7a3d70c364fd
    66 
    66 
    67 procedure AddAction(var Actions: TActions; Action: Longword; Param: LongInt; TimeDelta: Longword; X, Y: LongInt);
    67 procedure AddAction(var Actions: TActions; Action: Longword; Param: LongInt; TimeDelta: Longword; X, Y: LongInt);
    68 procedure ProcessAction(var Actions: TActions; Me: PGear);
    68 procedure ProcessAction(var Actions: TActions; Me: PGear);
    69 
    69 
    70 implementation
    70 implementation
    71 uses uAIMisc, uAI, uAmmos, uVariables, uCommands, uUtils, uIO{$IFDEF TRACEAIACTIONS}, uConsole{$ENDIF};
    71 uses uAIMisc, uAI, uAmmos, uVariables, uCommands, uConsts, uUtils, uIO{$IFDEF TRACEAIACTIONS}, uConsole{$ENDIF};
    72 
    72 
    73 var PrevX: LongInt = 0;
    73 var PrevX: LongInt = 0;
    74     timedelta: Longword = 0;
    74     timedelta: Longword = 0;
    75 
    75 
    76 const ActionIdToStr: array[0..7] of string[16] = (
    76 const ActionIdToStr: array[0..7] of string[16] = (