2346 procedure doStepDynamite(Gear: PGear);

  2346 procedure doStepDynamite(Gear: PGear);

  2347 begin

  2347 begin

  2348     doStepFallingGear(Gear);

  2348     doStepFallingGear(Gear);

  2349     AllInactive := false;

  2349     AllInactive := false;

  2350 

  2350 

  2351     if Gear^.Timer mod 166 = 0 then

  2353     if Gear^.Timer mod 166 = 0 then

  2352         inc(Gear^.Tag);

  2354         inc(Gear^.Tag);

  2353     if Gear^.Timer = 1000 then // might need better timing

  2355     if Gear^.Timer = 1000 then // might need better timing

  2354         makeHogsWorry(Gear^.X, Gear^.Y, 75, Gear^.Kind);

  2356         makeHogsWorry(Gear^.X, Gear^.Y, 75, Gear^.Kind);

  2355     if Gear^.Timer = 0 then

  2357     if Gear^.Timer = 0 then