hedgewars/uLand.pas
changeset 15144 59c595191eba
parent 15141 af14c418c92f
child 15158 4744d7b78c75
equal deleted inserted replaced
15143:794dc7237ca1 15144:59c595191eba
   283 end;
   283 end;
   284 
   284 
   285 
   285 
   286 procedure GenDrawnMap;
   286 procedure GenDrawnMap;
   287 begin
   287 begin
   288     if (cFeatureSize <= 6) then
   288     if (cFeatureSize <= 3) then
       
   289         // sizes 1-3 are identical
       
   290         MaxHedgehogs:= 8
       
   291     else if (cFeatureSize <= 6) then
   289         MaxHedgehogs:= 6 + (cFeatureSize-1) * 2
   292         MaxHedgehogs:= 6 + (cFeatureSize-1) * 2
   290     else if (cFeatureSize < 11) then
   293     else if (cFeatureSize < 11) then
   291         MaxHedgehogs:= 16 + (cFeatureSize-6) * 4
   294         MaxHedgehogs:= 16 + (cFeatureSize-6) * 4
   292     else if (cFeatureSize = 11) then
   295     else if (cFeatureSize = 11) then
   293         MaxHedgehogs:= 48
   296         MaxHedgehogs:= 48