590      SelectTemplate:= CavernTemplates[getrandom(Succ(High(CavernTemplates)))];

   590      SelectTemplate:= CavernTemplates[getrandom(Succ(High(CavernTemplates)))];

   591      end;

   591      end;

   592      5: begin

   592      5: begin

   593      SelectTemplate:= WackyTemplates[getrandom(Succ(High(WackyTemplates)))];

   593      SelectTemplate:= WackyTemplates[getrandom(Succ(High(WackyTemplates)))];

   594      end;

   594      end;

   595 end;

   599 end;

   596 WriteLnToConsole('Selected template #'+inttostr(SelectTemplate)+' using filter #'+inttostr(cTemplateFilter));

   600 WriteLnToConsole('Selected template #'+inttostr(SelectTemplate)+' using filter #'+inttostr(cTemplateFilter));

   597 end;

   601 end;

   598 

   602 

   599 procedure LandSurface2LandPixels(Surface: PSDL_Surface);

   603 procedure LandSurface2LandPixels(Surface: PSDL_Surface);