hedgewars/HHHandlers.inc
changeset 3415 1ca22b3493e9
parent 3407 dcc129c4352e
child 3422 41ae3c48faa0
equal deleted inserted replaced
3414:b2f3bb44777e 3415:1ca22b3493e9
   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;
   166                                      if (iterator^.Kind = gtPortal) then
   167                                      if (iterator^.Kind = gtPortal) then
   167                                          begin
   168                                          begin
   168                                          newGear:= iterator;
   169                                          newGear:= iterator;
   169                                          iterator:= iterator^.NextGear;
   170                                          iterator:= iterator^.NextGear;
   170                                          if (portal <> nil) then
   171                                          if (portal <> nil) then