Mercurial Mercurial > hedgewars-draft / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uGearsHandlersMess.pas
changeset 10822 def423815f24
parent 10818 f642a28cab0c
child 10827 2b717f687c72
equal deleted inserted replaced
10820:e86ba0e821a6 10822:def423815f24 
  1837     if targ <> nil then
 
  1837     if targ <> nil then
 
  1838         begin
 
  1838         begin
 
  1839         trackSpeed:= _0;
 
  1839         trackSpeed:= _0;
 
  1840         trackSpeed.QWordValue:= Gear^.Power;
 
  1840         trackSpeed.QWordValue:= Gear^.Power;
 
  1841         if (Gear^.X < targ^.X) and (Gear^.dX < _0_1)  then
 
  1841         if (Gear^.X < targ^.X) and (Gear^.dX < _0_1)  then
 
  1842              Gear^.dX:= Gear^.dX+trackSpeed
 
  1842              Gear^.dX:= Gear^.dX+trackSpeed // please leave as an add.  I like the effect
 
  1843         else if (Gear^.X > targ^.X) and (Gear^.dX > -_0_1) then
 
  1843         else if (Gear^.X > targ^.X) and (Gear^.dX > -_0_1) then
 
  1844             Gear^.dX:= Gear^.dX-trackSpeed;
 
  1844             Gear^.dX:= Gear^.dX-trackSpeed;
 
  1845         if (Gear^.Y < targ^.Y) and (Gear^.dY < _0_1)  then
 
  1845         if (Gear^.Y < targ^.Y) and (Gear^.dY < _0_1)  then
 
  1846              Gear^.dY:= Gear^.dY+trackSpeed
 
  1846              Gear^.dY:= Gear^.dY+trackSpeed
 
  1847         else if (Gear^.Y > targ^.Y) and (Gear^.dY > -_0_1) then
 
  1847         else if (Gear^.Y > targ^.Y) and (Gear^.dY > -_0_1) then
hedgewars-draft