Po za tym: czy mcid jakos gryzą się miedzy sobą? Bo taki kod:
Code: Select all
every 1 do
begin
COUNT_attacks=0; //def=0
LISTXY_amattpts=[[64,98],[86,79],[88,73],[116,71],[125,70],[142,66],[153,39]];
LISTXY_amattpts2=[[64,98],[75,87],[108,114],[123,124],[143,142],[161,119],[175,114],[149,44]];
end;
export function PrepareAmAttack(str, way); // way=1 dla gornej drogi, dowolna inna wartosc dla dolnej
var mech, veh, vehlist;
begin
InitUc;
InitVc;
InitHc;
uc_side=1;
uc_nation=nation_american;
for i=1 to str do
begin
mech=[];
veh=[];
Case Rand(1,100) of
1..50:vc_control=control_manual;
51..100:vc_control=control_computer;
end;
Case Rand(1,100) of
1..20:vc_chassis=us_heavy_tracked;
21..100:vc_chassis=us_morphling;
end;
Case Rand(1,100) of
1..30:vc_weapon=us_rocket_launcher;
31..82:vc_weapon=us_heavy_gun;
83..100:vc_weapon=us_laser;
end;
vc_engine=engine_siberite;
veh=CreateVehicle;
vehlist=vehlist^veh;
PlaceUnitArea(veh,A_start,false);
if GetControl(veh)=control_manual then
begin
hc_gallery='';
hc_importance=1;
hc_class=class_mechanic;
Case M_diff of
1:hc_skills=[1,2,Rand(6,8),2];
2:hc_skills=[1,1,Rand(7,9),2];
3:hc_skills=[4,3,Rand(8,9),4];
end;
mech=CreateHuman;
PlaceHumanInUnit(mech,veh);
end;
end;
if way=1 then McMove(99, vehlist, LISTXY_amattpts, [mc_move_agressive])
else McMove(99,vehlist,LISTXY_amattpts2,[mc_move_agressive]);
end;