Huehnerschaender
Thanks so much!!! It's working :-)
I'll try to figure out how to do the array of bool.Code:procedure TFormGame.BonusLife; begin if (Points >= 25000) and not XtraLife25000 then begin inc(LiVes,2); XtraLife25000 := TRUE; end; if (Points >= 50000) and not XtraLife50000 THEN begin inc(LiVes,2); XtraLife50000 := TRUE; end;
Bookmarks