hedgewars/uLand.pas
changeset 6082 16ca7a7a6aa6
parent 6081 537bbd5c1a62
child 6096 a00dbbf49d6c
equal deleted inserted replaced
6081:537bbd5c1a62 6082:16ca7a7a6aa6
  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] = (AMask or BMask) then
  1161                     else if p^[x] = (AMask or BMask) then
  1162                         Land[cpY + y, cpX + x]:= lfIce
  1162                         Land[cpY + y, cpX + x]:= lfBasic or lfIce
  1163                     else if p^[x] = $FFFFFFFF then
  1163                     else if p^[x] = $FFFFFFFF then
  1164                         Land[cpY + y, cpX + x]:= lfBasic;
  1164                         Land[cpY + y, cpX + x]:= lfBasic;
  1165                 end;
  1165                 end;
  1166                 p:= @(p^[tmpsurf^.pitch div 4]);
  1166                 p:= @(p^[tmpsurf^.pitch div 4]);
  1167             end;
  1167             end;