home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / gam / braker.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  71 lines
  1. 0 'Club 100 Library - 415/939-1246 BBS     937-5039 NEWSLETTER, 932-8856 VOICE
  2. 2 'BRAKER.BA, "Mastermind" code breaker, M100 VERSION BY RUSS HALL
  3. 5 GOTO40
  4. 10 FORJ1=0TO3:IFC(J1)<>B(J1)THEN13
  5. 12 N=N+1
  6. 13 NEXTJ1
  7. 14 FORJ1=0TO3:FORJ2=0TO3
  8. 16 IFJ1=J2THEN23
  9. 17 IFC(J1)=B(J1)THEN23
  10. 18 IFC(J2)=B(J2)THEN23
  11. 19 IFC(J1)<>B(J2)THEN23
  12. 20 M=M+1:B(J2)=8:GOTO24
  13. 23 NEXTJ2
  14. 24 NEXTJ1:RETURN
  15. 40 DEFINTA-Z:DIMR(9,3),S(9,1),A(6),B(3),C(3),D(3)
  16. 60 FORJ=0TO6:READA(J):NEXT
  17. 90 DATA 0,1,2,3,4,5,6
  18. 100 L0=0:L1=0:L2=0:L3=0
  19. 140 PRINT:PRINT"   - MASTERMIND CODEBREAKER -"
  20. 145 PRINT:PRINT"Please be patient, sometimes I take a   few moments on my move."
  21. 147 FORJ=1TOVAL(RIGHT$(TIME$,2)):T=RND(1):NEXT
  22. 150 PRINT:PRINT" Which version (1 or 2)";:INPUT V
  23. 170 V=V+4
  24. 175 PRINT"   The colors are:   Red, Blue, Green,  Yellow, Black, White";:IFV=6THENPRINT", Space"
  25. 177 FOR F=1TO1000:NEXT
  26. 180 FORJ=0TO3:R(0,J)=INT((V+1)*RND(J)):NEXT
  27. 240 FORI=0TO9
  28. 250 PRINT:PRINT"MY MOVE FOR ROW"I+1"IS"
  29. 255 FORJ=0TO3:IFR(I,J)=0THENPRINT"Red ";
  30. 257 IFR(I,J)=1THENPRINT"Blue ";
  31. 258 IFR(I,J)=2THENPRINT"Green ";
  32. 259 IFR(I,J)=3THENPRINT"Yellow ";
  33. 260 IFR(I,J)=4THENPRINT"Black ";
  34. 261 IFR(I,J)=5THENPRINT"White ";
  35. 262 IFR(I,J)=6THENPRINT"Space ";
  36. 263 NEXTJ:PRINT:PRINT
  37. 270 PRINT"How many black pegs";:INPUTS(I,0)
  38. 290 IFS(I,0)<>4THEN320
  39. 300 PRINT" THANKS FOR THE GAME":PRINT:GOTO870
  40. 320 IFS(I,0)<>3THEN360
  41. 330 S(I,1)=0:GOTO390
  42. 360 PRINT"How many white pegs";:INPUT S(I,1)
  43. 390 FORI0=L0TOV
  44. 400 FORI1=L1TOV
  45. 410 FORI2=L2TOV
  46. 420 FORI3=L3TOV
  47. 430 D(0)=A(I0):D(1)=A(I1):D(2)=A(I2):D(3)=A(I3)
  48. 490 FORK=0TOI
  49. 500 FORJ=0TO3:C(J)=R(K,J):B(J)=D(J):NEXTJ
  50. 555 N=0:M=0:GOSUB10
  51. 580 IFN<>S(K,0)THEN700
  52. 590 IFM<>S(K,1)THEN700
  53. 600 NEXTK
  54. 620 Z=0
  55. 630 FORJ=0TO3:IFR(0,J)<>D(J)THEN660:Z=Z+1
  56. 660 NEXTJ
  57. 670 IFZ=4THEN700
  58. 690 GOTO830
  59. 700 NEXTI3
  60. 710 NEXTI2
  61. 720 NEXTI1
  62. 730 NEXTI0
  63. 740 PRINT"I have reached an impasse in my thinking  Could you have made an error?":GOTO870
  64. 770 L0=I0:L1=I1:L2=I2:L3=I3+1
  65. 830 FORJ=0TO3:R(I+1,J)=D(J):NEXTJ
  66. 850 NEXTI
  67. 860 PRINT"I AM STUMPED - - YOU WIN!"
  68. 870 PRINT" ANOTHER GAME";:INPUTR$
  69. 890 IFR$="Y"ORR$="y"THEN150
  70. 900 MENU
  71.