equal
deleted
inserted
replaced
1800 end; |
1800 end; |
1801 |
1801 |
1802 if not TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then |
1802 if not TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then |
1803 HHGear^.X:= HHGear^.X + cWindSpeed * 200; |
1803 HHGear^.X:= HHGear^.X + cWindSpeed * 200; |
1804 |
1804 |
1805 if (Gear^.Message and gm_Left) <> 0 then HHGear^.X:= HHGear^.X - cMaxWindSpeed * 40 |
1805 if (Gear^.Message and gm_Left) <> 0 then HHGear^.X:= HHGear^.X - cMaxWindSpeed * 80 |
1806 else if (Gear^.Message and gm_Right) <> 0 then HHGear^.X:= HHGear^.X + cMaxWindSpeed * 40; |
1806 else if (Gear^.Message and gm_Right) <> 0 then HHGear^.X:= HHGear^.X + cMaxWindSpeed * 80; |
1807 if (Gear^.Message and gm_Up) <> 0 then HHGear^.Y:= HHGear^.Y - cGravity * 40 |
1807 if (Gear^.Message and gm_Up) <> 0 then HHGear^.Y:= HHGear^.Y - cGravity * 40 |
1808 else if (Gear^.Message and gm_Down) <> 0 then HHGear^.Y:= HHGear^.Y + cGravity * 40; |
1808 else if (Gear^.Message and gm_Down) <> 0 then HHGear^.Y:= HHGear^.Y + cGravity * 40; |
1809 |
1809 |
1810 HHGear^.Y:= HHGear^.Y + cGravity * 100; |
1810 HHGear^.Y:= HHGear^.Y + cGravity * 100; |
1811 Gear^.X:= HHGear^.X; |
1811 Gear^.X:= HHGear^.X; |