Hey, Terry. That's a pretty neat little game there. I think you're the only one that got fancy with sounds and graphics! Although, not the only one that used conditionals apparently. XD But, still probably the most addictive game here(Must be the colors and the sounds. Haha).
Hey, B+, I imagine with Digit Thief that he has me blindfolded and he's pinning my hand to a table, and making me guess which finger he'll take next. Kind of dark and sadistic! Lol. Oh, yeah, and we're in the seedy underbelly of a Hong Kong restaurant backroom. XD
Hey, Pete. Neat game, it took me a second to figure out the next card was the card that was higher or lower than the last. But, I like it. I've always liked high or low, because it's simple, clean, and with few rules.
Anyway, here's an updated smoother version of my game. Better explanation, and now you can see your score AND how many turns it took you as well!
4 keep(die%%) = 0
5 tally(die%%) = 0
6 dice
(die%%
) = INT(RND * 6 + 1) 8 kept%% = 0
11 this%% = kept%%
12 FOR die%%
= kept%%
+ 1 TO 6 13 PRINT "Welcome to DICE!";
CHR$(13);
CHR$(13);
"Choose your dice carefully, as after you have made all of your decisions, the game rerolls the dice you did not keep. You MUST keep at least 1 die each hand, and once you have kept 6 dice, you will receive your score for that round.";
CHR$(13);
CHR$(13);
"Your goal is to reach 20000pts! Have Fun!";
CHR$(13);
CHR$(13);
CHR$(13);
"SCORE HELP";
CHR$(13);
"----------";
CHR$(13);
"1=100 2=0 3=0 4=0 5=50 6=0";
CHR$(13);
"Triple 1's=1000 Triple 4's=400";
CHR$(13);
"Triple 2's=200 Triple 5's=500";
CHR$(13);
"Triple 3's=300 Triple 6's=600";
CHR$(13);
"A straight of 1-6=2000";
STRING$(4, 13);
"Current score is:"; score%;
"/ 20000";
CHR$(13);
"Dice rolled in this hand: "; dice
(1); dice
(2); dice
(3); dice
(4); dice
(5); dice
(6);
CHR$(13);
"Dice you have kept this round: "; keep
(1); keep
(2); keep
(3); keep
(4); keep
(5); keep
(6);
CHR$(13);
CHR$(13);
"Keep die";
RTRIM$(STR$(die%%
));
"? [It's a";
RTRIM$(STR$(dice
(die%%
)));
"] (1=y 0=n)";
15 keep
(kept%%
+ 1) = _CEIL(in~%%
/ 255) * dice
(die%%
) 16 kept%%
= kept%%
+ _CEIL(in~%%
/ 255) 17 tally
(keep
(kept%%
)) = tally
(keep
(kept%%
)) + _CEIL(in~%%
/ 255) 19 hold%% = 2 * (kept%% - this%%)
22 dice
(die%%
) = (ABS(keep
(die%%
) <> 0) * 0) + (ABS(keep
(die%%
) = 0) * INT(RND * 6 + 1)) 24 hand%% = kept%%
26 score%
= score%
+ (tally
(1) * 100) + (INT(tally
(1) / 3) * 700) + (INT(tally
(2) / 3) * 200) + (INT(tally
(3) / 3) * 300) + (INT(tally
(4) / 3) * 400) + (tally
(5) * 50) + (INT(tally
(5) / 3) * 350) + (INT(tally
(6) / 3) * 600) + (INT(ABS((tally
(1) = 1) + (tally
(2) = 1) + (tally
(3) = 1) + (tally
(4) = 1) + (tally
(5) = 1) + (tally
(6) = 1)) / 6) * 1850) 27 turn% = turn% + 1
28 a% = score%
30 PRINT STRING$(22, 13);
"Congratulations! You beat 20000pts! You scored"; score%;
"in"; turn%;
"turns!"
