====== Scripts > DM_GetLayer ====== ^ Description | A script to extract a layer from the design map, so that it may be separately viewed, edited, exported, etc. | ^ Author | [[user>Aaron]] | ^ Created | 2010/05/24 | ^ Updated | 2016/05/12 | ^ Requires | L3DT v2.9 beta 2 or later | ^ Download | {{:scripts:DM_GetLayer.zs|DM_GetLayer.zs}} | ===== Script contents =====


// Author:  A. Torpy
// Updated: 16 May 2016

hvar hDM
set hDM 
assert > "Design map not initialised!"

// allow user to select layer
combosel CS
combosel.Init &CS "Altitude|PeakNoise|FracNoise|Cliffs|Erosion|Lakes|Climate|SpecType|SpecParam|" "Altitude" NULL
if >
  return 0
endif

// determine layer ID
int LayerID
set LayerID -1
string LayerName
string PaletteName
set PaletteName "Greyscale"
set LayerName 
if >
  set LayerID 0
elseif >
  set LayerID 1
elseif >
  set LayerID 2
elseif >
  set LayerID 3
elseif >
  set LayerID 4
  set PaletteName "EGA-VGA"
elseif >
  set LayerID 5
  set PaletteName "Blue"
elseif >
  set LayerID 6
  set PaletteName "EGA-VGA"
elseif >
  set LayerID 7
  set PaletteName "EGA-VGA"
elseif >
  set LayerID 8
  set PaletteName "EGA-VGA"
else
  assert false "Invalid layer selection!"
endif

// get or create the map layer
string MapName
set MapName 
hvar hLayer
set hLayer 
if 
  set hLayer 
endif
assert hLayer "Can neither get nor create map layer!"

// free layer if initialised
if 
  map.Free hLayer
endif

assert  "Cannot extract design map layer!"

// set the display palette
hvar hSettings
set hSettings 
if hSettings
  hvar hStr
  set hStr  ".IndexedPalette">>
  set *hStr PaletteName
endif

// and now show & edit the map layer
view.ShowMap MapName