Le jeu de labyrinthe fun et gratuit - Retour au site
Hors-ligne
uses
KeyStrokes;
attributes
SavedX, SavedY, SavedZ;
components
SaveHereEffect: TSavedHereEffect;
RestorePlugin: TRestorePlugin;
effect TSaveHereEffect
name 'Marqueur de sauvegarde';
on Execute do
begin
Player.SavedX := Player.Position.X;
Player.SavedY := Player.Position.Y;
Player.SavedZ := Player.Position.Z;
Player.AddPlugin(RestorePlugin);
end;
end;
plugin TRestorePlugin(TKeyStrokePlugin)
hint 'Plugin pour revenir à la dernière sauvegarde';
on SetupKeyStroke do
begin
inherited;
Key := Ord('A'); // Tu peux mettre ce que tu veux ici, bien sûr
end;
on KeyStrokeTriggered do
begin
Player.MoveTo(Point3D(Player.SavedX, Player.SavedY, Player.SavedZ);
end;
end;
Hors-ligne
Hors-ligne
KeyStroke.Key
Key
Hors-ligne
Hors-ligne
Hors-ligne
Hors-ligne