Cel: zatrzymywanie się konwoju po spotkaniu gracza i pozwolenie CPU na podjęcie działań. Po ustaniu zagrożenia powrót do poprzednich zajęć.
Code: Select all
var ekipa;
on Contact(a, b) do
var i, TaskLists, side, ekipa_side;
begin
if not ekipa then exit;
ekipa_side:= GetSide(ekipa[1]);
if a = ekipa_side and b = your_side OR a = your_side and b = ekipa_side then
begin
TaskLists:= [];
for i := 1 to ekipa do
TaskLists:= TaskLists ^ GetTaskList(ekipa[i]);
ComFree(ekipa);
while See(ekipa_side, your_side) do
wait(10);
for i := 1 to ekipa do
SetTaskList(ekipa[i], TaskLists[i]);
end;
end;