SAIL - Driver

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

Moderator: zoNE

Post Reply
User avatar
zoNE
The Great Uniter & Site Administrator
The Great Uniter & Site Administrator
Posts: 2059
Joined: Fri Feb 17, 2006 3:44 pm
Location: Poland
Contact:

SAIL - Driver

Post by zoNE »

Serpent wrote:Napisałem dwie funkcje związane ze zdobywaniem informacji o kierowcy w SAILu.

#1 IsDriver(unit) - sprawdza czy jednostka jest kierowcą. Zwraca ident prowadzonego pojazdu lub 0 w przypadku jego braku.

Code: Select all

Export Function IsDriver(unit);
begin
if unit in FilterAllUnits([f_driving]) then
   result := IsInUnit(unit)
    else
     result := false;
End;
#2 GetDriver(veh) - zwraca ident kierowcy danego pojazdu lub 0 w przypadku braku kierowcy.

Code: Select all

Export Function GetDriver(veh);
var i, filter;
begin     
if not GetControl(veh) = control_manual then
   result := false
    else
     if veh in FilterAllUnits([f_empty]) then
        result := false
         else
          begin  
          filter := FilterAllUnits([[f_side, GetSide(veh)], [f_driving]]);

          if not filter then
             result := false
              else
               for i = 1 to filter do
                   if IsDriver(filter[i]) = veh then
                      begin
                      result := filter[i];
                      break;
                      end;
         end;
End;
Notka: GetDriver może nie działać po podaniu identu pojazdu który został postawiony ręcznie na mapie. Wówczas należy użyć filtru zamiast identu.
Author: Serpent
Topic: https://forum.original-war.net/viewtopi ... =42&t=4818
Post Reply