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: M T

⟦118739039⟧ TextFile

    Length: 6659 (0x1a03)
    Types: TextFile
    Names: »MoveR.c«

Derivation

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

TextFile


#include <curses.h>
#include "tet.h"
/*********************************************************************/
/* Switch on type of piece, find out if I can move right */
/* If so, then do it */
/*********************************************************************/
MoveRight()
{
switch (Type) {

	/*  WHITE PIECES  */
	case W_TYPE   : /*  */
		if (IS_FREE(Column+2,Row) && IS_FREE(Column+1,Row+1)) {
			PUTCH(Column-1,Row,NO_CHAR);
			PUTCH(Column,Row+1,NO_CHAR);
			PUTCH(Column+2,Row,W_CHAR);
			PUTCH(Column+1,Row+1,W_CHAR);
			Column +=1;
			}
		else goto beepout;
		goto out;
	case W_TYPE-1 :  /*  */
		if (IS_FREE(Column+1,Row-1) && IS_FREE(Column+2,Row) && 
		    IS_FREE(Column+1,Row+1)) {
			PUTCH(Column,Row-1,NO_CHAR);
			PUTCH(Column,Row,NO_CHAR);
			PUTCH(Column,Row+1,NO_CHAR);
			PUTCH(Column+1,Row-1,W_CHAR);
			PUTCH(Column+2,Row,W_CHAR);
			PUTCH(Column+1,Row+1,W_CHAR);
			Column +=1;
			}
		else goto beepout;
		goto out;
	case W_TYPE-2 :  /*  */
		if (IS_FREE(Column+2,Row) && IS_FREE(Column+1,Row-1)) {
			PUTCH(Column-1,Row,NO_CHAR);
			PUTCH(Column,Row-1,NO_CHAR);
			PUTCH(Column+2,Row,W_CHAR);
			PUTCH(Column+1,Row-1,W_CHAR);
			Column +=1;
			}
		else goto beepout;
		goto out;
	case W_TYPE-3 :  /*  */
		if (IS_FREE(Column+1,Row-1) && IS_FREE(Column+1,Row) && 
		    IS_FREE(Column+1,Row+1)) {
			PUTCH(Column,Row-1,NO_CHAR);
			PUTCH(Column-1,Row,NO_CHAR);
			PUTCH(Column,Row+1,NO_CHAR);
			PUTCH(Column+1,Row-1,W_CHAR);
			PUTCH(Column+1,Row,W_CHAR);
			PUTCH(Column+1,Row+1,W_CHAR);
			Column +=1;
			}
		else goto beepout;
		goto out;

	/*  RED PIECES  */
	case R_TYPE   : /*  */
		if (IS_FREE(Column,Row+1) && IS_FREE(Column+2,Row)) {
			PUTCH(Column-1,Row,NO_CHAR);
			PUTCH(Column-1,Row+1,NO_CHAR);
			PUTCH(Column+2,Row,R_CHAR);
			PUTCH(Column,Row+1,R_CHAR);
			Column +=1;
			}
		else goto beepout;
		goto out;
	case R_TYPE-1 : /*  */
		if (IS_FREE(Column+1,Row-1) && IS_FREE(Column+1,Row) && 
		    IS_FREE(Column+2,Row+1)) {
			PUTCH(Column,Row-1,NO_CHAR);
			PUTCH(Column,Row,NO_CHAR);
			PUTCH(Column,Row+1,NO_CHAR);
			PUTCH(Column+1,Row-1,R_CHAR);
			PUTCH(Column+1,Row,R_CHAR);
			PUTCH(Column+2,Row+1,R_CHAR);
			Column +=1;
			}
		else goto beepout;
		goto out;
	case R_TYPE-2 : /*  */
		if (IS_FREE(Column+2,Row-1) && IS_FREE(Column+2,Row)) {
			PUTCH(Column-1,Row,NO_CHAR);
			PUTCH(Column+1,Row-1,NO_CHAR);
			PUTCH(Column+2,Row,R_CHAR);
			PUTCH(Column+2,Row-1,R_CHAR);
			Column +=1;
			}
		else goto beepout;
		goto out;
	case R_TYPE-3 : /*  */
		if (IS_FREE(Column+1,Row-1) && IS_FREE(Column+1,Row) && 
		    IS_FREE(Column+1,Row+1)) {
			PUTCH(Column-1,Row-1,NO_CHAR);
			PUTCH(Column,Row,NO_CHAR);
			PUTCH(Column,Row+1,NO_CHAR);
			PUTCH(Column+1,Row-1,R_CHAR);
			PUTCH(Column+1,Row,R_CHAR);
			PUTCH(Column+1,Row+1,R_CHAR);
			Column +=1;
			}
		else goto beepout;
		goto out;

	/*  TAN PIECES  */
	case T_TYPE   :
	case T_TYPE-1 :
	case T_TYPE-2 :
	case T_TYPE-3 : /*  */
		if (IS_FREE(Column+2,Row) && IS_FREE(Column+2,Row+1)) {
			PUTCH(Column,Row,NO_CHAR);
			PUTCH(Column,Row+1,NO_CHAR);
			PUTCH(Column+2,Row,T_CHAR);
			PUTCH(Column+2,Row+1,T_CHAR);
			Column +=1;
			}
		else goto beepout;
		goto out;

	/*  YELLOW PIECES  */
	case Y_TYPE   :
	case Y_TYPE-2 : /* checked */
		if (IS_FREE(Column+2,Row) && IS_FREE(Column+1,Row+1)) {
			PUTCH(Column,Row,NO_CHAR);
			PUTCH(Column-1,Row+1,NO_CHAR);
			PUTCH(Column+2,Row,Y_CHAR);
			PUTCH(Column+1,Row+1,Y_CHAR);
			Column +=1;
			}
		else goto beepout;
		goto out;
	case Y_TYPE-1 :
	case Y_TYPE-3 : /*  */
		if (IS_FREE(Column+1,Row-1) && IS_FREE(Column+2,Row) && 
		    IS_FREE(Column+2,Row+1)) {
			PUTCH(Column,Row-1,NO_CHAR);
			PUTCH(Column,Row,NO_CHAR);
			PUTCH(Column+1,Row+1,NO_CHAR);
			PUTCH(Column+1,Row-1,Y_CHAR);
			PUTCH(Column+2,Row,Y_CHAR);
			PUTCH(Column+2,Row+1,Y_CHAR);
			Column +=1;
			}
		else goto beepout;
		goto out;

	/*  GREEN PIECES  */
	case G_TYPE   :
	case G_TYPE-2 : /* checked */
		if (IS_FREE(Column+1,Row) && IS_FREE(Column+2,Row+1)) {
			PUTCH(Column-1,Row,NO_CHAR);
			PUTCH(Column,Row+1,NO_CHAR);
			PUTCH(Column+1,Row,G_CHAR);
			PUTCH(Column+2,Row+1,G_CHAR);
			Column +=1;
			}
		else goto beepout;
		goto out;
	case G_TYPE-1 :
	case G_TYPE-3 : /*  */
		if (IS_FREE(Column+1,Row-1) && IS_FREE(Column+1,Row) && 
		    IS_FREE(Column,Row+1)) {
			PUTCH(Column,Row-1,NO_CHAR);
			PUTCH(Column-1,Row,NO_CHAR);
			PUTCH(Column-1,Row+1,NO_CHAR);
			PUTCH(Column+1,Row-1,G_CHAR);
			PUTCH(Column+1,Row,G_CHAR);
			PUTCH(Column,Row+1,G_CHAR);
			Column +=1;
			}
		else goto beepout;
		goto out;

	/*  BLUE PIECES  */
	case B_TYPE   : /* checked */
		if (IS_FREE(Column+2,Row) && IS_FREE(Column+2,Row+1)) {
			PUTCH(Column-1,Row,NO_CHAR);
			PUTCH(Column+1,Row+1,NO_CHAR);
			PUTCH(Column+2,Row,B_CHAR);
			PUTCH(Column+2,Row+1,B_CHAR);
			Column +=1;
			}
		else goto beepout;
		goto out;
	case B_TYPE-1 : /* checked */
		if (IS_FREE(Column+2,Row-1) && IS_FREE(Column+1,Row) && 
		    IS_FREE(Column+1,Row+1)) {
			PUTCH(Column,Row-1,NO_CHAR);
			PUTCH(Column,Row,NO_CHAR);
			PUTCH(Column,Row+1,NO_CHAR);
			PUTCH(Column+2,Row-1,B_CHAR);
			PUTCH(Column+1,Row,B_CHAR);
			PUTCH(Column+1,Row+1,B_CHAR);
			Column +=1;
			}
		else goto beepout;
		goto out;
	case B_TYPE-2 : /* checked */
		if (IS_FREE(Column,Row-1) && IS_FREE(Column+2,Row)) {
			PUTCH(Column-1,Row-1,NO_CHAR);
			PUTCH(Column-1,Row,NO_CHAR);
			PUTCH(Column,Row-1,B_CHAR);
			PUTCH(Column+2,Row,B_CHAR);
			Column +=1;
			}
		else goto beepout;
		goto out;
	case B_TYPE-3 : /* checked */
		if (IS_FREE(Column+1,Row-1) && IS_FREE(Column+1,Row) && 
		    IS_FREE(Column+1,Row+1)) {
			PUTCH(Column,Row-1,NO_CHAR);
			PUTCH(Column,Row,NO_CHAR);
			PUTCH(Column-1,Row+1,NO_CHAR);
			PUTCH(Column+1,Row-1,B_CHAR);
			PUTCH(Column+1,Row,B_CHAR);
			PUTCH(Column+1,Row+1,B_CHAR);
			Column +=1;
			}
		else goto beepout;
		goto out;

	/*  VIOLET PIECES  */
	case V_TYPE   :
	case V_TYPE-2 : /* checked */
		if (IS_FREE(Column+3,Row)) {
			PUTCH(Column-1,Row,NO_CHAR);
			PUTCH(Column+3,Row,V_CHAR);
			Column +=1;
			}
		else goto beepout;
		goto out;
	case V_TYPE-1 :
	case V_TYPE-3 : /* checked */
		if (IS_FREE(Column+1,Row-1) && IS_FREE(Column+1,Row) && 
		    IS_FREE(Column+1,Row+1) && IS_FREE(Column+1,Row+2)) {
			PUTCH(Column,Row-1,NO_CHAR);
			PUTCH(Column,Row,NO_CHAR);
			PUTCH(Column,Row+1,NO_CHAR);
			PUTCH(Column,Row+2,NO_CHAR);
			PUTCH(Column+1,Row-1,V_CHAR);
			PUTCH(Column+1,Row,V_CHAR);
			PUTCH(Column+1,Row+1,V_CHAR);
			PUTCH(Column+1,Row+2,V_CHAR);
			Column +=1;
			}
		else goto beepout;
		goto out;
	default : 
		printf("illegal piece Type=%d!!\n",Type);
		exit();
	}
beepout:
	if (Beep) beep();
out:
	refresh();
}