changeset 1506 | a4ab75470ce1 |
parent 1505 | 3a96e93572cb |
child 1515 | 0cf2edcfdd8f |
1505:3a96e93572cb | 1506:a4ab75470ce1 |
---|---|
1226 var t: PGearArray; |
1226 var t: PGearArray; |
1227 i: LongInt; |
1227 i: LongInt; |
1228 begin |
1228 begin |
1229 t:= CheckGearsCollision(Ammo); |
1229 t:= CheckGearsCollision(Ammo); |
1230 i:= t^.Count; |
1230 i:= t^.Count; |
1231 |
|
1231 while i > 0 do |
1232 while i > 0 do |
1232 begin |
1233 begin |
1233 dec(i); |
1234 dec(i); |
1234 if (t^.ar[i]^.State and gstNoDamage) = 0 then |
1235 if (t^.ar[i]^.State and gstNoDamage) = 0 then |
1235 case t^.ar[i]^.Kind of |
1236 case t^.ar[i]^.Kind of |