// By cyrille de Brébisson HP_prime developer //Optimisation and improvments by Mickaël Nicotera //and Tom Lake 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(2) then local rotate= piece*(0, -1); if NOT DoesNotFit(game, rotate, p) then piece:= rotate; end; else if IsKeyDown(12) then local rotate= piece*(0, 1); if NOT DoesNotFit(game, rotate, p) then piece:= rotate; end; 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;