mirror of
https://github.com/rfivet/BCG101.git
synced 2024-12-21 17:46:28 -05:00
159 lines
7.8 KiB
QBasic
159 lines
7.8 KiB
QBasic
|
1 ! MONOPOLY GAME BY DAVID BARKER, SOUTHEASTERN STATE COLLEGE, DURANT, OK
|
||
|
2 ! SLIGHT PROGRAM MODIFICATIONS BY DAVID AHL, DIGITAL
|
||
|
3 M(1),M(2)=1500%: I(1),I(2)=0: DIM A$(25),B$(25),H%(40)
|
||
|
7 OPEN "PRPRTY" AS FILE 1: DIM #1,G$(40%)=25,L%(40),P(40%),R(40%)
|
||
|
8 FOR I=1 TO 39:L%(I),H%(I)=0:NEXT I:FOR I=1 TO 8:U(I)=0:NEXT I
|
||
|
9 DEF FNR=(H%(I(Z))*R(I(Z))*10%)
|
||
|
10 OPEN "MESAJ" AS FILE 3: DIM #3,C$(10)=50%,Z$(10)=50%,M$(20)=50%
|
||
|
15 & M$(1):&:&:& "**RULES**":& M$(2):& M$(3):& M$(4):& M$(5)
|
||
|
30 INPUT"WHO IS PLAYER #1";N$(I): INPUT"WHO IS PLAYER #2":N$(2)
|
||
|
100 PRINT: PRINT "**"N$(1)"'S TURN**********": F=0
|
||
|
102 Z=1%: GOSUB 1000: GOSUB 2000
|
||
|
115 IF D=D1 THEN F=F+1: IF F<3 THEN PRINT M$(9): GOTO 102
|
||
|
117 IF F=3 THEN PRINT M$(10): I(Z)=10: M(Z)=M(Z)-50%
|
||
|
200 PRINT: PRINT "**"N$(2)"'S TURN**********": F=0
|
||
|
202 Z=2%: GOSUB 1000: GOSUB 2000
|
||
|
215 IF D=D1 THEN F=F+1: IF F<3 THEN PRINT M$(9): GOTO 202
|
||
|
217 IF F=3 THEN PRINT M$(10): I(Z)=10: M(Z)=M(Z)-50%
|
||
|
225 PRINT M$(11);:INPUT F$: IF F$="QUIT" THEN 30000 ELSE 100
|
||
|
1000 PRINT M$(6);:INPUT F$: RANDOMIZE: X=RND(0): Y=RND(0) !DICE ROLL
|
||
|
1002 IF X>=0 AND X<=.16 THEN D=1
|
||
|
1003 IF X>.16 AND X<=.32 THEN D=2
|
||
|
1004 IF X>.32 AND X<=.48 THEN D=3
|
||
|
1005 IF X>.48 AND X<=.64 THEN D=4
|
||
|
1006 IF X>.64 AND X<=.81 THEN D=5
|
||
|
1007 IF X>.81 AND X<=1 THEN D=6
|
||
|
1009 IF Y>=0 AND Y<=.16 THEN D1=1
|
||
|
1010 IF Y>.16 AND Y<=.32 THEN D1=2
|
||
|
1011 IF Y>.32 AND Y<=.48 THEN D1=3
|
||
|
1012 IF Y>.48 AND Y<=.64 THEN D1=4
|
||
|
1013 IF Y>.64 AND Y<=.81 THEN D1=5
|
||
|
1014 IF Y>.81 AND Y<=1 THEN D1=6
|
||
|
1015 PRINT "YOU ROLLED A"D"AND A"D1:I(Z)=I(Z)+(D+D1)
|
||
|
1016 IF I(Z)>40% THEN I(Z)=I(Z)-40%:M(Z)=M(Z)+200%
|
||
|
1017 RETURN
|
||
|
2000 PRINT"YOU ARE ON ";G$(I(Z)) !PLACEMENT
|
||
|
2002 IF I(Z)=2 OR I(Z)=17 OR I(Z)=33 THEN 4100 !COM CHEST
|
||
|
2004 IF I(Z)=4 THEN M(Z)=M(Z)-200% :RETURN !INC TAX
|
||
|
2006 IF I(Z)=7 OR I(Z)=22 OR I(Z)=36 THEN 4400 !CHANCE
|
||
|
2008 IF I(Z)=10 OR I(Z)=20 THEN RETURN !VISIT IN JAIL&FREE PARKING
|
||
|
2010 IF I(Z)=30 THEN M(Z)=M(Z)-50%: I(Z)=10: RETURN !JAIL
|
||
|
2011 IF I(Z)=38 THEN M(Z)=M(Z)-75%: RETURN !LUX TAX
|
||
|
2012 IF I(Z)=40 THEN M(Z)=M(Z)+200%: I(Z)=0: RETURN !GO
|
||
|
2018 IF L%(I(Z))=Z THEN PRINT M$(12): GOTO 3100
|
||
|
2019 IF (H%(I(Z))=0 AND L%(I(Z))>0 AND L%(I(Z))<>Z) THEN 2125
|
||
|
2020 IF (H%(I(Z))>0 AND L%(I(Z))>0 AND L%(I(Z))<>Z) THEN 2100
|
||
|
2022 PRINT M$(7);P(I(Z));"DOLLARS"
|
||
|
2024 PRINT M$(8)):INPUT F$: IF F$<>"BUY" THEN 3100
|
||
|
2026M(Z)=M(Z)-P(I(Z):PRINT "YOU NOW HAVE"M(Z)"DOLLARS
|
||
|
2027 L%(IZ))=Z:GOTO 3100
|
||
|
2100 IF Z=1 THEN M(Z)=M(Z)-FNR: M(2)=M(2)+FNR
|
||
|
2101 PRINT "YOU OWE"FNR"DOLLARS RENT":RETURN
|
||
|
2102 IF Z=2 THEN M(Z)=M(Z)-FNR: M(1)=M(1)+FNR
|
||
|
2103 PRINT "YOU OWE"FNR"DOLLARS RENT":RETURN
|
||
|
2125 IF Z=1 THEN M(Z)=M(Z)-R(I(Z)):M(2)=M(2)+R(I(Z))
|
||
|
2126 PRINT "YOU OWE"R(I(Z))"DOLLARS RENT":RETURN
|
||
|
2127 IF Z=2 THEN M(Z)=M(Z)-R(I(Z)): M(1)=M(1)+R(I(Z))
|
||
|
2128 PRINT "YOU OWE"R(I(Z))"DOLLARS RENT":RETURN
|
||
|
3100 PRINT M$(13): PRINT M$(14);:INPUT F$: IF F$="SELL" THEN GOSUB 3150
|
||
|
3105 PRINT M$(19);:INPUT H$: IF H$="HOUSE" THEN 3200 ELSE RETURN
|
||
|
3150 PRINT M$(15);:INPUT F$: IF F$="LIST" THEN GOSUB 3170
|
||
|
3152 PRINT M$(17);:INPUT V$: INPUT HOW MUCH DO YOU WANT FOR IT";V
|
||
|
3154 FOR I=1 TO 39
|
||
|
3156 IF V$=G$(I) THEN IF L%(I)=0 THEN PRINT M$(16): RETURN
|
||
|
3158 IF V$=G$(I) THEN IF L%(I)=1 THEN M(1)=M(1)+V
|
||
|
:M(2)=M(2)-V: L%(I)=2: GOTO 3165
|
||
|
3160 IF V$=G$(I) THEN IF L%(I)=2 THEN M(2)=M(2)+V
|
||
|
:M(1)=M(1)-V: L%(I)=1: GOTO 3165
|
||
|
3162 NEXT I
|
||
|
3165 PRINT M$(18);:INPUT F$: IF F$="YES" THEN 3152 ELSE RETURN
|
||
|
3170 C,D=0: FOR I=1 TO 39
|
||
|
3172 IF L%(I)=1 THEN C=C+1: A$(C)=G$(I)
|
||
|
3174 IF L%(I)=2 THEN D=D+1: B$(D)=G$(I)
|
||
|
3175 NEXT I
|
||
|
3176 PRINT N$(1)"'S PROPERTY": FOR I=1 TO C: PRINT A$(I): NEXT I
|
||
|
3178 PRINT N$(2)"'S PROPERTY": FOR I=1 TO D: PRINT B$(I): NEXT I:RETURN
|
||
|
3200 IF L%(1)=Z AND L%(3)=Z THEN &"HOW MANY HOUSES AT $50 EACH DO YOU WANT ON"
|
||
|
:PRINT G$(1)" "G$(3);:INPUT U:GOSUB 3250
|
||
|
3202 IF L%(6)=Z AND L%(8)=Z AND L%(9)=Z THEN
|
||
|
PRINT "HOW MANY HOUSES AT $50 EACH DO YOU WANT ON"
|
||
|
:PRINT G$(6)" "G$(8)" "G$(9);:INPUT U:GOSUB 3252
|
||
|
3204 IF L%(11)=Z AND L%(13)=Z AND L%(14)=Z THEN
|
||
|
PRINT "HOW MANY HOUSES AT $100 EACH DO YOOU WANT ON"
|
||
|
:PRINT G$(11)" "G$(13)" "G$(14);:INPUT U:GOSUB 3254
|
||
|
3206 IF L%(16)=Z AND L%(18)=Z AND L%(19)=Z THEN
|
||
|
PRINT "HOW MANY HOUSES AT $100 EACH DO YOU WANT ON"
|
||
|
:PRINT G$(16)" "G$(18)" "G$(19);:INPUT U:GOSUB 3256
|
||
|
3208 IF L%(21)=Z AND L%(23)=Z AND L%(24)=Z THEN
|
||
|
PRINT "HOW MANY HOUSES AT $150 EACH DO YOU WANT ON"
|
||
|
:PRINT G$(21)" "G$(23)" "G$(24);:INPUT U:GOSUB 3258
|
||
|
3210 IF L%(26)=Z AND L%(27)=Z AND L%(29)=Z THEN
|
||
|
PRINT "HOW MANY HOUSES AT $150 EACH DO YOU WANT ON"
|
||
|
:PRINT G$(26)" "G$(27)" "G$(29);:INPUT U:GOSUB 3260
|
||
|
3212 IF L%(31)=Z AND L%(32)=Z AND L%(34)=Z THEN
|
||
|
PRINT "HOW MANY HOUSES AT $200 EACH DO YOU WANT ON"
|
||
|
:PRINT G$(31)" "G$(32)" "G$(34);:INPUT U:GOSUB 3262
|
||
|
3214 IF L%(37)=Z AND L%(39)=Z THEN
|
||
|
PRINT "HOW MANY HOUSES AT $200 EACH DO YOU WANT ON"
|
||
|
:PRINT G$(37)" "G$(39);:INPUT U:GOSUB 3264
|
||
|
3220 RETURN
|
||
|
3250 U(1)=U(1)+U: M(Z)=M(Z)-(U*100%): IF M(Z)<0 THEN PRINT M$(20)
|
||
|
:M(Z)=M(Z)+(U*100%):U(1)=U(1)-U:RETURN
|
||
|
3251 H%(1),H%(3)=U(1): RETURN
|
||
|
3252 U(2)=U(2)+U: M(Z)=M(Z)-(U*150%): IF M(Z)<0 THEN PRINT M$(20)
|
||
|
:M(Z)=M(Z)+(U*150%):U(2)=U(2)-U:RETURN
|
||
|
3253 H%(6),H%(8),H%(9)=U(2): RETURN
|
||
|
3254 U(3)=U(3)+U: M(Z)=M(Z)-(U*150%): IF M(Z)<0 THEN PRINT M$(20)
|
||
|
:M(Z)=M(Z)+(U*150%):U(3)=U(3)-U:RETURN
|
||
|
3255 H%(11),H%(13),H%(14)=U(3): RETURN
|
||
|
3256 U(4)=U(4)+U: M(Z)=M(Z)-(U*300%): IF M(Z)<0 THEN PRINT M$(20)
|
||
|
:M(Z)=M(Z)+(U*300%):U(4)=U(4)-U:RETURN
|
||
|
3257 H%(16),H%(18),H%(19)=U(4): RETURN
|
||
|
3258 U(5)=U(5)+U: M(Z)=M(Z)-(U*450%): IF M(Z)<0 THEN PRINT M$(20)
|
||
|
:M(Z)=M(Z)+(U*450%):U(5)=U(5)-U:RETURN
|
||
|
3259 H%(21),H%(23),H%(24)=U(5): RETURN
|
||
|
3260 U(6)=U(6)+U: M(Z)=M(Z)-(U*450%): IF M(Z)<0 THEN PRINT M$(20)
|
||
|
:M(Z)=M(Z)+(U*450%):U(6)=U(6)-U:RETURN
|
||
|
3261 H%(26),H%(27),H%(29)=U(6): RETURN
|
||
|
3262 U(7)=U(7)+U: M(Z)=M(Z)-(U*600%): IF M(Z)<0 THEN PRINT M$(20)
|
||
|
:M(Z)=M(Z)+(U*600%):U(7)=U(7)-U:RETURN
|
||
|
3263 H%(31),H%(32),H%(34)=U(7): RETURN
|
||
|
3264 U(8)=U(8)+U: M(Z)=M(Z)-(U*400%): IF M(Z)<0 THEN PRINT M$(20)
|
||
|
:M(Z)=M(Z)+(U*400%):U(8)=U(8)-U:RETURN
|
||
|
3265 H%(37),H%(39)=U(8): RETURN
|
||
|
4100 RANDOMIZE: L=RND(0) !COMMUNITY CHEST
|
||
|
4102 IF L>=0 AND L<=.1 THEN PRINT Z$(1): M(Z)=M(Z)+100%: RETURN
|
||
|
4104 IF L>.1 AND L<=.2 THEN PRINT Z$(2): M(Z)=M(Z)+100%: RETURN
|
||
|
4106 IF L>.2 AND L<=.3 THEN PRINT Z$(3): M(Z)=M(Z)+20%: RETURN
|
||
|
4108 IF L>.3 AND L<=.4 THEN PRINT Z$(4): M(Z)=M(Z)-50%: RETURN
|
||
|
4110 IF L>.4 AND L<=.5 THEN PRINT Z$(5): M(Z)=M(Z)+100%: RETURN
|
||
|
4112 IF L>.5 AND L<=.6 THEN PRINT Z$(6): M(Z)=M(Z)+200%: I(Z)=0: RETURN
|
||
|
4114 IF L>.6 AND L<=.7 THEN PRINT Z$(7): M(Z)=M(Z)-100%: RETURN
|
||
|
4116 IF L>.7 AND L<=.8 THEN PRINT Z$(8): M(Z)=M(Z)-50%: I(Z)=10:RETURN
|
||
|
4118 IF L>.8 AND L<=.9 THEN PRINT Z$(9): M(Z)=M(Z)-50%: RETURN
|
||
|
4120 IF L>.9 AND L<=1 THEN PRINT Z$(10): M(Z)=M(Z)+200%: RETURN
|
||
|
4400 RANDOMIZE: L=RND(0) !CHANCE
|
||
|
4402 IF L>=0 AND L<=.1 THEN PRINT C$(1): M(Z)=M(Z)-15%: RETURN
|
||
|
4404 IF L>.1 AND L<=.2 THEN PRINT C$(2): I(Z)=24: GOSUB 2000: RETURN
|
||
|
4406 IF L>.2 AND L<=.3 THEN PRINT C$(3): I(Z)=I(Z)-3: GOSUB 2000: RETURN
|
||
|
4408 IF L>.3 AND L<=.4 THEN PRINT C$(4): I(Z)=0: M(Z)=M(Z)+200%: RETURN
|
||
|
4410 IF L>.4 AND L<=.5 THEN PRINT C$(5): M(Z)=M(Z)+50%: RETURN
|
||
|
4412 IF L>.5 AND L<=.6 THEN PRINT C$(6): I(Z)=5
|
||
|
:M(Z)=M(Z)+200%: GOSUB 2000: RETURN
|
||
|
4414 IF L>.6 AND L<=.7 THEN PRINT C$(7): I(Z)=10: M(Z)=M(Z)-50%: RETURN
|
||
|
4416 IF L>.7 AND L<=.8 THEN PRINT C$(8): M(Z)=M(Z)+150%: RETURN
|
||
|
4418 IF L>.8 AND L<=.9 THEN PRINT C$(9): I(Z)=39: GOSUB 2000: RETURN
|
||
|
4420 IF L>.9 AND L<=1 THEN PRINT C$(10): I(Z)=11: GOSUB 2000: RETURN
|
||
|
30000 C,D=0
|
||
|
30002 FOR I=1 TO 39
|
||
|
30004 IF L%(I)=1 THEN C=C+1:A$(C)=G$(I)
|
||
|
30006 IF L%(I)=2 THEN D=D+1:B$(D)=G$(I)
|
||
|
30008 NEXT I:PRINT:PRINT
|
||
|
30009 PRINT N$(1)" OWNED THE FOLLOWING PROPERTY"
|
||
|
:FOR I=1 TO C:PRINT A$(I):NEXT I
|
||
|
30010 PRINT "AND HAD";M(1);"DOLLARS AT THE END OF THE GAME"
|
||
|
30011 PRINT N$(2)" OWNED THE FOLLOWING PROPERTY"
|
||
|
:FOR I=1 TO D:PRINT B$(I):NEXT I
|
||
|
30012 PRINT "AND HAD";M(2);"DOLLARS AT THE END OF THE GAME"
|
||
|
30013 CLOSE 1,3:END
|