hedgewars/uAIActions.pas
changeset 4377 43945842da0c
parent 4374 bcefeeabaa33
child 4403 0dfe26f48ec1
equal deleted inserted replaced
4376:9654205a9424 4377:43945842da0c
    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, uAIMisc, uAI, uAmmos, uVariables, uCommands, uUtils;
    65 uses uAIMisc, uAI, uAmmos, uVariables, uCommands, uUtils, uIO;
    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',