equal
deleted
inserted
replaced
212 ((mx > x) xor (Dir > 0)) then |
212 ((mx > x) xor (Dir > 0)) then |
213 if (cGear^.Kind in [gtHedgehog, gtMine, gtExplosives]) and ((Gear^.State and gstNotKickable) = 0) then |
213 if (cGear^.Kind in [gtHedgehog, gtMine, gtExplosives]) and ((Gear^.State and gstNotKickable) = 0) then |
214 begin |
214 begin |
215 with cGear^ do |
215 with cGear^ do |
216 begin |
216 begin |
217 dX:= Gear^.dX; |
217 if (Kind <> gtExplosives) or ((State and gsttmpflag) <> 0) then dX:= Gear^.dX; |
218 dY:= Gear^.dY * _0_5; |
218 dY:= Gear^.dY * _0_5; |
219 State:= State or gstMoving; |
219 State:= State or gstMoving; |
220 Active:= true |
220 Active:= true |
221 end; |
221 end; |
222 DeleteCI(cGear); |
222 DeleteCI(cGear); |
264 ((my > y) xor (Dir > 0)) then |
264 ((my > y) xor (Dir > 0)) then |
265 if (cGear^.Kind in [gtHedgehog, gtMine, gtExplosives]) and ((Gear^.State and gstNotKickable) = 0) then |
265 if (cGear^.Kind in [gtHedgehog, gtMine, gtExplosives]) and ((Gear^.State and gstNotKickable) = 0) then |
266 begin |
266 begin |
267 with cGear^ do |
267 with cGear^ do |
268 begin |
268 begin |
269 dX:= Gear^.dX * _0_5; |
269 if (Kind <> gtExplosives) or ((State and gsttmpflag) <> 0) then dX:= Gear^.dX * _0_5; |
270 dY:= Gear^.dY; |
270 dY:= Gear^.dY; |
271 State:= State or gstMoving; |
271 State:= State or gstMoving; |
272 Active:= true |
272 Active:= true |
273 end; |
273 end; |
274 DeleteCI(cGear); |
274 DeleteCI(cGear); |