Forum FunLabyrinthe

unit TestLifePointsCounter;

uses
  FunLabyBase, TLifePointsCounter;

components
  BadSpider : TBadSpider;
  LifePoints: TLifePoints;

object TLifePoints
  name 'Points de vie';
  image 'BodyParts/Heart';
end;

procedure InfoAboutLife(Player: TPlayer);
var
  Master: TMaster;
begin
  Master := Player.Master; // nécessaire pour Player.LifePoints
  Player.ShowMessage (Format(
    'Il te reste %d points de vie..',[Player.LifePoints]));
  // peut être étdendu comme tu veux.
end;

obstacle TBadSpider
 name 'araignée mortelle';
 image 'araignee';
 property LostLifePoints : Integer;

on Pushing do
begin

if Player can Marteler then
 begin
 Square.Obstacle := nil;
 Exit;
 end else

  Player.LifePoints := Player.LifePoints + LostLifePoints;
    Player.ShowMessage (Format(
    'Oups !.. %d points de vie !.. ',[LostLifePoints]));
    InfoAboutLife(Player);
   Cancel;
  end;
  end;

end.

uses
  KeyStrokes;

components
  LifePointsDisplayEnablePlugin: TLifePointsDisplayEnablePlugin;

plugin TLifePointsDisplayEnablePlugin(TKeyStrokePlugin)
  hint 'Active ou désactive l''affichage des points de vie';

  on SetupKeyStroke do
  begin
    KeyStroke.Key := Ord('V');
  end;

  on KeyStrokeTriggered do
  begin
    if Player.HasPlugin(LifePointsDisplayEnablePlugin) then
      Player.RemovePlugin(LifePointsDisplayEnablePlugin)
    else
      Player.AddPlugin(LifePointsDisplayEnablePlugin);
  end;
end;

obstacle TBadSpider
 name 'araignée mortelle';
 image 'araignee';
 property LifePointsCount : Integer;

on AfterConstruction do
begin
inherited;
LifePointsCount := -8;
end;

on Pushing do
begin
Blabla....
Blabla...

object TLifePoints
  name 'Pts de vie';
  image 'BodyParts/Heart';

on SetCount do
  begin
  Player receives 100 LifePoints;
end;

tool TSword
 name 'Epée';
 image 'Weapons/Sword';

 on Find do
 begin
 Player.ShowMessage ('Super : Tu peux tuer les araignées avec cette épée !.');
 end;