equal
deleted
inserted
replaced
82 inc(Count); |
82 inc(Count); |
83 // mines are the easiest way to overflow collision |
83 // mines are the easiest way to overflow collision |
84 if (Count > (MAXRECTSINDEX-20)) then |
84 if (Count > (MAXRECTSINDEX-20)) then |
85 begin |
85 begin |
86 t:= GearsList; |
86 t:= GearsList; |
87 while (t <> nil) and (t^.Kind <> gtMine) do t:= t^.NextGear; |
87 while (t <> nil) and (t^.Kind <> gtMine) do |
88 if (t <> nil) and (t^.Kind = gtMine) then DeleteGear(t) |
88 t:= t^.NextGear; |
|
89 if (t <> nil) then DeleteGear(t) |
89 end; |
90 end; |
90 end; |
91 end; |
91 |
92 |
92 procedure DeleteCI(Gear: PGear); |
93 procedure DeleteCI(Gear: PGear); |
93 begin |
94 begin |