Le jeu de labyrinthe fun et gratuit - Retour au site
Hors-ligne
components
MarkerTransporterCreator: TMarkerTransporterCreator;
resourcestring
SCategoryMarkerTransporters = 'Téléporteurs vers marqueur';
effect TMarkerTransporter
name 'Téléporteur vers un marqueur';
image 'Transporters/Transporter';
category SCategoryMarkerTransporters;
property Destination: TPosComponent;
on AfterConstruction do
begin
AutoEditVisualTag;
inherited;
end;
on Execute do
begin
if Destination <> nil then
begin
Temporize;
Player.MoveTo(Destination.QPos);
end;
end;
end;
creator TMarkerTransporterCreator for TMarkerTransporter
hint 'Créer un nouveau téléporteur vers marqueu';
image 'Transporters/Transporter', 'Creators/Creator';
category SCategoryMarkerTransporters;
end;
Modifié sjrd (mars 9, 2011 12:56:08)
Hors-ligne
Hors-ligne