original-war.net

Code: Select all

'idencik'

Code: Select all

YouLost('idencik');

Code: Select all

CangeMissionObjectives('C1');

Code: Select all

RewardPeople([u1, u2, u3, ..., uN]);

Code: Select all

Starting
Begin
ResetFog;
end;
EXPORT Jos;
EXPORT Man;
EXPORT Har;


Jos=CreateCharacter('Jos');
PlaceUnitArea (Jos,Area11,true);
Man=CreateCharacter('Man');
PlaceUnitArea(Man,Area11,true);
Har=CreateCharacter('Har');
PlaceUnitArea(Har,Area11,true);
end;

Code: Select all

EXPORT Jos, Man, Har;
Starting
Begin
ResetFog;
Jos=CreateCharacter('Jos');
PlaceUnitArea (Jos,Area11,true);
Man=CreateCharacter('Man');
PlaceUnitArea(Man,Area11,true);
Har=CreateCharacter('Har');
PlaceUnitArea(Har,Area11,true);
end;

Code: Select all

EXPORT Jos, Man, Har;
Starting
Begin
ResetFog;
Jos=LoadCharacter('Jos')
PlaceUnitArea (Jos,Area11,true);
Man=LoadCharacter('Man');
PlaceUnitArea(Man,Area11,true);
Har=LoadCharacter('Har');
PlaceUnitArea(Har,Area11,true);
end;

Code: Select all

id=NewCharacter('id');

Code: Select all

xyz=LoadCharacter('xyz', 0, 0);

Code: Select all

every 0$1 trigger IsInArea(Jos,Area13) do
begin
if FilterAllUnits([[f_side,3],[f_weapon,11]])>=1 or FilterAllUnits([[f_side,3],
Say(Jas,'Jas4');
SetSide(Eng,6);
SetSide(Mech,6);
SetSide(Mec,6);
end;

Code: Select all

EXPORT radar_is_built=false;

Code: Select all

On VehicleConstructed(vehicle,factory) do
begin
if (GetSide(vehicle)=3) and (GetWeapon(vehicle)=11) and factory=//należy wstawić identyfikator fabryki, w której pojazd powinien zostać zbudowany// and not radar_is_built then
begin
radar_is_built=true;

Say(Jas,'Jas4');
SetSide(Eng,6);
SetSide(Mech,6);
SetSide(Mec,6);

end;  
end;

Code: Select all

On BuildingComplete(un) do
begin
if (GetSide(un)=3) and (GetBWeapon(un)=11) and not radar_is_built then
begin
radar_is_built=true;

Say(Jas,'Jas4');
SetSide(Eng,6);
SetSide(Mech,6);
SetSide(Mec,6);

end;
end;