Code: Select all
// Plik pochodzi z moda Polska Kampania by Serpent
// Drobne modyfikacje na potrzeby własne by pOmek
export patrol_komory;
export kierowca;
export counter;
every 0$01 marked 01 do
begin
counter = counter - 0$1;
if counter > 0 then
begin
disable(02)
end;
if counter = 0 then
begin
counter = Odliczanie;
enable(02);
end;
display_strings = ['#Ar02', counter];
enable;
end;
EXPORT function get_human(sex,clas,level,name,side,nation);
begin
Randomize;
PrepareHuman(sex,clas,level);
hc_name = name;
hc_gallery = '';
hc_importance = 40;
uc_side = 1;
uc_nation = nation;
hc_attr = [10, 11];
result = CreateHuman;
end;
every 0$01 marked 02 do
begin
uc_side = 1;
uc_nation = 1;
vc_chassis = us_medium_wheeled;
vc_engine = engine_combustion;
vc_control = control_manual;
vc_weapon = us_cargo_bay;
patrol_komory = CreateVehicle;
//setdir(patrol_komory, 3);
PlaceUnitXYR(patrol_komory,31,2,3, false);
setdir(patrol_komory, 3);
kierowca = get_human(sex_male, 3, 2, '', 1, 1);
PlaceHumanInUnit(kierowca,patrol_komory);
//setdir(patrol_komory, 3);
SetCargo(patrol_komory,Rand(1,2),100);
Wait(0$01);
ComMoveToArea(patrol_komory,Road_2);
enable;
end;
every 0$01 trigger IsInArea(patrol_komory, Road_2) or IsInArea(kierowca, Road_2) do
begin
RemoveUnit(patrol_komory);
RemoveUnit(kierowca);
enable;
end;
Code: Select all
Odliczanie = [0$25, 0$20, 0$15][Difficulty];