equal
deleted
inserted
replaced
3415 begin |
3415 begin |
3416 for i:= 0 to hogs.size - 1 do |
3416 for i:= 0 to hogs.size - 1 do |
3417 with hogs.ar^[i]^ do |
3417 with hogs.ar^[i]^ do |
3418 if (hogs.ar^[i] <> CurrentHedgehog^.Gear) and (Hedgehog^.Effects[heFrozen] = 0) then |
3418 if (hogs.ar^[i] <> CurrentHedgehog^.Gear) and (Hedgehog^.Effects[heFrozen] = 0) then |
3419 begin |
3419 begin |
3420 dX:= _50 * cGravity * (Gear^.X - X) / _25; |
3420 if (WorldEdge <> weWrap) or (not (hwAbs(Gear^.X - X) > int2hwFloat(Gear^.Radius))) then |
|
3421 dX:= _50 * cGravity * (Gear^.X - X) / _25 |
|
3422 else if (not (hwAbs(Gear^.X + int2hwFloat(RightX-LeftX) - X) > int2hwFloat(Gear^.Radius))) then |
|
3423 dX:= _50 * cGravity * ((Gear^.X + int2hwFloat(RightX-LeftX)) - X) / _25 |
|
3424 else |
|
3425 dX:= _50 * cGravity * ((Gear^.X - int2hwFloat(RightX-LeftX)) - X) / _25; |
3421 dY:= -_450 * cGravity; |
3426 dY:= -_450 * cGravity; |
3422 Active:= true; |
3427 Active:= true; |
3423 end |
3428 end |
3424 else if Hedgehog^.Effects[heFrozen] > 255 then |
3429 else if Hedgehog^.Effects[heFrozen] > 255 then |
3425 Hedgehog^.Effects[heFrozen]:= 255 |
3430 Hedgehog^.Effects[heFrozen]:= 255 |