equal
deleted
inserted
replaced
29 |
29 |
30 uses SDLh, uFloat, uCollisions; |
30 uses SDLh, uFloat, uCollisions; |
31 |
31 |
32 |
32 |
33 |
33 |
34 const dirs: array[0..3] of TPoint = ((X: 0; Y: -1), (X: 1; Y: 0),(X: 0; Y: 1),(X: -1; Y: 0)); |
34 const dirs: array[0..3] of TPoint = ((x: 0; y: -1), |
|
35 (x: 1; y: 0), |
|
36 (x: 0; y: 1), |
|
37 (x: -1; y: 0)); |
35 |
38 |
36 procedure PrevAngle(Gear: PGear; dA: LongInt); inline; |
39 procedure PrevAngle(Gear: PGear; dA: LongInt); inline; |
37 begin |
40 begin |
38 inc(Gear^.WDTimer); |
41 inc(Gear^.WDTimer); |
39 Gear^.Angle := (LongInt(Gear^.Angle) - dA) and 3 |
42 Gear^.Angle := (LongInt(Gear^.Angle) - dA) and 3 |