equal
deleted
inserted
replaced
1378 end; |
1378 end; |
1379 end; |
1379 end; |
1380 // unC0Rr, while it is true user can watch value on map screen, IMO this (and check above) should be enforced in UI |
1380 // unC0Rr, while it is true user can watch value on map screen, IMO this (and check above) should be enforced in UI |
1381 // - is there a good place to put values for the different widgets to check? Right now they are kind of disconnected. |
1381 // - is there a good place to put values for the different widgets to check? Right now they are kind of disconnected. |
1382 //it'd be nice if divide teams, forts mode and hh per map could all be checked by the team widget, or maybe disable start button |
1382 //it'd be nice if divide teams, forts mode and hh per map could all be checked by the team widget, or maybe disable start button |
1383 TryDo(Count <= MaxHedgehogs, 'Too many hedgehogs for this map!', true); |
1383 TryDo(Count <= MaxHedgehogs, 'Too many hedgehogs for this map! (max # is ' + inttostr(MaxHedgehogs) + ')', true); |
1384 while (Count > 0) do |
1384 while (Count > 0) do |
1385 begin |
1385 begin |
1386 i:= GetRandom(Count); |
1386 i:= GetRandom(Count); |
1387 FindPlace(ar[i]^.Gear, false, 0, LAND_WIDTH); |
1387 FindPlace(ar[i]^.Gear, false, 0, LAND_WIDTH); |
1388 if ar[i]^.Gear <> nil then |
1388 if ar[i]^.Gear <> nil then |