SAIL - Komputerowy konwój

Gotowe kody SAIL'a, informacje na temat moddingu, itd.

Moderator: zoNE

Post Reply
Radzio
Site Administrator
Site Administrator
Poland
Posts: 2898
Joined: Fri Jul 28, 2006 10:58 am
Location: Bialystok, Poland

SAIL - Komputerowy konwój

Post by Radzio »

Założenia: ekipa jest listą jednostek poruszających się w konwoju kierowanym przez CPU.
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;
Post Reply