Le jeu de labyrinthe fun et gratuit - Retour au site
on ApplyMove do
var
OldPos: T3DPoint;
begin
OldPos := Position;
inherited;
// Handle interactions with buttons
if Map[OldPos].Effect is TPushButton then
TPushButton(Map[OldPos].Effect).ButtonUp(Context);
if Map[Position].Effect is TPushButton then
TPushButton(Map[Position].Effect).ButtonDown(Context);
end;
Hors-ligne
Hors-ligne
Hors-ligne
Hors-ligne
Hors-ligne