mirror of
https://github.com/rfivet/BCG101.git
synced 2024-12-19 08:36:36 -05:00
70 lines
1.9 KiB
QBasic
70 lines
1.9 KiB
QBasic
|
5 DATA0
|
||
|
|
10 DIMB(13),G(13),F(50):READN
|
||
|
|
15 FORI=0TON-1:READF(I):NEXTI
|
||
|
|
20 PRINT\PRINT "GAME OF *** AWARI ***"\E=0
|
||
|
|
25 FORI=0TO12:LETB(I)=3:NEXTI
|
||
|
|
30 LETC=0:LETF(N)=0:LETB(13)=0:LETB(6)=0
|
||
|
|
35 GOSUB 500
|
||
|
|
40 PRINT"YOUR MOVE";:GOSUB 110
|
||
|
|
45 IFE=0GOTO80
|
||
|
|
50 IFM=HTHENGOSUB100
|
||
|
|
55 IFE=0GOTO80
|
||
|
|
60 PRINT"MY MOVE IS ";:GOSUB800
|
||
|
|
65 IFE=0GOTO80
|
||
|
|
70 IFM=HTHENPRINT",";:GOSUB800
|
||
|
|
75 IFE>0GOTO35
|
||
|
|
80 PRINT:PRINT"GAME OVER"
|
||
|
|
85 LET D=B(6)-B(13):IF D<0 THEN PRINT "I WIN BY";-D"POINTS":GOTO 20
|
||
|
|
90 LETN=N+1:IFD=0THENPRINT"DRAWN GAME":GOTO 20
|
||
|
|
95 PRINT"YOU WIN BY"D"POINTS":GOTO20
|
||
|
|
100 PRINT "AGAIN";
|
||
|
|
110 INPUTM:IFM<7THENIFM>0THENLETM=M-1:GOTO130
|
||
|
|
120 PRINT"ILLEGAL MOVE":GOTO100
|
||
|
|
130 IFB(M)=0GOTO120
|
||
|
|
140 LETH=6:GOSUB200
|
||
|
|
150 GOTO500
|
||
|
|
200 LETK=M:GOSUB600
|
||
|
|
205 LETE=0:IFK>6THENK=K-7
|
||
|
|
210 LETC=C+1:IFC<9THENLETF(N)=F(N)*6+K
|
||
|
|
215 FORI=0TO5:IFB(I)<>0THEN230
|
||
|
|
220 NEXTI
|
||
|
|
225 RETURN
|
||
|
|
230 FORI=7TO12:IFB(I)<>0THENLETE=1:RETURN
|
||
|
|
235 GOTO220
|
||
|
|
500 PRINT:PRINT" ";
|
||
|
|
505 FORI=12TO7STEP-1:GOSUB580
|
||
|
|
510 NEXTI
|
||
|
|
515 PRINT:LETI=13:GOSUB580
|
||
|
|
520 PRINT," ";:PRINTB(6):PRINT" ";
|
||
|
|
525 FORI=0TO5:GOSUB580
|
||
|
|
530 NEXTI
|
||
|
|
535 PRINT:PRINT:RETURN
|
||
|
|
580 IFB(I)<10THENPRINT" ";
|
||
|
|
585 PRINTB(I);:RETURN
|
||
|
|
600 LETP=B(M):LETB(M)=0
|
||
|
|
605 FORP=PTO1STEP-1:LETM=M+1:IFM>13THENLETM=M-14
|
||
|
|
610 LETB(M)=B(M)+1:NEXTP
|
||
|
|
615 IFB(M)=1THENIFM<>6THENIFM<>13THENIFB(12-M)<>0GOTO625
|
||
|
|
620 RETURN
|
||
|
|
625 LETB(H)=B(H)+B(12-M)+1:LETB(M)=0:LETB(12-M)=0:RETURN
|
||
|
|
800 LETD=-99:LETH=13
|
||
|
|
805 FORI=0TO13:LETG(I)=B(I):NEXTI
|
||
|
|
810 FORJ=7TO12:IFB(J)=0THEN885
|
||
|
|
815 LETQ=0:LETM=J:GOSUB600
|
||
|
|
820 FORI=0TO5:IFB(I)=0THEN845
|
||
|
|
825 LETL=B(I)+I:LETR=0
|
||
|
|
830 IFL>13THENLETL=L-14:LETR=1:GOTO830
|
||
|
|
835 IFB(L)=0THENIFL<>6THENIFL<>13THENLETR=B(12-L)+R
|
||
|
|
840 IFR>QTHENLETQ=R
|
||
|
|
845 NEXTI
|
||
|
|
850 LETQ=B(13)-B(6)-Q:IFC>8THEN875
|
||
|
|
855 LETK=J:IFK>6THENK=K-7
|
||
|
|
860 FORI=0TON-1:IFF(N)*6+K=INT(F(I)/6^(7-C)+.1)THENLETQ=Q-2
|
||
|
|
870 NEXTI
|
||
|
|
875 FORI=0TO13:LETB(I)=G(I):NEXTI
|
||
|
|
880 IFQ>=DTHENLETA=J:LETD=Q
|
||
|
|
885 NEXTJ
|
||
|
|
890 LETM=A:PRINTCHR$(42+M);:GOTO200
|
||
|
|
900 FORI=0TON-1:PRINTB(I):NEXTI
|
||
|
|
999 END
|