Kód: Vybrať všetko
export function funkcja;
begin
if not funkcja_ze_starej_misji then // lub bez not oczywiście
begin
end;
Kód: Vybrať všetko
export function funkcja;
begin
if not funkcja_ze_starej_misji then // lub bez not oczywiście
begin
end;
Kód: Vybrať všetko
[...jakiś kod...]
Case Query('zakładnik') of
1:Begin
alive=true;
SaveVariable(alive,'alive');
end;
2:Begin
alive=false;
SaveVariable(alive,'alive');
end;
end;
Kód: Vybrať všetko
<jakiś event/warunek> do
var alive;
Begin
alive=LoadVariable('alive',[]);
if alive then
Begin
<kod>
end
else
Begin
<inny kod(w wypadku zabicia gościa)>
end;
end;
Kód: Vybrať všetko
export function carsaving(idi,nazwa)
var i;
Begin
i=[GetChassis(idi), GetEngine(idi), GetControl(idi), GetWeapon(idi)];
SaveVariable(i,nazwa);
end;
// przy zapisywaniu:
carsaving(pojazd1,'zapispojazdu1');
Kód: Vybrať všetko
export pojazd1, pojazd2, pojazd3, pojazd4, pojazd5;
export function carloading(idi,nazwa)
var i;
Begin
i=LoadVariable(nazwa,[]);
// tu dajesz uc_nation=
// oraz uc_side=
vc_chassis=i[1];
vc_engine=i[2];
vc_control=i[3];
vc_weapon=i[4];
idi=CreateVehicle;
// tutaj jeszcze jakiś PlaceUnit
end;
// przy loadowaniu
carloading(pojazd1,'zapispojazdu1');
Kód: Vybrať všetko
export function carsaving(idi,nazwa);
var i;
Begin
i=[GetChassis(idi), GetEngine(idi), GetControl(idi), GetWeapon(idi)];
SaveVariable(i,nazwa);
end;
Kód: Vybrať všetko
export pojazd1;
every 0$1 trigger FilterAllUnits([[[f_side,1],[f_chassis,us_morphling],[f_engine,engine_siberite]]])=1 do
begin;
DWait(0$1);
RewardPeople(FilterAllUnits([[f_ok],[f_side,1],[f_type,unit_human]]));
SaveCharacters(rw,'rw');
pojazd1:=[FilterAllUnits([[[f_side,1],[f_chassis,us_morphling],[f_engine,engine_siberite]]])];
carsaving(pojazd1,'zapispojazdu1');
YouWin;
end;
Kód: Vybrať všetko
export pojazd1, pojazd2, pojazd3, pojazd4, pojazd5;
export function carloading(idi,nazwa);
var i;
Begin
i=LoadVariable(nazwa,[]);
uc_nation=nation_american;
uc_side=1;
vc_chassis=i[1];
vc_engine=i[2];
vc_control=i[3];
vc_weapon=i[4];
idi=CreateVehicle;
end;
Starting
Begin
carloading(pojazd1,'zapispojazdu1');
PlaceUnitArea(pojazd1,area01,false);
end;
Kód: Vybrať všetko
pojazd1=FilterAllUnits([[f_side,1],[f_chassis,us_morphling],[f_engine,engine_siberite]]);
Kód: Vybrať všetko
export function carloading(idi,nazwa,areai);
var i;
Begin
i=LoadVariable(nazwa,[]);
uc_nation=nation_american;
uc_side=1;
vc_chassis=i[1];
vc_engine=i[2];
vc_control=i[3];
vc_weapon=i[4];
idi=CreateVehicle;
PlaceUnitArea(idi,areai,false);
end;
// i wczytując:
carloading(pojazd1,'zapispojazdu1',area1);