1156                 begin

  1156                 begin

  1157                     if ((AMask and p^[x]) = 0) then  // Tiy was having trouble generating transparent black

  1157                     if ((AMask and p^[x]) = 0) then  // Tiy was having trouble generating transparent black

  1158                         Land[cpY + y, cpX + x]:= 0

  1158                         Land[cpY + y, cpX + x]:= 0

  1159                     else if p^[x] = (AMask or RMask) then

  1159                     else if p^[x] = (AMask or RMask) then

  1160                         Land[cpY + y, cpX + x]:= lfIndestructible

  1160                         Land[cpY + y, cpX + x]:= lfIndestructible

  1161                     else if p^[x] = $FFFFFFFF then

  1163                     else if p^[x] = $FFFFFFFF then

  1162                         Land[cpY + y, cpX + x]:= lfBasic;

  1164                         Land[cpY + y, cpX + x]:= lfBasic;

  1163                 end;

  1165                 end;

  1164                 p:= @(p^[tmpsurf^.pitch div 4]);

  1166                 p:= @(p^[tmpsurf^.pitch div 4]);

  1165             end;

  1167             end;