hedgewars/HHHandlers.inc
changeset 3422 41ae3c48faa0
parent 3415 1ca22b3493e9
child 3428 46a2694867bc
--- a/hedgewars/HHHandlers.inc	Tue May 04 17:03:38 2010 +0000
+++ b/hedgewars/HHHandlers.inc	Tue May 04 19:40:57 2010 +0000
@@ -163,7 +163,6 @@
                                  portal:= nil;
                                  while iterator <> nil do
                                      begin
-                                     iterator^.PortedCounter:= 0;
                                      if (iterator^.Kind = gtPortal) then
                                          begin
                                          newGear:= iterator;
@@ -172,13 +171,13 @@
                                              begin
                                              if (portal^.uid < newGear^.uid) then 
                                                  begin
-                                                 DeleteGear(portal);
+                                                 deleteGear(portal);
                                                  portal:= newGear
                                                  end
                                              else
                                                  begin
                                                  if newGear^.NextGear = nil then iterator:= nil;
-                                                 DeleteGear(newGear);
+                                                 deleteGear(newGear);
                                                  end
                                              end
                                          else portal:= newGear