HP Prime for All
English
Русский
HP Apps : Poker
| Name | Poker |
| Description | Poker game. |
| Author | Mickaël Nicotera |
Source code (download):
Source code formatted by website engine
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;