home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_13_(11-1984).d64 / yahtzee (.txt) < prev   
Commodore BASIC  |  2019-04-13  |  3KB  |  78 lines
  1. 1 DIMD(5),SC(5,16),B$(5),D$(6):DEFFNA(I)=INT(RND(1)*6+1)
  2. 2 POKE53281,0:POKE53280,12
  3. 3 FORI=1TO6:D$(I)=" "+RIGHT$(STR$(I),1)+"[146]  ":NEXT
  4. 50 PRINT"[147]"SPC(9)"[129][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210]"
  5. 51 PRINTSPC(9)"[158]       YAHTZEE!       [146]"
  6. 52 PRINTSPC(9)"[129][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
  7. 56 PRINTSPC(12)"BY VINCE SORENSEN"
  8. 57 PRINTSPC(10)"MODIFIED FOR THE C-64":PRINTSPC(12)"[154]BY  HAYWARD MCKEE"
  9. 100 NP=1:PRINTSPC(9)"HOW MANY PLAYERS(1-5)";:INPUTNP:PRINT:IFNP>5THENNP=5
  10. 101 FORI=1TONP:GOSUB1999:IFLEFT$(B$(I),6)="PLAYER"THENB$(I)=MID$(B$(I),12,255)
  11. 105 NEXT
  12. 110 FORI=1TO13:FORJ=1TONP:SC(J,I)=-1:NEXT:NEXT:RD=1:PL=0
  13. 200 RO=1:RO$="12345":PL=PL+1:GOSUB1000:IFPL>NPTHENPL=1:RD=RD+1:IFRD=14THEN440
  14. 210 GOSUB1400:GOSUB300:FORI=1TO6:SC(0,I)=SC(0,I)*I:NEXT:GOSUB1500:IFRO>2THEN401
  15. 220 RO=RO+1
  16. 221 INPUT"[159]   ROLL AGAIN  Y    [157][157][157][157][157][157][157]";A$:IFA$="N"THEN401
  17. 225 IFA$<>"Y"ANDA$<>"N"THENPRINT"[145][145]";:GOTO221
  18. 230 INPUT"[145]   WHICH DICE   [157][157][157]";RO$:GOTO210
  19. 300 FORI=1TO13:SC(0,I)=0:TX=0:TL=0:NEXT:FORI=1TO5:SC(0,D(I))=SC(0,D(I))+1:GOSUB398
  20. 310 TX=TX+D(I):NEXT:IFTL=1THENSC(0,12)=SC(PL,12)+50:IFSC(0,12)<50THENSC(0,12)=50
  21. 312 SC(0,13)=TX:IFSC(0,12)>50THENGOSUB780:INPUT"SCRATCH WHAT";S:GOSUB1200:SC(PL,S)=0
  22. 320 IFTL<>2THEN325
  23. 321 SC(0,7)=TX:FORI=1TO6:IFSC(0,I)>3ORSC(0,I)=1THENSC(0,8)=TX
  24. 322 NEXT:IFSC(0,8)=0THENSC(0,9)=25
  25. 325 IFTL<>3THEN330
  26. 326 FORI=1TO6:IFSC(0,I)=3THENSC(0,7)=TX
  27. 327 NEXT
  28. 330 IFTL<>4ANDTL<>5THEN397
  29. 340 IFSC(0,3)=0ORSC(0,4)=0THEN397
  30. 341 IFSC(0,2)=0ANDSC(0,6)=0THEN397
  31. 342 IFSC(0,5)=0ANDSC(0,1)=0THEN397
  32. 350 SC(0,10)=30:IFSC(0,1)=0ANDSC(0,6)=0THEN397
  33. 353 IFSC(0,5)=0ORSC(0,2)=0THEN397
  34. 360 IFTL<>4THENSC(0,11)=40
  35. 397 RETURN
  36. 398 IFSC(0,D(I))-1=0THENTL=TL+1
  37. 399 RETURN
  38. 401 USED=0:PRINT"[158]   USE WHICH (1-13)";:INPUTA:IFA<1ORA>13THENPRINT"[145][145]";:GOTO401
  39. 402 GOSUB1900:IFUSED=1THEN401
  40. 404 SC(PL,A)=SC(0,A):TT=0:BT=0:BN=0:FORI=1TO6:IFSC(PL,I)>=0THENTT=TT+SC(PL,I)
  41. 409 NEXT:SC(PL,14)=TT:IFSC(PL,14)>=63THENGOSUB1998
  42. 410 FORI=7TO13:IFSC(PL,I)>=0THENBT=BT+SC(PL,I)
  43. 415 NEXT:SC(PL,15)=BT:PRINT"";:IFTT>62THENTT=TT+35
  44. 420 PRINT"         TOTALS:BOTTOM"BTSPC(30)":TOP   "TT:IFTT>63THENPRINT" (WITH BONUS)
  45. 421 [153][166]9)"GRAND TOTAL: "TT[170]BT"":[129]I[178]1[164]2000:[130]:[137]200
  46. 440 HS[178]0:[129]I[178]1[164]NP:SC(I,16)[178]SC(I,15)[170]SC(I,14)[170][182]((SC(I,14)[177]62)[172]35):[130]:[153]"LOAD
  47. 460 FORI=1TONP:PRINTB$(I),SC(I,16)"":NEXT
  48. 465 FORI=1TONP:IFSC(I,16)>HSTHENHS=SC(I,16):HS$=B$(I)
  49. 470 IFSC(I,16)>SC(I,0)THENSC(I,0)=SC(I,16)
  50. 480 IFSC(I,0)>AHTHENAH=SC(I,0):AH$=B$(I)
  51. 490 NEXT:PRINT"[158]THIS GAME'S HIGH SCOREWAS"HS"HELD BY ":PRINTHS$"."
  52. 500 PRINT"THE HIGHEST SCORE SO FAR IS HELD BY ":PRINTAH$" AND IS:";HS
  53. 505 PRINTSPC(12)"PLAY AGAIN? (Y/N)";
  54. 510 GETR$:ONABS(R$="")GOTO510:ONABS(ASC(R$)-88)GOTO110:END
  55. 780 PRINT"[147]YOU HAVE JUST GOTTEN  ANOTHER YAHTZEE. YOU  MUST SCRATCH SOMETHING";
  56. 790 PRINT"IF YOU ARE GOING TO TAKE IT. PUT IN A   ZERO BELOW IF YOU AREN'T TAKING IT"
  57. 800 RETURN
  58. 1000 FORI=1TO15:SC(0,I)=0:NEXT:RETURN
  59. 1200 IFSC(PL,S)=-1THENRETURN
  60. 1202 IFS=0THENSC(0,12)=SC(0,12)-50:S=16:RETURN
  61. 1204 FORI=13TO1STEP-1:IFSC(PL,I)=-1THENSC(PL,I)=0:RETURN
  62. 1205 NEXT:RETURN
  63. 1400 FORI=1TOLEN(RO$):X=VAL(MID$(RO$,I,1)):D(X)=FNA(X):NEXT:RETURN
  64. 1500 POKE53280,9
  65. 1501 PRINT"[147][154]"TAB(8)B$(PL)TAB(31)"ROUND"RD:PRINT:FORI=1TO5:PRINTTAB(8)D$(D(I));:NEXT:PRINT""
  66. 1510 RESTORE:FORI=1TO13:READD$:IFSC(0,I)<>0ANDSC(PL,I)<0THENPRINT"";
  67. 1515 IFSC(PL,I)<0THENPRINTSPC(8)RIGHT$(STR$(I),2)" "D$;
  68. 1516 PRINTTAB(24)RIGHT$("     "+STR$(SC(0,I)),4)"":GOTO1530
  69. 1520 PRINTSPC(8)RIGHT$(STR$(I),2)" "D$TAB(24)RIGHT$("   "+STR$(SC(PL,I)),4)"*
  70. 1530 [130]:[142]
  71. 1600 [131]ACES,TWOS,THREES,FOURS,FIVES,SIXES
  72. 1610 [131]3 OF A KIND,4 OF A KIND,FULL HOUSE,SMALL STR.,LARGE STR.,YAHTZEE,CHANCE
  73. 1900 X[178]A:[139]X[178]12[167][142]
  74. 1910 [139]SC(PL,X)[177][178]0[167]USED[178]1
  75. 1920 [142]
  76. 1998 SC(PL,8)[178]SC(PL,8)[170]35:[142]
  77. 1999 [153][166]9)"NAME PLAYER"I;:[133]B$(I):[142]
  78.