Code: Select all
every 0$1 trigger komora_enabled=true and komora_DMG=false do
var skrzynie,x;
begin
skrzynie=GetListOfCratesInArea(skrzynie_spawn);
x=1;
if IsIdle(komora) and GetCargo(komora,mat_multi)<100 then
begin
while x < skrzynie do
begin
AddComCollect(komora, skrzynie[x], skrzynie[x+1]);
x=x+2;
end;
end;
if GetCargo(komora,mat_multi)>=100 or (GetCargo(komora,mat_multi)>0 and skrzynie=0) then
begin
ComMoveXY(komora,36,41);
repeat
wait(0$1);
until GetDistUnitXY(komora,36,41)<=1;
ComTurnXY(komora,43,41);
SetCargo(komora,mat_cans,0);
wait(1);
ComMoveXY(komora,50,47);
end;
enable;
end;
every 0$2 do
begin
if GetLives(komora)<1000 then
begin
komora_DMG=true;
repeat
wait(0$1);
ComMoveXY(komora,50,47);
until GetDistUnitXY(komora,50,47)<=2;
ComExitVehicle(kiero_komory);
wait(1);
ComRepairVehicle(kiero_komory,komora);
repeat
wait(0$1);
until GetLives(komora)=1000;
ComEnterUnit(kiero_komory,komora);
end else
begin
Say(kiero_komory,'KONW9');
komora_DMG=false;
end;
enable;
end;