Adding BonusLives...

**VilleK** · 01-10-2007, 02:55 PM

Maybe something like this (not tested):

Code:

var
  LastBonusScore &#58; integer; //Set to zero when starting a new game

procedure TFormGame.BonusLife;
begin
  if &#40;Points >= LastBonusScore+25000&#41; then
  begin
    Inc&#40;Lives,2&#41;;
    Inc&#40;LastBonusScore,25000&#41;;
  end;
end;

It should give you a bonus every 25000 points.

**Huehnerschaender** · 01-10-2007, 06:41 PM

Yep, this should work, too

And you don't need the boolean variable... this is the better solution.

**jasonf** · 01-10-2007, 08:23 PM

That solution is something like how I did my extra lives. (Edit: on re-reading this, it's pretty much exactly what Villek wrote

)

I have a variables:

Code:

fScore &#58; integer;
fLives &#58; integer;
fNextLifeAt &#58; integer;

At the start of a new game
I initialise them

Code:

fScore &#58;= 0;
fLives &#58;= 3;
fNextLifeAt &#58;= 25000;

then in my game loop (or timer event),
I'd check

Code:

If fScore >= fNextLifeAt then
begin
    inc&#40;fLives&#41;;
    inc&#40;fNextLifeAt, 25000&#41;;
end;

Of course this isn't exactly how I do it, My extra lives are spawned and need collecting before they take effect and my system is Object Oriented, but the theory is the same.