Author: SerpentSerpent wrote:Funkcja zwraca rozbudowy fabryki zadanej parametrem.
Funkcja zwraca tablicę która zawiera informacje o typie rozbudowy, jej położeniu i kierunku.Code: Select all
Export Function GetFacExt(factory); var tmp, i, list; begin tmp := []; list := []; for i = 16 to 25 do tmp := tmp ^ FilterAllUnits([[[f_side, GetSide(factory)], [f_dist, factory, 6], [f_btype, i]]]); for i = 1 to tmp do list := list ^ [[GetBType(tmp[i]), GetX(tmp[i]), GetY(tmp[i]), GetDir(tmp[i])]]; result := list; End;
Zwracana tablica jest dwuelementowa:Funkcja przydaje się gdy chcemy sprawdzić czy fabryka ma wszystkie żądane rozbudowy.Code: Select all
Przykład: [typ,x,y,d] [typ,x,y,d] [typ,x,y,d] [typ,x,y,d] W tym przykładzie fabryka ma 4 rozbudowy. Aby odwołać się np. do rozbudowy pierwszej piszemy: GetFacExt(fabryka1)[1]; Aby odwołać się do typu rozbudowy pierwszej piszemy: GetFacExt(fabryka1)[1][1]; Aby odwołać się do x,y rozbudowy nr. 4 piszemy: GetFacExt(fabryka1)[4][2]; GetFacExt(fabryka1)[4][3];
Topic: https://forum.original-war.net/viewtopi ... =42&t=4554