equal
deleted
inserted
replaced
18 |
18 |
19 {$INCLUDE "options.inc"} |
19 {$INCLUDE "options.inc"} |
20 |
20 |
21 unit uLand; |
21 unit uLand; |
22 interface |
22 interface |
23 uses SDLh, uLandTemplates, uConsts, uTypes, uAILandMarks; |
23 uses SDLh, uConsts, uTypes, uAILandMarks; |
24 |
24 |
25 procedure initModule; |
25 procedure initModule; |
26 procedure freeModule; |
26 procedure freeModule; |
27 procedure DrawBottomBorder; |
27 procedure DrawBottomBorder; |
28 procedure GenMap; |
28 procedure GenMap; |
363 SelectTemplate:= 'small' |
363 SelectTemplate:= 'small' |
364 else |
364 else |
365 begin |
365 begin |
366 if (cTemplateFilter = 0) and (cMapGen <> mgMaze) then |
366 if (cTemplateFilter = 0) and (cMapGen <> mgMaze) then |
367 begin |
367 begin |
368 l:= getRandom(GroupedTemplatesCount); |
368 l:= getRandom(5) + 1; |
369 repeat |
|
370 inc(cTemplateFilter); |
|
371 dec(l, TemplateCounts[cTemplateFilter]); |
|
372 until l < 0; |
|
373 end |
369 end |
374 else getRandom(1); |
370 else getRandom(1); |
375 |
371 |
376 case cMapGen of |
372 case cMapGen of |
377 mgMaze: |
373 mgMaze: |