Welcome to PGD
If this is your first visit, be sure to check out the FAQ by clicking the link above. You have to register before you can post.
If you have recently signed up, please make sure you log in so that your activity is registered. This is required for automatic promotions to work and to ensure your account is not deleted during the registration process.
AthenaOfDelphi
Originally Posted by Wizard Thanks for the replies guys :-) PStudio, with your solution the Lifes goes to 5 and stays that way ...? Becasue LivesLeft is not incremented. It should be like this: Code: procedure TFormGame.BonusLife; begin if Points mod 25000 = 0 then begin Inc(LivesLeft,2); Lives := LivesLeft; end; end;
procedure TFormGame.BonusLife; begin if Points mod 25000 = 0 then begin Inc(LivesLeft,2); Lives := LivesLeft; end; end;
Forum Rules
Bookmarks