← Back to branch summary

~ubuntu-branches/ubuntu/utopic/hedgewars/utopic

« back to all changes in this revision

Viewing changes to hedgewars/uGearsHandlers.pas

  • Committer: Package Import Robot
  • Author(s): Gianfranco Costamagna
  • Date: 2014-01-02 12:37:23 UTC
  • mfrom: (19.1.5 sid)
  • Revision ID: package-import@ubuntu.com-20140102123723-6pdhmyj8tb5y8xbg
Tags: 0.9.20.3-1
New upstream minor release, suitable for unstable

Show diffs side-by-side

added added

removed removed

Lines of Context:
hedgewars/uGearsHandlers.pas
61
61
        begin
62
62
        Gear^.Tag := 0;
63
63
        Gear^.Y := Gear^.Y + int2hwFloat(yy);
64
 
        if not TestCollisionXwithGear(Gear, xxn) then
 
64
        if TestCollisionXwithGear(Gear, xxn) = 0 then
65
65
            begin
66
66
            Gear^.X := Gear^.X + int2hwFloat(xxn);
67
67
            NextAngle(Gear, dA)
69
69
        end;
70
70
 
71
71
    if (yy = 0) then
72
 
        if TestCollisionXwithGear(Gear, xx) then
 
72
        if TestCollisionXwithGear(Gear, xx) <> 0 then
73
73
            PrevAngle(Gear, dA)
74
74
    else
75
75
        begin