original-war.net

Code: Select all

every 0$1 do
begin
if GetTech(tech_SpacAnom ,3)=state_researched
then AddMedal('med2',1);AddMedal('med1',1);AddMedal('med3',1);


Wait(10$0);
GiveMedals('Main');
SaveCharacters(Mez,'Mez');

Code: Select all

every 0$1 do
begin
if GetTech(tech_SpacAnom ,3)=state_researched
then AddMedal('med2',1);AddMedal('med1',1);AddMedal('med3',1);


Wait(10$0);
GiveMedals('Main');
SaveCharacters(Mez,'Mez');

Code: Select all

every 0$1 trigger Researched(3,tech_SpacAnom) do
begin
Wait(10$0);
AddMedal('med2',1);AddMedal('med1',1);AddMedal('med3',1);
GiveMedals('Main');
SaveCharacters(Mez,'Mez');
end;

Code: Select all

every 0$1 do
If IsDead(JMM) then
AddMedal('med2',1)
else
AddMedal('med2',-1);

Code: Select all

Every 0$1 trigger IsDead(JMM) do
 Begin
AddMedal('med2',1)
else
AddMedal('med2',-1);
 End;

Code: Select all

Every 0$1 trigger IsDead(JMM) do
Begin
AddMedal('med2',1)
end
else
begin
AddMedal('med2',-1);
End;

Code: Select all

if IsDead(JMM) then AddMedal('med2', 1) else AddMedal('med2', -1);

Code: Select all

every 0$1 trigger [Blablabla] do
begin
//[Blablabla]jest to to co ma wywołać koniec misji

if IsDead(JMM) then
Begin
AddMedal('med2',1)
end
else
begin
AddMedal('med2',-1);
End;
//dalsza część rozdawania medali

Code: Select all

export baza;
var jedn, filtr;
Begin
baza=[];
filtr=FilterAllUnits([[f_side,1],[f_type,3]]);
 for jedn in filtr do
  Begin
   if GetBType(jedn) in [6,7,8] then
    baza=baza^[[GetBType(jedn),GetX(jedn),GetY(jedn),GetDir(jedn),GetBLevel(jedn),GetNation(jedn),GetSide(jedn),GetLabKind(jedn,1),GetLabKind(jedn,2)]]
   else
    if GetBType(jedn) in [32,33] then
     baza=baza^[[GetBType(jedn),GetX(jedn),GetY(jedn),GetDir(jedn),GetBLevel(jedn),GetNation(jedn),GetSide(jedn),GetWeapon(jedn)]]
    else
    baza=baza^[[GetBType(jedn),GetX(jedn),GetY(jedn),GetDir(jedn),GetBLevel(jedn),GetNation(jedn),GetSide(jedn)]];
  end;
SaveVariable(baza,'Baza");
end;

Code: Select all

export baza;
var jedn;
Begin
baza=LoadVariable('Baza',[]);
 for jedn in baza do
  Begin
  uc_side=jedn[7];
  uc_nation=jedn[6];
  bc_type=jedn[1];
  bc_level=jedn[5];
   if jedn[1] in [6,7,8] then
    Begin
    bc_kind1=jedn[8];
    bc_kind2=jedn[9];
    end;
  CreateAndPlaceBuildingXYD(jedn[2],jedn[3],jedn[4]);
  end;
end;

Code: Select all

export base;
var jedn, uni;
Begin
baza=LoadVariable('Baza',[]);
 for jedn in baza do
  Begin
  uc_side=jedn[7];
  uc_nation=jedn[6];
  bc_type=jedn[1];
  bc_level=jedn[5];
   if jedn[1] in [6,7,8] then
    Begin
    bc_kind1=jedn[8];
    bc_kind2=jedn[9];
    end;
  uni=CreateAndPlaceBuildingXYD(jedn[2],jedn[3],jedn[4]);
   if jedn[1] in [32,33] then
    PlaceWeaponTurret(uni,jedn[8]);
  end;
end;

Code: Select all

RewardPeople(FilterAllUnits([[f_alive],[f_side,3],[f_type,unit_human]]));

Code: Select all

RewardPeople(FilterAllUnits([[f_alive],[f_side,russian///albo arabian lub americans],[f_type,unit_human]]));

Code: Select all

RewardPeople(FilterAllUnits([[f_alive],[f_side,3],[f_type,unit_human]])) diff FilterAllUnits([[f_alive],[f_side,3],[f_type,unit_human],[f_class,classtype_apeman]]));

Code: Select all

[f_type,unit_human]

Code: Select all

... [f_and,[f_class,class_apeman_soldier],[f_class,class_apeman_kamikaze],[f_class,class_apeman_engineer]]]));

Code: Select all

RewardPeople(FilterAllUnits([[f_alive],[f_side,3],[f_type,unit_human]])
                   diff FilterAllUnits([[f_alive],[f_side,3],[f_type,unit_human],[f_and,
                                                                                       [f_class,class_apeman_soldier],
                                                                                       [f_class,class_apeman_kamikaze],
                                                                                       [f_class,class_apeman_engineer]]
                                                                                     ]));

Code: Select all

RewardPeople(FilterAllUnits([[f_alive], [f_side, 3], [f_nation, nation_russian], [f_type, unit_human]]));