|
|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T s
Length: 739 (0x2e3)
Types: TextFile
Names: »score.c«
└─⟦b20c6495f⟧ Bits:30007238 EUUGD18: Wien-båndet, efterår 1987
└─⟦this⟧ »EUUGD18/General/Tetris/score.c«
/*
** written by adam margulies vespa@ssyx.ucsc.edu
** {...}!ucbvax!ucscc!ssyx!vespa
**
** permission is granted to freely distribute this code provided that you:
**
** 1) don't charge for it
** 2) leave my name and header on it
** 3) clearly document your changes and place your name on them
**
*/
/* Tetris: score.c */
/* this is what keeps score */
#include "tetris.h"
void score(final_row)
int final_row;
{
points += current->pointv + 21 - final_row;
if (current->was_shown == 0)
points += level;
if (current->was_shadowed == 0)
points += level;
if (dropped_from)
points += final_row - dropped_from;
move(0, 65);
printc("score: %7.7d", points);
csr_draw(0,65,0,79);
}