home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / games / bullseye.zip / BULLSEYE.BAS
BASIC Source File  |  1987-06-24  |  2KB  |  41 lines
  1. 240 PRINT  TAB(32);"BULLSEYE"
  2. 250 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
  3. 260 PRINT:PRINT:PRINT
  4. 270 PRINT "IN THIS GAME, UP TO 20 PLAYERS THROW DARTS AT A TARGET"
  5. 280 PRINT "WITH 10, 20, 30, AND 40 POINT ZONES.  THE OBJECTIVE IS"
  6. 290 PRINT "TO GET 200 POINTS.": PRINT
  7. 300 PRINT  "THROW",TAB(20);"DESCRIPTION";TAB(45);"PROBABLE SCORE"
  8. 310 PRINT "1";TAB(20);"FAST OVERARM";TAB(45);"BULLSEYE OR COMPLETE MISS"
  9. 320  PRINT "2";TAB(20);"CONTROLLED OVERARM";TAB(45);"10, 20 OR 30 POINTS"
  10. 330 PRINT"3";TAB(20)"UNDERARM";TAB(45);"ANYTHING":PRINT
  11. 340 DIM A$(20),S(20),W(10): M=0 :R=0:FOR I=1 TO 20: S(I)=0:NEXT I
  12. 350 INPUT "HOW MANY PLAYERS";N:PRINT
  13. 360 FOR I=1 TO N
  14. 370 PRINT "NAME OF PLAYER #";I;:INPUT A$(I)
  15. 380 NEXT I
  16. 390 R=R+1:PRINT :PRINT  "ROUND";R
  17. 400 FOR I=1 TO N
  18. 410 PRINT :PRINT  A$(I)"'S THROW";: INPUT T
  19. 420 IF T<0 OR T>3 THEN PRINT "INPUT 1,2 OR 3!": GOTO  410
  20. 430 ON T GOTO 440, 450, 460
  21. 440 P1=.65:P2=.55: P3=.5: P4=.5: GOTO 470
  22. 450 P1=.9899999: P2=.77: P3=.43: P4=.01: GOTO 470
  23. 460 P1=.95: P2=.75: P3=.45: P4=.05
  24. 470 U=RND(1)
  25. 480 IF U>=P1 THEN PRINT "BULLESYE!!  40 POINTS!":B=40:GOTO 540
  26. 490 IF T=1 THEN 530
  27. 500 IF U>=P2 THEN PRINT "30-POINT ZONE!":B=30: GOTO 540
  28. 510 IF U>=P3 THEN PRINT "20-POINT ZONE":B=20: GOTO 540
  29. 520 IF U>=P4 THEN PRINT "WHEW! 10 POINTS.":B=10: GOTO 540
  30. 530 PRINT "MISSED THE TARGET!  TOO BAD.": B=0
  31. 540 S(I)=S(I)+B: PRINT "TOTAL SCORE =";S(I): NEXT I
  32. 550 FOR I =1 TO N
  33. 560 IF S(I)>=200 THEN M=M+1: W(M)=I
  34. 570 NEXT I
  35. 580 IF M=0 THEN 390
  36. 590 PRINT :PRINT  "WE HAVE A WINNER!!!":PRINT
  37. 600 FOR I=1 TO M:PRINT A$(W(I));"SCORED";S(W(I));"POINTS.":NEXT I
  38. 610 PRINT :PRINT  "THANKS OR THE GAME.":END
  39. NER!!!":PRINT
  40. 600 FOR I=1 TO M:PRINT A$(W(I));"SCORED";S(W(I));"POINTS.":NEXT I
  41. 610 PRINT :PRINT  "THANKS OR