0 ' HUIT.BA - BY S. BURGOYNE 1 ' CLUB 100 LIBRARY - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 ' Jeu realise par Stephane Burgoyne 3 ' Montreal TRS-80 M-100 BBS 4 ' 5 'Voici comment jouer: 6 ' vous jouez contre l'ordinateur 7 ' vous possedez au depart huit cartes choisies au hazard 8 ' vous devez vous debarrasser de vos cartes de la facon suivante: 9 ' 1- soit en jouant une carte de meme valeur que la precedente 10 ' 2- soit en mettant une carte de meme couleur que la precedente 11 ' 3- soit en jouant un huit de n'importe quelle couleur 12 ' vous etes oblige de jouer une carte repondant a une des 3 conditions 13 ' sinon, vous pigez une(des) carte(s) [F4] jusqu'a ce que vous pouvez jouer 14 ' les valets font perdre un tour a l'adversaire 15 ' les deux font piger deux cartes a l'adversaire 16 ' la partie est terminee lorsqu'un des joueurs n'a plus de cartes 17 ' NOTES: [CAPS LOCK] doit etre presse 18 ' la derniere carte jouee est dans le coin inferieur gauche 19 ' 20 ' EXEMPLE DE JEU: 21 ' vous avez en main: -AS de PIQUE 22 ' -3 de COEUR 23 ' -7 de TREFLE 24 ' -8 de CARREAU 25 ' 26 ' la derniere carte jouee est: 27 ' -7 de PIQUE 28 ' vous devez donc jouer l'AS ou le 7 29 ' ou 30 ' jouer le huit et changer la couleur en COEUR, TREFLE ou CARREAU 31 ' 32 'pour jouer l'AS de PIQUE: 33 ' PRESSEZ [A] et [F8] 34 ' 35 'les points sont calcules selon la valeur des cartes qui reste dans les 36 'mains de chaque joueur 37 ' 38 CLEAR400:DIMJO$(35),MO$(35),D$(52),U$(4),C$(13):FORI=1TO4:READA:U$(I)=CHR$(A):NEXT:FORI=1TO13:READC$(I):NEXT:Z$="A2345678910JQK":DATA 156,157,158,159,"A","2","3","4","5","6","7","8","9","10","J","Q","K" 39 CALL16959:CLS:KEY2,"FIN"+CHR$(13):KEY3,"":KEY4,"PIGE"+CHR$(13):KEY5,CHR$(156)+CHR$(13):KEY6,CHR$(157)+CHR$(13):KEY7,CHR$(158)+CHR$(13):KEY8,CHR$(159)+CHR$(13):FORJ=0TO12:FORI=1TO4:D$(I+J*4)=C$(J+1)+U$(I):NEXTI:NEXTJ:FORK=1TO(VAL(RIGHT$(TIME$,2))) 40 I=RND(1):NEXT:JO=8:MO=8:B=1:D=53:FORI=1TO8:GOSUB57:JO$(I)=X$:NEXTI:FORI=9TO35:JO$(I)="":NEXT:FORI=1TO8:GOSUB57:MO$(I)=X$:NEXTI:FORI=9TO35:MO$(I)="":NEXT:GOSUB57:C$=X$:CLS:PRINT"La premi"+CHR$(189)+"re carte est: ";C$:KEY1," "+C$+STRING$(3,8) 41 SCREEN0,1 42 IF(JO=0)OR(MO=0)OR(B=0)THEN44ELSEGOSUB61:PRINT 43 IF(JO<>0)AND(MO<>0)THENGOSUB79:PRINT:GOTO42 44 C1=0:C2=0 45 IFMO=0THEN48ELSECLS:PRINT"J'ai en main :"; 46 FORI=1TOMO:PRINTMO$(I);" ";:GOSUB58:IFZ>10THENZ=10 47 C1=C1+Z:NEXT:PRINT::CLS 48 IFJO<>0THENPRINT"Tu as en main:";:FORI=1TOJO:PRINTJO$(I);" ";:GOSUB50:C2=C2+Z:NEXT:PRINT 49 GOTO51 50 Z=INSTR(1,Z$,LEFT$(JO$(I),1)):IFZ>10THENZ=10:RETURNELSERETURN 51 IFC1=0THEN52ELSEIFC1>=C2THENC1=C1-C2:C2=0:GOTO52ELSEC2=C2-C1:C1=0 52 S1=S1+C1:S2=S2+C2:PRINT"Ton pointage :";C1:PRINT"Mon pointage :";C2:IFC2 pour continuer"; 56 CALL17005:CALL24367:RETURN 57 D=D-1:X=INT(D*RND(1)+1):X$=D$(X):D$(X)=D$(D):D$(D)="":RETURN 58 Z=INSTR(1,Z$,LEFT$(MO$(I),1)):RETURN 59 FORW=1TO750:NEXT:RETURN 60 PRINT@0,STRING$(80,32):PRINT@240,STRING$(80,32):RETURN 61 PRINT@80,STRING$(160,32):PRINT@80,"Tu as en main: ";:FORI=1TOJO:PRINTJO$(I);" ";:NEXT:PRINT:IFD<1THENKEY4,"NON"+CHR$(13):INPUT"Peux-tu jouer ";RP$:GOTO63 62 LINEINPUT"A toi de jouer: ";RP$ 63 GOSUB60:IFRP$="PIGE"ORRP$="NON"THEN64ELSEIFRP$="FIN"THEN45ELSE68 64 IFD>1THEN67 65 IFD=1THENPRINT@240,STRING$(4,255)+" Il ne reste plus de cartes "+STRING$(4,255):D=0:GOTO61 66 PRINT@240,STRING$(4,255)+" Tu es bloqu"+CHR$(187)+" "+STRING$(4,255):B=0:GOSUB59:RETURN 67 JO=JO+1:GOSUB57:JO$(JO)=X$:GOTO61 68 IF((LEFT$(RP$,1)=LEFT$(C$,1))OR(RIGHT$(RP$,1)=RIGHT$(C$,1)))OR(LEFT$(RP$,1)="8")THEN70 69 PRINT@240,STRING$(4,255)+" Ill"+CHR$(187)+"gal "+STRING$(4,255):GOTO61 70 FORI=1TOJO:IFRP$=JO$(I)THEN72 71 NEXT:PRINT@240,STRING$(3,255)+" Tu ne poss"+CHR$(189)+"des pas cette carte "+STRING$(4,255):GOTO61 72 C$=RP$:KEY1," "+C$+STRING$(4,8):FORJ=ITOJO+1:JO$(J)=JO$(J+1):NEXT:JO=JO-1:Z7$=LEFT$(RP$,1):IFJO=0THENRETURNELSEIFZ7$="8"THEN73ELSEIFZ7$="J"THEN75ELSEIFZ7$="2"THEN76ELSERETURN 73 INPUT"******* Quelle couleur";S9$::RETURN:FORI=1TO4:IFS9$=U$(I)THEN:C$=S9$:KEY1," "+C$+STRING$(2,8):RETURN 74 NEXTI:PRINT@200,STRING$(7,255)+" ";S9$;" n'est pas une couleur "+STRING$(3,255):CALL16979:GOTO73 75 PRINT@240,STRING$(7,255)+" Je perd mon tour":GOSUB59:GOSUB60:GOTO61 76 IFD=0THENRETURNELSEPRINT@240,STRING$(7,255)+" Je piges deux cartes":GOSUB59:GOSUB60 77 FORI=1TO2:IFD>1THENMO=MO+1:GOSUB57:MO$(MO)=X$:NEXT:RETURN 78 PRINT@240,"Il ne reste plus de cartes":D=0:GOSUB59:GOSUB60:RETURN 79 IFJO<4THEN92 80 FORI=1TOMO:IF((RIGHT$(MO$(I),1)=RIGHT$(C$,1))AND(LEFT$(MO$(I),1)<>"8"))THEN85ELSENEXT 81 FORI=1TOMO:IF(LEFT$(MO$(I),1)=LEFT$(C$,1))THEN85ELSENEXT 82 FORI=1TOMO:IF(LEFT$(MO$(I),1)="8")THEN85ELSENEXT 83 IFD>1THEN84ELSEPRINT"Il n'y a plus de cartes. Je suis bloqu"+CHR$(187):D=0:GOSUB59:GOSUB60:RETURN 84 MO=MO+1:I=MO:GOSUB57:MO$(MO)=X$:GOTO79 85 B=1:C$=MO$(I):MO$(I)="":FORJ=ITOMO+1:MO$(J)=MO$(J+1):NEXT:MO=MO-1:CLS:PRINT"Il me reste ";MO+1;" cartes";:IF(LEFT$(C$,1)<>"8")THENPRINT" et je joue :";C$:KEY1," "+C$+STRING$(4,8)ELSE87 86 IF(LEFT$(C$,1)="J")THEN93ELSEIF(LEFT$(C$,1)="2")THEN95ELSERETURN 87 FORI=1TO4:B(I)=0:NEXT:FORI=1TOMO:IF RIGHT$(MO$(I),1)=CHR$(156)THENB(1)=B(1)+1:NEXT:GOTO90 88 IFRIGHT$(MO$(I),1)=CHR$(157)THENB(2)=B(2)+1:NEXT:GOTO90 89 IFRIGHT$(MO$(I),1)=CHR$(158)THENB(3)=B(3)+1:NEXTELSEB(4)=B(4)+1:NEXT 90 E=1:FORI=1TO3:IFB(1)1THENJO=JO+1:GOSUB57:JO$(JO)=X$:NEXT:RETURN 97 PRINT@240,"Il ne reste plus de cartes":D=0:RETURN