uses
Chests;
obstacle TTreeLikeClosedChest(TTree)
name 'Coffre fermé qui fait arbre en même temps';
on Pushing do
begin
ClosedChest.Pushing(Context);
end;
end;
on Pushing do
begin
TreeLikeOpenChest.Pushing(Context);
end;
Painter.Clear
Painter.AddImage('Chests/Closed(ou Open)Chests')
par Painter.Clear
Painter.AddImage('Nature/Tree')
uses
Chests;
obstacle TTreeLikeClosedChest(TTree)
name 'Coffre fermé qui fait arbre en même temps';
on DoDraw do
begin
ClosedChest.Draw(Context);
end;
on Pushing do
begin
ClosedChest.Pushing(Context);
end;
end;