hedgewars/GSHandlers.inc
changeset 3355 dc9e61e67484
parent 3351 3fd3f116f2fc
child 3356 3ae3fccb439e
equal deleted inserted replaced
3354:cb5d13ff4aae 3355:dc9e61e67484
  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;