|
(0003464)
|
|
Jim_Raynor
|
|
04.08.08 18:38
|
|
Kurzes Beispiel:
Skript a:
program A;
procedure StartMission;
var
Mission: TMission;
a: TUFO;
begin
Mission:=mission_api_StartSkript('B');
a:=ufo_api_CreateUFO;
Mission.CallProcedure('TestProcedure',['Test1',10,a]);
end;
begin
// Hier darf kein weiterer Code folgen
// Missionsname festlegen
MissionName := 'YourName';
// Missionstype festlegen
// mzObjects = alle mit register_mission_object registrierten Objekte müssen zerstört werden
// mzUser = Mission muss mit Mission_Win oder Mission_lose abgeschlossen werden
MissionType := mzObjects;
end.
Skript b:
program b;
procedure TestProcedure(Test1: String; Test2: Integer; Test3: TUFO);
begin
game_api_MessageBox(Format('%s %d %s',[Test1,Test2,Test3.Name]));
end;
procedure StartMission;
begin
end;
begin
// Hier darf kein weiterer Code folgen
// Missionsname festlegen
MissionName := 'YourName';
// Missionstype festlegen
// mzObjects = alle mit register_mission_object registrierten Objekte müssen zerstört werden
// mzUser = Mission muss mit Mission_Win oder Mission_lose abgeschlossen werden
MissionType := mzObjects;
end.
Es wird dann in der laufenden Mission b die Prozedur TestProcedure mit den drei Parametern aufgerufen.
|
|