1124     HHGear: PGear;

  1124     HHGear: PGear;

  1125 begin

  1125 begin

  1126     AllInactive := false;

  1126     AllInactive := false;

  1127     HHGear := Gear^.Hedgehog^.Gear;

  1127     HHGear := Gear^.Hedgehog^.Gear;

  1128     dec(Gear^.Timer);

  1128     dec(Gear^.Timer);

  1129     if (Gear^.Timer = 0)or((Gear^.Message and gmDestroy) <> 0)or((HHGear^.State and gstHHDriven) =

  1130     if (Gear^.Timer = 0)or((Gear^.Message and gmDestroy) <> 0)or((HHGear^.State and gstHHDriven) =

  1130        0) then

  1131        0) then

  1131         begin

  1132         begin

  1132         StopSound(Gear^.SoundChannel);

  1133         StopSound(Gear^.SoundChannel);

  1133         DeleteGear(Gear);

  1134         DeleteGear(Gear);

  1233     b: boolean;

  1234     b: boolean;

  1234     prevX: LongInt;

  1235     prevX: LongInt;

  1235 begin

  1236 begin

  1236     AllInactive := false;

  1237     AllInactive := false;

  1237     dec(Gear^.Timer);

  1238     dec(Gear^.Timer);

  1238     HHGear := Gear^.Hedgehog^.Gear;

  1241     HHGear := Gear^.Hedgehog^.Gear;

  1239 

  1242 

  1240     HedgehogChAngle(HHGear);

  1243     HedgehogChAngle(HHGear);

  1241 

  1244 

  1242     b := false;

  1245     b := false;