suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

improved the way scoring works for same

Browse Source
This commit is contained in:
Robby Findler 2011-01-10 17:12:22 -06:00
parent 666c559532
commit de8ba4b11a
2 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/games/same/same.rkt
View File

@ -62,16 +62,19 @@
(set! clicked-score (+ clicked-score (* balls-going-away balls-going-away))) (set! clicked-score (+ clicked-score (* balls-going-away balls-going-away)))
(set-score-label)) (set-score-label))
(define (set-score-label) (define (set-score-label)
(define penalty 0) (define cells-filled-in 0)
(for ([v (in-vector board)]) (for ([v (in-vector board)])
(for ([v (in-vector v)]) (for ([v (in-vector v)])
(when (vector-ref v 0) (when (vector-ref v 0)
(set! penalty (+ penalty 10))))) (set! cells-filled-in (+ cells-filled-in 1)))))
(define bonus (if (<= cells-filled-in 10)
(* 100 (- 10 cells-filled-in))
0))
(send score-message set-label (send score-message set-label
(format "~a - ~a = ~a" (format "~a + ~a = ~a"
clicked-score clicked-score
penalty bonus
(- clicked-score penalty)))) (+ clicked-score bonus))))
(define same-canvas% (define same-canvas%

13
collects/games/scribblings/same.scrbl
View File

@ -11,10 +11,13 @@ new blobs as pieces of the old blobs fall down to fill in the empty space.
If an entire column is wiped out, all of the blobs from the If an entire column is wiped out, all of the blobs from the
right will slide left to take up the empty column's space. right will slide left to take up the empty column's space.
Your score increases for each ball removed from the board. In general, Your score increases for each ball removed from the board, in two ways.
when you remove a blob, you get as many points as the square of the number First, when you remove a blob, you get as many points as the square of the number
of cells the blob occupied, so removing bigger blobs is better. Also, of cells the blob occupied, so removing bigger blobs is better. Second, if there
there is a penalty of 10 points for each colored cell left behind on the board, are fewer than 10 cells occupied on the board, you get a bonus.
so try to clear out the entire board. Specifically if you have 9 cells left, you
get a 100 point bonus, 8 cells left yields a 200 point bonus,
7 cells a 300 point bonus etc., and if there
are no cells left, you get a 1000 point bonus.
Click the @onscreen{New Game} button to play again. Click the @onscreen{New Game} button to play again.