Kryptós

28 de julho de 201728 de julho de 2017 MSX-Basic 0 comentários Inteligência, Jogos, Lógica, Raciocínio

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

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

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

Compartilhe: