/* Copyright 2017 Dan Amlund Thomsen * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation, either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see <http://www.gnu.org/licenses/>. */ #include <stdio.h> #include <stdlib.h> #include <stdarg.h> #include <stdint.h> #include "tetris_text.h" static char empty_piece[7][7] = { { 0, 0, 0, 0, 0, 0, 0 }, { 0, 0, 0, 0, 0, 0, 0 }, { 0, 0, 0, 0, 0, 0, 0 }, { 0, 0, 0, 0, 0, 0, 0 }, { 0, 0, 0, 0, 0, 0, 0 }, { 0, 0, 0, 0, 0, 0, 0 }, { 0, 0, 0, 0, 0, 0, 0 } }; static char temp_piece[7][7]; static int curx = 0; static int cury = 0; static void clear_piece(char piece[7][7]) { for (int y = 0; y < 7; y++) { for (int x = 0; x < 7; x++) { piece[x][y] = 0; } } } static void copy_piece_from_to(char from[7][7], char to[7][7]) { for (int y = 0; y < 7; y++) { for (int x = 0; x < 7; x++) { to[x][y] = from[x][y]; } } } static void rotate_piece(char piece[7][7]) { // transpose for (int y = 0; y < 7; y++) { for (int x = y + 1; x < 7; x++) { char tmp = piece[y][x]; piece[y][x] = piece[x][y]; piece[x][y] = tmp; } } // reverse rows for (int y = 0; y < 7; y++) { for (int x = 0; x < 3; x++) { char tmp = piece[y][6 - x]; piece[y][6 - x] = piece[y][x]; piece[y][x] = tmp; } } } static char get_shape_char(int shape) { switch (shape) { case 0: return 'I'; case 1: return 'J'; case 2: return 'L'; case 3: return 'O'; case 4: return 'S'; case 5: return 'T'; case 6: return 'Z'; } return 'Q'; } static void set_piece(char piece[7][7], int shape, int rotation) { clear_piece(piece); switch (shape) { case 0: if (rotation % 2 == 0) { // xxXx piece[3][1] = 1; piece[3][2] = 1; piece[3][3] = 1; piece[3][4] = 1; } else { // x // x // X // x piece[1][3] = 1; piece[2][3] = 1; piece[3][3] = 1; piece[4][3] = 1; } break; case 1: // xXx // x piece[3][2] = 1; piece[3][3] = 1; piece[3][4] = 1; piece[4][4] = 1; for (int i = 0; i < rotation; i++) { rotate_piece(piece); } break; case 2: // xXx // x piece[3][2] = 1; piece[3][3] = 1; piece[3][4] = 1; piece[4][2] = 1; for (int i = 0; i < rotation; i++) { rotate_piece(piece); } break; case 3: // xX // xx piece[3][2] = 1; piece[3][3] = 1; piece[4][2] = 1; piece[4][3] = 1; break; case 4: if (rotation % 2 == 0) { // xX // xx piece[3][2] = 1; piece[3][3] = 1; piece[4][3] = 1; piece[4][4] = 1; } else { // x // xX // x piece[2][3] = 1; piece[3][2] = 1; piece[3][3] = 1; piece[4][2] = 1; } break; case 5: // xXx // x piece[3][2] = 1; piece[3][3] = 1; piece[3][4] = 1; piece[4][3] = 1; for (int i = 0; i < rotation; i++) { rotate_piece(piece); } break; case 6: if (rotation % 2 == 0) { // Xx // xx piece[3][3] = 1; piece[3][4] = 1; piece[4][2] = 1; piece[4][3] = 1; } else { // x // Xx // x piece[2][3] = 1; piece[3][3] = 1; piece[3][4] = 1; piece[4][4] = 1; } break; } } static void send_deletes(int deletes) { for (int i = 0; i < deletes; i++) { tetris_send_delete(); } } static void send_backspaces(int backspaces) { for (int i = 0; i < backspaces; i++) { tetris_send_backspace(); curx--; } } static void send_goto_xy(int x, int y) { while (curx < x) { tetris_send_right(); curx++; } while (curx > x) { tetris_send_left(); curx--; } while (cury < y) { tetris_send_down(); cury++; } while (cury > y) { tetris_send_up(); cury--; } } static void draw_row(char c, const char oldrow[7], const char newrow[7], int x, int y) { char str[2] = { c, 0 }; char row_is_del[7] = { 0 }; int first = -1; int last = -1; for (int px = 0; px < 7; px++) { if (oldrow[px] && !newrow[px]) { row_is_del[px] = 1; } if (newrow[px] || oldrow[px]) { if (first == -1) first = px; last = px; } } if (first >= 0) { if (curx > x + last + 1) { send_goto_xy(x + last + 1, cury); } if (curx < x + first) { send_goto_xy(x + first, cury); } send_goto_xy(curx, y); send_deletes((x + last + 1) - curx); send_backspaces(curx - (x + first)); for (int i = first; i <= last; i++) { if (row_is_del[i]) { tetris_send_string("."); } else { tetris_send_string(str); } curx++; } } } static void move_piece_from_to(char from[7][7], char to[7][7], int xadd, int yadd) { for (int y = 0; y < 7; y++) { for (int x = 0; x < 7; x++) { if (x + xadd >= 0 && x + xadd < 7 && y + yadd >= 0 && y + yadd < 7) { to[y][x] = from[y + yadd][x + xadd]; } else { to[y][x] = 0; } } } } static void draw_piece(char c, int x, int y, char oldpiece[7][7], char piece[7][7]) { for (int py = 0; py < 7; py++) { draw_row(c, oldpiece[py], piece[py], x, y + py); } } static void draw_piece_moved(char c, int x, int y, char piece[7][7], int oldxadd, int oldyadd) { move_piece_from_to(piece, temp_piece, oldxadd, oldyadd); draw_piece(c, x, y, temp_piece, piece); } static int is_piece_hitting(char board[20][10], char piece[7][7], int x, int y) { for (int py = 0; py < 7; py++) { for (int px = 0; px < 7; px++) { if (piece[py][px] && (px + x >= 10 || px + x < 0 || py + y >= 20 || py + y < 0 || board[py + y][px + x])) { return 1; } } } return 0; } static void add_piece_to_board(char piece[7][7], char board[20][10], int x, int y) { for (int py = 0; py < 7; py++) { for (int px = 0; px < 7; px++) { if (piece[py][px]) { board[py + y][px + x] = piece[py][px]; } } } } static void draw_board_line(void) { //send_string("l l"); tetris_send_string("l..........l"); tetris_send_newline(); } static void init(void) { for (int i = 0; i < 20; i++) { draw_board_line(); } tetris_send_string("doooooooooob"); curx = 12; cury = 20; } static int get_piece_min_y(char piece[7][7]) { for (int y = 0; y < 7; y++) { for (int x = 0; x < 7; x++) { if (piece[y][x]) return y; } } return 0; } static int clear_lines(char board[20][10]) { int cleared_lines = 0; for (int y = 19; y >= 0; y--) { char isfull = 1; for (int x = 0; x < 10; x++) { if (!board[y][x]) { isfull = 0; } } if (isfull) { // delete clear line send_goto_xy(12, y); send_backspaces(12); // delete line contents // delete newline tetris_send_backspace(); cury--; curx = 12; cleared_lines++; } else { if (cleared_lines > 0) { // move cleared lines down on board for (int x = 0; x < 10; x++) { board[y + cleared_lines][x] = board[y][x]; } } } } // clear cleared top lines for (int y = 0; y < cleared_lines; y++) { for (int x = 0; x < 10; x++) { board[y][x] = 0; } } if (cleared_lines > 0) { send_goto_xy(0, 0); for (int i = 0; i < cleared_lines; i++) { draw_board_line(); curx = 0; cury++; } } return cleared_lines; } static uint8_t myrandom(uint8_t seed) { uint8_t out = seed >> 1; if (seed & 1) { out = out ^ 0xB8; } return out; } static char piece[7][7]; static char board[20][10]; static uint8_t r; static int score; static int x; static int y; static int shape; static int rotation; static int time; static int next_down; static int down_delay; static int first_run; static int game_over; void tetris_start(uint8_t seed) { for (int y = 0; y < 20; y++) { for (int x = 0; x < 10; x++) { board[y][x] = 0; } } clear_piece(piece); init(); game_over = 0; r = seed; score = 0; copy_piece_from_to(empty_piece, piece); x = 0; y = 0; shape = 0; rotation = 0; time = 0; next_down = 0; down_delay = -1; first_run = 1; } int tetris_tick(int ms_since_previous_tick) { if (game_over) { return 0; } time += ms_since_previous_tick; if (first_run || time > next_down) { if (first_run || is_piece_hitting(board, piece, x, y + 1)) { first_run = 0; add_piece_to_board(piece, board, x, y); score += clear_lines(board); down_delay = 500 - score * 10; if (down_delay < 100) { down_delay = 100; } rotation = 0; shape = r % 7; r = myrandom(r); set_piece(piece, shape, rotation); x = 1; y = - get_piece_min_y(piece); draw_piece_moved(get_shape_char(shape), 1 + x, y, piece, 0, 0); if (is_piece_hitting(board, piece, x, y)) { game_over = 1; send_goto_xy(12, 10); tetris_send_string(" game over"); tetris_send_down(); tetris_send_string(" score "); char tmp[10]; sprintf(tmp, "%d", score); tetris_send_string(tmp); return 0; } } else { y++; draw_piece_moved(get_shape_char(shape), 1 + x, y, piece, 0, +1); } next_down = time + down_delay; } else { switch (tetris_get_keypress()) { case 1: { // up int oldrotation = rotation; rotation = (rotation + 1) % 4; copy_piece_from_to(piece, temp_piece); set_piece(piece, shape, rotation); if (is_piece_hitting(board, piece, x, y)) { rotation = oldrotation; set_piece(piece, shape, rotation); } else { draw_piece(get_shape_char(shape), 1 + x, y, temp_piece, piece); } break; } case 2: // left if (!is_piece_hitting(board, piece, x - 1, y)) { x--; draw_piece_moved(get_shape_char(shape), 1 + x, y, piece, -1, 0); } break; case 3: {// down int starty = y; while (!is_piece_hitting(board, piece, x, y + 1)) { y++; } draw_piece(get_shape_char(shape), x + 1, starty, piece, empty_piece); draw_piece(get_shape_char(shape), x + 1, y, empty_piece, piece); next_down = time + down_delay; break; } case 4: // right if (!is_piece_hitting(board, piece, x + 1, y)) { x++; draw_piece_moved(get_shape_char(shape), 1 + x, y, piece, 1, 0); } break; } } return 1; }