equal
deleted
inserted
replaced
380 SetAllHHToActive; |
380 SetAllHHToActive; |
381 end; |
381 end; |
382 if TestCollisionYwithGear(Gear, 1) then |
382 if TestCollisionYwithGear(Gear, 1) then |
383 begin |
383 begin |
384 Gear.dY:= 0; |
384 Gear.dY:= 0; |
385 HHGear.dX:= 0.0000001 * hwSign(HHGear.dX); |
385 SetLittle(HHGear.dX); |
386 HHGear.dY:= 0; |
386 HHGear.dY:= 0; |
387 end else |
387 end else |
388 begin |
388 begin |
389 Gear.dY:= Gear.dY + cGravity; |
389 Gear.dY:= Gear.dY + cGravity; |
390 Gear.Y:= Gear.Y + Gear.dY; |
390 Gear.Y:= Gear.Y + Gear.dY; |