Forum FunLabyrinthe

poscomponent TLockedChest(TMovableBlock)
  name 'Coffre verrouillé';
  image 'Chests/ClosedChest';

  property UnLocked: Boolean;

  on Pushing do
  begin
    if not UnLocked then
    begin
      inherited;
      if Player can OpenChest then
    begin
      UnLocked := True;
      Painter.Clear;
      Painter.AddImage('Chests/OpenChest');
      Cancel;
    end;
      //---------code attribuant du matériel au joueur.
    end;
  end;
end;

poscomponent TLockedChest(TMovableBlock)
  name 'Coffre verrouillé';
  image 'Chests/ClosedChest';

  property UnLocked: Boolean;

  on Pushing do
  begin
    if UnLocked then
    begin
      // Se comporter comme un coffre ouvert immobile
      Cancel;
    end else if Player can OpenChest then
    begin
      // Se comporter comme un coffre fermé immobile
      // et donc ouvrir le coffre
      UnLocked := True;
      Painter.Clear;
      Painter.AddImage('Chests/OpenChest');
      Cancel;
      //---------code attribuant du matériel au joueur.
    end else
    begin
      // Se comporter comme un coffre fermé mobile
      inherited;
    end;
  end;
end;

function IsValidForWater(Square: TSquare): Boolean private;
  begin
  Result := (Square.Field is TGround) and (Square.Effect = nil) and
    (Square.Tool = nil) and (Square.Obstacle = nil);
  end;