HP Prime для всех

English  Русский 
Покер games-app screenshot}}
Название Покер
Описание Poker game.
Автор Mickaël Nicotera

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

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

EXPORT POKER() BEGIN LOCAL I, L1, L2, M, N, H; RECT_P(); L1 := {"1", "R", "D", "V", "9", "8", "7"}; L2 := {"♥", "♦", "♠", "♣"}; FOR I FROM 1 TO 5 DO RECT_P(15+60 * (I−1), 50, 15+60 * (I−1) + 50, 130, RGB(255, 235, 200)); RANDINT(1, 4)▶H; IF H < 3 THEN 255▶N; ELSE 0▶N; END; RANDINT(1, 7)▶M; TEXTOUT_P(L1(M), 18+60 * (I−1), 51, 3, RGB(N, 0, 0)); TEXTOUT_P(L1(M), 55+60 * (I−1), 115, 3, RGB(N, 0, 0)); TEXTOUT_P(L2(H), 15+60 * (I−1), 64, 3, RGB(N, 0, 0)); TEXTOUT_P(L2(H), 52+60 * (I−1), 100, 3, RGB(N, 0, 0)); END; FREEZE; END;

Комментарии