original-war.net

Code: Select all

end

Code: Select all

every 1$0.6 do
var un;
begin
  for side in cpu_list do
    begin

          uc_nation:=nation_american;
          vc_chassis:=us_medium_tracked;
          vc_engine:=engine_siberite;
          vc_control:=control_computer;

          un:=CreateVehicle;
            wait(0$1);
          PlaceUnitArea(un,create_areas[nation_american],false);
       enable;
    end;
end;

Code: Select all

Starting
begin
ResetFog;
InitVariables;
// ...
End;

Export crates_to_collect;
Function InitVariables;
begin
crates_to_collect := [];
// inne zmienne
End;

Code: Select all

Export Function SpawnCargo(side, area);
begin
uc_side := side;
uc_nation := nation_american;

vc_chassis := us_medium_tracked;
vc_engine := engine_siberite;
vc_control := control_computer;
vc_weapon := us_cargo_bay;

un := CreateVehicle;
PlaceUnitArea(un, area ,false);
End;

Code: Select all

Every 0$1 do
SpawnCargo(1, spawn_area);

Code: Select all

// Event rejestrujący spadające skrzynki
On CrateSpawn(id, x, y, amount, mode) do
begin
// pomijamy artefakty
if GetResourceTypeXY(x, y) = mat_artefact then
   exit;

// w tym miejscu można by sprawdzać które dokładnie skrzynki mają być rejestrowane, bierzemy te z Area100
if InArea(x, y, Area100) then
   crates_to_collect := Insert(crates_to_collect, crates_to_collect+1, [x, y]);
End;

Code: Select all

Every 0$1 trigger FilterAllUnits([[f_side, 1], [f_weapon, us_cargo_bay]]) and crates_to_collect do
var i;
begin
enable;

for i in FilterAllUnits([[f_side, 1], [f_weapon, us_cargo_bay]]) do
     begin
     if not HasTask(i) and GetLives(i) > 250 then
        begin
        ComCollect(i, crates_to_collect[1][1], crates_to_collect[1][2]);
        crates_to_collect := Delete(crates_to_collect, 1);
        end;
     end;   
End;

Code: Select all

On UnitDestroyed(un) do
begin
if GetSide(un) = 1 and GetWeapon(un) = us_cargo_bay then
   SpawnCargo(1, spawn_area);
End;

Code: Select all

Every 0$1 trigger FilterAllUnits([[f_side, 1], [f_weapon, us_cargo_bay]]) and crates_to_collect do
var i, dep;
begin
enable;

dep := FilterAllUnits([[f_side, 1], [f_or, [f_btype, b_depot], [f_btype, b_warehouse]]]);

for i in FilterAllUnits([[f_side, 1], [f_weapon, us_cargo_bay]]) do
     begin
     if not HasTask(i) and GetLives(i) > 250 then
        begin
        ComCollect(i, crates_to_collect[1][1], crates_to_collect[1][2]);
        crates_to_collect := Delete(crates_to_collect, 1);
        
        if dep then
           AddComGive(i, NearestUnitToUnit(dep, i));
        end;
     end;   
End;