equal
deleted
inserted
replaced
1395 tt := Gear^.Elasticity; |
1395 tt := Gear^.Elasticity; |
1396 tx := _0; |
1396 tx := _0; |
1397 ty := _0; |
1397 ty := _0; |
1398 while tt > _20 do |
1398 while tt > _20 do |
1399 begin |
1399 begin |
1400 if ((hwRound(ty) and LAND_HEIGHT_MASK) = 0) and ((hwRound(tx) and LAND_WIDTH_MASK) = 0) and ((Land[hwRound(ty), hwRound(tx)] and $F0) <> 0) then |
1400 if ((hwRound(Gear^.Y+ty) and LAND_HEIGHT_MASK) = 0) and ((hwRound(Gear^.X+tx) and LAND_WIDTH_MASK) = 0) and ((Land[hwRound(Gear^.Y+ty), hwRound(Gear^.X+tx)] and $FF00) <> 0) then |
1401 begin |
1401 begin |
1402 Gear^.X := Gear^.X + tx; |
1402 Gear^.X := Gear^.X + tx; |
1403 Gear^.Y := Gear^.Y + ty; |
1403 Gear^.Y := Gear^.Y + ty; |
1404 Gear^.Elasticity := tt; |
1404 Gear^.Elasticity := tt; |
1405 Gear^.doStep := @doStepRopeWork; |
1405 Gear^.doStep := @doStepRopeWork; |