hedgewars/uAIActions.pas
changeset 4373 fe0e3903bb9e
parent 4359 83ef50815535
child 4374 bcefeeabaa33
equal deleted inserted replaced
4372:3836973380b9 4373:fe0e3903bb9e
    60 
    60 
    61 procedure AddAction(var Actions: TActions; Action: Longword; Param: LongInt; TimeDelta: Longword; X, Y: LongInt);
    61 procedure AddAction(var Actions: TActions; Action: Longword; Param: LongInt; TimeDelta: Longword; X, Y: LongInt);
    62 procedure ProcessAction(var Actions: TActions; Me: PGear);
    62 procedure ProcessAction(var Actions: TActions; Me: PGear);
    63 
    63 
    64 implementation
    64 implementation
    65 uses uMisc, uConsole, uAIMisc, uAI, uAmmos, uVariables;
    65 uses uMisc, uAIMisc, uAI, uAmmos, uVariables, uCommands;
    66 
    66 
    67 const ActionIdToStr: array[0..6] of string[16] = (
    67 const ActionIdToStr: array[0..6] of string[16] = (
    68 {aia_none}           '',
    68 {aia_none}           '',
    69 {aia_Left}           'left',
    69 {aia_Left}           'left',
    70 {aia_Right}          'right',
    70 {aia_Right}          'right',