Noob robi moda :)

Tematy zbędne, ale zbyt dobre by je usunąć znajdują się tutaj.
Používateľov profilový obrázok
Scyzor
Community Veteran
Community Veteran
Beiträge: 78
Registriert: St Dec 27, 2006 10:59 am

Príspevok von Scyzor »

sorry , ze sie wtracam ale mam tylko 1 pytanie i nieoplaca sie robic osobnego tematu.
Co zrobic zeby misja skonczyla sie po opracowaniu w laboratorium lasera i zdalnego sterowania ??
nieprawidłowa sygnatura
Používateľov profilový obrázok
NaDoL
Community Veteran
Community Veteran
Beiträge: 379
Registriert: St Apr 12, 2006 7:43 pm
Bydlisko: Poland
Kontaktdaten:

temat

Príspevok von NaDoL »

Mówiłem że jest na forum wystarczy poszukać >.>
Researched(1,technologia)
liste tech masz w pliku txt z owsupport ze stałymi albo tutaj=>
http://forum.original-war.net/viewtopic ... 3&start=45
Obrázok
Používateľov profilový obrázok
Scyzor
Community Veteran
Community Veteran
Beiträge: 78
Registriert: St Dec 27, 2006 10:59 am

Príspevok von Scyzor »

thx
nieprawidłowa sygnatura
Používateľov profilový obrázok
Odyseusz
Community Veteran
Community Veteran
Beiträge: 180
Registriert: St Jan 24, 2007 12:37 pm
Bydlisko: Wygwizdowo Dolne

Príspevok von Odyseusz »

No tak, wiem że 3 rodzaje broni powinny być, ale gdy z 3 próbowałem to też był ten błąd. :) Teraz powinno pójść z górki, w weekend może udostępnie już bete moda, bo narazie nie mam czasu by 3 misje dokończyć :?

==========
Mam jeszcze jeden problem, otóż w pewnym momencie misji mamy zapytanie, jeśli wybieramy pierwsza odpowiedź na mapie powinno sie pojawić 2 dodatkowych żołnierzy, jednak pomimo pomyślnej compilacji postacie te się nie pojawiają. Zostały exportowane i utworzone na początku skryptu.
every 15$0 do
Begin
InGameOn;
CenterNowOnXY(49,37);
SayRadio(Harisson,'h1');
SayRadio(Kowalski,'k8');
SayRadio(Harisson,'h2');
SayRadio(Kowalski,'k9');
SayRadio(Harisson,'h3');
SayRadio(Kowalski,'k10');
SayRadio(Harisson,'h4');

Wait(0$1);
Case Query('Zapytanie1') of
1: begin
SayRadio(Kowalski,'k11');
SayRadio(Harisson,'h5');
SayRadio(Kowalski,'k13');
InGameOff;

Wait(0$10);
PlaceUnitArea(Welker,posilki,false);
PlaceUnitArea(Lamarr,posilki,false);

end;

2: begin
SayRadio(Kowalski,'k12');
SayRadio(Harisson,'h6');
SayRadio(Kowalski,'k13');

InGameOff;
end;
end;
end;
Používateľov profilový obrázok
Scyzor
Community Veteran
Community Veteran
Beiträge: 78
Registriert: St Dec 27, 2006 10:59 am

Príspevok von Scyzor »

nie jestem pewien ale chyba za duzo tych end; na koncu
a jak nie to wez compile w edytorze saila
w tedy powinien wyskoczyc error i zobaczysz co jest zle
nieprawidłowa sygnatura
ph3nom
Veteran
Beiträge: 286
Registriert: Št Aug 03, 2006 2:17 pm
Bydlisko: Europe

Príspevok von ph3nom »

Scyzor napísal:nie jestem pewien ale chyba za duzo tych end; na koncu
a jak nie to wez compile w edytorze saila
w tedy powinien wyskoczyc error i zobaczysz co jest zle
Nie chyba ale na pewno. Nie znam się za bardzo na SAIL, ale wiadomo nie od dziś że w kodzie może być tylko jedne "end;".
Obrázok
Používateľov profilový obrázok
Odyseusz
Community Veteran
Community Veteran
Beiträge: 180
Registriert: St Jan 24, 2007 12:37 pm
Bydlisko: Wygwizdowo Dolne

Príspevok von Odyseusz »

Kiedy wpisywałem jedno end na końcu kodu wyskakiwał mi error, ale ok. Sprawdze zaraz kod z jednym end :wink:
Radzio
Site Administrator
Site Administrator
Poland
Beiträge: 2898
Registriert: Pi Júl 28, 2006 10:58 am
Bydlisko: Bialystok, Poland

Príspevok von Radzio »

End'ow powinno byc tyle co i begin'ow.

EDIT: Czyli podsumowujac: powinno byc o jednego end'a mniej...
Používateľov profilový obrázok
Odyseusz
Community Veteran
Community Veteran
Beiträge: 180
Registriert: St Jan 24, 2007 12:37 pm
Bydlisko: Wygwizdowo Dolne

Príspevok von Odyseusz »

W przypadku gdy na końcu kodu pozostają 2 endy wyskakuje error:
Compiling Error at Main line 165: 'end' or command expectet but 'end_of_file' found!
A gdy jeden end to mamy:
Compiling Error at Main line 165: Expression expectet
Radzio
Site Administrator
Site Administrator
Poland
Beiträge: 2898
Registriert: Pi Júl 28, 2006 10:58 am
Bydlisko: Bialystok, Poland

Príspevok von Radzio »

W pierwszym przypdaku brakuje end'a, w drugim jakiegos slowa.
Používateľov profilový obrázok
Odyseusz
Community Veteran
Community Veteran
Beiträge: 180
Registriert: St Jan 24, 2007 12:37 pm
Bydlisko: Wygwizdowo Dolne

Príspevok von Odyseusz »

Radzio napísal:W pierwszym przypdaku brakuje end'a
No właśnie... jeśli dodam 3 end to wróce do punktu wyjścia.

A co do tego słowa... to żadnego braku w kodzie nie zauważyłem.
Radzio
Site Administrator
Site Administrator
Poland
Beiträge: 2898
Registriert: Pi Júl 28, 2006 10:58 am
Bydlisko: Bialystok, Poland

Príspevok von Radzio »

a napisales na poczatku starting ?

---

i jak mozesz to wklej caly kod...
Používateľov profilový obrázok
Odyseusz
Community Veteran
Community Veteran
Beiträge: 180
Registriert: St Jan 24, 2007 12:37 pm
Bydlisko: Wygwizdowo Dolne

Príspevok von Odyseusz »

Jest również oddzielny moduł dla skrzynek.

Kód: Vybrať všetko

export Kowalski,Jablonski,Alex,Sword,Harisson,Welker,Lamarr;
export soldiers_skill, soldiers_skill2, drivers_skill;
export guard10,soldat1,soldat2,soldat3,soldat4,soldat5;
export Ruskie;

function prepare_difficulty;
Begin
drivers_skill=[2, 3, 4][Difficulty];
soldiers_skill=[1, 2, 4][Difficulty];
soldiers_skill2=[3, 4, 5][Difficulty];
end;

Starting
Begin
prepare_difficulty;

uc_side:=1;
uc_nation:=nation_american;
Welker:=NewCharacter('Welker');
Welker:=NewCharacter('Lamarr');

uc_side=3;
uc_nation=nation_russian;
hc_skills=[soldiers_skill2,3,2,0];
hc_class=1;
guard10=CreateHuman;
PlaceUnitXY(guard10,135,134,false);

uc_side:=4;
uc_nation:=nation_american;
Harisson:=NewCharacter('Harisson');

uc_side=1;
Kowalski=CreateCharacter('Kowalski');
Jablonski=CreateCharacter('Jablonski');
PlaceUnitArea(Kowalski,start,false);
PlaceUnitArea(Jablonski,start,false);
If TestCharacters('Alex') then
Begin
Alex=CreateCharacter('Alex');
PlaceUnitArea(Alex,start,false);
end;
If TestCharacters('Sword') then
Begin
Sword=CreateCharacter('Sword');
PlaceUnitArea(Sword,start,false);

SetBName(depot,'omega');
ComEnterUnit(guard10,bunker1);
ComEnterUnit(guard2,bunker2);
ComEnterUnit(guard3,bunker3);
ComEnterUnit(guard4,bunker4);
ComEnterUnit(guard5,armory);
ComEnterUnit(guard6,armory);
ComEnterUnit(guard7,armory);
ComEnterUnit(nauk1,lab);
ComEnterUnit(nauk2,lab);
ComEnterUnit(me1,factory);
ComEnterUnit(me2,factory);
ComEnterUnit(me3,factory);

InGameOn;
ComHold([Cathy,Biernacki,Sword,Alex]);
CenterNowOnXY(79,133);
Say(Kowalski,'k1');
Say(Biernacki,'b1');
Say(Kowalski,'k2');
Say(Jablonski,'j1');
Say(Biernacki,'b2');
Say(Kowalski,'k3');
Say(Jablonski,'j2');
Say(Biernacki,'b3');
Say(Cathy,'c1');
Say(Biernacki,'b4');
Say(Kowalski,'k4');
Say(Cathy,'c2');

SetSide(Cathy,GetSide(Kowalski));
SetSide(Biernacki,GetSide(Kowalski));
Wait(0$0.5);
ChangeMissionObjectives('C1');
ChangeMissionObjectives('C2');
ChangeMissionObjectives('C3');
InGameOff;
end;
end;

every 0$1 trigger IsInArea(Kowalski,baza) do
Begin
InGameOn;
ComMoveXY(Kowalski,48,40);
ComMoveXY(Jablonski,57,42);
ComMoveXY(Biernacki,50,37);
Say(Kowalski,'k5');
Say(Biernacki,'b5');
Say(Kowalski,'k6');
Say(Jablonski,'j3');
Say(Kowalski,'k7');

SetSide(depot,GetSide(Kowalski));
SetSide(solar,GetSide(Kowalski));
SetSide(armoury,GetSide(Kowalski));
SetSide(bunkier,GetSide(Kowalski));
SetSide(laboratorium,GetSide(Kowalski));
Wait(0$0.5);
ChangeMissionObjectives('C4');
ChangeMissionObjectives('M1');
InGameOff;
end;

every 10$0 do
Begin
uc_side=3;
uc_nation=nation_russian;
hc_class=1;
hc_skills=[soldiers_skill,1,2,0];
soldat1=CreateHuman;
soldat2=CreateHuman;
hc_skills=[soldiers_skill,0,0,2];
soldat3=CreateHuman;
hc_skills=[soldiers_skill,3,0,0];
soldat4=CreateHuman;
hc_skills=[soldiers_skill,1,3,0];
soldat5=CreateHuman;
PlaceUnitArea(soldat1,ataki,false);
PlaceUnitArea(soldat2,ataki,false);
PlaceUnitArea(soldat3,ataki,false);
PlaceUnitArea(soldat4,ataki,false);
PlaceUnitArea(soldat5,ataki,false);
ComAgressiveMove([soldat1,soldat2,soldat3,soldat4,soldat5],50,38);
AddComAttackUnit([soldat1,soldat2,soldat3,soldat4,soldat5],FilterAllUnits([f_side,1]));
Ruskie=[soldat1,soldat2,soldat3,soldat4,soldat5];

end;

every 15$0 do
Begin
InGameOn;
CenterNowOnXY(49,37);
SayRadio(Harisson,'h1');
SayRadio(Kowalski,'k8');
SayRadio(Harisson,'h2');
SayRadio(Kowalski,'k9');
SayRadio(Harisson,'h3');
SayRadio(Kowalski,'k10');
SayRadio(Harisson,'h4');
Wait(0$1);
Case Query('Zapytanie1') of
1: begin
SayRadio(Kowalski,'k11');
SayRadio(Harisson,'h5');
SayRadio(Kowalski,'k13');
InGameOff;
Wait(0$10);
PlaceUnitArea(Welker,posilki,false);
PlaceUnitArea(Lamarr,posilki,false);
end;
2: begin
SayRadio(Kowalski,'k12');
SayRadio(Harisson,'h6');
SayRadio(Kowalski,'k13');
InGameOff;
end;
end;
end;
Radzio
Site Administrator
Site Administrator
Poland
Beiträge: 2898
Registriert: Pi Júl 28, 2006 10:58 am
Bydlisko: Bialystok, Poland

Príspevok von Radzio »

przed function napisz export
moze to pomoze...
Používateľov profilový obrázok
NaDoL
Community Veteran
Community Veteran
Beiträge: 379
Registriert: St Apr 12, 2006 7:43 pm
Bydlisko: Poland
Kontaktdaten:

temat

Príspevok von NaDoL »

Kod dolny z zapytaniem sie zgadza... powinno być 3 endy, i compiluje wiec nie widze problemu, wcześniejszego nie spr bo nie ma sensu skoro to jest inny tak jakby fragment
Obrázok
Gesperrt