Author: SerpentSerpent wrote:Funkcja zwraca prawdę jeśli jednostka (unit) zmierza na hexa o koordynatach x,y:
Code: Select all
Export Function UnitGoingToXY(unit, x, y); begin if GetTaskList(unit) then begin if 'M' = 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;
Funkcja zwraca prawdę jeśli jednostka (unit) zmierza do arei (area):Uwaga:Code: Select all
Export Function UnitGoingToArea(unit, area); var x, y; begin if GetTaskList(unit) then begin if 'M' = GetTaskList(unit)[1][1] then begin x = GetTaskList(unit)[1][2]; y = GetTaskList(unit)[1][3]; if HexInArea(x, y, area) then result := true else result := false; end else result := false; end; End;
Wymaga zadeklarowania funkcji HexInArea:
https://forum.original-war.net/viewtopi ... =42&t=4544
Funkcja sprawdza czy unit chce wejść do budynku (building):Funkcja sprawdza czy unit chce wejść do pojazdu (veh):Code: Select all
Export Function UnitGoingToBuilding(unit, building); var x, y; begin x := GetX(building); y := GetY(building); if GetTaskList(unit) then begin if 'e' = 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
Export Function UnitGoingToVehicle(unit, veh); var x, y; begin x := GetX(veh); y := GetY(veh); if GetTaskList(unit) then begin if 'E' = 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;
Topic: https://forum.original-war.net/viewtopi ... =42&t=4545