(August 4th, 2020, 17:40)Seravy Wrote:Code:
k:=0;
case Gd.landsize of
LandMinimal : k:=1;
LandTiny : k:=3;
else k:=6;
end;
for i:=1 to nofplanes do begin
// Weak Lairs
for j:=1 to 2*k+trunc(planeratio[i]*12) do
if i=1 then GenerateRandomLair(i,100+30*(random(20)+1)) else
GenerateRandomLair(i,100+30*(random(30)+1));
// Strong Lairs
for j:=1 to k+trunc(planeratio[i]*15) do
if i=1 then GenerateRandomLair(i,250+50*(random(60)+1)) else
GenerateRandomLair(i,250+50*(random(70)+1));
end;
Do you use Pascal as programming language?