equal
deleted
inserted
replaced
267 //////////////////////////////////////////////////////////////////////////////// |
267 //////////////////////////////////////////////////////////////////////////////// |
268 procedure doStepHedgehogDead(Gear: PGear); |
268 procedure doStepHedgehogDead(Gear: PGear); |
269 const frametime = 200; |
269 const frametime = 200; |
270 timertime = frametime * 6; |
270 timertime = frametime * 6; |
271 begin |
271 begin |
|
272 if PHedgehog(Gear^.Hedgehog)^.Unplaced then exit; |
272 if Gear^.Timer > 1 then |
273 if Gear^.Timer > 1 then |
273 begin |
274 begin |
274 AllInactive:= false; |
275 AllInactive:= false; |
275 dec(Gear^.Timer); |
276 dec(Gear^.Timer); |
276 if (Gear^.Timer mod frametime) = 0 then inc(Gear^.Pos) |
277 if (Gear^.Timer mod frametime) = 0 then inc(Gear^.Pos) |