equal
deleted
inserted
replaced
1135 not Gear^.dY.isNegative and |
1135 not Gear^.dY.isNegative and |
1136 (TestCollisionYwithGear(Gear, 1) and lfIce <> 0) then |
1136 (TestCollisionYwithGear(Gear, 1) and lfIce <> 0) then |
1137 begin |
1137 begin |
1138 slope:= CalcSlopeBelowGear(Gear); |
1138 slope:= CalcSlopeBelowGear(Gear); |
1139 Gear^.dX:=Gear^.dX+cGravity*_128*slope; |
1139 Gear^.dX:=Gear^.dX+cGravity*_128*slope; |
1140 Gear^.State:= Gear^.State or gstMoving; |
1140 if slope.QWordValue <> 0 then Gear^.State:= Gear^.State or gstMoving; |
1141 (* |
1141 (* |
1142 x:= hwRound(Gear^.X); |
1142 x:= hwRound(Gear^.X); |
1143 y:= hwRound(Gear^.Y); |
1143 y:= hwRound(Gear^.Y); |
1144 AddVisualGear(x, y, vgtSmokeTrace); |
1144 AddVisualGear(x, y, vgtSmokeTrace); |
1145 AddVisualGear(x - hwRound(_5*slope), y + hwRound(_5*slope), vgtSmokeTrace); |
1145 AddVisualGear(x - hwRound(_5*slope), y + hwRound(_5*slope), vgtSmokeTrace); |