HP Prime for All
English
Русский
HP Apps : Asteroid
| Name | Asteroid |
| Description | Spaceship game where you must dodge asteroids and lasers. |
| Author | Mickaël Nicotera |
Source code (download):
Source code formatted by website engine
EXPORT ASTEROID()
BEGIN LOCAL J, R, k, y1, y2, n, W, m;
//v1.2.64
//Par M. Nicotera
1▶I;
70▶J;
0▶S;
CHOOSE(W, "Difficulty", "Easy", "Medium", "Hard");
0.025/W^(W−1)▶W;
RECT(); RECT(G0); RECT(G1);
INVERT();
TEXTOUT_P("➢", 1, J, 1, RGB(0, 38, 255));
TEXTOUT_P("Par Mickaël Nicotera", 60, 15, 1, RGB(255, 255, 255));
TEXTOUT_P("◐ ASTEROÏD ◑ HP Prime", 5, 2, 1, RGB(0, 120, 255));
DIMGROB(G1, 400, 300);
REPEAT LINE_P(319, 15, 319, 320);
TEXTOUT_P("➢", 1, J, 1, RGB(0, 38, 255)); f
IF J < 10 OR GETPIX_P(10, J+5) ≠ #0h OR GETPIX_P(11, J+4) ≠ #0h OR GETPIX_P(11, J+6) ≠ #0h THEN FOR I FROM 1 TO 50 DO INVERT();
END;
MSGBOX("Crash !");
MSGBOX("Score = "+S);
BREAK;
IF n ≤ 0 THEN RANDOM(0, 19)▶n;
int(RANDOM(1, 7))▶m;
int(RANDOM(0, 5))▶V;
ELSE n−1▶n END;
S+0.1▶S;
RECT_P(280, 0, 310, 8, RGB(0, 0, 0), RGB(0, 0, 0));
TEXTOUT_P("Score = "+S, 250, 0, 1, RGB(255, 240, 125));
RANDINT(−1000, 1000)▶H;
TEXTOUT_P(" < ", 317, H, 1, RGB(255, 255, 255));
IF RANDINT(1, 50) == 13 THEN TEXTOUT_P("҉", 317, RANDINT(0, 320), 3, RGB(255, 65, 55));
END;
IF RANDINT(1, 60) == 13 THEN TEXTOUT_P("҈", 250, RANDINT(10, 320), 1, RGB(255, 106, 0));
END;
IF RANDINT(1, 500) == 13 THEN LINE_P(RANDINT(90, 240), RANDINT(20, 100), RANDINT(20, 210), RANDINT(30, 309), RGB(255, 215, 0));
END;
IF RANDINT(1, 100) == 13 THEN RANDINT(10, 280)▶C;
TEXTOUT_P("↞", 315, C, 1, RGB(125, 105, 90));
TEXTOUT_P("↞", 315, C+4, 1, RGB(125, 105, 90));
TEXTOUT_P("↞", 315, C+8, 1, RGB(125, 105, 90));
END;
SUBGROB_P(G0, 1, 15, 325, 300, G1);
BLIT_P(G0, 0, 15, G1);
WAIT(W);
IF GETKEY > 1 THEN BLIT_P(G0, 0, 15, G1);
J−5*ISKEYDOWN(2) + 5*ISKEYDOWN(12)▶J;
TEXTOUT_P("➣", 1, J, 1, RGB(175, 182, 0));
END;
UNTIL J > 9999
END;
END;