equal
deleted
inserted
replaced
50 type TCollisionEntry = record |
50 type TCollisionEntry = record |
51 X, Y, Radius: LongInt; |
51 X, Y, Radius: LongInt; |
52 cGear: PGear; |
52 cGear: PGear; |
53 end; |
53 end; |
54 |
54 |
55 const MAXRECTSINDEX = 255; |
55 const MAXRECTSINDEX = 511; |
56 var Count: Longword = 0; |
56 var Count: Longword = 0; |
57 cinfos: array[0..MAXRECTSINDEX] of TCollisionEntry; |
57 cinfos: array[0..MAXRECTSINDEX] of TCollisionEntry; |
58 ga: TGearArray; |
58 ga: TGearArray; |
59 |
59 |
60 procedure AddGearCI(Gear: PGear); |
60 procedure AddGearCI(Gear: PGear); |