Code: Select all
Export Function WantDismantle(unit, building);
var x, y;
begin
x := GetX(building);
y := GetY(building);
if GetTaskList(unit) then
begin
if 'Y' = GetTaskList(unit)[1][1] and
x = GetTaskList(unit)[1][2] and
y = GetTaskList(unit)[1][3] then
result := true
else
result := false;
end
else
result := false;
End;
Code: Select all
// ...
if WantDismantle(eng1, magazyn) then
// akcja..
// ...