Forum FunLabyrinthe

effect TGoTimer
  name 'Go';
  property MurX: Integer;
  property MurY: Integer;
  property NextGoTimer: TGoTimer;  //<---------cette ligne

uses
  FunLabyBase, MovableBlocks;

actions
  UnFreez;

Components
  RockBlock : TRockBlock;
  MovableRockBlock : TMovableBlock;

obstacle TRockBlock
  name 'Rocher';
  image 'RockBlock';

  on Pushing do
  begin
    inherited;
    if not KeyPressed then
      Exit;
    if Player can UnFreez then
    begin
      Square.Obstacle := nil;
      Square := MovableBlockRock;//--------------------< ???????????????
    end;
  end;
end;

components
  FreezedBlock1: TFreezedBlock;

poscomponent TFreezedBlock(TMovableBlock)
  name 'Bloc gelé';
  image 'Rocks/BigRock', 'TonDessinDeGlace';

  property Unfreezed: Boolean;

  on Pushing do
  begin
    if Unfreezed then
    begin
      // le bloc a déjà été dégelé, on utilise le comportement hérité
      inherited;
    end else if Player can UnFreez then
    begin
      // dégeler le bloc maintenant
      Cancel;
      Unfreezed := True;
      Painter.Clear;
      Painter.AddImage('Rocks/BigRock');
    end else
    begin
      // le bloc est gelé et ne peut être dégelé
      Cancel;
    end;
  end;
end;