+- HP Forums (https://www.hpmuseum.org/forum)
+-- Forum: HP Software Libraries (/forum-10.html)
+--- Forum: HP Prime Software Library (/forum-15.html)
+--- Thread: BRICKS, tetris clone (/thread-988.html)
BRICKS, tetris clone - felissylvestris - 03-28-2014 01:42 PM
Now HP Prime have it tetris clone
(press "help" in game for the default key list)
Changelog:
V0.3 (23 december 2014): Fix of many little bugs: centering of text, save game: current and next shapes are now saved, next shape: center and show real orientation, center the new shape when appear, new firmware support (Thx to Han).
V0.2 (6 april 2014): You can now quit and save the game, choose your own keys and reset the game.
V0.1 (28 march 2014): First release
Screenshot:
[attachment=1344]
Code:
[attachment=1345]
RE: BRICKS, tetris clone - Mic - 03-28-2014 05:12 PM
YES !
RE: BRICKS, tetris clone - Mic - 03-28-2014 05:46 PM
I made a video to see the game in action :
http://youtu.be/2XlJQqOwjjU
RE: BRICKS, tetris clone - patrice - 03-28-2014 08:15 PM
Can you post the source code as a text file ?
RE: BRICKS, tetris clone - eried - 03-28-2014 09:23 PM
Works really nice!
RE: BRICKS, tetris clone - Han - 03-28-2014 09:41 PM
(03-28-2014 08:15 PM)patrice Wrote: Can you post the source code as a text file ?
I was able to open the file in word pad and grab the code from there
RE: BRICKS, tetris clone - patrice - 03-28-2014 10:33 PM
Please don't use .hpprgm extension for plain text source code.
.hpprgm extension is exclusively an emulator extension and is a binary file.
Have a look to http://www.hpmuseum.org/forum/thread-993.html
RE: BRICKS, tetris clone - felissylvestris - 04-06-2014 01:00 PM
New release V0.2: You can now quit and save the game, choose your own keys and reset the game.
RE: BRICKS, tetris clone - Mic - 04-08-2014 07:03 AM
Thanks
RE: BRICKS, tetris clone - javierestebanr13 - 10-09-2014 10:08 PM
works with firmware 2014 7 2 (6031) A?
I tried and did not work. I get syntax error on line 319
I then lowered my firmware to 2013 11 25 and it worked perfectly.
but I prefer to keep my firmware update, error could you have?
RE: BRICKS, tetris clone - Han - 10-10-2014 02:01 PM
It's due to the inclusion of a new keyword: COLOR used to extract or define the colors of functions/expressions/etc in the [Symb] view.
Here's a slightly modified source code that will make the game work on newer firmware:
Code:
//
// BRICKS V0.2
// By Kevin Barbier (kevin@kevin-barbier.org)
//
//
// Globals variables
//
// ---- KEY CONFIG ----
LEFT_KEY:=14;
RIGHT_KEY:=15;
DOWN_KEY:=21;
MAX_DOWN_KEY:=30;
ROTATE_KEY:=19;
PAUSE_KEY:=0;
HELP_KEY:=3;
CHOOSE_KEYS_KEY:=9;
RESET_TO_DEFAULT_KEYS_KEY:=13;
RESET_GAME_KEY:=10;
QUIT_KEY:=4;
// --------------------
SCORE_NB_LINES:=0;
SCORE_NB_POINTS:=0;
BRICK_SIZE:=12;
BRICK_COLORS:={[255, 0, 0], [0, 255, 0], [0, 0, 255], [255,255,0], [255,0,255], [0,255,255]};
BRICKS_TAB_W:=10;
BRICKS_TAB_H:=20;
BRICKS_TAB:=[[-1,-1],[-1,-1]];
NB_SHAPES:=7;
NB_ORIENTATIONS:=4;
SHAPES_MAX_W:=4;
SHAPES_MAX_H:=4;
SHAPES_W:={4,1,4,1,
2,2,2,2,
3,2,3,2,
3,2,3,2,
3,2,3,2,
3,2,3,2,
3,2,3,2};
SHAPES_H:={1,4,1,4,
2,2,2,2,
2,3,2,3,
2,3,2,3,
2,3,2,3,
2,3,2,3,
2,3,2,3};
// Bar, square, half cross, Z left, Z rigth, L left, L rigth
SHAPES:={
[[1,1,1,1],[0,0,0,0],[0,0,0,0],[0,0,0,0]],
[[1,0,0,0],[1,0,0,0],[1,0,0,0],[1,0,0,0]],
[[1,1,1,1],[0,0,0,0],[0,0,0,0],[0,0,0,0]],
[[1,0,0,0],[1,0,0,0],[1,0,0,0],[1,0,0,0]],
[[1,1,0,0],[1,1,0,0],[0,0,0,0],[0,0,0,0]],
[[1,1,0,0],[1,1,0,0],[0,0,0,0],[0,0,0,0]],
[[1,1,0,0],[1,1,0,0],[0,0,0,0],[0,0,0,0]],
[[1,1,0,0],[1,1,0,0],[0,0,0,0],[0,0,0,0]],
[[0,1,0,0],[1,1,1,0],[0,0,0,0],[0,0,0,0]],
[[1,0,0,0],[1,1,0,0],[1,0,0,0],[0,0,0,0]],
[[1,1,1,0],[0,1,0,0],[0,0,0,0],[0,0,0,0]],
[[0,1,0,0],[1,1,0,0],[0,1,0,0],[0,0,0,0]],
[[1,1,0,0],[0,1,1,0],[0,0,0,0],[0,0,0,0]],
[[0,1,0,0],[1,1,0,0],[1,0,0,0],[0,0,0,0]],
[[1,1,0,0],[0,1,1,0],[0,0,0,0],[0,0,0,0]],
[[0,1,0,0],[1,1,0,0],[1,0,0,0],[0,0,0,0]],
[[0,1,1,0],[1,1,0,0],[0,0,0,0],[0,0,0,0]],
[[1,0,0,0],[1,1,0,0],[0,1,0,0],[0,0,0,0]],
[[0,1,1,0],[1,1,0,0],[0,0,0,0],[0,0,0,0]],
[[1,0,0,0],[1,1,0,0],[0,1,0,0],[0,0,0,0]],
[[1,0,0,0],[1,1,1,0],[0,0,0,0],[0,0,0,0]],
[[1,1,0,0],[1,0,0,0],[1,0,0,0],[0,0,0,0]],
[[1,1,1,0],[0,0,1,0],[0,0,0,0],[0,0,0,0]],
[[0,1,0,0],[0,1,0,0],[1,1,0,0],[0,0,0,0]],
[[0,0,1,0],[1,1,1,0],[0,0,0,0],[0,0,0,0]],
[[1,0,0,0],[1,0,0,0],[1,1,0,0],[0,0,0,0]],
[[1,1,1,0],[1,0,0,0],[0,0,0,0],[0,0,0,0]],
[[1,1,0,0],[0,1,0,0],[0,1,0,0],[0,0,0,0]]
};
//
// Functions declarations
//
INIT_SCREEN();
INIT_BRICKS_TAB();
DRAW_SCREEN();
DRAW_BASE_SCREEN();
DRAW_BRICKS_TAB();
DRAW_CURRENT_MOVING_SHAPE();
FLIP_SCREEN();
GET_NEW_COLOR();
GET_NEW_SHAPE_TYPE();
GET_NEW_ORIENTATION();
WAIT_KEY();
WAIT_MS();
X_TO_SCRPOS();
Y_TO_SCRPOS();
DRAW_BRICK();
GET_SHAPE();
DRAW_SHAPE();
COPY_SHAPE_TO_BRICKS_TAB();
TST_SHAPE_CAN_MOVE();
REMOVE_LINES();
GET_LEVEL();
GET_SPEED();
PAUSE();
HELP();
CHOOSE_KEYS();
CHOOSE_KEY();
RESET_TO_DEFAULT_KEYS();
RESET_GAME();
QUIT();
//
// BRICKS()
//
// Main function, entry point
//
EXPORT BRICKS()
BEGIN
LOCAL X:=3;
LOCAL Y:=1;
LOCAL CURRENT_SHAPE_TYPE:=GET_NEW_SHAPE_TYPE();
LOCAL NEXT_SHAPE_TYPE:=GET_NEW_SHAPE_TYPE();
LOCAL ORIENTATION:=GET_NEW_ORIENTATION();
LOCAL colour:=GET_NEW_COLOR();
LOCAL BEGIN_TICKS;
LOCAL TURN_TIME:=GET_SPEED();
SCORE_NB_LINES:=0;
SCORE_NB_POINTS:=0;
INIT_SCREEN();
IF BRICKS_TAB(1,1)==-1 THEN
INIT_BRICKS_TAB(); END;
WHILE 1 DO
DRAW_SCREEN(CURRENT_SHAPE_TYPE, X, Y, ORIENTATION, colour, NEXT_SHAPE_TYPE);
BEGIN_TICKS:=TICKS;
WHILE TICKS<BEGIN_TICKS+TURN_TIME DO
// Quit
IF ISKEYDOWN(QUIT_KEY)<>0 THEN
IF QUIT()==1 THEN RETURN 0; END;
END;
// Left
IF ISKEYDOWN(LEFT_KEY)<>0 AND X>1 THEN
IF TST_SHAPE_CAN_MOVE(CURRENT_SHAPE_TYPE, X-1, Y, ORIENTATION)<>0 THEN
X:=X−1;
DRAW_SCREEN(CURRENT_SHAPE_TYPE, X, Y, ORIENTATION, colour, NEXT_SHAPE_TYPE);
WAIT_MS(TURN_TIME/10);
END;
END;
// Right
IF ISKEYDOWN(RIGHT_KEY)<>0 THEN
IF TST_SHAPE_CAN_MOVE(CURRENT_SHAPE_TYPE, X+1, Y, ORIENTATION)<>0 THEN
X:=X+1;
DRAW_SCREEN(CURRENT_SHAPE_TYPE, X, Y, ORIENTATION, colour, NEXT_SHAPE_TYPE);
WAIT_MS(TURN_TIME/10);
END;
END;
// Down
IF ISKEYDOWN(DOWN_KEY)<>0 THEN
WAIT_MS(TURN_TIME/10);
BREAK;
END;
// Max down
IF ISKEYDOWN(MAX_DOWN_KEY)<>0 THEN
WHILE TST_SHAPE_CAN_MOVE(CURRENT_SHAPE_TYPE, X, Y+1, ORIENTATION)<>0 DO
Y:=Y+1;
END;
WAIT_MS(TURN_TIME/5);
BREAK;
END;
// Rotate
IF ISKEYDOWN(ROTATE_KEY)<>0 THEN
LOCAL NEW_ORIENTATION:=ORIENTATION;
IF NEW_ORIENTATION<4 THEN
NEW_ORIENTATION:=NEW_ORIENTATION+1;
ELSE
NEW_ORIENTATION:=1;
END;
IF TST_SHAPE_CAN_MOVE(CURRENT_SHAPE_TYPE, X, Y, NEW_ORIENTATION)<>0 THEN
ORIENTATION:=NEW_ORIENTATION;
END;
DRAW_SCREEN(CURRENT_SHAPE_TYPE, X, Y, ORIENTATION, colour, NEXT_SHAPE_TYPE);
WAIT_MS(250);
END;
// Pause
IF ISKEYDOWN(PAUSE_KEY)<>0 THEN
PAUSE();
END;
// Help
IF ISKEYDOWN(HELP_KEY)<>0 THEN
HELP();
END;
// Choose keys
IF ISKEYDOWN(CHOOSE_KEYS_KEY)<>0 THEN
CHOOSE_KEYS();
END;
// Reset to default keys
IF ISKEYDOWN(RESET_TO_DEFAULT_KEYS_KEY)<>0 THEN
RESET_TO_DEFAULT_KEYS();
END;
// Reset game
IF ISKEYDOWN(RESET_GAME_KEY)<>0 THEN
RESET_GAME();
TURN_TIME:=GET_SPEED();
Y:=1;
X:=3;
CURRENT_SHAPE_TYPE:=NEXT_SHAPE_TYPE;
NEXT_SHAPE_TYPE:=GET_NEW_SHAPE_TYPE();
colour:=GET_NEW_COLOR();
ORIENTATION:=GET_NEW_ORIENTATION();
END;
END;
IF TST_SHAPE_CAN_MOVE(CURRENT_SHAPE_TYPE, X, Y+1, ORIENTATION)<>0 THEN
Y:=Y+1;
ELSE
COPY_SHAPE_TO_BRICKS_TAB(CURRENT_SHAPE_TYPE, X, Y, colour, ORIENTATION);
REMOVE_LINES();
TURN_TIME:=GET_SPEED();
IF Y==1 THEN
WAIT(3);
BREAK;
ELSE
Y:=1;
X:=3;
CURRENT_SHAPE_TYPE:=NEXT_SHAPE_TYPE;
NEXT_SHAPE_TYPE:=GET_NEW_SHAPE_TYPE();
colour:=GET_NEW_COLOR();
ORIENTATION:=GET_NEW_ORIENTATION();
END;
END;
END;
END;
//
// INIT_BRICKS_TAB()
//
// Initialize the matrix who contain the game
//
INIT_BRICKS_TAB()
BEGIN
BRICKS_TAB:=[
[1,1,1,1,1,1,1,1,1,1,1,1,1,1],
[1,1,1,1,1,1,1,1,1,1,1,1,1,1],
[1,1,1,1,1,1,1,1,1,1,1,1,1,1],
[1,1,1,1,1,1,1,1,1,1,1,1,1,1]
];
FOR I FROM 1 TO BRICKS_TAB_H DO
ADDROW(BRICKS_TAB, [0,0,0,0,0,0,0,0,0,0,1,1,1,1], 1);
END;
END;
//
// INIT_SCREEN()
//
INIT_SCREEN()
BEGIN
DIMGROB_P(G1, 320, 240);
END;
//
// DRAW_SCREEN()
//
// Draw all screen: decoration, game tab and current moving shape
//
// X: logical position
// Y: logical position
//
DRAW_SCREEN(CURRENT_SHAPE_TYPE, X, Y, ORIENTATION, colour, NEXT_SHAPE_TYPE)
BEGIN
DRAW_BASE_SCREEN(NEXT_SHAPE_TYPE);
DRAW_BRICKS_TAB();
DRAW_CURRENT_MOVING_SHAPE(CURRENT_SHAPE_TYPE, X, Y, ORIENTATION, colour);
FLIP_SCREEN();
END;
//
// DRAW_BASE_SCREEN()
//
// Draw decorations, score, lines, level and next shape
//
// NEXT_SHAPE_TYPE: type of the next shape
//
DRAW_BASE_SCREEN(NEXT_SHAPE_TYPE)
BEGIN
RECT_P(G1, 0, 0, 319, 239, 0, RGB(225,225,225));
RECT_P(G1, 100, 0, 220, 239, 0, RGB(255,255,255));
FOR I FROM 0 TO 5 DO
LINE_P(G1, 99−I, 0, 99−I, 239, RGB(I*40, I*40, I*40));
END;
FOR I FROM 0 TO 5 DO
LINE_P(G1, 221+I, 0, 221+I, 239, RGB(I*40, I*40, I*40));
END;
TEXTOUT_P("Lines", G1, 30, 10, 0);
TEXTOUT_P(SCORE_NB_LINES, G1, 45, 30, 0);
TEXTOUT_P("Score", G1, 30, 100, 0);
TEXTOUT_P(SCORE_NB_POINTS, G1, 45, 120, 0);
TEXTOUT_P("Level", G1, 30, 190, 0);
TEXTOUT_P(GET_LEVEL(), G1, 45, 210, 0);
TEXTOUT_P("Next", G1, 250, 10, 0);
DRAW_SHAPE(NEXT_SHAPE_TYPE, 13, 5, 100, 100, 100, 1);
END;
//
// DRAW_BRICKS_TAB()
//
// Draw the game matrix
//
DRAW_BRICKS_TAB()
BEGIN
FOR I FROM 1 TO BRICKS_TAB_H DO
FOR J FROM 1 TO BRICKS_TAB_W DO
IF BRICKS_TAB(I, J)<>0 THEN
R:=BRICK_COLORS(BRICKS_TAB(I, J), 1);
G:=BRICK_COLORS(BRICKS_TAB(I, J), 2);
B:=BRICK_COLORS(BRICKS_TAB(I, J), 3);
DRAW_BRICK(J, I, R, G, B);
END;
END;
END;
END;
//
// DRAW_CURRENT_MOVING_SHAPE()
//
// X: logical position
// Y: logical position
//
DRAW_CURRENT_MOVING_SHAPE(CURRENT_SHAPE_TYPE, X, Y, ORIENTATION, colour)
BEGIN
R:=BRICK_COLORS(colour, 1);
G:=BRICK_COLORS(colour, 2);
B:=BRICK_COLORS(colour, 3);
DRAW_SHAPE(CURRENT_SHAPE_TYPE, X, Y, R, G, B, ORIENTATION);
END;
//
// FLIP_SCREEN()
//
// Flip double buffer
//
FLIP_SCREEN()
BEGIN
BLIT_P(G0, G1);
END;
//
// GET_NEW_COLOR()
//
// Return: a random new color
//
GET_NEW_COLOR()
BEGIN
RETURN RANDINT(1, SIZE(BRICK_COLORS));
END;
//
// GET_NEW_SHAPE_TYPE()
//
// Return: a random new shape type
//
GET_NEW_SHAPE_TYPE()
BEGIN
RETURN RANDINT(1, NB_SHAPES);
END;
//
// GET_NEW_ORIENTATION()
//
// Return: a random new orientation
//
GET_NEW_ORIENTATION()
BEGIN
RETURN RANDINT(1, NB_ORIENTATIONS);
END;
//
// WAIT_KEY()
//
// ID: ID of the key to wait
//
WAIT_KEY(ID)
BEGIN
WHILE GETKEY<>ID DO
END;
END;
//
// WAIT_MS()
//
WAIT_MS(MS)
BEGIN
LOCAL BEGIN_TICKS:=TICKS;
WHILE TICKS<BEGIN_TICKS+MS DO
A+A;
END;
END;
//
// X_TO_SCRPOS()
//
// Convert a logical position to an absolute screen position
//
// X: logical position
//
// Return: absolute screen position for X
//
X_TO_SCRPOS(X)
BEGIN
RETURN 100+((X-1)*BRICK_SIZE);
END;
//
// Y_TO_SCRPOS()
//
// Convert a logical position to an absolute screen position
//
// Y: logical position
//
// Return: absolute screen position for Y
//
Y_TO_SCRPOS(Y)
BEGIN
RETURN (Y-1)*BRICK_SIZE;
END;
//
// DRAW_BRICK()
//
// Draw a single brick at the logical position X,Y
//
// X: logical position
// Y: logical position
//
DRAW_BRICK(X, Y, R, G, B)
BEGIN
X:=X_TO_SCRPOS(X);
Y:=Y_TO_SCRPOS(Y);
RECT_P(G1, X, Y, X+BRICK_SIZE, Y+BRICK_SIZE, 0, RGB(R,G,B));
END;
//
// GET_SHAPE()
//
// Return: shape structure from the shape type
//
GET_SHAPE(SHAPE_TYPE, ORIENTATION)
BEGIN
RETURN SHAPES((SHAPE_TYPE-1)*NB_ORIENTATIONS+ORIENTATION);
END;
//
// DRAW_SHAPE()
//
// X: logical position
// Y: logical position
//
DRAW_SHAPE(SHAPE_TYPE, X, Y, R, G, B, ORIENTATION)
BEGIN
FOR I FROM 1 TO SHAPES_MAX_H DO
FOR J FROM 1 TO SHAPES_MAX_W DO
LOCAL CURRENT_SHAPE:=GET_SHAPE(SHAPE_TYPE, ORIENTATION);
IF CURRENT_SHAPE(I, J)<>0 THEN DRAW_BRICK(X+(J-1), Y+(I-1), R, G, B); END;
END;
END;
END;
//
// COPY_SHAPE_TO_BRICKS_TAB()
//
// X: logical position
// Y: logical position
//
COPY_SHAPE_TO_BRICKS_TAB(SHAPE_TYPE, X, Y, colour, ORIENTATION)
BEGIN
FOR I FROM 1 TO SHAPES_MAX_H DO
FOR J FROM 1 TO SHAPES_MAX_W DO
LOCAL CURRENT_SHAPE:=GET_SHAPE(SHAPE_TYPE, ORIENTATION);
IF CURRENT_SHAPE(I, J)<>0 THEN BRICKS_TAB(Y+(I-1), X+(J-1)):=colour; END;
END;
END;
END;
//
// TST_SHAPE_CAN_MOVE()
//
// X: logical position
// Y: logical position
//
TST_SHAPE_CAN_MOVE(SHAPE_TYPE, X, Y, ORIENTATION)
BEGIN
LOCAL CURRENT_SHAPE:=GET_SHAPE(SHAPE_TYPE, ORIENTATION);
FOR I FROM 1 TO SHAPES_MAX_H DO
FOR J FROM 1 TO SHAPES_MAX_W DO
IF (CURRENT_SHAPE(I, J)<>0) AND (BRICKS_TAB(Y+(I-1), X+(J-1))<>0) THEN
RETURN 0;
END;
END;
END;
RETURN 1;
END;
//
// REMOVE_LINES()
//
// Remove completed lines
//
REMOVE_LINES()
BEGIN
LOCAL FLAG:=0;
LOCAL NB_NEW_LINES:=0;
FOR I FROM 1 TO BRICKS_TAB_H DO
FLAG:=1;
FOR J FROM 1 TO BRICKS_TAB_W DO
IF BRICKS_TAB(I, J)==0 THEN
FLAG:=0;
BREAK;
END;
END;
IF FLAG==1 THEN
DELROW(BRICKS_TAB, I);
ADDROW(BRICKS_TAB, [0,0,0,0,0,0,0,0,0,0,1,1,1,1], 1);
NB_NEW_LINES:=NB_NEW_LINES+1;
END;
END;
SCORE_NB_LINES:=SCORE_NB_LINES+NB_NEW_LINES;
SCORE_NB_POINTS:=SCORE_NB_POINTS+((NB_NEW_LINES^2)*10);
END;
//
// GET_LEVEL()
//
// Return: the level compute from score
//
GET_LEVEL()
BEGIN
RETURN ROUND(SCORE_NB_POINTS/500,0);
END;
//
// GET_SPEED()
//
// Return: the current speed for moving shape
//
GET_SPEED()
BEGIN
LOCAL SPEED:=800-(100*GET_LEVEL());
IF SPEED<100 THEN SPEED:=100; END;
RETURN SPEED;
END;
//
// PAUSE()
//
PAUSE()
BEGIN
WAIT_MS(1000);
WAIT_KEY(PAUSE_KEY);
WAIT_MS(1000);
END;
//
// HELP()
//
HELP()
BEGIN
MSGBOX("BRICKS V0.2");
MSGBOX("DEFAULTS KEYS: Left [A], Right [B], Down [G], Max down [ENTER], Rotate [DEL], Pause [APPS], Quit [ESC],");
MSGBOX("Choose custom keys [VIEWS], Reset to default keys [MENU], Reset game [CAS]");
END;
//
// CHOOSE_KEYS()
//
// Choose custom keys
//
CHOOSE_KEYS()
BEGIN
MSGBOX("Left");
LEFT_KEY:=CHOOSE_KEY();
MSGBOX("Right");
RIGHT_KEY:=CHOOSE_KEY();
MSGBOX("Down");
DOWN_KEY:=CHOOSE_KEY();
MSGBOX("Max down");
MAX_DOWN_KEY:=CHOOSE_KEY();
MSGBOX("Rotate");
ROTATE_KEY:=CHOOSE_KEY();
END;
//
// CHOOSE_KEY()
//
CHOOSE_KEY()
BEGIN
LOCAL KEY:=-1;
WHILE (KEY==-1) OR (KEY==0) OR (KEY==3) OR (KEY==9) OR (KEY==13) OR (KEY==4) OR (KEY==10) DO
KEY:=GETKEY();
END;
RETURN KEY;
END;
//
// RESET_TO_DEFAULT_KEYS()
//
RESET_TO_DEFAULT_KEYS()
BEGIN
C:=MSGBOX("Are you sure to reset keys to default?", 1);
IF C==1 THEN
LEFT_KEY:=14;
RIGHT_KEY:=15;
DOWN_KEY:=21;
MAX_DOWN_KEY:=30;
ROTATE_KEY:=19;
END;
END;
//
// RESET_GAME()
//
RESET_GAME()
BEGIN
C:=MSGBOX("Are you sure to reset game?", 1);
// Don't save, reset
IF C==1 THEN
INIT_BRICKS_TAB();
END;
END;
//
// QUIT()
//
QUIT()
BEGIN
C:=MSGBOX("Are you sure to quit?", 1);
// If want to quit, ask if save the game
IF C==1 THEN
D:=MSGBOX("Do you want to save game?", 1);
// Don't save, reset
IF D==0 THEN
INIT_BRICKS_TAB();
END;
END;
RETURN C;
END;RE: BRICKS, tetris clone - javierestebanr13 - 10-10-2014 07:25 PM
if it is so, I marked the syntax error on that word, thanks for spending the new source code has worked perfectly.
RE: BRICKS, tetris clone - felissylvestris - 12-23-2014 07:04 PM
I've realeased a V0.3 with some bugfix.