moduł pierwszy "New1":
Code: Select all
export xero,jan,maciej,dawid,robert;
starting
begin
ComEnterUnit(sol, arm);
ComEnterUnit(sol1, bunkier2);
ComEnterUnit(sol2, am_wieza1);
ComEnterUnit(sol3, am_wieza);
ComEnterUnit([doc, doc1], am_lab);
ComEnterUnit(sol4, bunkier1);
ComEnterUnit(sol5, bunkier);
ComEnterUnit([mech, mech1], am_factory);
ComEnterUnit([ru_doc, ru_doc1], ru_lab);
ComEnterUnit(soldat3, ru_wieza);
ComEnterUnit(soldat2, ru_wieza1);
ComEnterUnit(soldat1, ru_wieza2);
ComEnterUnit(soldat, ru_wieza3);
xero=CreateCharacter('xero');
jan=CreateCharacter('jan');
maciej=CreateCharacter('maciej');
dawid=CreateCharacter('dawid');
robert=CreateCharacter('robert');
ComEnterUnit(rusek, ru_arm);
PlaceUnitArea([xero,jan,maciej,dawid,robert], start, false);
ComMoveToArea([xero,jan,maciej,dawid,robert], widok);
Wait(0$1);
InGameOn;
Say(xero, 'xero');
ChangeMissionObjectives('koppa');
ComMoveToArea([xero,jan,maciej,dawid,robert], rozmowa);
end;
every 0$1 trigger isInArea(xero, widok) do
Begin
DialogueOn;
Say(sol5, 'straznik');
Say(xero, 'xero1');
Say(sol5, 'straznik1');
DialogueOff;
end;
every 0$1 trigger See(1, mark) do
Begin
InGameOn;
Say(xero, 'xero2');
ComMoveUnit(mark, xero);
Say(mark, 'mark');
Say(mark, 'mark1');
Say(xero, 'xero3');
Say(mark, 'mark2');
InGameOff;
end;
Code: Select all
every 0$45 do
Begin
enable;
CreateCratesAnywhere(3, true);
end;
every 1$20 do
Begin
enable;
CreateCratesAnywhere(5, true);
end;