HP Prime for All
English
Русский
HP Apps : Tetris
| Name | Tetris |
| Description | Simple implementation of the Tetris falling shapes game. |
| Author | Cyrille de Brebisson (HpMad) |
Source code (download):
Source code formatted by website engine
// By cyrille de Brébisson HP_prime developer
// Optimisation and improvments by Mickaël Nicotera
DoesNotFit(game, piece, p) // return true if piece does not fit
begin local j;
if game(im(p), re(p)) then return 1; end;
for j := 1 to size(piece) do p := p+piece(j);
if game(im(p), re(p)) then return 1; end;
end;
return 0;
end;
EXPORT Tetris()
BEGIN local game = makemat(J = 1 or J = 12 or I = 1 or I = 25, 25, 12), pause = 0.200, score = 0;
local shapes = {{(1, 0), (0, 1), (-1, 0)},
{(1, 0), (0, 1), (1, 0)},
{(-1, 0), (0, 1), (-1, 0)},
{(1, 0), (1, 0), (0, 1)},
{(-1, 0), (-1, 0), (0, 1)},
{(1, 0), (1, 0), (-1, 1)},
{(1, 0), (1, 0), (1, 0)}}; // Bar
while 1 do local piece = shapes(randint(6) + 1), p = (5, 2), i, j; // get a random piece
if DoesNotFit(game, piece, p) then return score; end; // test if we lose
// create background
dimgrob_p(G1, 320, 240);
dimgrob_p(G2, 320, 240);
line_p(G1, 99, 0, 99, 232, #FF); line_p(G1, 99, 232, 202, 232, #FF); line_p(G1, 202, 232, 202, 0, #FF);
for i := 1 to 23 do for j := 1 to 10 do if game(i+1, j+1) then rect_p(G1, j*10+91, i*10-9, j*10+100, i*10, #0); end;
end;
while NOT DoesNotFit(game, piece, p) do // Draw the background on back buffer
blit_p(G2, G1);
// display score
TEXTOUT_P("Score = "+score, G2, 250, 7, 1, #007CFFh);
// draw the piece
i := p;
rect_p(G2, i*10 - (-81, 19), i*10 - (-90, 10), #FF006Eh);
for j := 1 to size(piece) do i := i+piece(j);
rect_p(G2, i*10 - (-81, 19), i*10 - (-90, 10), #FF006Eh);
end;
// draw backbuffer on screen
blit_p(G2);
// pause
I := 0;
WHILE I < 2 DO wait(0.1);
// keys?
if iskeydown(4) then RETURN("Tetris for HP Prime"); end;
if IsKeyDown(7) then if NOT DoesNotFit(game, piece, p-1) then p := p-1; end; end;
if IsKeyDown(8) then if NOT DoesNotFit(game, piece, p+1) then p := p+1; end; end;
if IsKeyDown(30) then local rotate = piece * (0, 1);
if NOT DoesNotFit(game, rotate, p) then piece := rotate; end;
end;
I := I+1;
END;
// try to go down...
if DoesNotFit(game, piece, p + (0, 1)) then break; else p := p + (0, 1); end;
end;
// put piece in game!
game(im(p), re(p)) := 1;
for j := 1 to size(piece) do p := p+piece(j);
game(im(p), re(p)) := 1;
end;
// remove lines?
for i := 24 downto 2 do if game(i) = [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1] then game(2) := [1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1];
score := score+1;
i := i+1;
end;
end;
END;