Apéndice 3 - Que Usted Lo Disfrute; Rebotes - AMSTRAD CPC 6128 Manual Del Usario

Apéndice 3 - Que usted lo disfrute

Rebotes

Sencillo y apasionante. Para un jugador contra el ordenador. Teclado o joystick.
10 'REBOTES, por Alexander Martin
20 'copyright (c) AMSOFT 1984
30 '
40 MODE 1:BORDER 1:INK 0,1:INK 1,26:INK 2,24:INK
50 SPEED KEY 15,2
60 ENV 1,1,18,0,11,0,10
70 ENT 1,10,2,2
80 ENV 3,1,0,16,5,-3,2
90 ENV 2,5,3,3,1,-21,22,9,-3,2
100 ENT -2,10,2,2,5,-7,1,2,11,3,2,-4,8
110 '
120 '
130 MOVE 30,32:DRAWR 0,400,1:MOVE 610,32:DRAWR
140 PEN 3:LOCATE 3,1:PRINT
150 PEN 2:LOCATE 3,2:PRINT
160 PEN 1:FOR r=5
170 bx=9
180 pelotas=5:puntos=0
190 PEN 1:GOSUB 680:CLEAR INPUT
200 IF INKEY$<>CHR$(32)
210 LOCATE 3,23:PRINT SPACE$(36):LOCATE 1,24:PRINT
220 GOSUB 690:GOSUB 660:GOTO
230 '
240 '
250 LOCATE bx,24:PRINT" ";STRING$(4,131);"
260 '
270 '
280 xa=1:ya=1:IF INT(RND*2)=1
290 PEN 1:GOSUB 250
300 ORIGIN 0,400
310 x=bx+4:y=11:x1=x:y1=y
320 '
330 '
340 x1=x+xa:y1=y+ya
350 IF x1=3 OR x1=38
360 GOSUB 540
370 IF y1=24 AND x1>bx+1
((x>bx+5)OR(x<bx+2)):IF
380 IF y=25 THEN LOCATE
390 GOSUB 250
400 t=TEST((16*x1)-1,-(16*y1)-1)
410 IF t<>0 THEN ya=-ya:xz=x1:yz=y1:y1=y1+ya:GOSUB 590:IF
puntos=puntos+10:GOSUB
420 IF t=3 THEN puntos=puntos+20:GOSUB
430 IF t=1 THEN puntos=puntos+5:GOSUB
440 IF y1=1 THEN ya=1
450 LOCATE x,y:PRINT"
460 IF y=1 OR x=3
STRING$(36,143)
STRING$(36,143)
TO 6:LOCATE 3,r:PRINT STRING$(36,143):NEXT r
AND JOY(0)<16
280
THEN xa=-xa
THEN xa=-xa
AND x1<bx+6
a=-1 THEN xa=xa*a:x1=x1+xa:y1=y1+1
x,y:PRINT" ":GOTO
660
":LOCATE x1,y1:PRINT CHR$(231):x=x1 :y=y1
OR x=38 THEN SOUND
Manual de Amstrad CPC 6128 (revisión 2008) - Página 401
3,6
0,400,1
THEN 200
SPACE$(40);
":RETURN
THEN ya=-ya:y1=y1-2:
500
660
660
129,78,8,7,1,1
SOUND 130,44,8,7,1,1:a=
t=2 THEN