| |
Trucos para Prehistorik - Trucos y Guias |
-Edita el fichero PREHISTO.EXE, encuentra los caracteres 9A, 98 y 0A, y cambialos por 9A, 98 y FF, para que consigas energia infinita
Cargador:
50 REM * SANTIAGO IGLESIAS GONZALEZ *
70 KEY OFF:CLS
80 LOCATE 13,25: PRINT "ESPERA UN MOMENTO, LEYENDO DATAS"
90 LIN=1000:P=0: DIM D(244):READ A$:WHILE A$ <>"*":I=1:SUM=0
110 WHILE I<LEN (A$):P=P+1:D(P)=VAL ("&H"+MID$(A$,I,2))
120 I=I+2:SUM=SUM+D(P):WEND:READ SUM$:SUM1=VAL ("&H"+SUM$)
130 IF SUM<>SUM1 THEN PRINT "ERROR EN LA LINEA DE DATAS":LIN:STOP
140 LIN=LIN+10:READ A$:WEND:GOTO 200
150 CLS:LOCATE 13,20:PRINT "ESPERA UN MOMENTO, GENERANDO ( PREH-POK.COM )
160 OPEN "R",1, "PREH-POK.COM",1:FIELD #1,1 AS A$
170 FOR I=1 TO P:LSET A$=CHR$(D(I)):PUT #1,I:NEXT:CLOSE 1
180 CLS:PRINT "EJECUTA EL FICHERO ( PREH-POK )
190 PRINT "ANTES DE CARGAR EL JUEGO":SYSTEM
200 CLS: PRINT "COMIDA AL MAXIMO";:GOSUB 270:IF A$="N" THEN D(4)=0
210 PRINT "ENERGIA INFINITA";:GOSUB 270:IF A$="N" THEN D(5)=0
220 PRINT "TIEMPO INFINITO";:GOSUB 270:IF A$="N" THEN D(7)=0
230 PRINT "VIDAS INFINITAS";:GOSUB 270:IF A$="N" THEN D(8)=0
240 PRINT "SIEMPRE MUELLE";:GOSUB 270:IF A$="N" THEN D(6)=20
250 PRINT: PRINT"CORRECTO";:GOSUB 270: IF A$<>"N" THEN 150
260 FOR I=4 TO 8:D(I)=1:NEXT:D(6)=34:GOTO 200
270 PRINT " (S/N) : ";:A$=""
280 WHILE A$="":A$=INKEY$:WEND:IF A$="n" THEN A$="N"
290 PRINT A$:RETURN
1000 DATA E9BA000101220101FA2E8926970156571E065251,5AC
1010 DATA 53509C80FC30756D2E8B1E970183C302368B1752,7AE
1020 DATA 81C20C118EDA5A81C21E048EC28B16491181FAFF,94C
1030 DATA 0E754AB000B4EB2E803E0301007403A288862E80,6E1
1040 DATA 3E0401007407A29D878826A3872E803E05010074,5C2
1050 DATA 162EA00501A2AF0EA26B1DA29525A2ED2FA2444C,7BF
1060 DATA A24C89B8CD8426A36B09B8EB0126A36D099D585B,8F0
1070 DATA 595A071F5F5EEA0000000000009C2E803E060100,40F
1080 DATA 7406C706649C63002E803E0701007406C7065C9C,5DD
1090 DATA 63009DC746F89A3BCFFABA00008EDA8B1684002E,918
1100 DATA 891693018B1686002E891695018D160801891684,58C
1110 DATA 008C0E86008D169901891610028C0E12028D16BD,51C
1120 DATA 01FBCD27,1F0
1130 DATA *
Volver a Trucos PC
|