 |
|
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*(A1<58)+55*(A1>57): NIB2 = A2+48*(A2<58)+55*(A2>57)
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
|
|
 |
|
