equal
deleted
inserted
replaced
370 SetAllHHToActive; |
370 SetAllHHToActive; |
371 end; |
371 end; |
372 if TestCollisionYwithGear(Gear, 1) then |
372 if TestCollisionYwithGear(Gear, 1) then |
373 begin |
373 begin |
374 Gear.dY:= 0; |
374 Gear.dY:= 0; |
375 HHGear.dX:= 0.0000001 * hwSign(PGear(Gear.Hedgehog).dX); |
375 HHGear.dX:= 0.0000001 * hwSign(HHGear.dX); |
376 HHGear.dY:= 0; |
376 HHGear.dY:= 0; |
377 end else |
377 end else |
378 begin |
378 begin |
379 Gear.dY:= Gear.dY + cGravity; |
379 Gear.dY:= Gear.dY + cGravity; |
380 Gear.Y:= Gear.Y + Gear.dY; |
380 Gear.Y:= Gear.Y + Gear.dY; |