equal
deleted
inserted
replaced
58 type TCollisionEntry = record |
58 type TCollisionEntry = record |
59 X, Y, Radius: LongInt; |
59 X, Y, Radius: LongInt; |
60 cGear: PGear; |
60 cGear: PGear; |
61 end; |
61 end; |
62 |
62 |
63 const MAXRECTSINDEX = 511; |
63 const MAXRECTSINDEX = 1023; |
64 var Count: Longword; |
64 var Count: Longword; |
65 cinfos: array[0..MAXRECTSINDEX] of TCollisionEntry; |
65 cinfos: array[0..MAXRECTSINDEX] of TCollisionEntry; |
66 ga: TGearArray; |
66 ga: TGearArray; |
67 |
67 |
68 procedure AddGearCI(Gear: PGear); |
68 procedure AddGearCI(Gear: PGear); |