sábado, 16 de novembro de 2019

Laser (MIA)


Esta semana temos para vos apresentar o segundo jogo da autoria de José Oliveira para ZX81 que conseguimos preservar com a ajuda do Kelly Murta. Este post vem na sequência do anterior - Bala - que podem consultar aqui.

Essencialmente o conceito por detrás deste jogo é o mesmo, já que nos é dado um ponto aleatório no ecrã, onde teremos de tentar acertar indicando o ângulo a que queremos que seja disparado o laser.

Podem descarregar aqui Laser, não esquecendo, como já referimos no post anterior, de que precisam de um emulador específico para o ZX81. A nossa recomendação é o Eightyone, cujo link deixámos aquando da disponibilização de Bala. Relembramos ainda que precisam digitar "run" no emulador para entrar no jogo.

Tal como anteriormente, partilhamos convosco o código Basic original, caso tenham curiosidade em ver como foi construído este pequeno jogo:

   5 REM "LASER"
   7 LET P=0
  10 LET G=RND*35+10
  11 LET H=RND*36+2
  12 PLOT G,H
  15 GOSUB 100
  16 PLOT G,H
  20 FOR X=1 TO 46 STEP (1/(ABS Y+(Y=0)))*(ABS Y>1)+(ABS Y<=1)
  25 IF ABS (X*Y+20)>41 THEN GOTO 45
  30 PLOT X,Y*X+20
  35 IF ABS (H-X*Y-20)<2 THEN GOTO 150
  40 NEXT X
  50 GOTO 10
 100 PRINT AT 0,0;"QUAL O ANGULO ?"
 110 INPUT Y
 115 LET Y=TAN (Y*PI/180)
 116 CLS
 120 PRINT AT 20,15;P
 130 RETURN
 150 IF X<>(INT G) THEN GOTO 36
 151 PRINT "BUM"
 155 LET P=P+1
 160 GOSUB 120
 170 GOTO 10

Sem comentários:

Publicar um comentário