AceyDucey

This is a simulation of the Acey Ducey card game. The game was written way back in 1978 and I have re-wrote some of it to be compatible with Liberty BASIC and RunBASIC. In order to play this game in RunBASIC just copy the below to you clipboard and then paste it into the RunBASIC editor.

If you have any comments or questions please let me know.

code format="vbnet" CLS PRINT "======================================================" PRINT "ACEY DUCEY CARD GAME -- CIRCA 1978" PRINT "FROM CREATIVE COMPUTING, MORRISTOWN, NJ" PRINT "AUTHOR: BILL PALMBY" PRINT "REWRITTEN FOR LIBERTY BASIC BY NOBLE D. BELL" PRINT "[|HTTP://WWW.NOBLEBELL.COM]" PRINT "======================================================" PRINT " " PRINT " " PRINT "ACEY-DUCEY IS PLAYED IN THE FOLLOWING MANNOR" PRINT "THE DEALER (COMPUTER) DEALS TWO CARDS FACE UP" PRINT "YOU HAVE AN OPTION TO BET OR NOT BET DEPENDING" PRINT "ON WHETHER OR NOT YOU FEEL THE CARD WILL HAVE" PRINT "A VALUE BETWEEN THE FIRST TWO." PRINT "IF YOU DO NOT WANT TO BET, ENTER A 0 FOR YOUR BET." PRINT "YOU CAN ENTER -1 TO QUIT." PRINT

[START] N = 100 Q = 100

[NEXTCARDS] PRINT " " PRINT "======================================" PRINT "YOU HAVE ";Q;" DOLLARS." PRINT "HERE ARE YOUR NEXT TWO CARDS." [NEXTCARDS.ONE] A = INT(14*RND(1))+2 IF A < 2 THEN [NEXTCARDS.ONE] IF A > 14 THEN [NEXTCARDS.ONE] [NEXTCARDS.TWO] B = INT(14*RND(1))+2 IF B < 2 THEN [NEXTCARDS.TWO] IF B > 14 THEN [NEXTCARDS.TWO] IF A >= B THEN [NEXTCARDS.ONE]

[PRINTCARDS] PRINT "CARD 1:" IF A < 11 THEN PRINT A   IF A = 11 THEN PRINT "JACK" IF A = 12 THEN PRINT "QUEEN" IF A = 13 THEN PRINT "KING" IF A = 14 THEN PRINT "ACE" PRINT " " PRINT "CARD 2:" IF B < 11 THEN PRINT B   IF B = 11 THEN PRINT "JACK" IF B = 12 THEN PRINT "QUEEN" IF B = 13 THEN PRINT "KING" IF B = 14 THEN PRINT "ACE"

[BET] PRINT " " INPUT "WHAT IS YOUR BET? ";M IF M = 0 THEN PRINT "CHICKEN" GOTO [NEXTCARDS] END IF   IF M = -1 THEN PRINT "OK, HOPE YOU HAD FUN." END END IF   IF M > Q THEN PRINT "SORRY, MY FRIEND BUT YOU BET TOO MUCH." PRINT "YOU ONLY HAVE ";Q;" DOLLARS TO BET." GOTO [BET] END IF [GETCARDTHREE] C = INT(14*RND(1))+2 IF C < 2 THEN [GETCARDTHREE] IF C > 14 THEN [GETCARDTHREE] PRINT "CARD 3:" IF C < 11 THEN PRINT C   IF C = 11 THEN PRINT "JACK" IF C = 12 THEN PRINT "QUEEN" IF C = 13 THEN PRINT "KING" IF C = 14 THEN PRINT "ACE" IF C <= A OR C >= B THEN PRINT " " PRINT "SORRY, YOU LOSE." IF M < Q THEN Q = Q - M       ELSE PRINT "SORRY, FRIEND BUT YOU BLEW YOUR DOUGH." INPUT "TRY AGAIN (Y)ES, (N)O ? ";A$ A$=UPPER$(A$) IF A$="Y" THEN [START] PRINT " " PRINT "OK, HOPE YOU HAD FUN." END END IF       GOTO [NEXTCARDS] END IF   PRINT " " PRINT "YOU WIN!!!" Q=Q+M GOTO [NEXTCARDS] END code