HP Prime для всех

English  Русский 
Астероид games-app screenshot}}
Название Астероид
Описание Spaceship game where you must dodge asteroids and lasers.
Автор Mickaël Nicotera

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

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

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; END; 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;

Комментарии