57              Friction  : Real;

    57              Friction  : Real;

    58              Message : Longword;

    58              Message : Longword;

    59              Hedgehog: pointer;

    59              Hedgehog: pointer;

    60              Health, Damage: LongWord;

    60              Health, Damage: LongWord;

    61              CollIndex: Longword;

    61              CollIndex: Longword;

    63              end;

    63              end;

    64 

    64 

    65 function AddGear(X, Y: integer; Kind: TGearType; State: Cardinal; const dX: real=0.0; dY: real=0.0; Timer: LongWord=0): PGear;

    65 function AddGear(X, Y: integer; Kind: TGearType; State: Cardinal; const dX: real=0.0; dY: real=0.0; Timer: LongWord=0): PGear;

    66 procedure ProcessGears;

    66 procedure ProcessGears;

    67 procedure SetAllToActive;

    67 procedure SetAllToActive;