Kryptós
OBJETIVO
O objetivo do jogo consiste em se tentar adivinhar uma frase ,letra por letra ,com um mínimo de tentativas sem consumir muito tempo.
Teste o programa no WebMSX – The Online MSX Emulator
FRASES SECRETAS
Cada jogador deve digitar uma frase que contenha até 25 caracteres, sem que os demais participantes vejam. Quando for digitado o 25o. caractere de cada frase, o computador os misturará de tal modo que a frase ficar incompreensível.
Após ter sido embaralhada a última frase, o computador misturará os jogadores e o jogo comecará.
JOGO
Cada jogador ,na sua vez de jogar, deve escolher um dos caracteres da frase que lhe foi atribuida e digitá-lo.
Se o caractere digitado não for correto 1 ponto perdido será somado na sua contagem de pontos perdidos mostrada no placar azul.”
O jogador deverá tentar até acertar, quando, então, sua vez terminará e iniciará a vez do jogador seguinte.
Enquanto o jogador estiver fazendo suas tentativas, o relógio funcionará marcando o tempo consumido, indicando de qual jogador é a vez.
FIM DO JOGO
Quando todos os jogadores tiverem acabado de digitar as frases secretas, o jogo termina e o placar final‚ apresentado.
A contagem final‚ composta dos pontos perdidos e do tempo gasto, contando cada 5 segundos como mais um ponto perdido.
O jogador que tiver perdido menos pontos, de acordo com o indicado no placar final, será o ganhador.
Também é possível desistir de uma partida em qualquer instante pressionando as teclas e , simultaneamente.
DICA
A única regra que as frases secretas precisam seguir‚ de formarem uma sentença lógica, isto é, possuirem alguma lógica que ligue os caracteres que a formam. Assim sendo,frases secretas podem ser constituídas por palavras de outras línguas, sequências numéricas ou de caracteres especiais e até‚ equações matemáticas! Visando eliminar eventuais discordâncias, entre os participantes, é bastante conveniente combinar regras que limitem o universo das frases secretas possíveis. EX: alguém não fala inglês não valem frases em inglês.
OBSERVAÇÃO: para poder executar o programa, pressione a tecla CONTROL na inicialização do micro, a fim de liberar memória do sistema de disco.
Empresa: Disprosoft
Autor: Márcio Vaz Ferreira Ramos
Contribuição: Paulo Maluf
Código fonte
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 |
10 COLOR15,10,10: SCREEN 2,1,0,2 20 OPEN"GRP:"FOR OUTPUT AS #1 30 PI=3.1415927#:VDP(1)=160 40 LINE(18,74)-(33,82),12,BF 50 LINE(33,82)-(39,82),12 60 CIRCLE(32,82),8,12,0,PI/2,1.1:PAINT(34,77),12 70 LINE(18,84)-(39,92),5,BF 80 LINE(18,94)-(33,102),13,BF 90 LINE(33,94)-(39,94),13 100 CIRCLE(32,94),8,13,3*PI/2,0,1.1:PAINT(35,100),13 110 LINE(42,74)-(50,82),12,BF 120 LINE(42,84)-(50,92),5,BF 130 LINE(42,94)-(50,102),13,BF 140 LINE(67,74)-(72,82),12,BF 150 LINE(72,74)-(76,74),12:LINE(64,82)-(67,82),12 160 CIRCLE(69,82),8,12,PI/2,PI,1.7 170 CIRCLE(76,82),8,12,PI/2,PI,2.2 180 PAINT(66,80),12:PAINT(73,75),12 190 LINE(63,84)-(69,92),5,BF 200 LINE(63,92)-(61,92),5 210 LINE(63,84)-(61,92),5:PAINT(62,91),5 220 LINE(69,84)-(71,84),5:LINE(71,84)-(69,92),5:PAINT(70,85),5 230 LINE(53,94)-(61,102),13,BF 240 LINE(61,94)-(68,94),13:CIRCLE(61,94),8,13,3*PI/2,0,1.1:PAINT(63,96),13 250 LINE(79,74)-(94,82),12,BF 260 LINE(94,82)-(100,82),12 270 CIRCLE(93,82),8,12,0,PI/2,1.1:PAINT(95,77),12 280 LINE(79,84)-(87,92),5,BF:LINE(87,84)-(100,84),5:LINE(87,90)-(96,90),5:CIRCLE(96,84),6,5,3*PI/2,0,1.5:PAINT(89,86),5 290 LINE(79,94)-(87,102),13,BF 300 LINE(103,74)-(118,82),12,BF 310 LINE(118,82)-(124,82),12 320 CIRCLE(117,82),8,12,0,PI/2,1.1:PAINT(119,77),12 330 LINE(103,84)-(118,90),5,BF 340 LINE(118,84)-(124,84),5:CIRCLE(120,84),6,5,3*PI/2,0,1.5:LINE(119,90)-(124,92),5:LINE(116,90)-(116,92),5:LINE(116,92)-(124,92),5:PAINT(122,86),5:PAINT(117,91),5 350 LINE(116,94)-(124,102),13,BF 360 LINE(127,82)-(147,82),12 370 CIRCLE(137,82),10,12,0,PI,.82:PAINT(137,80),12 380 LINE(127,84)-(147,92),5,BF 390 LINE(127,94)-(147,94),13 400 CIRCLE(137,94),10,13,PI,0,.82:PAINT(137,96),13:PSET(127,93),10 410 LINE(164,74)-(169,82),12,BF 420 LINE(169,74)-(173,74),12:LINE(161,82)-(164,82),12 430 CIRCLE(166,82),8,12,PI/2,PI,1.7 440 CIRCLE(173,82),8,12,PI/2,PI,2.2 450 PAINT(163,80),12:PAINT(170,75),12 460 LINE(160,84)-(166,92),5,BF 470 LINE(160,92)-(158,92),5 480 LINE(160,84)-(158,92),5:PAINT(159,91),5 490 LINE(166,84)-(168,84),5:LINE(168,84)-(166,92),5:PAINT(167,85),5 500 LINE(150,94)-(158,102),13,BF 510 LINE(158,94)-(165,94),13:CIRCLE(158,94),8,13,3*PI/2,0,1.1:PAINT(160,96),13 520 LINE(172,82)-(192,82),12 530 CIRCLE(182,82),10,12,0,PI,.82:PAINT(182,80),12 540 LINE(172,84)-(192,92),5,BF 550 LINE(172,94)-(192,94),13 560 CIRCLE(182,94),10,13,PI,0,.82:PAINT(182,96),13:PSET(172,93),10 570 LINE(195,74)-(215,82),12,BF 580 LINE(195,84)-(213,92),5,BF 590 LINE(195,94)-(203,102),13,BF 600 LINE(218,74)-(238,82),12,BF 610 LINE(218,84)-(226,92),5,BF 620 LINE(218,94)-(226,94),13:LINE(226,94)-(226,102),13:CIRCLE(226,94),8,13,PI,3*PI/2:PSET(218,93),10:PAINT(220,96),13:LINE(226,96)-(234,102),13,BF 630 PSET(150,120),10:COLOR15:PRINT#1,"Apresenta" 640 VDP(1)=224 650 PLAY"T156" 660 PLAY"S10M12000L4O4AAO5E2.D8E8CO4L8BABO5CD2.L4DEO4BL8AGL4EEA2ABAL8GF#GF#E2.L4EF#GBAAO5E2EL8DEC4O4BABO5CD2.L4DEO4BA8G8EEA2ABAG8F#8G1GF#GBAAO5C2CDCO4L8BABO5CD2.L4DEDO4BO5CCG2GAGL8FEDCO4B2.L4BO5CDL8CO4BL4AAO5E2EL8DEC4O4BABO5CD2.L4DEO4B8G8EEA2ABAG8F#8G1G" 670 CLEAR10000:FORI=1TO10:KEYI,"":NEXTI:ONSTOPGOSUB1800:STOPON 680 DEFSTR A,B,D-H,S,T,U:DEFINT C,I-Q 690 SCREEN2,1,0,2:COLOR 15,10,10:CLS:COLOR 15,10,10:DEFUSR=&H156 700 OPEN "GRP:"FOR OUTPUT AS1# 710 FORI=0TO9:M=ASC(MID$(STR$(I),2)):DEF FN K=PEEK(M*8+&H1BBF+N):FORN=0TO7:S(I)=S(I)+CHR$(FN K):NEXTN:NEXTI 720 '*********JOGADORES**************** 730 CLS:COLOR 15:ON KEY GOSUB1760,1820 740 DRAW"bm8,5c8d50r5u25f25u5h20e20u5g23h2u21l5bm+35,0d50r5u25f25u5h20r20u25l30bm+5,+5d15r20u15l20bm+30,-5d5f13d32r5u33e12u5g15h15bm+35,0d50r5u25r25u25l30bm+5,+5d15r20u15l20bm+30,-5d5r13d45r5u45r12u5l30bm+35,0d50r30u50l30bm+5,+5d40r20u40l20" 750 DRAW"bm+30,-5d25r25d20l25d5r30u30l25u15r25u5l30bm-25,-2r5e5l5g5" 760 PRESET(8,183),10:COLOR6:PRINT#1,"Autor:Marcio Vaz Ferreira Ramos":COLOR15 770 PAINT(9,6),8:PAINT(44,6),8:PAINT(79,7),8:PAINT(114,6),8:PAINT(149,6),8:PAINT(184,6),8:PAINT(219,6),8:PAINT(196,2),8 780 LINE(40,90)-(199,108),1,BF:LINE(45,85)-(204,103),13,BF 790 PRESET(50,90),13:PRINT#1,"Quantos jogadores ?":LINE(70,122)-(161,140),8,BF:LINE(70,122)-(161,140),15,B:PRESET(82,128),8:PRINT#1,"2 ,3 ou 4" 800 KEY(2)ON:LINE(64,154)-(167,168),4,BF:LINE(64,154)-(167,168),15,B:PRESET(75,158),4:PRINT#1,"F2: Regras" 810 N$=INKEY$ 820 PRESET(8,183),10:COLOR6:PRINT#1,"Autor:Marcio Vaz Ferreira Ramos" 830 DRAW"bm8,5c10d50r5u25f25u5h20e20u5g23h2u21l5bm+35,0d50r5u25f25u5h20r20u25l30bm+5,+5d15r20u15l20bm+30,-5d5f13d32r5u33e12u5g15h15bm+35,0d50r5u25r25u25l30bm+5,+5d15r20u15l20bm+30,-5d5r13d45r5u45r12u5l30bm+35,0d50r30u50l30bm+5,+5d40r20u40l20" 840 DRAW"bm+30,-5d25r25d20l25d5r30u30l25u15r25u5l30bm-25,-2r5e5l5g5" 850 DRAW"bm8,5c8d50r5u25f25u5h20e20u5g23h2u21l5bm+35,0d50r5u25f25u5h20r20u25l30bm+5,+5d15r20u15l20bm+30,-5d5f13d32r5u33e12u5g15h15bm+35,0d50r5u25r25u25l30bm+5,+5d15r20u15l20bm+30,-5d5r13d45r5u45r12u5l30bm+35,0d50r30u50l30bm+5,+5d40r20u40l20" 860 DRAW"bm+30,-5d25r25d20l25d5r30u30l25u15r25u5l30bm-25,-2r5e5l5g5" 870 PRESET(8,183),10:COLOR4:PRINT#1,"Autor:Marcio Vaz Ferreira Ramos":COLOR15 880 IFN$=""THEN810ELSEN=VAL(N$):IFN>4ORN<2THEN810 890 DIM F(N,25),E(N),K(25),D(N),T(N,25),H(N,8),G(N),LG(N),B(N,25),P(N),Q(N),O(N),OI(N),U(N),C(4) 900 LINE(0,60)-(255,191),10,BF 910 KEY(2)OFF:FORJ=1TON:J$=STR$(J):LINE(5,42+25*J)-(165,56+25*J),1,BF:LINE(9,37+25*J)-(169,51+25*J),6,BF:PRESET(16,41+25*J),10:PRINT#1,"Nome do";J$;"§ jogador:" 920 LINE(30,37+25*(J+1))-(119,51+25*(J+1)),12,BF:LINE(30,37+25*(J+1))-(119,51+25*(J+1)),15,B:PRESET(35,41+25*(J+1)),12:PRINT#1," 8 toques" 930 LINE(176,37+25*J)-(249,51+25*J),1,BF:LINE(176,37+25*J)-(249,51+25*J),15,B 940 KEY(1)ON 950 LINE(176,37+25*(J+1))-(249,51+25*(J+1)),4,BF:LINE(176,37+25*(J+1))-(249,51+25*(J+1)),15,B:PRESET(182,41+25*(J+1)),4:PRINT#1,"F1:Apaga" 960 A=USR(F):FOR I=1 TO 8 970 H(J,I)=INKEY$ 980 IFH(J,1)=" "THEN970 990 IF H(J,I)=""THEN970ELSEIFASC(H(J,I))<32ORASC(H(J,I))=255ORASC(H(J,I))=127THEN970ELSEPRESET(174+8*I,41+25*J),1:PRINT#1,H(J,I) 1000 'IFASC(H(J,I))<32ORASC(H(J,I))=255ORASC(H(J,I))=127THEN170 1010 P=INT(ASC(H(J,I))/3+I):PLAY"S2M2000L32N=P;" 1020 IFH(J,I)<>" "THENLG(J)=LG(J)+1 1030 G(J)=G(J)+H(J,I):NEXTI:BEEP:NEXTJ 1040 '*******FRASES SECRETAS************ 1050 ON KEY GOSUB1720:KEY(1)ON:C(1)=13:C(2)=12:C(3)=4:C(4)=6 1060 MJ=192/N:MH=MJ:IFN=2THENMH=70 1070 CLS:FORJ=1TON:LINE(8,MH*(J-1)-2)-(249,MH*J-8),C(J),BF:LINE(8,MH*(J-1)-2)-(249,MH*J-8),15,B 1080 LINE(16,MH*(J-1)+5)-(85,MH*(J-1)+15),1,BF 1090 LINE(18,MH*(J-1)+3)-(87,MH*(J-1)+13),14,BF:PRESET(21+(8-LG(J))*4,MH*(J-1)+5),14:COLOR 1:PRINT#1,G(J):LINE(16,MH*J-23)-(240,MH*J-13),1,BF:LINE(16,MH*J-23)-(240,MH*J-13),15,B 1100 LINE(94,MH*(J-1)+3)-(241,MH*(J-1)+13),5,BF 1110 LINE(94,MH*(J-1)+3)-(241,MH*(J-1)+13),15,B:PRESET(97,MH*(J-1)+5),5:COLOR15:PRINT#1,"Frase de 25 toques" 1120 PRESET(122,MH*J-32),C(J):COLOR15:PRINT#1,"F1:Apaga" 1130 A=USR(F):FORI=1TO25 1140 F(J,I)=INKEY$ 1150 IFF(J,1)=" "THEN1140 1160 IF F(J,I)=""THEN1140ELSEIFASC(F(J,I))<32ORASC(F(J,I))=255ORASC(F(J,I))=127THEN1140ELSEPRESET(19+8*I,MH*J-21),1:COLOR7:PRINT#1,F(J,I):P=95-INT((ASC(F(J,I))*RND(-TIME)+I+9)/3):PLAY"S10M12000L8N=P;" 1170 B(J,I)=F(J,I):U(J)=U(J)+F(J,I) 1180 NEXT I:BEEP 1190 '******EMBARALHA LETRAS************ 1200 LINE(94,MH*(J-1)+3)-(241,MH*(J-1)+13),C(J),BF:PRESET(122,MH*J-32),C(J):COLORC(J):PRINT#1,STRING$(9,"Û") 1210 FORIS=0TO13:SOUNDIS,0:NEXTIS:SOUND7,254:SOUND8,8:LINE(16,MH*J-23)-(240,MH*J-13),1,BF:LINE(16,MH*J-23)-(240,MH*J-13),15,B 1220 FORM=1TO5:FOR I=1 TO 25 1230 K=INT(RND(-TIME)*25+1):SWAP B(J,I),B(J,K):Z=K*M:SOUND0,Z:NEXTI,M 1240 FORI=1TO25:Z=I*INT(RND(-TIME)*8):SOUND0,Z:E(J)=E(J)+B(J,I):NEXT I 1250 BEEP:PRESET(27,MH*J-21),1:COLOR7:PRINT#1,E(J):NEXTJ:KEY(1)OFF 1260 '******EMBARALHA JOGADORES********* 1270 FOR J=1 TO N:TIME=0 1280 K(J)=INT(RND(-TIME)*N+1):FOR L=J-1 TO 1 STEP -1:IF K(J)=K(L) THEN 1280 ELSE NEXT L 1290 IF K(J)=JANDTIME<240THEN1280 1300 IFTIME>240THEN1270 1310 LINE(18,MH*(J-1)+3)-(87,MH*(J-1)+13),14,BF:PRESET(21+(8-LG(K(J)))*4,MH*(J-1)+5),14:COLOR1:PRINT#1,G(K(J)) 1320 BEEP:NEXTJ:A=USR(F) 1330 G=INKEY$:IFG=""THENPRESET(12,185),10:COLOR15:PRINT#1,"Aperte uma tecla para comecar":GOTO1350 1340 GOTO 1360 1350 FORI=1TO200:NEXTI:PRESET(12,185),10:COLOR13:PRINT#1,"Aperte uma tecla para comecar":FORI=1TO200:NEXTI:GOTO1330 1360 BEEP:A=STRING$(30,"Û"):PRESET(7,185),10:COLOR 10:PRINT#1,A 1370 '*************JOGO***************** 1380 O$(J)="00":FOR I=1 TO 25 1390 FOR J=1 TO N:A=USR(F):A=STRING$(27,"Û"):AS=STRING$(21,"Û"):TIME=0:T="":FORL=2TO4:PUTSPRITEL,(0,0),0,L:NEXTL 1400 IFN=2THENMJ=60 1410 T(J,I)=INKEY$:PLAY"R4V5L64N95":O(J)=OI(J)+INT(TIME/60) 1420 IF T(J,I)=""THENO$(J)=STR$(O(J))ELSE1460 1430 LINE(191,MH*(J-1)+3)-(195+LEN(O$(J))*12,MH*(J-1)+20),1,BF 1440 LINE(191,MH*(J-1)+3)-(195+LEN(O$(J))*12,MH*(J-1)+20),15,B 1450 FORL=2TOLEN(O$(J)):OS$(L)=MID$(O$(J),L,1):LS(L)=VAL(OS$(L)):SPRITE$(L)=S(LS(L)):PUTSPRITE L,(176+12*L,MH*(J-1)+4),12,L:NEXTL:GOTO1410 1460 IFT(J,I)=F(J,I)THEN1520ELSEP(J)=P(J)+1:P=LEN(STR$(P(J))):LINE(103,MH*(J-1)+2)-(161+(P-5)*8,MH*(J-1)+13),7,BF:LINE(103,MH*(J-1)+2)-(161+(P-5)*8,MH*(J-1)+13),15,B:T=T+T(J,I):PRESET(110,MH*(J-1)+5),7:COLOR1:PRINT#1,P(J) 1470 IFN=4ANDLEN(T)>20THENT=T(J,I):PRESET(16,MH*J-31),C(J):COLORC(J):PRINT#1,AS 1480 IFN=2ANDJ=2THENMJ=68 1490 IFT(J,I)=" "THENT=LEFT$(T,(LEN(T)-1))+"þ" 1500 IFLEN(T)>25THENT=T(J,I):PRESET(16,MJ*J-31),C(J):COLORC(J):PRINT#1,A 1510 PRESET(22,MJ*J-31),C(J):COLOR15:PRINT#1,T:GOTO1410 1520 D(J)=D(J)+T(J,I):BEEP:OI(J)=O(J) 1530 PRESET(17,MH*J-21),1:COLOR 1:PRINT#1,A:PRESET(27,MH*J-21),1:COLOR 3:PRINT#1,D(J) 1540 IFN=2ANDJ=2THENMJ=68 1550 PRESET(16,MJ*J-31),C(J):COLORC(J):IFN=4THENPRINT#1,ASELSEPRINT#1,A 1560 M=INSTR(E(J),T(J,I)):L=LEN(E(J)):MR=L-M:EL=LEFT$(E(J),M-1):ER=RIGHT$(E(J),MR):E(J)=EL+ER:PRESET(34+8*I,MH*J-21),1:COLOR 7:PRINT#1,E(J):BEEP:NEXT 1570 NEXT 1580 ' 1590 '*************FIM****************** 1600 FORL=2TO4:PUTSPRITEL,(0,0),O,L:NEXTL:FORJ=1TON:Q(J)=P(J)+INT(O(J)/5) 1610 LINE(8,MH*(J-1)-2)-(249,MH*J-8),C(J),BF:LINE(8,MH*(J-1)-2)-(249,MH*J-8),15,B:PRESET(28,MH*(J-1)+4),C(J):COLOR15:PRINT#1,G(K(J)):PRESET(36+LG(K(J))*8,MH*(J-1)+4),C(J):PRINT#1,"perdeu";Q(J);"pontos." 1620 PRESET(55,MH*(J-1)+16),C(J):PRINT#1,"Prop“s a frase :":PRESET(28,MH*(J-1)+28),C(J):PRINT#1,U(K(J)):NEXTJ:A=USR(F) 1630 PLAY"s10m9000t240l4o2gbo3degbo4degr4br4o5dr4gr4o3cegao4cegagr4er4dr4o3br4o3dfabo4dr4r2o3cegao4cr4r2o2gbo3degbo4degr4r2o2gr4r2" 1640 PLAY"r2o4gedcder2gedcl2dr2l4gedcder1r1r2gedcedr2gedcd2l4r2gedcder1r1","s10m9000t240l4o3ffr2r1ffr2r1ffr2r1fr4dr4ar4o2gr4o3ffr2r1ffr2r1ffr2rfr4dr4ar4o2gr4","s10m6000t240l4o2ggr2r1ggr2r1ggr2r1r1r1ggr2r1ggr2r1ggr2rr1r1" 1650 PLAY"s10m9000t240l4o2gbo3degbo4degr4br4o5dr4gr4o3cegao4cegagr4er4dr4o3br4o3dfabo4dr4r2o3cegao4cr4r2o2gbo3degbo4degr4r2o2gr4r2" 1660 G=INKEY$:IFG=""THENPRESET(7,185),10:COLOR15:PRINT#1,"Aperte uma tecla para recomecar":GOTO1680 1670 GOTO 1690 1680 FORI=1TO200:NEXTI:PRESET(7,185),10:COLOR13:PRINT#1,"Aperte uma tecla para recomecar":FORI=1TO200:NEXTI:GOTO1660 1690 RUN670 1700 ' 1710 '*********APAGADOR FRASES********** 1720 FORIS=0TO13:SOUNDIS,0:NEXTIS:SOUND7,246:FORIS=1TO15:SOUND6,2*IS:SOUND0,14*IS:SOUND8,INT(IS/2):NEXTIS:U(J)="" 1730 LINE(16,MH*J-23)-(240,MH*J-13),1,BF:LINE(16,MH*J-23)-(240,MH*J-13),15,B:FORIS=1TO500:NEXTIS:BEEP:RETURN1130 1740 ' 1750 '*********APAGADOR NOMES*********** 1760 FORIS=0TO13:SOUNDIS,0:NEXTIS:SOUND7,246:FORIS=1TO15:SOUND6,2*IS:SOUND0,14*IS:SOUND8,INT(IS/2):NEXTIS 1770 LINE(176,37+25*J)-(249,51+25*J),1,BF:LINE(176,37+25*J)-(249,51+25*J),15,B:FORIS=1TO200:NEXTIS:LG(J)=0:G(J)="":BEEP:RETURN960 1780 ' 1790 '**************STOP***************** 1800 RUN 670 1810 '************REGRAS*************** 1820 CLS:BEEP 1830 LINE(16,0)-(247,191),1,BF 1840 LINE(16,0)-(247,191),15,B 1850 PRESET(98,6),1:COLOR15:PRINT#1,"OBJETIVO" 1860 PRESET(24,16),1:COLOR 7:PRINT#1,"O objetivo do jogo consiste em se tentar adivinhar uma frase ,letra por letra ,com um m¡nimo de tentativas sem consumir muito tempo." 1870 PRESET(68,60),1:COLOR 15:PRINT#1,"FRASES SECRETAS" 1880 PRESET(24,70),1:COLOR 9:PRINT#1,"Cada jogador deve digitar uma frase que contenha at‚ 25 caracteres ,sem que os demais participantes vejam." 1890 PRESET(24,104),1:COLOR 2:PRINT#1,"Quando for digitado o 25§ caractere de cada frase, o computador os misturar de tal modo que a frase ficar incompreens¡vel." 1900 PRESET(24,146),1:COLOR11:PRINT#1,"Ap¢s ter sido embaralhada a £ltima frase, o computador misturar os jogadores e o jogo comecar ." 1910 P$=INKEY$:PRESET(24,182),1:COLOR13:PRINT#1,"CONTINUACAO: TECLE <ESPACO>" 1920 IF P$=""THEN PRESET(24,182),1:COLOR 10:PRINT#1,"CONTINUACAO: TECLE <ESPACO>":GOTO 1910 1930 IF P$<>" "THEN1910 1940 LINE(16,0)-(247,191),1,BF 1950 LINE(16,0)-(247,191),15,B 1960 PRESET(108,6),1:COLOR15:PRINT#1,"JOGO" 1970 PRESET(24,16),1:COLOR3:PRINT#1,"Cada jogador ,na sua vez de jogar ,deve escolher um dos caracteres da frase que lhe foi atribuida e digit -lo." 1980 PRESET(24,50),1:COLOR10:PRINT#1,"Se o caractere digitado n„o for correto 1 ponto perdido ser somado na sua contagem de pontos perdidos mostrada no placar azul." 1990 PRESET(24,92),1:COLOR8:PRINT#1,"O jogador dever tentar at‚ acertar, quando, ent„o, sua vez terminar e iniciar a vez do jogador seguinte." 2000 PRESET(24,126),1:COLOR5:PRINT#1,"Enquanto o jogador estiver fazendo suas tentativas, o rel¢gio funcionar marcando o tempo consumido,indicando de qual jogador ‚ a vˆz." 2010 P$=INKEY$:PRESET(24,182),1:COLOR13:PRINT#1,"CONTINUACAO: TECLE <ESPACO>" 2020 IF P$=""THEN PRESET(24,182),1:COLOR 10:PRINT#1,"CONTINUACAO: TECLE <ESPACO>":GOTO 2010 2030 IF P$<>" "THEN2010 2040 LINE(16,0)-(247,191),15,BF 2050 LINE(16,0)-(247,191),15,B 2060 PRESET(88,6),1:COLOR15:PRINT#1,"FIM DO JOGO" 2070 PRESET(24,16),1:COLOR9:PRINT#1,"Quando todos os jogadores tiverem acabado de digitar as frases secretas , o jogo termina e o placar final ‚ apresentado." 2080 PRESET(24,58),1:COLOR5:PRINT#1,"A contagem final ‚ composta dos pontos perdidos e do tempo gasto,contando cada 5 segundos como mais um ponto perdido." 2090 PRESET(24,100),1:COLOR 3:PRINT#1,"O jogador que tiver perdido menos pontos ,de acordo com o indicado no placar final, ser o ganhador." 2100 PRESET(24,134),1:COLOR 7:PRINT#1,"Tamb‚m ‚ poss¡vel desistir de uma partida em qualquer instante pressionando as teclas <CONTROL> e <STOP> , simultƒneamente." 2110 P$=INKEY$:PRESET(24,182),1:COLOR13:PRINT#1,"CONTINUACAO: TECLE <ESPACO>" 2120 IF P$=""THEN PRESET(24,182),1:COLOR 10:PRINT#1,"CONTINUACAO: TECLE <ESPACO>":GOTO 2110 2130 IF P$<>" "THEN2110 2140 LINE(16,0)-(247,191),1,BF 2150 LINE(16,0)-(247,191),15,B 2160 PRESET(110,6),1:COLOR15:PRINT#1,"DICA" 2170 PRESET(24,16),1:COLOR7:PRINT#1,"A £nica regra que as frases secretas precisam seguir ‚ de formarem uma sentenca l¢gica, isto ‚ , possuirem alguma l¢gica que ligue os caracteres que a formam." 2180 PRESET(24,66),1:COLOR9:PRINT#1,"Assim sendo,frases secretas podem ser constitu¡das por palavras de outras l¡nguas, sequˆncias numericas ou de caracteres especiais e at‚ equacoes matem ticas !" 2190 PRESET(24,116),1:COLOR3:PRINT#1,"Visando eliminar eventuais discordƒncias , entre os participantes , ‚ bastante conveniente combinar regras que limitem o universo das frases secretas poss¡veis." 2200 PRESET(24,166),1:COLOR11:PRINT#1,"EX:algu‚m n„o fala inglˆs Ï nƒo valem frases em ingles." 2210 P$=INKEY$:PRESET(24,182),1:COLOR13:PRINT#1,"PARA JOGAR : TECLE <ESPACO>" 2220 IF P$=""THEN PRESET(24,182),1:COLOR 10:PRINT#1,"PARA JOGAR : TECLE <ESPACO>":GOTO 2210 2230 IF P$<>" "THEN2210ELSERETURN730 |