Submenú para Barbarian Death Sword de PC
- Ficha principal
- Galería de imágenes
- Vídeos
- Trucos
- Guías
- Descargas
- Colaborar
- Juegos parecidos
Submenú para Barbarian Death Sword de PC
Trucos de Barbarian Death Sword
Por Administrador (09-08-2003)
+0
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
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
Publicidad
Galería de imágenes
