equal
deleted
inserted
replaced
3485 dX:= _50 * cGravity * (Gear^.X - X) / _25 |
3485 dX:= _50 * cGravity * (Gear^.X - X) / _25 |
3486 else if (not (hwAbs(Gear^.X + int2hwFloat(RightX-LeftX) - X) > int2hwFloat(Gear^.Radius))) then |
3486 else if (not (hwAbs(Gear^.X + int2hwFloat(RightX-LeftX) - X) > int2hwFloat(Gear^.Radius))) then |
3487 dX:= _50 * cGravity * ((Gear^.X + int2hwFloat(RightX-LeftX)) - X) / _25 |
3487 dX:= _50 * cGravity * ((Gear^.X + int2hwFloat(RightX-LeftX)) - X) / _25 |
3488 else |
3488 else |
3489 dX:= _50 * cGravity * ((Gear^.X - int2hwFloat(RightX-LeftX)) - X) / _25; |
3489 dX:= _50 * cGravity * ((Gear^.X - int2hwFloat(RightX-LeftX)) - X) / _25; |
3490 dY:= -_450 * cGravity; |
3490 dY:= -_450 * cMaxWindSpeed * 2; |
3491 Active:= true; |
3491 Active:= true; |
3492 end |
3492 end |
3493 else if Hedgehog^.Effects[heFrozen] > 255 then |
3493 else if Hedgehog^.Effects[heFrozen] > 255 then |
3494 Hedgehog^.Effects[heFrozen]:= 255 |
3494 Hedgehog^.Effects[heFrozen]:= 255 |
3495 end ; |
3495 end ; |