SAIL - Driver

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

Moderator: zoNE

Post Reply
User avatar

Topic author
zoNE
The Great Uniter & Site Administrator
The Great Uniter & Site Administrator
Posts: 1537
Joined: Fri Feb 17, 2006 3:44 pm
Location: Poland
Contact:

SAIL - Driver

#1

Post by zoNE » Thu Dec 15, 2016 9:48 am

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: viewtopic.php?f=42&t=4818

Post Reply

Who is online

Users browsing this forum: No registered users and 1 guest