|
Truco añadido por 0 el 09-08-2003
Trucos:
Para acabar con Drax tendréis
que saltar el primer rayo que os lance y al
caer rodar hacia él.
Aquí tenéis el
cargador del juego:
10 '
---------------------------------------------
20 ' Cargador de BARBARIAN por Jesus
Perez Sicilia
30 '
---------------------------------------------
40 '
50 NB = 100: NL = NB / 20:
A=10: B=11: C=12: D=13: E=14: F=15
60
COLOR 6, 0, 0: CLS
70 LOCATE 13, 36:
PRINT "ESPERE ..."
80 DIR = 0: DEF SEG
= &H9000: OFFSET = 0
90 FOR W1 = 1 TO
NL
100 CHECKSUM = 0: Z = 1: READ L$,
SUMA
110 FOR W2 = 1 TO 39 STEP 2
120 B1$ = MID$ (L$,Z,1): B2$ = MID$
(L$,Z+1,1): Z = Z + 2
130 A1 =
ASC(B1$): A2 = ASC(B2$)
140 NIB1 =
A1+48*(A157): NIB2 = A2+48*(A257)
150
BYTE = NIB1 * 16 + NIB2: CHECKSUM = CHECKSUM
+ BYTE: POKE DIR, BYTE: DIR = DIR + 1
160 NEXT W2
170 IF CHECKSUM SUMA THEN
CLS: LOCATE 12, 29: PRINT "ERROR EN LINEA
DATA ", W1: LOCATE
22, 1: STOP
180 NEXT W1
190 CLS: LIN = 9
200 D11 = &H11: D12 = &H12: D13 = &H17: D14 =
&H18: D15 = &H1D: D21 = &H2D: D22 = &H2E
210 B11 = &H83: B12 = &HFF: B13 = &H8: B14
= &H73: B15 = &H5D
220 B21 = &HFE: B22
= &HE
230 LOCATE 1, 25: COLOR 7: PRINT
"Cargador B A R B A R I A N": COLOR 6
240 LOCATE 3, 21: COLOR 2: PRINT "(C) Jesus
Perez Sicilia Cordoba 1989": COLOR 6
250 LOCATE 11, 19: PRINT "¨ Inmunidad
guerreros (s/n) ? ............ S"
260
LOCATE 13, 19: PRINT "¨ Inmunidad hechicero
(s/n) ? ............ S"
270 GOSUB 390
280 IF X$ = "N" OR X$ = "n" THEN Y$ =
"N" ELSE B11 = &H83: B12 = &HFE: B13 = &H1:
B14 = &H75: B15 =
&H5D: Y$ = "S"
290 GOSUB 410: GOSUB 390
300 IF X$
= "N" OR X$ = "n" THEN Y$ = "N" ELSE B21 =
&HEB: B22 = &H4E: Y$ = "S"
310 GOSUB
410
320 LOCATE 20, 23: COLOR 0,3:
PRINT " Pulsa si es correcto ": COLOR 6,0: X$
= INPUT$(1): IF X$
CHR$(13) THEN 190
330 POKE D11,B11: POKE D12,B12: POKE
D13,B13: POKE D14,B14: POKE D15,B15
340 POKE D21,B21: POKE D22,B22
350
CLS: LOCATE 12, 1: PRINT "Introduce el disco
de BARBARIAN en la unidad A: y pulsa una
tecla...": X$ =
INPUT$(1)
360
CALL OFFSET
370 PRINT: PRINT: PRINT:
PRINT "El juego ya esta modificado. Para
jugar teclea 'BARB' y pulsa ...":
PRINT: PRINT
380 SYSTEM
390 LIN
= LIN + 2: Y$ = "s": LOCATE LIN, 64: COLOR 4:
PRINT CHR$(17): COLOR 6: X$ = INPUT$(1)
400 RETURN
410 LOCATE LIN, 62:
PRINT Y$," "
420 RETURN
430 '
440 DATA
"551E8CC88ED8BA5A0052E82900C706ED0183FEC7",
2471
450 DATA
"06EF010175C606F1015D5AE81B00BA580052E80D",
1853
460 DATA
"00C706A001EB4E5AE80A001F5DCBE80B00CD259D",
1980
470 DATA
"C3E80400CD269DC3B800918ED828C0B9010029DB",
2391
480 DATA
"C300000000000000000000000000000000000000",
0195
|
