HP Prime для всех

English  Русский 
Тетрис games-app screenshot}}
Название Тетрис
Описание Simple implementation of the Tetris falling shapes game.
Автор Cyrille de Brebisson (HpMad)

Исходный код (скачать):

Исходный код отформатирован программными средствами сайта

// 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; 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 for j := i-1 downto 2 do game(j+1) := game(j); end; game(2) := [1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1]; score := score+1; i := i+1; end; end; // faster! pause := pause-0.007; end; END;

Комментарии