hedgewars/uCollisions.pas
changeset 5294 67278f1cba2c
parent 5290 eea7570d345f
child 5568 badaac85f9d4
equal deleted inserted replaced
5247:bf6d4bc531d2 5294:67278f1cba2c
    20 
    20 
    21 unit uCollisions;
    21 unit uCollisions;
    22 interface
    22 interface
    23 uses uFloat, uTypes;
    23 uses uFloat, uTypes;
    24 
    24 
    25 const cMaxGearArrayInd = 255;
    25 const cMaxGearArrayInd = 1023;
    26 
    26 
    27 type PGearArray = ^TGearArray;
    27 type PGearArray = ^TGearArray;
    28     TGearArray = record
    28     TGearArray = record
    29             ar: array[0..cMaxGearArrayInd] of PGear;
    29             ar: array[0..cMaxGearArrayInd] of PGear;
    30             Count: Longword
    30             Count: Longword