SAIL - GetFacExt (pobieranie rozbudów istniejącej fabryk

Gotowe kody SAIL'a, informacje na temat moddingu, itd.

Moderator: zoNE

Post Reply
User avatar
zoNE
The Great Uniter & Site Administrator
The Great Uniter & Site Administrator
Posts: 2059
Joined: Fri Feb 17, 2006 3:44 pm
Location: Poland
Contact:

SAIL - GetFacExt (pobieranie rozbudów istniejącej fabryk

Post by zoNE »

Serpent wrote:Funkcja zwraca rozbudowy fabryki zadanej parametrem.

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;
Funkcja zwraca tablicę która zawiera informacje o typie rozbudowy, jej położeniu i kierunku.

Zwracana tablica jest dwuelementowa:

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];
Funkcja przydaje się gdy chcemy sprawdzić czy fabryka ma wszystkie żądane rozbudowy.
Author: Serpent
Topic: https://forum.original-war.net/viewtopi ... =42&t=4554
Post Reply