HP Prime for All
English
Русский
HP Apps : Sokoban
| Name | Sokoban |
| Description | Push the blocks into their storage locations without getting stuck by a wall. Lots of fun, and many levels. |
| Author | Ariel Palazzesi |
Source code (download):
Source code formatted by website engine
ICON resource lines were stripped.
//Ariel Palazzesi - Jan 2014
//Version: Beta 1.31
//----------------------------
loadgraph();
drawscreen();
emptyscreen();
menuscreen();
selectcontrol();
helpscreen();
menuppal();
selectsubnivel();
loadsubnivel();
winnerscreen();
byebyescreen();
abortgame();
EXPORT XX, YY, XXP, YYP, NIVEL, SUBNIVEL, NAJ, matriz;
EXPORT CONTROLES, GAMEOVER, FINAL, ABORT;
EXPORT MOVI, PUSH;
EXPORT sokoban1()
BEGIN local AA, M;
local XX1, YY1, SUMA;
local xmouse, ymouse, DX, DY;
GAMEOVER := 0; ABORT := 0;
PRINT();
DIMGROB_P(G1, 320, 240);
RECT();
CONTROLES := 1;
loadgraph();
WHILE GAMEOVER == 0 DO menuscreen();
IF GAMEOVER == 0 THEN loadsubnivel();
FINAL := 0; MOVI := 0; PUSH := 0;
WHILE FINAL == 0 AND ABORT == 0 DO L0 := WAIT(-1);
IF SIZE(L0) > 1 THEN IF L0(1) == #3d THEN xmouse := L0(2);
ymouse := L0(3);
IF xmouse < 80 AND ymouse > 60 AND ymouse < 180 AND XXP > 1 THEN IF matriz [YYP+1, XXP] == 0 THEN XXP := XXP-1;
BLIT_P(G4, XXP*16, YYP*16);
IF matriz [YYP+1, XXP+2] == 0 THEN BLIT_P(G5, (XXP+1) * 16, YYP*16); END;
IF matriz [YYP+1, XXP+2] == 3 THEN BLIT_P(G3, (XXP+1) * 16, YYP*16); END;
MOVI := MOVI + 1;
ELSE
IF matriz [YYP+1, XXP] == 3 THEN XXP := XXP-1;
BLIT_P(G4, XXP*16, YYP*16);
IF matriz [YYP+1, XXP+2] == 0 THEN BLIT_P(G5, (XXP+1) * 16, YYP*16); END;
IF matriz [YYP+1, XXP+2] == 3 THEN BLIT_P(G3, (XXP+1) * 16, YYP*16); END;
MOVI := MOVI + 1;
ELSE
IF (matriz [YYP+1, XXP] == 2) AND (matriz [YYP+1, XXP-1] == 0) THEN XXP := XXP-1;
BLIT_P(G4, XXP*16, YYP*16);
BLIT_P(G2, (XXP-1) * 16, YYP*16);
IF matriz [YYP+1, XXP+2] == 0 THEN BLIT_P(G5, (XXP+1) * 16, YYP*16); END;
IF matriz [YYP+1, XXP+2] == 3 THEN BLIT_P(G3, (XXP+1) * 16, YYP*16); END;
matriz [YYP+1, XXP] := 2;
matriz [YYP+1, XXP+1] := 0;
MOVI := MOVI + 1;
PUSH := PUSH + 1;
ELSE //-----------------------------------
IF (matriz [YYP+1, XXP] == 2) AND (matriz [YYP+1, XXP-1] == 3) THEN XXP := XXP-1;
BLIT_P(G4, XXP*16, YYP*16);
BLIT_P(G2, (XXP-1) * 16, YYP*16);
IF matriz [YYP+1, XXP+2] == 0 THEN BLIT_P(G5, (XXP+1) * 16, YYP*16); END;
IF matriz [YYP+1, XXP+2] == 3 THEN BLIT_P(G3, (XXP+1) * 16, YYP*16); END;
matriz [YYP+1, XXP] := 5;
matriz [YYP+1, XXP+1] := 0;
MOVI := MOVI + 1;
PUSH := PUSH + 1;
ELSE
IF (matriz [YYP+1, XXP] == 5) AND (matriz [YYP+1, XXP-1] == 0) THEN XXP := XXP-1;
BLIT_P(G4, XXP*16, YYP*16);
BLIT_P(G2, (XXP-1) * 16, YYP*16);
IF matriz [YYP+1, XXP+2] == 0 THEN BLIT_P(G5, (XXP+1) * 16, YYP*16); END;
IF matriz [YYP+1, XXP+2] == 3 THEN BLIT_P(G3, (XXP+1) * 16, YYP*16); END;
matriz [YYP+1, XXP] := 2;
matriz [YYP+1, XXP+1] := 3;
MOVI := MOVI + 1;
PUSH := PUSH + 1;
ELSE //-----------------------------------
IF (matriz [YYP+1, XXP] == 5) AND (matriz [YYP+1, XXP-1] == 3) THEN XXP := XXP-1;
BLIT_P(G4, XXP*16, YYP*16);
BLIT_P(G2, (XXP-1) * 16, YYP*16);
IF matriz [YYP+1, XXP+2] == 0 THEN BLIT_P(G5, (XXP+1) * 16, YYP*16); END;
IF matriz [YYP+1, XXP+2] == 3 THEN BLIT_P(G3, (XXP+1) * 16, YYP*16); END;
matriz [YYP+1, XXP] := 5;
matriz [YYP+1, XXP+1] := 3;
MOVI := MOVI + 1;
PUSH := PUSH + 1;
IF xmouse > 240 AND ymouse > 60 AND ymouse < 180 AND XXP < 18 THEN IF matriz [YYP+1, XXP+2] == 0 THEN XXP := XXP+1;
BLIT_P(G4, XXP*16, YYP*16);
IF matriz [YYP+1, XXP] == 0 THEN BLIT_P(G5, (XXP-1) * 16, YYP*16); END;
IF matriz [YYP+1, XXP] == 3 THEN BLIT_P(G3, (XXP-1) * 16, YYP*16); END;
MOVI := MOVI + 1;
ELSE
IF matriz [YYP+1, XXP+2] == 3 THEN XXP := XXP+1;
BLIT_P(G4, XXP*16, YYP*16);
IF matriz [YYP+1, XXP] == 0 THEN BLIT_P(G5, (XXP-1) * 16, YYP*16); END;
IF matriz [YYP+1, XXP] == 3 THEN BLIT_P(G3, (XXP-1) * 16, YYP*16); END;
MOVI := MOVI + 1;
ELSE
IF (matriz [YYP+1, XXP+2] == 2) AND (matriz [YYP+1, XXP+3] == 0) THEN XXP := XXP+1;
BLIT_P(G4, XXP*16, YYP*16);
BLIT_P(G2, (XXP+1) * 16, YYP*16);
IF matriz [YYP+1, XXP] == 0 THEN BLIT_P(G5, (XXP-1) * 16, YYP*16); END;
IF matriz [YYP+1, XXP] == 3 THEN BLIT_P(G3, (XXP-1) * 16, YYP*16); END;
matriz [YYP+1, XXP+2] := 2;
matriz [YYP+1, XXP+1] := 0;
MOVI := MOVI + 1;
PUSH := PUSH + 1;
ELSE
IF (matriz [YYP+1, XXP+2] == 2) AND (matriz [YYP+1, XXP+3] == 3) THEN XXP := XXP+1;
BLIT_P(G4, XXP*16, YYP*16);
BLIT_P(G2, (XXP+1) * 16, YYP*16);
IF matriz [YYP+1, XXP] == 0 THEN BLIT_P(G5, (XXP-1) * 16, YYP*16); END;
IF matriz [YYP+1, XXP] == 3 THEN BLIT_P(G3, (XXP-1) * 16, YYP*16); END;
matriz [YYP+1, XXP+2] := 5;
matriz [YYP+1, XXP+1] := 0;
MOVI := MOVI + 1;
PUSH := PUSH + 1;
ELSE
IF (matriz [YYP+1, XXP+2] == 5) AND (matriz [YYP+1, XXP+3] == 0) THEN XXP := XXP+1;
BLIT_P(G4, XXP*16, YYP*16);
BLIT_P(G2, (XXP+1) * 16, YYP*16);
IF matriz [YYP+1, XXP] == 0 THEN BLIT_P(G5, (XXP-1) * 16, YYP*16); END;
IF matriz [YYP+1, XXP] == 3 THEN BLIT_P(G3, (XXP-1) * 16, YYP*16); END;
matriz [YYP+1, XXP+2] := 2;
matriz [YYP+1, XXP+1] := 3;
MOVI := MOVI + 1;
PUSH := PUSH + 1;
ELSE
IF (matriz [YYP+1, XXP+2] == 5) AND (matriz [YYP+1, XXP+3] == 3) THEN XXP := XXP+1;
BLIT_P(G4, XXP*16, YYP*16);
BLIT_P(G2, (XXP+1) * 16, YYP*16);
IF matriz [YYP+1, XXP] == 0 THEN BLIT_P(G5, (XXP-1) * 16, YYP*16); END;
IF matriz [YYP+1, XXP] == 3 THEN BLIT_P(G3, (XXP-1) * 16, YYP*16); END;
matriz [YYP+1, XXP+2] := 5;
matriz [YYP+1, XXP+1] := 3;
MOVI := MOVI + 1;
PUSH := PUSH + 1;
IF xmouse > 80 AND xmouse < 240 AND ymouse < 60 AND YYP > 1 THEN IF matriz [YYP, XXP+1] == 0 THEN YYP := YYP-1;
BLIT_P(G4, XXP*16, YYP*16);
IF matriz [YYP+2, XXP+1] == 0 THEN BLIT_P(G5, XXP*16, (YYP+1) * 16); END;
IF matriz [YYP+2, XXP+1] == 3 THEN BLIT_P(G3, XXP*16, (YYP+1) * 16); END;
MOVI := MOVI + 1;
ELSE
IF matriz [YYP, XXP+1] == 3 THEN YYP := YYP-1;
BLIT_P(G4, XXP*16, YYP*16);
IF matriz [YYP+2, XXP+1] == 0 THEN BLIT_P(G5, XXP*16, (YYP+1) * 16); END;
IF matriz [YYP+2, XXP+1] == 3 THEN BLIT_P(G3, XXP*16, (YYP+1) * 16); END;
MOVI := MOVI + 1;
ELSE
IF (matriz [YYP, XXP+1] == 2) AND (matriz [YYP-1, XXP+1] == 0) THEN YYP := YYP-1;
BLIT_P(G4, XXP*16, YYP*16);
BLIT_P(G2, XXP*16, (YYP-1) * 16);
IF matriz [YYP+2, XXP+1] == 0 THEN BLIT_P(G5, XXP*16, (YYP+1) * 16); END;
IF matriz [YYP+2, XXP+1] == 3 THEN BLIT_P(G3, XXP*16, (YYP+1) * 16); END;
matriz [YYP, XXP+1] := 2;
matriz [YYP+1, XXP+1] := 0;
MOVI := MOVI + 1;
PUSH := PUSH + 1;
ELSE
IF (matriz [YYP, XXP+1] == 2) AND (matriz [YYP-1, XXP+1] == 3) THEN YYP := YYP-1;
BLIT_P(G4, XXP*16, YYP*16);
BLIT_P(G2, XXP*16, (YYP-1) * 16);
IF matriz [YYP+2, XXP+1] == 0 THEN BLIT_P(G5, XXP*16, (YYP+1) * 16); END;
IF matriz [YYP+2, XXP+1] == 3 THEN BLIT_P(G3, XXP*16, (YYP+1) * 16); END;
matriz [YYP, XXP+1] := 5;
matriz [YYP+1, XXP+1] := 0;
MOVI := MOVI + 1;
PUSH := PUSH + 1;
ELSE
IF (matriz [YYP, XXP+1] == 5) AND (matriz [YYP-1, XXP+1] == 0) THEN YYP := YYP-1;
BLIT_P(G4, XXP*16, YYP*16);
BLIT_P(G2, XXP*16, (YYP-1) * 16);
IF matriz [YYP+2, XXP+1] == 0 THEN BLIT_P(G5, XXP*16, (YYP+1) * 16); END;
IF matriz [YYP+2, XXP+1] == 3 THEN BLIT_P(G3, XXP*16, (YYP+1) * 16); END;
matriz [YYP, XXP+1] := 2;
matriz [YYP+1, XXP+1] := 3;
MOVI := MOVI + 1;
PUSH := PUSH + 1;
ELSE
IF (matriz [YYP, XXP+1] == 5) AND (matriz [YYP-1, XXP+1] == 3) THEN YYP := YYP-1;
BLIT_P(G4, XXP*16, YYP*16);
BLIT_P(G2, XXP*16, (YYP-1) * 16);
IF matriz [YYP+2, XXP+1] == 0 THEN BLIT_P(G5, XXP*16, (YYP+1) * 16); END;
IF matriz [YYP+2, XXP+1] == 3 THEN BLIT_P(G3, XXP*16, (YYP+1) * 16); END;
matriz [YYP, XXP+1] := 5;
matriz [YYP+1, XXP+1] := 3;
MOVI := MOVI + 1;
PUSH := PUSH + 1;
IF xmouse > 80 AND xmouse < 240 AND ymouse > 180 AND YYP < 14 THEN IF matriz [YYP+2, XXP+1] == 0 THEN YYP := YYP+1;
BLIT_P(G4, XXP*16, YYP*16);
IF matriz [YYP, XXP+1] == 0 THEN BLIT_P(G5, XXP*16, (YYP-1) * 16); END;
IF matriz [YYP, XXP+1] == 3 THEN BLIT_P(G3, XXP*16, (YYP-1) * 16); END;
MOVI := MOVI + 1;
ELSE
IF matriz [YYP+2, XXP+1] == 3 THEN YYP := YYP+1;
BLIT_P(G4, XXP*16, YYP*16);
IF matriz [YYP, XXP+1] == 0 THEN BLIT_P(G5, XXP*16, (YYP-1) * 16); END;
IF matriz [YYP, XXP+1] == 3 THEN BLIT_P(G3, XXP*16, (YYP-1) * 16); END;
MOVI := MOVI + 1;
ELSE
IF (matriz [YYP+2, XXP+1] == 2) AND (matriz [YYP+3, XXP+1] == 0) THEN YYP := YYP+1;
BLIT_P(G4, XXP*16, YYP*16);
BLIT_P(G2, XXP*16, (YYP+1) * 16);
IF matriz [YYP, XXP+1] == 0 THEN BLIT_P(G5, XXP*16, (YYP-1) * 16); END;
IF matriz [YYP, XXP+1] == 3 THEN BLIT_P(G3, XXP*16, (YYP-1) * 16); END;
matriz [YYP+2, XXP+1] := 2;
matriz [YYP+1, XXP+1] := 0;
MOVI := MOVI + 1;
PUSH := PUSH + 1;
ELSE
IF (matriz [YYP+2, XXP+1] == 2) AND (matriz [YYP+3, XXP+1] == 3) THEN YYP := YYP+1;
BLIT_P(G4, XXP*16, YYP*16);
BLIT_P(G2, XXP*16, (YYP+1) * 16);
IF matriz [YYP, XXP+1] == 0 THEN BLIT_P(G5, XXP*16, (YYP-1) * 16); END;
IF matriz [YYP, XXP+1] == 3 THEN BLIT_P(G3, XXP*16, (YYP-1) * 16); END;
matriz [YYP+2, XXP+1] := 5;
matriz [YYP+1, XXP+1] := 0;
MOVI := MOVI + 1;
PUSH := PUSH + 1;
ELSE
IF (matriz [YYP+2, XXP+1] == 5) AND (matriz [YYP+3, XXP+1] == 0) THEN YYP := YYP+1;
BLIT_P(G4, XXP*16, YYP*16);
BLIT_P(G2, XXP*16, (YYP+1) * 16);
IF matriz [YYP, XXP+1] == 0 THEN BLIT_P(G5, XXP*16, (YYP-1) * 16); END;
IF matriz [YYP, XXP+1] == 3 THEN BLIT_P(G3, XXP*16, (YYP-1) * 16); END;
matriz [YYP+2, XXP+1] := 2;
matriz [YYP+1, XXP+1] := 3;
MOVI := MOVI + 1;
PUSH := PUSH + 1;
ELSE
IF (matriz [YYP+2, XXP+1] == 5) AND (matriz [YYP+3, XXP+1] == 3) THEN YYP := YYP+1;
BLIT_P(G4, XXP*16, YYP*16);
BLIT_P(G2, XXP*16, (YYP+1) * 16);
IF matriz [YYP, XXP+1] == 0 THEN BLIT_P(G5, XXP*16, (YYP-1) * 16); END;
IF matriz [YYP, XXP+1] == 3 THEN BLIT_P(G3, XXP*16, (YYP-1) * 16); END;
matriz [YYP+2, XXP+1] := 5;
matriz [YYP+1, XXP+1] := 3;
MOVI := MOVI + 1;
PUSH := PUSH + 1;
IF xmouse < 20 AND ymouse < 20 THEN abortgame();
END;
RECT_P(G0, 20, 223, 300, 238, #000000, #FFFFFF);
TEXTOUT_P("LEVEL: "+NIVEL+"-"+SUBNIVEL+" MOVES: PUSHES: ", 25, 224);
TEXTOUT_P(MOVI, 153, 224); TEXTOUT_P(PUSH, 250, 224);
SUMA := 0;
FOR YY FROM 0 TO 14 DO FOR XX FROM 0 TO 19 DO IF matriz [YY+1, XX+1] == 2 THEN SUMA := SUMA + 1; END;
END;
IF SUMA == 0 THEN winnerscreen();
FINAL := 1;
END;
END;
END;
ELSE
byebyescreen();
END;
END;
END;
drawscreen()
BEGIN FOR YY FROM 0 TO 14 DO FOR XX FROM 0 TO 19 DO IF matriz [YY+1, XX+1] == 0 THEN BLIT_P(G5, XX*16, YY*16); END;
IF matriz [YY+1, XX+1] == 1 THEN BLIT_P(G1, XX*16, YY*16); END;
IF matriz [YY+1, XX+1] == 2 THEN BLIT_P(G2, XX*16, YY*16); END;
IF matriz [YY+1, XX+1] == 3 THEN BLIT_P(G3, XX*16, YY*16); END;
IF matriz [YY+1, XX+1] == 4 THEN XXP := XX;
YYP := YY;
BLIT_P(G4, XX*16, YY*16);
matriz [YY+1, XX+1] := 0;
END;
END;
BEGIN
DIMGROB_P(G3, 16, 16, {#6000600060006:64, #6000600060006:64, #6000600060006:64, #6000600060006:64, #7EE07EE000060006:64,…
DIMGROB_P(G2, 16, 16, {#6000600060006:64, #6000600060006:64, #6000600060006:64, #6000600060006:64, #51806E4051800006:64,…
DIMGROB_P(G1, 16, 16, {#1084108451C74186:64, #1084108410841084:64, #1084108410841084:64, #312651C710841084:64, #10841084…
DIMGROB_P(G5, 16, 16, {#312651C751C74186:64, #3126312631263126:64, #3126312641864186:64, #312651C751C74186:64, #31264186…
DIMGROB_P(G4, 16, 16, {#1084312631263126:64, #1084108410841084:64, #1084108410841084:64, #3126312631261084:64, #31263126…
END;
emptyscreen()
BEGIN FOR YY FROM 0 TO 14 DO FOR XX FROM 0 TO 19 DO BLIT_P(G5, XX*16, YY*16);
END;
FOR YY FROM 1 TO 14 DO BLIT_P(G1, 8, YY*16-8);
BLIT_P(G1, 18.5*16, YY*16-8);
END;
FOR XX FROM 2 TO 18 DO BLIT_P(G1, XX*16-8, 8);
BLIT_P(G1, XX*16-8, 13.5*16);
END;
TEXTOUT_P("Sokoban for HP Prime", G0, 47, 20, 7, #000000);
TEXTOUT_P("Sokoban for HP Prime", G0, 48, 21, 7, #000000);
TEXTOUT_P("Sokoban for HP Prime", G0, 49, 22, 7, #F2D855);
TEXTOUT_P("Sokoban for HP Prime", G0, 50, 23, 7, #F2D855);
TEXTOUT_P("Beta 1.3 - Ariel Palazzesi (Jan/2014)", G0, 29, 200, 2, #000000);
TEXTOUT_P("Beta 1.3 - Ariel Palazzesi (Jan/2014)", G0, 30, 201, 2, #DDDDAA);
BEGIN LOCAL M, TECLA;
emptyscreen();
menuppal();
M := 0;
WHILE M == 0 DO TECLA := GETKEY;
IF TECLA == 42 THEN M := 1; END;
IF TECLA == 43 THEN M := 2; END;
IF TECLA == 44 THEN M := 3; END;
IF TECLA == 37 THEN M := 4; END;
IF TECLA == 38 THEN selectcontrol();
emptyscreen();
menuppal();
END;
IF TECLA == 39 THEN helpscreen();
emptyscreen();
menuppal();
END;
IF (TECLA == 4) OR (TECLA == 32) THEN M := 7;
GAMEOVER := 1;
FINAL := 1;
END;
END;
IF M > 0 AND M < 5 THEN NIVEL := M;
selectsubnivel();
NAJ := NIVEL *10 + SUBNIVEL;
ABORT := 0;
END;
END;
selectcontrol()
BEGIN LOCAL M, TECLA;
emptyscreen();
TEXTOUT_P("1 - Touch screen", G0, 70, 55, 4, #F2D855);
TEXTOUT_P("2 - Cursor keys", G0, 70, 75, 4, #F2D855);
TEXTOUT_P("3 - Exit", G0, 70, 95, 4, #F2D855);
FOR YY FROM 1 TO 3 DO BLIT_P(G2, 50, YY*20+37);
END;
M := 0;
WHILE M == 0 DO TECLA := GETKEY;
IF TECLA == 42 THEN M := 1; END;
IF TECLA == 43 THEN M := 2; END;
IF (TECLA == 4) OR (TECLA == 44) THEN M := 3; END;
END;
IF M < 3 THEN CONTROLES := M; END;
END;
helpscreen()
BEGIN LOCAL M, TECLA;
emptyscreen();
TEXTOUT_P("Tap de edges of the screen to move", G0, 30, 55 , 4, #F2D855);
TEXTOUT_P("the pusher and push the boxes to", G0, 30, 75 , 4, #F2D855);
TEXTOUT_P("their platforms.", G0, 30, 95 , 4, #F2D855);
TEXTOUT_P("Touch the top left corner to quit the", G0, 30, 115 , 4, #F2D855);
TEXTOUT_P("game.", G0, 30, 135 , 4, #F2D855);
TEXTOUT_P("(The keyboard control does not work in this version)", G0, 35, 160 , 1, #F2D855);
TEXTOUT_P("(Press any key to exit)", G0, 75, 175, 4, #F2D855);
Wait();
END;
byebyescreen()
BEGIN emptyscreen();
TEXTOUT_P("Thanks for playing Sokoban!", G0, 27, 80, 6, #000000);
TEXTOUT_P("Thanks for playing Sokoban!", G0, 28, 81, 6, #000000);
TEXTOUT_P("Thanks for playing Sokoban!", G0, 29, 82, 6, #F2D855);
TEXTOUT_P("Thanks for playing Sokoban!", G0, 30, 83, 6, #F2D855);
TEXTOUT_P("(Press any key to exit)", G0, 75, 140, 4, #F2D855);
TEXTOUT_P("Beta 1.3 - Ariel Palazzesi (Jan/2014)", G0, 29, 200, 2, #000000);
TEXTOUT_P("Beta 1.3 - Ariel Palazzesi (Jan/2014)", G0, 30, 201, 2, #DDDDAA);
Wait();
END;
winnerscreen()
BEGIN LOCAL M, TECLA;
emptyscreen();
TEXTOUT_P("Board Solved!", G0, 87, 68, 7, #000000);
TEXTOUT_P("Board Solved!", G0, 88, 69, 7, #000000);
TEXTOUT_P("Board Solved!", G0, 89, 70, 7, #F2D855);
TEXTOUT_P("Board Solved!", G0, 90, 71, 7, #F2D855);
TEXTOUT_P("You has solved the", G0, 30, 110, 4, #F2D855);
TEXTOUT_P(NIVEL+" - "+SUBNIVEL+" board using", G0, 165, 110, 4, #F2D855);
TEXTOUT_P(MOVI+" moves and "+PUSH+" pushes.", G0, 40, 130, 4, #F2D855);
TEXTOUT_P("(Press any key to exit)", G0, 75, 170, 4, #F2D855);
TEXTOUT_P("Beta 1.3 - Ariel Palazzesi (Jan/2014)", G0, 29, 200, 2, #000000);
TEXTOUT_P("Beta 1.3 - Ariel Palazzesi (Jan/2014)", G0, 30, 201, 2, #DDDDAA);
Wait();
END;
abortgame()
BEGIN LOCAL M, XX2, YY2, TECLA;
emptyscreen();
TEXTOUT_P("Abandon level?", G0, 87, 50, 6, #000000);
TEXTOUT_P("Abandon level?", G0, 88, 51, 6, #000000);
TEXTOUT_P("Abandon level?", G0, 89, 52, 6, #F2D855);
TEXTOUT_P("Abandon level?", G0, 90, 53, 6, #F2D855);
TEXTOUT_P("1 - No", G0, 135, 110, 4, #F2D855);
TEXTOUT_P("2 - Yes", G0, 135, 130, 4, #F2D855);
FOR YY FROM 1 TO 2 DO BLIT_P(G2, 115, YY*20+90);
END;
M := 0;
WHILE M == 0 DO TECLA := GETKEY;
IF TECLA == 42 THEN M := 1; END;
IF TECLA == 43 THEN M := 2; END;
END;
ABORT := M-1;
IF ABORT == 0 THEN XX2 := XXP; YY2 := YYP;
drawscreen();
XXP := XX2; YYP := YY2;
BLIT_P(G4, XXP*16, YYP*16);
END;
END;
menuppal()
BEGIN TEXTOUT_P("1 - Play Beginner Mode", G0, 70, 55, 4, #F2D855);
TEXTOUT_P("2 - Play Intermediate Mode", G0, 70, 75, 4, #F2D855);
TEXTOUT_P("3 - Play Advanced Mode", G0, 70, 95, 4, #F2D855);
TEXTOUT_P("4 - Play Expert Mode", G0, 70, 115, 4, #F2D855);
IF CONTROLES == 1 THEN TEXTOUT_P("5 - Settings (Touch screen)", G0, 70, 135, 4, #F2D855);
ELSE
TEXTOUT_P("5 - Settings (Cursor keys)", G0, 70, 135, 4, #F2D855);
END;
TEXTOUT_P("6 - Help", G0, 70, 155, 4, #F2D855);
TEXTOUT_P("7 - Exit", G0, 70, 175, 4, #F2D855);
END;
selectsubnivel()
BEGIN LOCAL M, TECLA;
emptyscreen();
FOR YY FROM 0 TO 4 DO BLIT_P(G2, 35, YY*20+70);
BLIT_P(G2, 165, YY*20+70);
END;
TEXTOUT_P("0 - Level 0", G0, 55, 70, 4, #F2D855);
TEXTOUT_P("1 - Level 1", G0, 55, 90, 4, #F2D855);
TEXTOUT_P("2 - Level 2", G0, 55, 110, 4, #F2D855);
TEXTOUT_P("3 - Level 3", G0, 55, 130, 4, #F2D855);
TEXTOUT_P("4 - Level 4", G0, 55, 150, 4, #F2D855);
TEXTOUT_P("5 - Level 5", G0, 185, 70, 4, #F2D855);
TEXTOUT_P("6 - Level 6", G0, 185, 90, 4, #F2D855);
TEXTOUT_P("7 - Level 7", G0, 185, 110, 4, #F2D855);
TEXTOUT_P("8 - Level 8", G0, 185, 130, 4, #F2D855);
TEXTOUT_P("9 - Level 9", G0, 185, 150, 4, #F2D855);
M := -2;
WHILE M == -2 DO TECLA := GETKEY;
IF TECLA == 47 THEN M := 0; END;
IF TECLA == 42 THEN M := 1; END;
IF TECLA == 43 THEN M := 2; END;
IF TECLA == 44 THEN M := 3; END;
IF TECLA == 37 THEN M := 4; END;
IF TECLA == 38 THEN M := 5; END;
IF TECLA == 39 THEN M := 6; END;
IF TECLA == 32 THEN M := 7; END;
IF TECLA == 33 THEN M := 8; END;
IF TECLA == 34 THEN M := 9; END;
IF TECLA == 4 THEN M := 0; END;
END;
SUBNIVEL := M
END;
loadsubnivel()
BEGIN CASE
IF NAJ == 10 THEN matriz := [ [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, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 4, 0, 1, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 0, 2, 2, 0, 0, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 2, 0, 0, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 3, 3, 3, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 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, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END;
IF NAJ == 11 THEN matriz := [ [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, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 1, 3, 0, 1, 1, 1, 0, 0, 1, 4, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 1, 3, 0, 0, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 0, 0, 0], [0, 0, 1, 3, 0, 0, 0, 0, 0, 1, 1, 0, 1, 0, 0, 1, 0, 0, 0, 0], [0, 0, 1, 1, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 2, 1, 0, 0, 0, 0], [0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 1, 1, 1, 0, 1, 1, 0, 0, 0], [0, 0, 0, 1, 1, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0], [0, 0, 0, 1, 0, 2, 1, 0, 1, 0, 1, 0, 2, 0, 0, 0, 1, 0, 0, 0], [0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0], [0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 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, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END;
IF NAJ == 12 THEN matriz := [ [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, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0], [0, 0, 1, 4, 0, 0, 0, 1, 1, 1, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0], [0, 0, 1, 1, 1, 0, 2, 0, 0, 0, 1, 2, 0, 0, 0, 2, 0, 1, 0, 0], [0, 0, 1, 3, 3, 0, 0, 2, 0, 0, 1, 0, 0, 1, 1, 1, 1, 1, 0, 0], [0, 0, 1, 3, 3, 0, 0, 1, 0, 0, 1, 2, 0, 0, 0, 3, 3, 1, 0, 0], [0, 0, 1, 3, 3, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 3, 3, 1, 0, 0], [0, 0, 1, 1, 1, 0, 0, 1, 2, 0, 0, 0, 0, 1, 0, 1, 1, 1, 0, 0], [0, 0, 1, 0, 2, 2, 0, 1, 0, 0, 0, 2, 0, 0, 0, 2, 0, 1, 0, 0], [0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0], [0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 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, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END;
IF NAJ == 13 THEN matriz := [ [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, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0], [0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0], [0, 0, 1, 0, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 1, 0, 0], [0, 0, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 0, 0], [0, 0, 1, 0, 1, 0, 0, 2, 0, 2, 0, 1, 3, 3, 3, 3, 3, 1, 0, 0], [0, 0, 1, 0, 1, 4, 2, 0, 2, 0, 2, 0, 3, 0, 0, 0, 3, 1, 0, 0], [0, 0, 1, 0, 1, 2, 0, 2, 0, 2, 0, 1, 3, 0, 3, 0, 3, 1, 0, 0], [0, 0, 1, 0, 0, 0, 2, 0, 2, 0, 2, 0, 3, 0, 0, 0, 3, 1, 0, 0], [0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 1, 3, 3, 3, 3, 3, 1, 0, 0], [0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 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, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END;
IF NAJ == 14 THEN matriz := [ [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, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 0, 0], [0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 0], [0, 0, 1, 0, 0, 3, 3, 3, 1, 0, 0, 0, 0, 0, 2, 0, 1, 0, 0, 0], [0, 0, 1, 0, 1, 3, 1, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 0], [0, 0, 1, 0, 3, 0, 0, 2, 0, 0, 1, 1, 1, 1, 0, 1, 1, 0, 0, 0], [0, 0, 1, 1, 1, 0, 0, 4, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 0, 1, 1, 1, 2, 1, 1, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 2, 1, 1, 1, 0, 1, 1, 0, 1, 1, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 1, 0, 0, 0], [0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 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] ]; END;
IF NAJ == 15 THEN matriz := [ [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, 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, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 2, 3, 2, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 0, 3, 1, 0, 3, 0, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 0, 3, 1, 2, 4, 2, 1, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 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, 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] ]; END;
IF NAJ == 16 THEN matriz := [ [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, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 3, 0, 3, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 1, 1, 0, 1, 2, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0], [0, 0, 0, 0, 1, 0, 3, 2, 0, 0, 0, 2, 0, 0, 0, 0, 1, 0, 0, 0], [0, 0, 1, 1, 1, 0, 2, 3, 2, 3, 0, 3, 2, 0, 0, 0, 1, 0, 0, 0], [0, 0, 1, 3, 0, 0, 2, 4, 3, 2, 3, 1, 1, 3, 0, 0, 1, 0, 0, 0], [0, 0, 1, 1, 2, 1, 0, 2, 1, 1, 0, 0, 1, 0, 2, 1, 1, 0, 0, 0], [0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 1, 1, 0, 1, 0, 0, 0, 0], [0, 0, 0, 1, 1, 0, 0, 0, 3, 1, 0, 2, 0, 0, 3, 1, 0, 0, 0, 0], [0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 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] ]; END;
IF NAJ == 17 THEN matriz := [ [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, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 1, 1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 1, 1, 1, 1, 0, 0], [0, 0, 0, 1, 0, 2, 1, 1, 0, 0, 1, 1, 1, 1, 1, 0, 0, 1, 0, 0], [0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 3, 3, 0, 1, 1, 2, 0, 1, 0, 0], [0, 0, 0, 1, 0, 2, 1, 0, 0, 0, 3, 3, 0, 0, 0, 0, 0, 1, 0, 0], [0, 0, 0, 1, 0, 0, 0, 2, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 0, 0], [0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 1, 1, 4, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 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, 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] ]; END;
IF NAJ == 18 THEN matriz := [ [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, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 3, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 0, 1, 0, 1, 2, 1, 1, 1, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 2, 1, 2, 2, 0, 0, 3, 0, 0, 1, 1, 0, 0, 0, 0], [0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 3, 1, 0, 0, 0, 0], [0, 0, 0, 0, 1, 0, 0, 0, 2, 0, 1, 0, 1, 2, 1, 1, 0, 0, 0, 0], [0, 0, 0, 0, 1, 3, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 3, 4, 0, 3, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 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, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END;
IF NAJ == 19 THEN matriz := [ [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, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0], [0, 0, 1, 3, 0, 0, 3, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0], [0, 0, 1, 3, 0, 0, 2, 0, 0, 0, 0, 0, 2, 0, 0, 2, 0, 1, 0, 0], [0, 0, 1, 3, 1, 3, 2, 0, 2, 0, 2, 0, 0, 2, 2, 1, 0, 1, 0, 0], [0, 0, 1, 3, 1, 1, 1, 1, 1, 2, 1, 1, 0, 0, 2, 0, 0, 1, 0, 0], [0, 0, 1, 3, 0, 0, 0, 0, 0, 2, 0, 0, 0, 1, 0, 2, 0, 1, 0, 0], [0, 0, 1, 3, 0, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, 0, 1, 0, 0], [0, 0, 1, 3, 0, 0, 0, 0, 0, 2, 0, 2, 0, 3, 1, 3, 3, 1, 0, 0], [0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 3, 1, 4, 3, 1, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 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, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END;
IF NAJ == 20 THEN matriz := [ [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, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 4, 0, 2, 1, 0, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 1, 3, 3, 3, 3, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 1, 2, 0, 2, 0, 2, 0, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 0, 1, 1, 1, 0, 1, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 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, 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] ]; END;
IF NAJ == 21 THEN matriz := [ [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, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0], [0, 0, 0, 0, 1, 4, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 1, 0, 0, 0, 2, 1, 2, 0, 0, 0, 2, 1, 0, 0, 0, 0], [0, 0, 0, 0, 1, 1, 0, 0, 0, 1, 3, 3, 1, 0, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 3, 3, 1, 0, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 3, 3, 1, 0, 0, 1, 1, 0, 0, 0], [0, 0, 0, 0, 0, 1, 2, 0, 0, 0, 0, 2, 1, 2, 0, 0, 1, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0], [0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 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, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END;
IF NAJ == 22 THEN matriz := [ [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, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 0, 0, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 0, 0, 0], [0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 2, 0, 2, 0, 0, 0, 1, 0, 0, 0], [0, 0, 1, 0, 0, 0, 0, 1, 0, 2, 0, 0, 3, 3, 3, 3, 1, 1, 0, 0], [0, 0, 1, 0, 2, 0, 1, 0, 1, 1, 1, 1, 2, 1, 3, 3, 0, 1, 0, 0], [0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0], [0, 0, 0, 1, 0, 2, 2, 0, 2, 2, 4, 0, 1, 3, 3, 3, 1, 1, 0, 0], [0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0], [0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 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], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END;
IF NAJ == 23 THEN matriz := [ [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, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 3, 3, 3, 3, 0, 4, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 3, 0, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 0, 1, 2, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 2, 0, 0, 0, 1, 0, 1, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 1, 1, 2, 0, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 2, 2, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 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] ]; END;
IF NAJ == 24 THEN matriz := [ [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, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 1, 1, 1, 1, 0, 1, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0], [0, 0, 0, 1, 0, 0, 1, 1, 1, 2, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0], [0, 0, 0, 1, 0, 0, 3, 0, 0, 3, 3, 0, 3, 3, 2, 0, 1, 0, 0, 0], [0, 0, 0, 1, 0, 0, 3, 0, 1, 1, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0], [0, 0, 0, 1, 1, 1, 1, 0, 1, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0], [0, 0, 0, 0, 0, 1, 1, 2, 0, 1, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 2, 0, 2, 2, 0, 0, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 4, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 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, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END;
IF NAJ == 25 THEN matriz := [ [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, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0], [0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 1, 0, 2, 2, 2, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 1, 1, 3, 3, 3, 1, 0, 1, 2, 2, 2, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 3, 3, 3, 1, 0, 1, 3, 3, 3, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 2, 2, 2, 0, 0, 1, 3, 3, 3, 1, 1, 0, 0, 0, 0], [0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 2, 2, 2, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 4, 0, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 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, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END;
IF NAJ == 26 THEN matriz := [ [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, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 4, 0, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 2, 0, 0, 0, 0, 0, 1, 0, 0, 0], [0, 0, 0, 1, 1, 1, 1, 0, 1, 2, 0, 2, 0, 1, 1, 1, 1, 0, 0, 0], [0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 2, 0, 2, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 1, 0, 1, 1, 1, 0, 2, 0, 2, 0, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 1, 3, 3, 3, 3, 3, 3, 3, 1, 0, 1, 1, 0, 0, 0, 0, 0], [0, 0, 0, 1, 1, 1, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 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] ]; END;
IF NAJ == 27 THEN matriz := [ [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, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 1, 3, 2, 3, 2, 3, 1, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 0, 2, 3, 2, 3, 2, 0, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 1, 3, 2, 4, 2, 3, 1, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 0, 2, 3, 2, 3, 2, 0, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 1, 3, 2, 3, 2, 3, 1, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 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] ]; END;
IF NAJ == 28 THEN matriz := [ [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, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 0, 4, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 2, 3, 2, 0, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 3, 2, 3, 1, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 0, 2, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 2, 3, 2, 0, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 3, 2, 3, 0, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 3, 2, 3, 0, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 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, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END;
IF NAJ == 29 THEN matriz := [ [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, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 2, 0, 2, 2, 0, 2, 0, 2, 0, 1, 0, 0, 0], [0, 0, 0, 0, 0, 1, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 1, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 2, 0, 2, 0, 2, 2, 0, 2, 0, 1, 0, 0, 0], [0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 4, 0, 1, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 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, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END;
IF NAJ == 30 THEN matriz := [ [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, … END;
drawscreen();
RECT_P(G0, 20, 223, 300, 238, #000000, #FFFFFF);
TEXTOUT_P("LEVEL: "+NIVEL+"-"+SUBNIVEL+" MOVES: PUSHES: ", 25, 224);