1
0
mirror of https://github.com/rfivet/BCG101.git synced 2024-06-18 06:25:27 +00:00
BCG101/port/BULEYE.BAS

38 lines
1.5 KiB
QBasic

10 REM*** BULLSEYE BY DAVE AHL
20 PRINT "GAME OF BULLSEYE"\PRINT\RANDOMIZE
30 PRINT "IN THIS GAME, UP TO 20 PLAYERS THROW DARTS AT A TARGET"
40 PRINT "WITH 10, 20, 30, AND 40 POINT ZONES. THE OBJECTIVE IS"
50 PRINT "TO GET 200 POINTS."\PRINT
60 PRINT "THROW","DESCRIPTION"," ","PROBABLE SCORE"
70 PRINT " 1","FAST OVERARM"," ","BULLSEYE OR COMPLETE MISS"
80 PRINT " 2","CONTROLLED OVERARM","10, 20 OR 30 POINTS"
90 PRINT " 3","UNDERARM"," ","ANYTHING"\PRINT
100 DIM A$(20),S(20),W(10)\R=0\M=0\FOR I=1 TO 20\S(I)=0\NEXT I
110 PRINT "HOW MANY PLAYERS";\INPUT N\PRINT
120 FOR I=1 TO N
130 PRINT "NAME OF PLAYER #"I;\INPUT A$(I)
140 NEXT I
150 R=R+1\PRINT\PRINT "ROUND"R
160 FOR I=1 TO N
170 PRINT\PRINT A$(I)"'S THROW";\INPUT T
180 IF T<0 THEN 185\IF T>3 THEN 185\GOTO 190
185 PRINT "INPUT 1, 2, OR 3!"\GOTO 170
190 ON T GOTO 200,210,220
200 P1=.65\P2=.55\P3=.5\P4=.5\GOTO 230
210 P1=.99\P2=.77\P3=.43\P4=.01\GOTO 230
220 P1=.95\P2=.75\P3=.45\P4=.05
230 U=RND(1)
240 IF U<P1 THEN 250\PRINT "BULLSEYE!! 40 POINTS!"\B=40\GOTO 290
250 IF U<P2 THEN 260\PRINT "30-POINT ZONE!"\B=30\GOTO 290
260 IF U<P3 THEN 270\PRINT "20-POINT ZONE"\B=20\GOTO 290
270 IF U<P4 THEN 280\PRINT "WHEW! 10 POINTS."\B=10\GOTO 290
280 PRINT "MISSED THE TARGET. TOO BAD!"\B=0
290 S(I)=S(I)+B\PRINT "TOTAL SCORE ="S(I)\NEXT I
300 FOR I=1 TO N
310 IF S(I)<200 THEN 320\M=M+1\W(M)=I
320 NEXT I
330 IF M=0 THEN 150
340 PRINT\PRINT "WE HAVE A WINNER!!"\PRINT
350 FOR I=1 TO M\PRINT A$(W(I))" SCORED"S(W(I))"POINTS."\NEXT I
360 PRINT\PRINT "THANKS FOR THE GAME!"\END