Dwa zapytania

[Pablo Abruzzi]

Jak zrobić dwa zapytania, chodzi mi o to:

Mam działający kod na zapytanie:

Code : Tout sélectionner

every 0$1 trigger IsInArea(ser,prze) and IsInarea(rho,prze) do
begin
CenterNowOnUnits(ser);
InGameOn;
DialogueOn;
Say(ser,'d11');
Case Query('Zapytanie1') of
1 : begin
Say(rho,'d12');
DialogueOff;
InGameOff;
end;
2: begin
Say(rho,'d13');
DialogueOff;
InGameOff;
end;
3: begin
Say(rho,'d14');
DialogueOff;
InGameOff;
end;
end;
end;

Jak dodać następne zapytanie po zakończeniu tego?
Tu macie to zapytanie, proszę wsadzcie mi je tam jakoś

Code : Tout sélectionner

Case Query('Zapytanie2') of
1 : begin
Say(rho,'d15');
end;
2: begin
Say(rho,'d16');
end;
end;
end;

Tak, aby poza kończeniu zapytania (bez względu na odpowiedź włączyło się to. Z góry thx.

[Radzio]

LOL

Chyba jasne, że jak ma być po, to trzeba wstawić po.

Dla niekumatych: przed ostatnim endem.

PS: To drugie zapytanie ma tak w ogóle o jeden end za dużo.

[Jeanks]

Napiszę jaśniej tworzysz funkcję w odpowiedzi na pytanie np.

Code : Tout sélectionner

3: begin
Say(rho,'d14');
DialogueOff;
InGameOff;
EXTRA;
end;
end;
end;

i to extra wczytujesz

Function Extra;
begin
//// KOD NA PYTANIE ///

[Radzio]

Napiszę jaśniej tworzysz funkcję w odpowiedzi na pytanie np.

Code : Tout sélectionner

3: begin
Say(rho,'d14');
DialogueOff;
InGameOff;
EXTRA;
end;
end;
end;

i to extra wczytujesz

Function Extra;
begin
//// KOD NA PYTANIE ///

I po co?

[Jeanks]

CO mam za CIebie czytac po oc ? Czytałeś temat to wiesz po co.

[Axoris]

Radziowi chodzi o to, że nie potrzebnie tworzysz funkcję. Wystarczy przed ostatnim endem dać.

[Radzio]

Radziowi chodzi o to, że nie potrzebnie tworzysz funkcję. Wystarczy przed ostatnim endem dać.

Chociaż Ty mnie rozumiesz