Chiptron

12 de julho de 2017 MSX-Basic 0 comentários Corrida, Jogos

Estamos no ano de 3003 onde os esportes não exigem muita força, mas sim reflexos rápidos e muita velocidade.

Teste o programa no WebMSX – The Online MSX Emulator

Neste ano, na OLIMPÍADA MSX, ocorrerá a mais almejada prova de todos os tempos: o CHIPTRON!
Essa prova se realiza numa arena circular onde dois TRONS devem dirigir suas motos sem se chocarem com as bordas, obstáculos ou rastros deixados pelas motos.
O objetivo de cada TRON é fazer com que seu adversário colida.
Cuidado com as bordas! Em algumas partes existem escorregadores que são passagens diretas para a morte.
As motos, ao partirem, acionam um contador de tempo que ao final será somado ao placar do vencedor.
Para controlar as motos, use as teclas A,W,D,X (TRON esquerdo) e 2,4,6,8 (TRON direito). As telcas de comando são apenas para o controle direcional e não para a movimentação.
Para iniciar o jogo você deve acionar a tecla CAPS LOCK antes de comandar RUN + RETURN ou F5.

Fonte: Livro Coleção de Programas para MSX Volume 1
Editora: Aleph
Ano: 1985
Autor: Aldo Balduco Jr.
Digitação: Renato Faria Lopes

Código fonte

10 ' Chiptron
20 GOSUB 850
30 VZ=5:VX=VZ:PPX=0:PPZ=PX
40 COLOR15,15,15
50 SCREEN 2,,0
60 CIRCLE(128,96),90,1
70 PAINT(128,185),1,1
80 TIME=0
90 CIRCLE(128,36),10,15
100 CIRCLE(128,156),10,15
110 CIRCLE(168,96),20,15,,,.85
120 CIRCLE(88,96),20,15,,,.85
130 X=120:Y=96:Z=136:U=Y
140 PSET(X,Y),4
150 PSET(Z,U),6
160 DX=3:DZ=1
170 L$=INKEY$:IF L$="" THEN 260
180 IF L$="4" THEN DZ=1
190 IF L$="8" THEN DZ=2
200 IF L$="6" THEN DZ=3
210 IF L$="2" THEN DZ=4
220 IF L$="A" THEN DX=1
230 IF L$="W" THEN DX=2
240 IF L$="D" THEN DX=3
250 IF L$="X" THEN DX=4
260 IF DX=1 THEN X=X-1
270 IF DX=3 THEN X=X+1
280 IF DX=2 THEN Y=Y-1
290 IF DX=4 THEN Y=Y+1
300 IF DZ=1 THEN Z=Z-1
310 IF DZ=3 THEN Z=Z+1
320 IF DZ=2 THEN U=U-1
330 IF DZ=4 THEN U=U+1
340 PX=POINT(X,Y):PZ=POINT(Z,U)
350 PSET(X,Y),4
360 PSET(Z,U),6
370 IF PX<>1 THEN PUZ=PUZ+TIME+20:GOTO 400
380 IF PZ<>1 THEN PYX=PYX+TIME+20:GOTO 460
390 GOTO 170
400 FOR F=1 TO 20 STEP 3
410 CIRCLE(X,Y),F,RND(-TIME)*15
420 PLAY"S8T255L60GFA"
430 NEXT F
440 VX=VX-1:IF VX>0 THEN 520
450 GOTO 680
460 FOR F=1 TO 20 STEP 3
470 CIRCLE(Z,U),F,RND(-TIME)*15
480 PLAY"S8T255L60CAB"
490 NEXT F
500 VZ=VZ-1:IF VZ>0 THEN 520
510 GOTO 680
520 COLOR 15,13,13:KEY OFF
530 SCREEN 1
540 PRINT"        MSX-Chip Tron"
550 LOCATE 3,3
560 PRINT"Jogador 1: Vidas Pontos"
570 LOCATE 15,4
580 PRINT VX:LOCATE 20,4:PRINT PYX
590 LOCATE 3,9
600 PRINT"Jogador 2: Vidas Pontos"
610 LOCATE 15,10:PRINT VZ:LOCATE 20,10:PRINT PUZ
620 LOCATE 12,6:PRINT"TEMPO"
630 LOCATE 12,7:PRINTTIME
640 LOCATE 1,22:PRINTE"Aperte uma tecla para cont."
650 IF INKEY$<>"" THEN 650
660 IF INKEY$="" THEN 660
670 GOTO 40
680 KEY OFF:FOR F=1 TO 14 STEP 2
690 COLOR F,F+1,F-1
700 NEXT F
710 COLOR 15,1,1
720 SCREEN1
730 PRINT"        MSX-Chip Tron"
740 LOCATE 5,10:PRINT"O jogador";
750 IF PYX>PUZ THEN PRINT" 1 venceu." ELSE PRINT" 2 venceu."
760 PRINT:PRINT:PRINT"Jogador 1 fez"PYX"pontos."
770 PRINT:PRINT:PRINT"Jogador 2 fez"PUZ"pontos."
780 FOR F=1 TO 14
790 COLOR F,F-1,F+1:FOR G=0 TO 30:NEXT G
800 NEXT F
810 PLAY"T60O3L24EBO4CO3ABGEBO4CO3ABGECO2A#O3CO3A#O3C"
820 IF INKEY$<>"" THEN 820
830 IF INKEY$="" THEN 830
840 RUN
850 COLOR 15,1,1
860 SCREEN 2
870 DRAW"S8BM65,20NR5U7R5BR3ND7D3R4NU3D4BR3U7BR3ND7R3F2G2L3BU4"
880 DRAW"BR15R3ND7R3BR3ND7R3F2G2L2F3BU7BR3D7R5U7NL5BR3ND7F7U7S6"
890 DRAW"BM130,150E7D7UH3GFBUBR6EU3HGD6FRNE3R4NU6R2U3R3D3NL3BU2R"
900 DRAW"BR8BU3R4D8L4U4NR4U4BR7NR4D4R3FD3GL3S4"
910 CIRCLE(50,145),30,7
920 PAINT(50,174),7,7
930 FOR F=0 TO 128
940 PSET(F,70),4:PSET(255-F,70),6
950 NEXT F
960 FOR F=1 TO 40 STEP 3
970 CIRCLE(128,70),F,RND(-TIME)*15
980 PLAY"S8T255L60EDGFA"
990 NEXT F
1000 IF INKEY$<>"" THEN GOTO 1000
1010 IF INKEY$="" THEN GOTO 1010
1020 PLAY"CEG"
1030 RETURN

100

101

102

103

10 ' Chiptron

20 GOSUB 850

30 VZ=5:VX=VZ:PPX=0:PPZ=PX

40 COLOR15,15,15

50 SCREEN 2,,0

60 CIRCLE(128,96),90,1

70 PAINT(128,185),1,1

80 TIME=0

90 CIRCLE(128,36),10,15

100 CIRCLE(128,156),10,15

110 CIRCLE(168,96),20,15,,,.85

120 CIRCLE(88,96),20,15,,,.85

130 X=120:Y=96:Z=136:U=Y

140 PSET(X,Y),4

150 PSET(Z,U),6

160 DX=3:DZ=1

170 L$=INKEY$:IF L$="" THEN 260

180 IF L$="4" THEN DZ=1

190 IF L$="8" THEN DZ=2

200 IF L$="6" THEN DZ=3

210 IF L$="2" THEN DZ=4

220 IF L$="A" THEN DX=1

230 IF L$="W" THEN DX=2

240 IF L$="D" THEN DX=3

250 IF L$="X" THEN DX=4

260 IF DX=1 THEN X=X-1

270 IF DX=3 THEN X=X+1

280 IF DX=2 THEN Y=Y-1

290 IF DX=4 THEN Y=Y+1

300 IF DZ=1 THEN Z=Z-1

310 IF DZ=3 THEN Z=Z+1

320 IF DZ=2 THEN U=U-1

330 IF DZ=4 THEN U=U+1

340 PX=POINT(X,Y):PZ=POINT(Z,U)

350 PSET(X,Y),4

360 PSET(Z,U),6

370 IF PX<>1 THEN PUZ=PUZ+TIME+20:GOTO 400

380 IF PZ<>1 THEN PYX=PYX+TIME+20:GOTO 460

390 GOTO 170

400 FOR F=1 TO 20 STEP 3

410 CIRCLE(X,Y),F,RND(-TIME)*15

420 PLAY"S8T255L60GFA"

430 NEXT F

440 VX=VX-1:IF VX>0 THEN 520

450 GOTO 680

460 FOR F=1 TO 20 STEP 3

470 CIRCLE(Z,U),F,RND(-TIME)*15

480 PLAY"S8T255L60CAB"

490 NEXT F

500 VZ=VZ-1:IF VZ>0 THEN 520

510 GOTO 680

520 COLOR 15,13,13:KEY OFF

530 SCREEN 1

540 PRINT" MSX-Chip Tron"

550 LOCATE 3,3

560 PRINT"Jogador 1: Vidas Pontos"

570 LOCATE 15,4

580 PRINT VX:LOCATE 20,4:PRINT PYX

590 LOCATE 3,9

600 PRINT"Jogador 2: Vidas Pontos"

610 LOCATE 15,10:PRINT VZ:LOCATE 20,10:PRINT PUZ

620 LOCATE 12,6:PRINT"TEMPO"

630 LOCATE 12,7:PRINTTIME

640 LOCATE 1,22:PRINTE"Aperte uma tecla para cont."

650 IF INKEY$<>"" THEN 650

660 IF INKEY$="" THEN 660

670 GOTO 40

680 KEY OFF:FOR F=1 TO 14 STEP 2

690 COLOR F,F+1,F-1

700 NEXT F

710 COLOR 15,1,1

720 SCREEN1

730 PRINT" MSX-Chip Tron"

740 LOCATE 5,10:PRINT"O jogador";

750 IF PYX>PUZ THEN PRINT" 1 venceu." ELSE PRINT" 2 venceu."

760 PRINT:PRINT:PRINT"Jogador 1 fez"PYX"pontos."

770 PRINT:PRINT:PRINT"Jogador 2 fez"PUZ"pontos."

780 FOR F=1 TO 14

790 COLOR F,F-1,F+1:FOR G=0 TO 30:NEXT G

800 NEXT F

810 PLAY"T60O3L24EBO4CO3ABGEBO4CO3ABGECO2A#O3CO3A#O3C"

820 IF INKEY$<>"" THEN 820

830 IF INKEY$="" THEN 830

840 RUN

850 COLOR 15,1,1

860 SCREEN 2

870 DRAW"S8BM65,20NR5U7R5BR3ND7D3R4NU3D4BR3U7BR3ND7R3F2G2L3BU4"

880 DRAW"BR15R3ND7R3BR3ND7R3F2G2L2F3BU7BR3D7R5U7NL5BR3ND7F7U7S6"

890 DRAW"BM130,150E7D7UH3GFBUBR6EU3HGD6FRNE3R4NU6R2U3R3D3NL3BU2R"

900 DRAW"BR8BU3R4D8L4U4NR4U4BR7NR4D4R3FD3GL3S4"

910 CIRCLE(50,145),30,7

920 PAINT(50,174),7,7

930 FOR F=0 TO 128

940 PSET(F,70),4:PSET(255-F,70),6

950 NEXT F

960 FOR F=1 TO 40 STEP 3

970 CIRCLE(128,70),F,RND(-TIME)*15

980 PLAY"S8T255L60EDGFA"

990 NEXT F

1000 IF INKEY$<>"" THEN GOTO 1000

1010 IF INKEY$="" THEN GOTO 1010

1020 PLAY"CEG"

1030 RETURN

Compartilhe:

julho 2017
D	S	T	Q	Q	S	S
				ago »
						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