equal
deleted
inserted
replaced
161 amPortalGun: begin |
161 amPortalGun: begin |
162 iterator:= GearsList; |
162 iterator:= GearsList; |
163 portal:= nil; |
163 portal:= nil; |
164 while iterator <> nil do |
164 while iterator <> nil do |
165 begin |
165 begin |
166 iterator^.PortedCounter:= 0; |
|
167 if (iterator^.Kind = gtPortal) then |
166 if (iterator^.Kind = gtPortal) then |
168 begin |
167 begin |
169 newGear:= iterator; |
168 newGear:= iterator; |
170 iterator:= iterator^.NextGear; |
169 iterator:= iterator^.NextGear; |
171 if (portal <> nil) then |
170 if (portal <> nil) then |
172 begin |
171 begin |
173 if (portal^.uid < newGear^.uid) then |
172 if (portal^.uid < newGear^.uid) then |
174 begin |
173 begin |
175 DeleteGear(portal); |
174 deleteGear(portal); |
176 portal:= newGear |
175 portal:= newGear |
177 end |
176 end |
178 else |
177 else |
179 begin |
178 begin |
180 if newGear^.NextGear = nil then iterator:= nil; |
179 if newGear^.NextGear = nil then iterator:= nil; |
181 DeleteGear(newGear); |
180 deleteGear(newGear); |
182 end |
181 end |
183 end |
182 end |
184 else portal:= newGear |
183 else portal:= newGear |
185 end |
184 end |
186 else iterator:= iterator^.NextGear |
185 else iterator:= iterator^.NextGear |