SAIL - HexInArea

[Serpent]

Funkcja zwraca prawdę jeśli dane koordynaty x,y należą do danej arei.

Code: Select all

Export Function HexInArea(x, y, area);
var i, tmp, list;
begin
tmp := false;
list := AreaToList(area, 0);

for i = 1 to list[1] do
    begin
    if list[1][i] = x and list[2][i] = y then
       begin
       tmp := true;
        break;
       end;
    end;

result := tmp;
End;

Notka:
Funkcja InArea(x, y, area) ma takie samo zastosowanie

[MasterKiller]

Code: Select all

on ArtifactUsed(side, nr, par, par2) do
begin
     if HexInArea(par,par2,A_safezone) then
           begin
                Query('CANTUSE');
           end else
           begin
                Case nr of
                4:SetBombing(par,par2,55);
                5:ArtContamination(par,par2, Rand(10,30));
                6:PlaceSeeing(par,par2,1,20);
                end;
           end;
end;

nie wiem, czemu, ale nie dosc, ze twoja funkcja zawiesza mi OW, gdy uzyje artefaktu, ale na dokladke zamienia mi ikonki artefaktow gdy zamienilem na InArea, wszystko jest OK.