#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;
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;