55                end;

    55                end;

    56      TActions = record

    56      TActions = record

    57                 Count, Pos: Longword;

    57                 Count, Pos: Longword;

    58                 actions: array[0..Pred(MAXACTIONS)] of TAction;

    58                 actions: array[0..Pred(MAXACTIONS)] of TAction;

    59                 Score: LongInt;

    59                 Score: LongInt;

    60                 end;

    61                 end;

    61 

    62 

    62 procedure AddAction(var Actions: TActions; Action: Longword; Param: LongInt; TimeDelta: Longword; X, Y: LongInt);

    63 procedure AddAction(var Actions: TActions; Action: Longword; Param: LongInt; TimeDelta: Longword; X, Y: LongInt);

    63 procedure ProcessAction(var Actions: TActions; Me: PGear);

    64 procedure ProcessAction(var Actions: TActions; Me: PGear);

    64 

    65