?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Drop extra ;
[tetris.git] / tetris.c
blob7accf443adaff9a3458c5e368be3f40c04768354
1 /* Micro Tetris, based on an obfuscated tetris, 1989 IOCCC Best Game
2 *
3 * Copyright (c) 1989 John Tromp <john.tromp@gmail.com>
4 * Copyright (c) 2009-2021 Joachim Wiberg <troglobit@gmail.com>
5 *
6 * Permission to use, copy, modify, and/or distribute this software for any
7 * purpose with or without fee is hereby granted, provided that the above
8 * copyright notice and this permission notice appear in all copies.
9 *
10 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
11 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
12 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
13 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
14 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
15 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
16 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
17 *
18 * See the following URLs for more information, first John Tromp's page about
19 * the game http://homepages.cwi.nl/~tromp/tetris.html then there's the entry
20 * page at IOCCC http://www.ioccc.org/1989/tromp.hint
21 */
22
23 #include <signal.h>
24 #include <stdio.h>
25 #include <stdlib.h>
26 #include <string.h>
27 #include <sys/time.h>
28 #include <sys/wait.h>
29 #include <termios.h>
30 #include <time.h>
31 #include <unistd.h>
32
33 #define clrscr() puts ("\033[2J\033[1;1H")
34 #define gotoxy(x,y) printf("\033[%d;%dH", y, x)
35 #define hidecursor() puts ("\033[?25l")
36 #define showcursor() puts ("\033[?25h")
37 #define bgcolor(c,s) printf("\033[%dm" s, c ? c + 40 : 0)
38
39 #define SIGNAL(signo, cb) \
40 sigemptyset(&sa.sa_mask); \
41 sigaddset(&sa.sa_mask, signo); \
42 sa.sa_flags = 0; \
43 sa.sa_handler = cb; \
44 sigaction(signo, &sa, NULL)
45
46 /* the board */
47 #define B_COLS 12
48 #define B_ROWS 23
49 #define B_SIZE (B_ROWS * B_COLS)
50
51 #define TL -B_COLS-1 /* top left */
52 #define TC -B_COLS /* top center */
53 #define TR -B_COLS+1 /* top right */
54 #define ML -1 /* middle left */
55 #define MR 1 /* middle right */
56 #define BL B_COLS-1 /* bottom left */
57 #define BC B_COLS /* bottom center */
58 #define BR B_COLS+1 /* bottom right */
59
60 /* These can be overridden by the user. */
61 #define DEFAULT_KEYS "jkl pq"
62 #define KEY_LEFT 0
63 #define KEY_RIGHT 2
64 #define KEY_ROTATE 1
65 #define KEY_DROP 3
66 #define KEY_PAUSE 4
67 #define KEY_QUIT 5
68
69 #define HIGH_SCORE_FILE "/var/games/tetris.scores"
70 #define TEMP_SCORE_FILE "/tmp/tetris-tmp.scores"
71
72 static struct termios savemodes;
73 static int havemodes = 0;
74
75 static char *keys = DEFAULT_KEYS;
76 static int level = 1;
77 static int points = 0;
78 static int lines_cleared = 0;
79 static int board[B_SIZE], shadow[B_SIZE];
80
81 static int *peek_shape; /* peek preview of next shape */
82 static int pcolor;
83 static int *shape;
84 static int color;
85
86 static int shapes[] = {
87 7, TL, TC, MR, 2, /* ""__ */
88 8, TR, TC, ML, 3, /* __"" */
89 9, ML, MR, BC, 1, /* "|" */
90 3, TL, TC, ML, 4, /* square */
91 12, ML, BL, MR, 5, /* |""" */
92 15, ML, BR, MR, 6, /* """| */
93 18, ML, MR, 2, 7, /* ---- sticks out */
94 0, TC, ML, BL, 2, /* / */
95 1, TC, MR, BR, 3, /* \ */
96 10, TC, MR, BC, 1, /* |- */
97 11, TC, ML, MR, 1, /* _|_ */
98 2, TC, ML, BC, 1, /* -| */
99 13, TC, BC, BR, 5, /* |_ */
100 14, TR, ML, MR, 5, /* ___| */
101 4, TL, TC, BC, 5, /* "| */
102 16, TR, TC, BC, 6, /* |" */
103 17, TL, MR, ML, 6, /* |___ */
104 5, TC, BC, BL, 6, /* _| */
105 6, TC, BC, 2 * B_COLS, 7, /* | sticks out */
106 };
107
108 static void draw(int x, int y, int color)
109 {
110 gotoxy(x, y);
111 bgcolor(color, " ");
112 }
113
114 static int update(void)
115 {
116 int x, y;
117
118 #ifdef ENABLE_PREVIEW
119 static int shadow_preview[B_COLS * 10] = { 0 };
120 int preview[B_COLS * 10] = { 0 };
121 const int start = 5;
122
123 preview[2 * B_COLS + 1] = pcolor;
124 preview[2 * B_COLS + 1 + peek_shape[1]] = pcolor;
125 preview[2 * B_COLS + 1 + peek_shape[2]] = pcolor;
126 preview[2 * B_COLS + 1 + peek_shape[3]] = pcolor;
127
128 for (y = 0; y < 4; y++) {
129 for (x = 0; x < B_COLS; x++) {
130 if (preview[y * B_COLS + x] - shadow_preview[y * B_COLS + x]) {
131 int color = preview[y * B_COLS + x];
132
133 shadow_preview[y * B_COLS + x] = color;
134 draw(x * 2 + 26 + 28, start + y, color);
135 }
136 }
137 }
138 #endif
139
140 /* Display board. */
141 for (y = 1; y < B_ROWS - 1; y++) {
142 for (x = 0; x < B_COLS; x++) {
143 if (board[y * B_COLS + x] - shadow[y * B_COLS + x]) {
144 int color = board[y * B_COLS + x];
145
146 shadow[y * B_COLS + x] = color;
147 draw(x * 2 + 28, y, color);
148 }
149 }
150 }
151
152 /* Update points and level */
153 while (lines_cleared >= 10) {
154 lines_cleared -= 10;
155 level++;
156 }
157
158 #ifdef ENABLE_SCORE
159 /* Display current level and points */
160 gotoxy(26 + 28, 2);
161 printf("\033[0mLevel : %d", level);
162 gotoxy(26 + 28, 3);
163 printf("Points : %d", points);
164 #endif
165 #ifdef ENABLE_PREVIEW
166 gotoxy(26 + 28, 5);
167 printf("Preview:");
168 #endif
169 gotoxy(26 + 28, 10);
170 printf("Keys:");
171 fflush(stdout);
172
173 return getchar();
174 }
175
176 int fits_in(int *shape, int pos)
177 {
178 if (board[pos] || board[pos + shape[1]] || board[pos + shape[2]] || board[pos + shape[3]])
179 return 0;
180
181 return 1;
182 }
183
184 static void place(int *shape, int pos, int color)
185 {
186 board[pos] = color;
187 board[pos + shape[1]] = color;
188 board[pos + shape[2]] = color;
189 board[pos + shape[3]] = color;
190 }
191
192 static int *next_shape(void)
193 {
194 int pos = rand() % 7 * 5;
195 int *next = peek_shape;
196
197 peek_shape = &shapes[pos];
198 pcolor = peek_shape[4];
199 if (!next)
200 return next_shape();
201 color = next[4];
202
203 return next;
204 }
205
206 static void show_high_score(void)
207 {
208 #ifdef ENABLE_HIGH_SCORE
209 FILE *tmpscore;
210
211 if ((tmpscore = fopen(HIGH_SCORE_FILE, "a"))) {
212 char *name = getenv("LOGNAME");
213
214 if (!name)
215 name = "anonymous";
216
217 fprintf(tmpscore, "%7d\t %5d\t %3d\t%s\n", points * level, points, level, name);
218 fclose(tmpscore);
219
220 system("cat " HIGH_SCORE_FILE "| sort -rn | head -10 >" TEMP_SCORE_FILE
221 "&& cp " TEMP_SCORE_FILE " " HIGH_SCORE_FILE);
222 remove(TEMP_SCORE_FILE);
223 }
224
225 if (!access(HIGH_SCORE_FILE, R_OK)) {
226 // puts("\nHit RETURN to see high scores, ^C to skip.");
227 fprintf(stderr, " Score\tPoints\tLevel\tName\n");
228 system("cat " HIGH_SCORE_FILE);
229 }
230 #endif /* ENABLE_HIGH_SCORE */
231 }
232
233 static void show_online_help(void)
234 {
235 const int start = 11;
236
237 gotoxy(26 + 28, start);
238 puts("\033[0mj - left");
239 gotoxy(26 + 28, start + 1);
240 puts("k - rotate");
241 gotoxy(26 + 28, start + 2);
242 puts("l - right");
243 gotoxy(26 + 28, start + 3);
244 puts("space - drop");
245 gotoxy(26 + 28, start + 4);
246 puts("p - pause");
247 gotoxy(26 + 28, start + 5);
248 puts("q - quit");
249 }
250
251 /* Code stolen from http://c-faq.com/osdep/cbreak.html */
252 static int tty_init(void)
253 {
254 struct termios modmodes;
255
256 if (tcgetattr(fileno(stdin), &savemodes) < 0)
257 return -1;
258
259 havemodes = 1;
260 hidecursor();
261
262 /* "stty cbreak -echo" */
263 modmodes = savemodes;
264 modmodes.c_lflag &= ~ICANON;
265 modmodes.c_lflag &= ~ECHO;
266 modmodes.c_cc[VMIN] = 1;
267 modmodes.c_cc[VTIME] = 0;
268
269 return tcsetattr(fileno(stdin), TCSANOW, &modmodes);
270 }
271
272 static int tty_exit(void)
273 {
274 if (!havemodes)
275 return 0;
276
277 showcursor();
278
279 /* "stty sane" */
280 return tcsetattr(fileno(stdin), TCSANOW, &savemodes);
281 }
282
283 static void freeze(int enable)
284 {
285 sigset_t set;
286
287 sigemptyset(&set);
288 sigaddset(&set, SIGALRM);
289
290 sigprocmask(enable ? SIG_BLOCK : SIG_UNBLOCK, &set, NULL);
291 }
292
293 static void alarm_handler(int signo)
294 {
295 static long h[4];
296
297 (void)signo;
298
299 /* On init from main() */
300 if (!signo)
301 h[3] = 500000;
302
303 h[3] -= h[3] / (3000 - 10 * level);
304 setitimer(0, (struct itimerval *)h, 0);
305 }
306
307 static void exit_handler(int signo)
308 {
309 (void)signo;
310
311 clrscr();
312 tty_exit();
313 exit(0);
314 }
315
316 static int sig_init(void)
317 {
318 struct sigaction sa;
319
320 SIGNAL(SIGINT, exit_handler);
321 SIGNAL(SIGTERM, exit_handler);
322 SIGNAL(SIGALRM, alarm_handler);
323
324 /* Start update timer. */
325 alarm_handler(0);
326 }
327
328 int main(void)
329 {
330 int c = 0, i, j, *ptr;
331 int pos = 17;
332 int *backup;
333
334 /* Initialize board, grey border, used to be white(7) */
335 ptr = board;
336 for (i = B_SIZE; i; i--)
337 *ptr++ = i < 25 || i % B_COLS < 2 ? 60 : 0;
338
339 srand((unsigned int)time(NULL));
340 if (tty_init() == -1)
341 return 1;
342
343 /* Set up signals */
344 sig_init();
345
346 clrscr();
347 show_online_help();
348
349 shape = next_shape();
350 while (1) {
351 if (c < 0) {
352 if (fits_in(shape, pos + B_COLS)) {
353 pos += B_COLS;
354 } else {
355 place(shape, pos, color);
356 ++points;
357 for (j = 0; j < 252; j = B_COLS * (j / B_COLS + 1)) {
358 for (; board[++j];) {
359 if (j % B_COLS == 10) {
360 lines_cleared++;
361
362 for (; j % B_COLS; board[j--] = 0)
363 ;
364 c = update();
365
366 for (; --j; board[j + B_COLS] = board[j])
367 ;
368 c = update();
369 }
370 }
371 }
372 shape = next_shape();
373 if (!fits_in(shape, pos = 17))
374 c = keys[KEY_QUIT];
375 }
376 }
377
378 if (c == keys[KEY_LEFT]) {
379 if (!fits_in(shape, --pos))
380 ++pos;
381 }
382
383 if (c == keys[KEY_ROTATE]) {
384 backup = shape;
385 shape = &shapes[5 * *shape]; /* Rotate */
386 /* Check if it fits, if not restore shape from backup */
387 if (!fits_in(shape, pos))
388 shape = backup;
389 }
390
391 if (c == keys[KEY_RIGHT]) {
392 if (!fits_in(shape, ++pos))
393 --pos;
394 }
395
396 if (c == keys[KEY_DROP]) {
397 for (; fits_in(shape, pos + B_COLS); ++points)
398 pos += B_COLS;
399 }
400
401 if (c == keys[KEY_PAUSE] || c == keys[KEY_QUIT]) {
402 freeze(1);
403
404 if (c == keys[KEY_QUIT]) {
405 clrscr();
406 gotoxy(0, 0);
407
408 printf("\033[0mYour score: %d points x level %d = %d\n\n", points, level, points * level);
409 show_high_score();
410 break;
411 }
412
413 for (j = B_SIZE; j--; shadow[j] = 0)
414 ;
415
416 while (getchar() - keys[KEY_PAUSE])
417 ;
418
419 // puts("\033[H\033[J\033[7m");
420 freeze(0);
421 }
422
423 place(shape, pos, color);
424 c = update();
425 place(shape, pos, 0);
426 }
427
428 if (tty_exit() == -1)
429 return 1;
430
431 return 0;
432 }
433
434 /**
435 * Local Variables:
436 * indent-tabs-mode: t
437 * c-file-style: "linux"
438 * End:
439 */