// Losuj "num" razy punkty z obszaru pomiedzy koordynatami
Export Function RandPointsFromArea(x1, y1, x2, y2, num);
var list, i;
begin
list := [];
for i = 1 to num do
begin
list := list ^ Rand(x1, x2);
list := list ^ Rand(y1, y2);
end;
result := list;
End;
Oznaczenia:
x1,y1 - koordy hexa położonego w lewym górnym rogu obszaru
x2,y2 - koordy hexa położonego w prawym dolnym rogu obszaru
x1,y1________________________|
|
| OBSZAR
|__________________________x2,y2
num - ilość wylosowanych punktów
Funkcja zwraca listę z koordynatami.
Every 0$01 do
var i, list, un, p;
begin
list := RandPointsFromArea(31, 49, 46, 53, 4);
display_strings := list;
p := 1;
for i = 1 to 4 do
begin
PrepareHuman(false, 1, 1);
un := CreateHuman;
PlaceUnitArea(un, area02, false);
ComMoveXY(un, list[p], list[p+1]);
AddComHold(un);
p := p + 2;
end;
End;
Epickie teksty: Marek1906: jak zrobic aby sail był zielony? Kvantovy: Wszystko normalne, wszystko w koło było dziwne Kvantovy:: To jest fajne, że to nie jest takie głupie Kvantovy:: remove sos from kanapeczka Kvantovy:: zdarzają się rzezy które sie filozofom nie śniły Cenwen: problemem jest gejostwo
"Taki z niego fizyk jak ze mnie baletnica" - Profesor Scholtze o Kvantovym.
JAKBYŁ BYM CZECHEM TO BYM ROZŁOŻYŁ NAMIOT ~Kvanciak
Export Function RandPointsFromArea(x1, y1, x2, y2, num);
var list, i, x, y;
begin
list := [];
for i = 1 to num do
begin
x := MultiRand(x1, x2, 1);
y := MultiRand(y1, y2, 1);
if HexInfo(x, y) = 0 and not [x,y] in list then
begin
list := list ^ x;
list := list ^ y;
end
else
num := num + 1;
end;
result := list;
End;
Epickie teksty: Marek1906: jak zrobic aby sail był zielony? Kvantovy: Wszystko normalne, wszystko w koło było dziwne Kvantovy:: To jest fajne, że to nie jest takie głupie Kvantovy:: remove sos from kanapeczka Kvantovy:: zdarzają się rzezy które sie filozofom nie śniły Cenwen: problemem jest gejostwo
"Taki z niego fizyk jak ze mnie baletnica" - Profesor Scholtze o Kvantovym.
JAKBYŁ BYM CZECHEM TO BYM ROZŁOŻYŁ NAMIOT ~Kvanciak