Page 1 of 1
błąd zbierania skrzyń
Posted: Thu Nov 22, 2012 3:32 pm
by Lavigo
Witam
Dajmy na to ze mamy areę w której pojawiają sie skrzynki, niech to będzie area_skrzyn
i transportowiec, który ma zbierać skrzynie z tej arei, niech ma ident komora
Mamy więc taki kod:
Code: Select all
every 0$5 trigger GetListOfCratesInArea(area_skrzyn) do
var clear_crates;
begin
enable;
crate_list:=GetListOfCratesInArea(area_skrzyn);
if IsLive(komora) then
ComCollect(komora,crate_list[1],crate_list[2])
else
ComGet(komora,crate_list[1],crate_list[2]);
clear_crates:=false;
repeat
wait(0$1);
until (not IsBusy(komora)) OR clear_crates {OR NOT IsLive(komora)};
end;
transportowiec o idencie komora jest umieszczony na mapie...
Sail znajduje błąd w linijce:
Code: Select all
crate_list:=GetListOfCratesInArea(area_skrzyn);
opcja crate_list jest mu jakby źle napisana, szukałem na forum, ale wszedzie znalazłem taki kod z taką opcją crate_list
w informacji błędu w tej linijce pisze takie cos: undefined identifier 'crate_list'!
Dlaczego mam w tym miejscu błąd?
Prosze o pomoc...
Re: błąd zbierania skrzyń
Posted: Thu Nov 22, 2012 4:03 pm
by Nitek
Code: Select all
Every 0$5 trigger GetListOfCratesInArea(Skrzynki2) do
Var crate_list;
Begin
if IsOk(Baza) and IsOk(Ar_Eng) and not (HasTask(Ar_Eng)) then
Begin
If IsInUnit(Ar_Eng) then ComExitBuilding(Ar_Eng);
Wait(0$1);
crate_list=GetListOfCratesInArea(Skrzynki2);
ComCollect(Ar_Eng,crate_list[1],crate_list[2]);
Repeat
Wait(0$1)
Until
IsIdle(Ar_Eng);
ComEnterUnit(Ar_Eng,Baza);
End
else Wait(0$15);
Enable;
End;
Ja mam coś takiego u siebie i działa. Jest jedynie taka drobna różnica, że u mnie to inżynier zbiera skrzynki. Z drobnymi zmianami możesz to dostosować do swojej sytuacji. Możesz również zobaczyć jak to jest zrobione np. w 14. misji AM.
Re: błąd zbierania skrzyń
Posted: Thu Nov 22, 2012 4:24 pm
by Lavigo
dzieki
Przerobiłem ten kod w taki sposób:
Code: Select all
Every 0$5 trigger GetListOfCratesInArea(Skrzynki2) do
Var crate_list;
Begin
if IsOk(sklad) and IsOk(komora) and not (HasTask(komora)) then
Begin
If IsInUnit(komora) then ComExitBuilding(komora);
Wait(0$1);
crate_list=GetListOfCratesInArea(Skrzynki2);
ComCollect(komora,crate_list[1],crate_list[2]);
Repeat
Wait(0$1)
Until
IsIdle(komora);
End
else Wait(0$15);
Enable;
End;
myślę że to jest źle przerobione, bo zamieniłem tylko kolesia co ma chodzić na komore, jak cos usunąłem z tego kodu to było źle i znajdowało błędy, a w taki sposób działa
dzieki
a co do 14 misji am to oczywiscie patrzyłem ten kod, jest on podobny do tego który napisałem w pierwszym poście;p jego kombinacje też mi nie działały... :/
P.S jeśli ktoś ma kod podobny do tego który jest w pierwszym poscie ALE działa to moze wkleić, bo ten od Nitka jest moim zdaniem źle przeze mnie przerobiony, ewentualnie możecie mi pomóc go przerobić pod pojazd, żeby nie było takich rażących błędów jakie w moim przypadku w nim występują
Re: błąd zbierania skrzyń
Posted: Thu Nov 22, 2012 4:35 pm
by Serpent
Code: Select all
Every 0$02 trigger komora do
var skr, p;
begin
enable;
skr = GetListOfCratesInArea(Area_Skrzyn);
p = 1;
while p < skr do
begin
AddComCollect(komora, skr[p], skr[p+1]);
p = p + 2;
end;
end;
Re: błąd zbierania skrzyń
Posted: Thu Nov 22, 2012 6:34 pm
by Lavigo
ok
dzieki