Mam działający kod na zapytanie:
Код: Выделить всё
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;
Tu macie to zapytanie, proszę wsadzcie mi je tam jakoś

Код: Выделить всё
Case Query('Zapytanie2') of
1 : begin
Say(rho,'d15');
end;
2: begin
Say(rho,'d16');
end;
end;
end;