#
# tet.in - 
#

NULL = 0;
EOF = -1;
FALSE = 0;
TRUE = 1;
SIZEOF_INT = 4;

RAND_MAX = 0x7fffffff; # XC nealy has a BUG

#
#
#
_cgstr = "﹛╰枆燠港輒闋酗蕨◢";
_cgstr = "﹛╰鱗え擰佮ヶ�醱峸";
_cgstr = "﹛欒欏毊灛灚爢玂玁玃";
func wch(ch)
{
	int idx;
	idx = ch * 2;
	putchar(_cgstr@[idx]);
	putchar(_cgstr@[idx + 1]);
}
func move(y, x)
{
	printf("\033[%d;%dH", y + 1, x * 2 + 1);
}
func mvwch(y, x, ch)
{
	int idx;
	idx = ch * 2;
	printf("\033[%d;%dH%c%c", y + 1, x * 2 + 1, _cgstr@[idx], _cgstr@[idx + 1]);
}
func mvwstr(y, x, str)
{
	move(y, x);
	fputs(str, STDOUT());
}
func move2(y, x)
{
	printf("\033[%d;%dH", y + 1, x + 1);
}
func wstr(str)
{
	fputs(str, STDOUT());
}
func cursor(sw)
{
	if (sw)
		printf("\033[>5l");
	else
		printf("\033[>5h");
}
func clear()
{
	printf("\033[2J");
}
#
# 冈及汔午嫖今
#
WIDTH = 12;
HEIGHT = 22;

SPACE = 0;
WALL = 1;

_high_score = 0;
_level = 0;
_score = 0;
_lines = 0;	# 壅仄凶仿奶件醒
_sigma = 0;	# 侹切化五凶鍚醒
_stats = dim(7); # 侹切化五凶鍚醒﹋潘挀仍午﹌
#
# 刓憎
#
_outbuf = malloc(256);
func print_high(s)
{
	sprintf(_outbuf, " High Score=%5d", s);
	mvwstr(HEIGHT + 3, 0, _outbuf);
}
func print_level(s)
{
	sprintf(_outbuf, "level=%5d", s);
	mvwstr(HEIGHT + 0, 0, _outbuf);
}
func print_lines(s)
{
	sprintf(_outbuf, "lines=%5d", s);
	mvwstr(HEIGHT + 0, 6, _outbuf);
}
func print_score(s)
{
	sprintf(_outbuf, "score=%5d", s);
	mvwstr(HEIGHT + 1, 0, _outbuf);
}
func print_sigma(s)
{
	sprintf(_outbuf, "sigma=%5d", s);
	mvwstr(HEIGHT + 1, 6, _outbuf);
}
func print_stats(pno, s)
{
	sprintf(_outbuf, "%2d", s);
	move2(HEIGHT + 2, pno * 3);
	wstr(_outbuf);
}
#
# 冈 int _box[HEIGHT][WIDTH];
# 爾惘午瓖卞岕互丐月﹝塢棉反 _box[0][1] 井日 _box[HEIGHT-2][WIDTH-2] 引匹
#
_box = dim(HEIGHT * WIDTH);
#
# 冈毛刓憎允月
#
func box_draw()
{
	int y, x, s;
	int mv;		# int *mv;
	mv = _box;
	for (y = 0; y < HEIGHT; y++) {
		move(y, 0);
		for (x = 0; x < WIDTH; x++) {
			wch(mv[0]);
			mv += SIZEOF_INT;
		}
	}
}# box_draw
#
# 岕手殖戶ㄠ墊刓憎允月
#
func box_draw_whole_line(y)
{
	int x;
	int mv;
	mv = _box + (y * WIDTH) * SIZEOF_INT;
	move(y, 0);
	for (x = 0; x < WIDTH; x++) {
		wch(mv[x]);
	}
}# box_draw_whole_line
#
# 岕毛殖引內ㄠ墊刓憎允月
#
func box_draw_line(y)
{
	int x;
	int mv;
	mv = _box + (y * WIDTH) * SIZEOF_INT;
	move(y, 1);
	for (x = 1; x < WIDTH - 1; x++) {
		wch(mv[x]);
	}
}
#
# ㄠ墊坌ヶ幕�鱉允月
#
func box_draw_invert_line(y)
{
	printf("\033[7m");
	box_draw_line(y);
	printf("\033[0m");
}# box_draw_invert_line
#
# 冈及醱ㄠ墊弁伉失﹋刓憎允月﹌
#
func box_draw_clear_line(y)
{
	int x;
	move(y, 1);
	for (x = 1; x < WIDTH - 1; x++) {
		wch(0);
	}
}# box_draw_clear_line
#
# 冈及醱褥毛旦弁伕□伙﹋刓憎允月﹌
# 旦弁伕□伙及伊弁正件弘伙反﹜悵木化中月午仇欠反隙爛仄卅中方丹卞﹝
#
func box_draw_scroll(y)
{
	if (y >= 2) {
		int i;
		for (i = 0; i < y + 1; i++) {
			box_draw_line(i);
		}
	}
}# box_draw_scroll
#
# 岕毛綜月﹋刓憎拑仄﹌
#
func box_make_wall()
{
	int i;
	for (i = 0; i < HEIGHT; i++) {
		_box[i * WIDTH] = WALL;
		_box[i * WIDTH + WIDTH - 1] = WALL;
	}
	for (i = 0; i < WIDTH; i++) {
		_box[(HEIGHT - 1) * WIDTH + i] = WALL;
	}
}# box_make_wall
#
# 冈毛塢勻弔卞允月﹋刓憎拑仄﹌
#
func box_clear()
{
	int i;
	memset(_box, SPACE, HEIGHT * WIDTH * SIZEOF_INT);
	box_make_wall();
}# box_clear
#
# 冈及醱ㄠ墊弁伉失﹋刓憎拑仄﹌
#
func box_clear_line(y)
{
	memset(_box + (y * WIDTH + 1) * SIZEOF_INT, SPACE, (WIDTH - 2) * SIZEOF_INT);
}# box_clear_line
#
# 冈及醱褥毛旦弁伕□伙﹋刓憎拑仄﹌
#
func box_scroll(y)
{
	int dst, src;
	int size;
	dst = _box + WIDTH * SIZEOF_INT;
	src = _box;
	size = y * WIDTH * SIZEOF_INT;
	memmove(dst, src, size);
}# box_scroll
#
# 氾玄伕立用
#
# pno =   0       1       2     3         4       5       6
#	╰╰╰  ╰╰╰  ╰╰  ╰╰╰╰  ╰╰      ╰╰  ╰╰╰
#	╰          ╰  ╰╰              ╰╰  ╰╰      ╰
#
# dir =   0       1       2       3
#	          ╰        ╰  ╰╰
#	╰╰╰    ╰    ╰╰╰    ╰
#	╰        ╰╰            ╰

_pats = dim(7 * 4 * 3 * 2);	# int _pats[7][4][3][2];
__p = "653556545765457554565345457556565365653554545745455465455465455465455465457565545756457565545756456465564454456465564454654445566454654445566454457546565366653564545744";
#
# 妐儂昫 __p 井日 _pats 毛煌遙允月﹝
# _pats[pno][dir] 互﹜氾玄伕立用⺀寞午輊五毛刓仄﹜
# _pats[][][0..2][0] 午 _pats[][][0..2][1] 互 x 餵坌午 y 餵坌毛刓允﹝
# _pats 反 __p 井日躂濤菲戶月仇午互匹五﹜ASCII戊□玉井日 '5' 毛婁仃壬方中﹝
#
func pats_make()
{
	int pno, dir, dv;
	int dst;	# int *dst;
	int src;	# char *src;
	dst = _pats;	# &_pats[0][0][0][0]
	src = __p;
	for (pno = 0; pno < 7; pno++) {
		int pat;
		pat = dst;
		for (dir = 0; dir < 4; dir++) {
			for (dv = 0; dv < 3; dv++) {
				dst[0] = src@[0] - '5';	# delta x
				dst[1] = src@[1] - '5';	# delta y
				dst += 2 * SIZEOF_INT;
				src += 2;
			}
		}
	}
}# pats_make

#
# 餵坌馨濘仄卅互日氾玄伕立用毛踏仁
#
func pats_trace(pno, dir, px, py, c)
{
	int pat;
	pat = _pats + (pno * 24 + dir * 6) * SIZEOF_INT; # &pats[pno][dir]
	mvwch(py, px, c);
	mvwch(py += pat[1], px += pat[0], c);
	mvwch(py += pat[3], px += pat[2], c);
	mvwch(py += pat[5], px += pat[4], c);
}
#
# 氾玄伕立用及刓憎
#
func pat_draw(pno, dir, cx, cy)
{
	v = pno * 4 + dir;
	pats_trace(pno, dir, cx, cy, pno + 2);
}# pat_draw
#
# 氾玄伕立用及壅蛔
#
func pat_erase(pno, dir, cx, cy)
{
	pats_trace(pno, dir, cx, cy, 0);
}# pat_erase
#
# 氾玄伕立用及爾惘啖⑹刓憎
#
func pat_move_level(pno, dir, px, py, dx)
{
	pat_erase(pno, dir, px, py);
	pat_draw(pno, dir, px + dx, py);
}# pat_move_level
#
# 氾玄伕立用及票啖⑹刓憎
#
func pat_move_down(pno, dir, px, py)
{
	pat_erase(pno, dir, px, py);
	pat_draw(pno, dir, px, py + 1);
}# pat_move_down
#
# 氾玄伕立用及莢鱉刓憎
#
func pat_round(pno, dir, px, py)
{
	int ndir;
	ndir = (dir + 1) & 3;
	pat_erase(pno, dir, px, py);
	pat_draw(pno, ndir, px, py);
}# pat_round
#
# 冈卞氾玄伕立用毛譆仁﹝刓憎拑仄
#
func pat_put(pno, dir, cx, cy)
{
	int pat, c;
	c = pno + 2;
	pat = _pats + (pno * 24 + dir * 6) * SIZEOF_INT; # &pats[pno][dir]
	_box[cy * WIDTH + cx] = c;
	_box[(cy += pat[1]) * WIDTH + (cx += pat[0])] = c;
	_box[(cy += pat[3]) * WIDTH + (cx += pat[2])] = c;
	_box[(cy += pat[5]) * WIDTH + (cx += pat[4])] = c;
}# pat_put
#
# 冈卞氾玄伕立用毛譆仃月卅日壬 non 0 毛忒允﹝
#
func pat_putable(pno, dir, cx, cy)
{
	int pat;
	pat = _pats + (pno * 24 + dir * 6) * SIZEOF_INT; # &pats[pno][dir]
	return _box[cy * WIDTH + cx] == SPACE
		&& _box[(cy += pat[1]) * WIDTH + (cx += pat[0])] == SPACE
		&& _box[(cy += pat[3]) * WIDTH + (cx += pat[2])] == SPACE
		&& _box[(cy += pat[5]) * WIDTH + (cx += pat[4])] == SPACE;
}# pat_putable
#
# 脰昍毛瘋刓憎
#
func refresh()
{
	int pno;
	box_draw();
	print_high(_high_score);
	print_level(_level);
	print_lines(_lines);
	print_score(_score);
	print_sigma(_sigma);
	for (pno = 0; pno < 7; pno++)
		print_stats(pno, _stats[pno]);
}
#
# 伊矛伙 == lvl 及凜及忏中化中月凜棉
#
func hovering_time_of(lvl)
{
	return (10 - lvl) * 80;
}
#
# 伊矛伙 == lvl 及凜卞﹜嫖今 y 井日侹切凶凜及旦戊失
#
func score_of(lvl, y)
{
	return lvl * 2 + 25 - y;
}
#
# 匏譆互割爛允月引匹及質咥
#
func until_down(pno, dir, px, py)
{
	int more, touch, limit, t0, t1;
	touch = 0;
	more = TRUE;
	t0 = milliclock();
	limit = t0 + hovering_time_of(_level);
	while (more) {
		do {
			if ((key = INPOUT(0xff)) == EOF)
				return -1;
			t1 = milliclock();
		} while (t1 < limit && key == 0 && strchr("\003\014\033 24568", key) != NULL);
		if (key == '4' || key == '6') {# 爾惘啖⑹
			int dx;
			dx = (key == '4') ? -1 : 1;
			if (pat_putable(pno, dir, px + dx, py)) {
				pat_move_level(pno, dir, px, py, dx);
				px += dx;
			}
		}
		else if (key == '5') {# 莢鱉
			int ndir;
			ndir = (dir + 1) & 3;
			if (pat_putable(pno, ndir, px, py)) {
				pat_round(pno, dir, px, py);
				dir = ndir;
			}
		}
		else if (key == '8') {# 慼伊矛伙
			if (_level < 9) {
				_level++;
				limit = t0 + hovering_time_of(_level);
				print_level(_level);
			}
		}
		else if (key == ' ' || key == '2') {# 侹票
			int ny;
			ny = py;
			more = FALSE;
			_score += score_of(_level, py);
			while (pat_putable(pno, dir, px, ny + 1)) {
				ny++;
			}
			pat_erase(pno, dir, px, py);
			pat_draw(pno, dir, px, ny);
			py = ny;
		}
		else if (key == 003) {# 雄孺蔽弇
			return -1;
		}
		else if (key == 014) {# 瘋刓憎
			refresh();
		}
		else if (key == 033) {# 禾□朮
			while ((key = INPOUT(0xff)) != EOF && key != 033)
				;
		}
		if (more && t1 >= limit) {# 憤⑹侹票
			int ny;
			ny = py + 1;
			if (pat_putable(pno, dir, px, ny)) {
				pat_move_down(pno, dir, px, py);
				py = ny;
				t0 = milliclock();
				limit = t0 + hovering_time_of(_level);
				touch = 0; # 域蟾侹切凶日手丹域蘸民乓件旦丐曰方﹝
			}
			else {
				if (touch++ == 0) {# 噙卞縐木化手伐件乒失民乓件旦
					t0 = milliclock();
					limit = t0 + hovering_time_of(5);
				}
				else {# 割爛
					more = FALSE;
					_score += score_of(_level, py);
				}
			}
		}# if (t1 >= limit)
	}# while
	pat_put(pno, dir, px, py);
	return 0;
}# until_down
#
# 冈毛譬屯﹜壅尹月仿奶件毛醒尹月﹝
# 枑曰襖反仿奶件及鍚醒﹜int argv[] 卞仿奶件⺀寞毛本永玄允月﹝
#
func check_lines(argv)
{
	int y, argc;
	int curline;
	argc = 0;
	for (y = 2; y < HEIGHT - 1; y++) {
		curline = _box + (y * WIDTH) * SIZEOF_INT;
		if (curline[1] && curline[2] && curline[3] && curline[4] && curline[5]
		 && curline[6] && curline[7] && curline[8] && curline[9] && curline[10]) {
			argv[argc++] = y;
		}
	}
	return argc;
}# check_lines
#
# 壅尹月仿奶件互丐月卅日質咥允月﹝
# 壅仄凶仿奶件醒毛忒允﹝
#
func clear_lines()
{
	int argc;
	int argv;
	argv = dim(HEIGHT);
	argc = check_lines(argv);
	if (argc > 0) {
		int i, t0;
		# 壅尹月仿奶件毛疋市疋市允月
		t0 = milliclock();
		while (milliclock() - t0 < 500) {
			for (i = 0; i < argc; i++)
				box_draw_invert_line(argv[i]);
			for (i = 0; i < argc; i++)
				box_draw_line(argv[i]);
		}# while
		# 壅尹月仿奶件毛壅允
		for (i = 0; i < argc; i++) {
			box_draw_clear_line(argv[i]);
			box_clear_line(argv[i]);
		}
		# 打件打件午侹切化仁月
		for (i = argc - 1; i >= 0; i--) {
			int curline;
			curline = argv[i] + (argc - 1 - i);
			box_scroll(curline);
			box_draw_scroll(curline);
		}
	}
	free(argv);
	return argc;
}# clear_lines
#
# 壅仄凶仿奶件午伊矛伙及楮溢
# lines > 10 卅日伊矛伙反 1 分﹝
#
_next_level = dim(10);
sscanf("10 20 30 40 55 70 85 100 115 2147483647", "%d %d %d %d %d %d %d %d %d %d", _next_level, _next_level + 1 * SIZEOF_INT, _next_level + 2 * SIZEOF_INT, _next_level + 3 * SIZEOF_INT, _next_level + 4 * SIZEOF_INT, _next_level + 5 * SIZEOF_INT, _next_level + 6 * SIZEOF_INT, _next_level + 7 * SIZEOF_INT, _next_level + 8 * SIZEOF_INT, _next_level + 9 * SIZEOF_INT);
#
#
#
func over()
{
	int y, x;
	for (y = 0; y < HEIGHT - 1; y++) {
		for (x = 1; x < WIDTH - 1; x++) {
			_box[y * WIDTH + x] = 7 + 2;
		}
	}
	refresh();
}# over
#
# ㄠ莢及皿伊奶
#
func play()
{
	int pno, npno, dir, px, py, quit, ex;
	dir = 0;
	px = 5;
	py = 1;
	_level = 0;
	_score = 0;
	_lines = 0;
	_sigma = 0;
	for (pno = 0; pno < 7; pno++)
		_stats[pno] = 0;

	npno = rand() / (RAND_MAX / 7 + 1) ;
	box_clear();
	refresh();

	ex = 0;
	quit = 0;
	while (!quit) {
		pno = npno;
		npno = rand() / (RAND_MAX / 7 + 1);
		print_sigma(++_sigma);
		_stats[pno]++;	# infix 及田弘及六中匹 `++stats[pno]' 反匹五卅中
		print_stats(pno, _stats[pno]);
		print_score(_score);
		pat_draw(pno, dir, px, py);
		if (pat_putable(pno, dir, px, py)) {
			if (until_down(pno, dir, px, py) < 0) {
				ex = 1;
				quit = TRUE;
			}
			else {
				int dl;
				dl = clear_lines(); # dl = 壅仄凶仿奶件醒
				if (dl > 0) {
					_lines += dl;
					print_lines(_lines);
					if (_lines > _next_level[_level]) {
						_level++;
						print_level(_level);
					}
				}
			}
		}
		else
			quit = TRUE;
	}# while
	if (_score > _high_score)
		print_high(_high_score = _score);
	return ex;
}# play
#
#
#
func main()
{
	cursor(0);
	clear();
	puts("\t\t\t**** SXinfix 迕 tet*is ****");
	puts("\t\t\t醜綜杅芊");
	puts("\t\t\t          [8:伊矛伙失永皿]");
	puts("\t\t\t[4:啖⑹ ] [5:莢鱉] [6:啖⑹]");
	puts("\t\t\t          [2:侹票]");
	puts("\t\t\tSPACE 侹票");
	puts("\t\t\tESC   域凜曩鞅");
	puts("\t\t\t^L    瘋刓憎");

		pats_make();
		ch = 'y';
		while (ch == 'y') {
			play();
			over();
			while ((ch = INPOUT(0xff)) != EOF && ch != 0)
				;
			mvwstr(HEIGHT / 2, 1, "  PLAY AGAIN (Y/N)? ");
			while ((ch = INPOUT(0xff)) != EOF && ch != 'y' && ch != 'n')
				;
		}# while
	cursor(1);
}# main
srand(time(NULL));
main();