3154     doPortalColorSwitch();

  3154     doPortalColorSwitch();

  3155 

  3155 

  3156     // destroy portal if ground it was attached too is gone

  3156     // destroy portal if ground it was attached too is gone

  3157     if ((Land[hwRound(Gear^.Y), hwRound(Gear^.X)] and $FF00) = 0)

  3157     if ((Land[hwRound(Gear^.Y), hwRound(Gear^.X)] and $FF00) = 0)

  3158        or (Gear^.Timer < 1)

  3158        or (Gear^.Timer < 1)

  3159        or (hwRound(Gear^.Y) > cWaterLine) then

  3160        or (hwRound(Gear^.Y) > cWaterLine) then

  3160     begin

  3161     begin

  3161         deleteGear(Gear);

  3162         deleteGear(Gear);

  3162         EXIT;

  3163         EXIT;

  3163     end;

  3164     end;

  3302 

  3303 

  3303     if destroyGear then oldPortal^.Timer:= 0;

  3304     if destroyGear then oldPortal^.Timer:= 0;

  3304 end;

  3305 end;

  3305 

  3306 

  3306 begin

  3307 begin

  3308     begin

  3310     begin

  3309         deleteGear(Gear);

  3311         deleteGear(Gear);

  3310         EXIT;

  3312         EXIT;

  3311     end;

  3313     end;

  3312     

  3314