equal
deleted
inserted
replaced
589 len:= Gear^.Elasticity - _20; |
589 len:= Gear^.Elasticity - _20; |
590 while len > _5 do |
590 while len > _5 do |
591 begin |
591 begin |
592 tx:= cc*len; |
592 tx:= cc*len; |
593 ty:= cs*len; |
593 ty:= cs*len; |
594 lx:= hwRound(Gear^.X + tx) + hwSign(HHGear^.dX); |
594 lx:= hwRound(Gear^.X + tx) + hwSign(HHGear^.dX)*2; |
595 ly:= hwRound(Gear^.Y + ty) + hwSign(HHGear^.dY); |
595 ly:= hwRound(Gear^.Y + ty) + hwSign(HHGear^.dY)*2; |
596 if ((ly and $FFFFFC00) = 0) and ((lx and $FFFFF800) = 0)and (Land[ly, lx] <> 0) then |
596 if ((ly and $FFFFFC00) = 0) and ((lx and $FFFFF800) = 0) and (Land[ly, lx] <> 0) then |
597 begin |
597 begin |
598 with RopePoints.ar[RopePoints.Count] do |
598 with RopePoints.ar[RopePoints.Count] do |
599 begin |
599 begin |
600 X:= Gear^.X; |
600 X:= Gear^.X; |
601 Y:= Gear^.Y; |
601 Y:= Gear^.Y; |
1221 RemoveGearFromList(HHGear); |
1221 RemoveGearFromList(HHGear); |
1222 InsertGearToList(HHGear); |
1222 InsertGearToList(HHGear); |
1223 |
1223 |
1224 repeat |
1224 repeat |
1225 CurrentTeam^.CurrHedgehog:= Succ(CurrentTeam^.CurrHedgehog) mod (CurrentTeam^.HedgehogsNumber); |
1225 CurrentTeam^.CurrHedgehog:= Succ(CurrentTeam^.CurrHedgehog) mod (CurrentTeam^.HedgehogsNumber); |
1226 until (CurrentHedgehog^.Gear <> nil); |
1226 until (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil); |
|
1227 |
|
1228 CurrentHedgehog:= @CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog]; |
1227 |
1229 |
1228 HHGear:= CurrentHedgehog^.Gear; |
1230 HHGear:= CurrentHedgehog^.Gear; |
1229 HHGear^.State:= State; |
1231 HHGear^.State:= State; |
1230 HHGear^.Active:= true; |
1232 HHGear^.Active:= true; |
1231 FollowGear:= HHGear; |
1233 FollowGear:= HHGear; |