SAIL - WantChangeClass

Serpent pisze:Funkcja zwraca prawdę jeżeli jednostka chce zmienić swoją klasę na klasę = class.

Kod:

Export Function WantChangeClass(unit, class);
var i;
begin

     if GetTaskList(unit) then
        begin
        for i = 1 to GetTaskList(unit) do
            if '!' = GetTaskList(unit)[i][1] and
             class = GetTaskList(unit)[i][5] then
              begin
              result := true;
              break;
              end
               else
                result := false;
        end
         else
          result := false;
End;

Author: Serpent
Topic: https://forum.original-war.net/viewtopic.php?f=42&t=4547