changeset 10015 | 4feced261c68 |
parent 9998 | 736015b847e3 |
parent 9950 | 2759212a27de |
child 10108 | c68cf030eded |
--- a/hedgewars/uGearsHandlers.pas Sun Jan 19 00:18:28 2014 +0400 +++ b/hedgewars/uGearsHandlers.pas Tue Jan 21 22:38:13 2014 +0100 @@ -31,7 +31,10 @@ -const dirs: array[0..3] of TPoint = ((X: 0; Y: -1), (X: 1; Y: 0),(X: 0; Y: 1),(X: -1; Y: 0)); +const dirs: array[0..3] of TPoint = ((x: 0; y: -1), + (x: 1; y: 0), + (x: 0; y: 1), + (x: -1; y: 0)); procedure PrevAngle(Gear: PGear; dA: LongInt); inline; begin