298 end; |
298 end; |
299 |
299 |
300 function SelectTemplate: LongInt; |
300 function SelectTemplate: LongInt; |
301 var l: LongInt; |
301 var l: LongInt; |
302 begin |
302 begin |
|
303 SelectTemplate:= 0; |
303 if (cReducedQuality and rqLowRes) <> 0 then |
304 if (cReducedQuality and rqLowRes) <> 0 then |
304 SelectTemplate:= SmallTemplates[getrandom(Succ(High(SmallTemplates)))] |
305 SelectTemplate:= SmallTemplates[getrandom(Succ(High(SmallTemplates)))] |
305 else |
306 else |
306 begin |
307 begin |
307 if cTemplateFilter = 0 then |
308 if cTemplateFilter = 0 then |
308 begin |
309 begin |
309 l:= getRandom(GroupedTemplatesCount); |
310 l:= getRandom(GroupedTemplatesCount); |
310 repeat |
311 repeat |
311 inc(cTemplateFilter); |
312 inc(cTemplateFilter); |
312 dec(l, TemplateCounts[cTemplateFilter]); |
313 dec(l, TemplateCounts[cTemplateFilter]); |
313 until l < 0; |
314 until l < 0; |
314 end else getRandom(1); |
315 end |
315 |
316 else getRandom(1); |
316 case cTemplateFilter of |
317 |
317 0: OutError('Error selecting TemplateFilter. Ask unC0Rr about what you did wrong', true); |
318 case cTemplateFilter of |
318 1: SelectTemplate:= SmallTemplates[getrandom(TemplateCounts[cTemplateFilter])]; |
319 0: OutError('Error selecting TemplateFilter. Ask unC0Rr about what you did wrong', true); |
319 2: SelectTemplate:= MediumTemplates[getrandom(TemplateCounts[cTemplateFilter])]; |
320 1: SelectTemplate:= SmallTemplates[getrandom(TemplateCounts[cTemplateFilter])]; |
320 3: SelectTemplate:= LargeTemplates[getrandom(TemplateCounts[cTemplateFilter])]; |
321 2: SelectTemplate:= MediumTemplates[getrandom(TemplateCounts[cTemplateFilter])]; |
321 4: SelectTemplate:= CavernTemplates[getrandom(TemplateCounts[cTemplateFilter])]; |
322 3: SelectTemplate:= LargeTemplates[getrandom(TemplateCounts[cTemplateFilter])]; |
322 5: SelectTemplate:= WackyTemplates[getrandom(TemplateCounts[cTemplateFilter])]; |
323 4: SelectTemplate:= CavernTemplates[getrandom(TemplateCounts[cTemplateFilter])]; |
323 // For lua only! |
324 5: SelectTemplate:= WackyTemplates[getrandom(TemplateCounts[cTemplateFilter])]; |
324 6: begin |
325 // For lua only! |
325 SelectTemplate:= min(LuaTemplateNumber,High(EdgeTemplates)); |
326 6: begin |
326 GetRandom(2) // burn 1 |
327 SelectTemplate:= min(LuaTemplateNumber,High(EdgeTemplates)); |
327 end |
328 GetRandom(2) // burn 1 |
328 end |
329 end |
329 end; |
330 end |
|
331 end; |
330 |
332 |
331 WriteLnToConsole('Selected template #'+inttostr(SelectTemplate)+' using filter #'+inttostr(cTemplateFilter)); |
333 WriteLnToConsole('Selected template #'+inttostr(SelectTemplate)+' using filter #'+inttostr(cTemplateFilter)); |
332 end; |
334 end; |
333 |
335 |
334 procedure LandSurface2LandPixels(Surface: PSDL_Surface); |
336 procedure LandSurface2LandPixels(Surface: PSDL_Surface); |