equal
deleted
inserted
replaced
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^.State and gstDrowning) = 0) then |
2351 if (Gear^.State and gstDrowning) = 0 then |
2352 exit; |
2352 exit; |
2353 if Gear^.Timer mod 166 = 0 then |
2353 if Gear^.Timer mod 166 = 0 then |
2354 inc(Gear^.Tag); |
2354 inc(Gear^.Tag); |
2355 if Gear^.Timer = 1000 then // might need better timing |
2355 if Gear^.Timer = 1000 then // might need better timing |
2356 makeHogsWorry(Gear^.X, Gear^.Y, 75, Gear^.Kind); |
2356 makeHogsWorry(Gear^.X, Gear^.Y, 75, Gear^.Kind); |