equal
deleted
inserted
replaced
4796 begin |
4796 begin |
4797 // This jiggles gears, to ensure a portal connection just placed under a gear takes effect. |
4797 // This jiggles gears, to ensure a portal connection just placed under a gear takes effect. |
4798 iterator:= GearsList; |
4798 iterator:= GearsList; |
4799 while iterator <> nil do |
4799 while iterator <> nil do |
4800 begin |
4800 begin |
4801 if not (iterator^.Kind in [gtPortal, gtAirAttack, gtKnife]) and ((iterator^.Hedgehog <> CurrentHedgehog) |
4801 if not (iterator^.Kind in [gtPortal, gtAirAttack, gtKnife, gtSMine]) and ((iterator^.Hedgehog <> CurrentHedgehog) |
4802 or ((iterator^.Message and gmAllStoppable) = 0)) then |
4802 or ((iterator^.Message and gmAllStoppable) = 0)) then |
4803 begin |
4803 begin |
4804 iterator^.Active:= true; |
4804 iterator^.Active:= true; |
4805 if iterator^.dY.QWordValue = 0 then |
4805 if iterator^.dY.QWordValue = 0 then |
4806 iterator^.dY.isNegative:= false; |
4806 iterator^.dY.isNegative:= false; |