DataMuseum.dk

Presents historical artifacts from the history of:

DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DKUUG/EUUG Conference tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download
Index: T s

⟦42ee07e18⟧ TextFile

    Length: 739 (0x2e3)
    Types: TextFile
    Names: »score.c«

Derivation

└─⟦b20c6495f⟧ Bits:30007238 EUUGD18: Wien-båndet, efterår 1987
    └─⟦this⟧ »EUUGD18/General/Tetris/score.c« 

TextFile

/*
** 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);
}