equal
deleted
inserted
replaced
328 begin |
328 begin |
329 fps:=Template.FillPoints^; |
329 fps:=Template.FillPoints^; |
330 ResizeLand(Template.TemplateWidth, Template.TemplateHeight); |
330 ResizeLand(Template.TemplateWidth, Template.TemplateHeight); |
331 for y:= 0 to LAND_HEIGHT - 1 do |
331 for y:= 0 to LAND_HEIGHT - 1 do |
332 for x:= 0 to LAND_WIDTH - 1 do |
332 for x:= 0 to LAND_WIDTH - 1 do |
333 Land[y, x]:= lfBasic; |
333 LandSet(y, x, lfBasic); |
334 |
334 |
335 minDistance:= sqr(cFeatureSize) div 8 + 10; |
335 minDistance:= sqr(cFeatureSize) div 8 + 10; |
336 //dabDiv:= getRandom(41)+60; |
336 //dabDiv:= getRandom(41)+60; |
337 //dabDiv:= getRandom(31)+70; |
337 //dabDiv:= getRandom(31)+70; |
338 dabDiv:= getRandom(21)+100; |
338 dabDiv:= getRandom(21)+100; |
366 begin |
366 begin |
367 hasBorder:= true; |
367 hasBorder:= true; |
368 for y:= 0 to LAND_HEIGHT - 1 do |
368 for y:= 0 to LAND_HEIGHT - 1 do |
369 for x:= 0 to LAND_WIDTH - 1 do |
369 for x:= 0 to LAND_WIDTH - 1 do |
370 if (y < LongWord(topY)) or (x < LongWord(leftX)) or (x > LongWord(rightX)) then |
370 if (y < LongWord(topY)) or (x < LongWord(leftX)) or (x > LongWord(rightX)) then |
371 Land[y, x]:= 0 |
371 LandSet(y, x, 0) |
372 else |
372 else |
373 begin |
373 begin |
374 if Land[y, x] = 0 then |
374 if LandGet(y, x) = 0 then |
375 Land[y, x]:= lfBasic |
375 LandSet(y, x, lfBasic) |
376 else if Land[y, x] = lfBasic then |
376 else if LandGet(y, x) = lfBasic then |
377 Land[y, x]:= 0; |
377 LandSet(y, x, 0); |
378 end; |
378 end; |
379 end; |
379 end; |
380 end; |
380 end; |
381 |
381 |
382 |
382 |