POPRAWIONY KOD I DZIAŁA PIĘKNIE
Pamiętamy dać Backup=0 po Starting Begin
Code: Select all
var un,radar,zm,dow,sol2,sol3,war3,veh;
export backup;
On EnterBuilding(radar,un) MARKED 11 do
begin
un=steve;
If GetBtype(radar)=b_control_tower then
If GetClass(un)=class_soldier then
If Backup=0 then
If Minutnik < 20 then
BackupOp1
else
BackupOp2;
end;
Every 1$0 do
begin
Minutnik = Minutnik + 1;
enable;
end;
Export Function BackupOp1 ;
begin
zm=0;
uc_side = 1;
uc_nation = nation_american;
// ludzie
hc_class=1 ;
hc_name='';
hc_skills=[Rand(5,6),Rand(1,5),Rand(1,5),Rand(1,5)];
dow=CreateHuman;
Say(steve,'d1');
say(dow,'d2');
wait(0$30);
repeat begin
zm=zm+1;
uc_side = 1;
uc_nation = nation_american;
// ludzie
hc_class=1 ;
hc_name='';
hc_skills=[Rand(1,3),Rand(1,3),Rand(1,3),Rand(1,3)];
sol2=CreateHuman;
vc_chassis=us_light_wheeled;
vc_engine=engine_combustion;
vc_control=control_manual;
vc_weapon=us_gatling_gun;
veh=CreateVehicle;
PlaceUnitArea(veh,area21,false);
PlaceHumanInUnit(sol2,veh);
end until zm=2 ; BackUp=Backup+1; end;
Export Function BackupOp2;
begin
zm=0;
uc_side = 1;
uc_nation = nation_american;
// ludzie
hc_class=1 ;
hc_name='';
hc_skills=[Rand(5,6),Rand(1,5),Rand(1,5),Rand(1,5)];
dow=CreateHuman;
Say(steve,'d1');
say(dow,'d3');
wait(0$45);
repeat begin
zm=zm+1;
uc_side = 1;
uc_nation = nation_american;
// ludzie
hc_class=1 ;
hc_name='';
hc_skills=[Rand(2,4),Rand(2,4),Rand(2,4),Rand(2,4)];
sol2=CreateHuman;
vc_chassis=us_medium_tracked;
vc_engine=engine_combustion;
vc_control=control_manual;
vc_weapon=us_gatling_gun;
veh=CreateVehicle;
PlaceUnitArea(veh,area21,false);
PlaceHumanInUnit(sol2,veh);
end until zm=3; BackUp=Backup+1; end;