Guante Blanco - AMSTRAD CPC 6128 Manual Del Usario

Ocultar thumbs Ver también para CPC 6128:
Tabla de contenido

Guante blanco

Llévese las joyas del señor conde. Muchos obstáculos con los que tropezar, luces que encender,
y cuidado con el perro. Para un jugador contra el ordenador. Teclado o joystick.
10
'GUANTE BLANCO, por David Radisic
20
'copyright (c) AMSOFT 1985
30
'
40
MODE 0:INK 0,0:BORDER 0:INK 1,26:INK 2,15:INK
50
INK 4,14:INK 5,24,12:INK 6,0:INK 7,0:INK 8,0:PAPER
60 retardo=200
70
objx(5,20),objy(5,20),joyax(5,20),joyay(5,20)
DIM
80
GOSUB
380
90
GOSUB
720
100
pausa=200:GOSUB
110
IF
joyas=0
THEN GOSUB
120
PEN
4
130
FOR
i=10
TO
12
140
LOCATE
15,i:PRINT"BOTIN";
150
NEXT
160
PAPER 0:CLS#2:PAPER
170
GOSUB
1180
180
GOSUB
1240
190
GOSUB
1380
200
GOSUB
1520
210
IF
rm=0
THEN GOSUB
220
IF
muerto=0
THEN
230
pausa=100:GOSUB
240
PAPER 0:CLS:PEN
250
LOCATE
4,3:PRINT"Quiere
260
LOCATE
5,5:PRINT"otra
270
PEN 5:LOCATE
7,7:PRINT"S/N";
280
i$=UPPER$(INKEY$):IF
290
IF
i$="N"
THEN MODE 2:PEN 1:STOP
300
RUN
310
perro=1
IF
THEN RETURN
320
perro=1:perrox=minx(rm):perroy=miny(rm)
330
RETURN
340
FOR
bucle=1
TO pausa
350
FRAME
360
NEXT
370
RETURN
380 rm=1:xp=6:yp=4:hombre$=CHR$(224):perro=0:robado=0
390
SYMBOL
240,8,8,8,8,8,8,8,8
400
SYMBOL
241,0,0,0,0,255,0,1 .0
410
242,0,0 0,0,15,8,8,8
SYMBOL
420
SYMBOL
243,0,0,0,0,248,8,8,8
430
SYMBOL
244,8,8,8,8,248,0,0,0
440
245,8,8,8,8,15,0,0,0
SYMBOL
450
SYMBOL
246,8,12,13,14,12,12,8,8
460
SYMBOL
247,8,12,12,14,13,12,9,8
470
SYMBOL
248,8,24,88,56,24,24,8,8
480
SYMBOL
249,8,24,24,56,88,24,8,8
490
SYMBOL
250,0,0,255,129,129,129,255,0
340
980
8
1910
160
340
1
jugar";
vez?";
i$<>"S"
AND
i$<>"N"
Manual de Amstrad CPC 6128 (revisión 2008) - Página 417
3,25
#1,
7
THEN
280
Tabla de contenido
loading

Tabla de contenido