same: up the bonus scores to 100 per ball

this means a max of 5,000 and so closer to what good scores for the other way to score
This commit is contained in:
Robby Findler 2011-01-14 17:02:08 -06:00
parent 9c63710b14
commit 90dbf3a56b

View File

@ -63,7 +63,7 @@
(when (vector-ref v 0) (when (vector-ref v 0)
(set! cells-filled-in (+ cells-filled-in 1))))) (set! cells-filled-in (+ cells-filled-in 1)))))
(define bonus-start 50) ;; bonus for getting down to 49 (or fewer) balls (define bonus-start 50) ;; bonus for getting down to 49 (or fewer) balls
(define bonus-per-ball 50) ;; number of points for clearing each of those last 'bonus-start' balls (define bonus-per-ball 100) ;; number of points for clearing each of those last 'bonus-start' balls
(define bonus (if (<= cells-filled-in bonus-start) (define bonus (if (<= cells-filled-in bonus-start)
(* bonus-per-ball (- bonus-start cells-filled-in)) (* bonus-per-ball (- bonus-start cells-filled-in))
0)) 0))