AbandonSocios: El Portal de los Juegos Antiguos

Abandonsocios => Dudas y Problemas Técnicos => Mensaje iniciado por: vreyes1981 en Marzo 05, 2023, 19:11:48 pm

Título: Programación en BASIC
Publicado por: vreyes1981 en Marzo 05, 2023, 19:11:48 pm

Buenos tardes. Escribo aquí estas líneas porque he descubierto los antiguos cargadores que se incluían en Micromania de la 2ª época que se escribían en BASIC para obtener trucos o ventajas en los juegos. En este caso en versión PC. El problema es que al crear el archivo en BASIC, cuando lo compilo bajo el comando RUN, me sale el siguiente error:

Citar

Error en la línea data 5

Break in 170

Adjunto en spoiler el código en BASIC. Aviso que es un buen tocho:

Spoiler (click para mostrar/ocultar)

10 REM -----------------------------------------
20 REM Cargador Gryzor por Victor Reyes Morales
30 REM -----------------------------------------
40 REM
50 N$ = "CGRYZ": NB = 220: NL = NB / 20: DIM BYTE(NB): 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 CP = 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(CP) = NIB1 * 16 + NIB2: CHECKSUM = CHECKSUM + BYTE(CP): CP = CP + 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 LIN = 9: K = 255
200 CLS
210 LOCATE  1, 31: COLOR 7: PRINT "Cargador GRYZOR"
220 LOCATE  3, 23: COLOR 2: PRINT "(C) Victor Reyes Morales 2023": COLOR 6
230 LOCATE  9, 20: PRINT "Activar vidas infinitas Jugador 1 (s/n)?...... s"
240 LOCATE 11, 20: PRINT "Activar vidas infinitas Jugador 2 (s/n)?...... s"
250 LOCATE 13, 20: PRINT "Activar Tiempo Infinito (s/n)?................ s"
260 LOCATE 15, 20: PRINT "Activar Inmunidad ambos jugadores (s/n)?...... s"
270 LOCATE 17, 20: PRINT "Activar modo sin enemigos (s/n)?.............. s"
280 LOCATE 19, 20: PRINT "Unidad para salvar el cargador................. b"
290 GOSUB 490
300 IF X$ = "N" OR X$ = "n" THEN BYTE(54) = K: Y$ = X$
310 GOSUB 510: GOSUB 490
320 IF X$ = "N" OR X$ = "n" THEN BYTE(60) = K: Y$ = X$
330 GOSUB 510: GOSUB 490
340 IF X$ = "N" OR X$ = "n" THEN BYTE(66) = K: Y$ = X$
350 GOSUB 510: GOSUB 490
360 IF X$ = "N" OR X$ = "n" THEN BYTE(71) = K: Y$ = X$
370 GOSUB 510: GOSUB 490
380 IF X$ = "N" OR X$ = "n" THEN BYTE(76) = K: Y$ = X$
390 GOSUB 510: GOSUB 490
400 IF X$ = CHR$ (13) THEN X$ = "b"
410 Y$ = X$: U$ = X$: GOSUB 510
420 LOCATE 22, 26: COLOR 0,3: PRINT " Pulsa <INTRO> si es correcto ": COLOR 6, 0: X$ = INPUT$(1): IF X$ <> CHR$(13) THEN RUN
430 FOR F = 0 TO NB-1: COD$ = COD$ + CHR$ (BYTE(F)): NEXT
440 OPEN "O", #1, U$+":"+N$+".COM", NB
450 PRINT #1, COD$
460 CLOSE
470 CLS
480 SYSTEM
490 Y$ = "s": LOCATE LIN, 65: COLOR 4: PRINT CHR$(17): COLOR 6: X$ = INPUT$(1)
500 RETURN
510 LOCATE LIN, 63: PRINT Y$;"  ": LIN = LIN + 2
520 RETURN
530 REM
540 DATA "0E588ED88EC0B4098D168F01CD21B408CD218D16", 2117
550 DATA "6901C70677016529C706790165298D1E7701B44B", 1588
560 DATA "B003CD21722FB855298ED8C70639439090C7066B", 2175
570 DATA "449090C6060004C3C606F632EBC606E642C38EC0", 2523
580 DATA "B8005EBED0BC8000EA1000A22F0E1F8D167B01B4", 1915
590 DATA "09CD21CD20613A5C6772797A6F722E6578650000", 1784
600 DATA "0000000D0A2A2A204520522052204F2052202A2A", 0777
610 DATA "0D0A240D0A0A496E74726F64757A636120656C20", 1424
620 DATA "6F726967696E616C204752595A4F5220656E206C", 1761
630 DATA "6120756E6964616420413A20792070756C736520", 1683
640 DATA "756E61207465636C612E2E2E2024000000000000", 1083

¿Alguna idea de que puede ser? Gracias.

Título: Re: Programación en BASIC
Publicado por: skywalky en Marzo 05, 2023, 20:01:53 pm

Pues según parece está fallando el checksum de una linea DATA así que comprueba la línea 580 ya que puede ser que el error esté ahí. Si nos dices en que Micromania está ese cargador quizá podamos ayudarte más.

Título: Re: Programación en BASIC
Publicado por: vreyes1981 en Marzo 05, 2023, 20:05:02 pm

Buenas: el Micromanía en cuestión es un suplemento que se llama "Los 100 Mejores Juegos para PC"

De todas formas le echo ese vistazo en la línea 580 como tu bien dices...

Título: Re: Programación en BASIC
Publicado por: Crafterlock en Marzo 07, 2023, 01:45:30 am

Una cosa quiero comentar respecto a los cargadores de la susodicha revista, la mayoría son obra de Javier Sánchez Fransesch (que en su momento comprobé que la mayoría funcionaban sin problemas), mas hay dos cargadores de Jesús Prez Sicilia (el del "Gryzor"y el del "Platoon") y ninguno de los dos funcionan.
¿Casualidad? No lo creo.

Título: Re: Programación en BASIC
Publicado por: vreyes1981 en Marzo 07, 2023, 02:54:47 am

Eso quiere decir que los  cargadores de Platoon y Gryzor no funcionan porque los códigos están mal de forma ex-profesa?

Título: Re: Programación en BASIC
Publicado por: Crafterlock en Marzo 07, 2023, 03:34:34 am

Hombre, no diría tanto, pero que pueden tener algún error de transcripción, podría ser (como el nombre del creador de los cargadores, está claro que se llama "Pérez" y no "Prez").
Lamentablemente no tengo suficientes conocimientos para hallar una solución.
El del "Gryzor" no recuerdo haberlo visto en ningún otro lado, pero el del "Platoon" sí. Si lo encuentro los compararé, así al menos podremos saber si es un error de transcripción, o si es que el señor este no estaba por la labor...

Título: Re: Programación en BASIC
Publicado por: necromode en Marzo 20, 2023, 23:05:10 pm

En powerbasic de la época se puede tracear...
Doy una pista:
El cálculo del checksum de la línea 5 es 1963
El valor (suma) que debería dar es 1915
1963-1915 = 48dec = 30hex
Es probable que en la línea 5 se haya confundido un 8 por una B o similar.
He restado -30hex a todos los pares hex en esa línea individualmente (únicamente en los que el resultado es mayor a 0) y generado los cargadores .com correspondientes.
Probados todos, el único que no da error o fenónemos adversos (el cargador .com genera un ** ERROR **) es el B4 (correspondiente al último dígito hex de la línea).
Sustituido por 84. Ejecutado el cargador y cargado el juego, no tiene vidas infinitas...
He bajado ese número de la revista y aprecio, que donde pone 5EBE en el .bas del hilo, yo diría que en la revista se parece más a 5E8E, el cálculo del checksum es correcto (1915) pero da ** error ** el cargador resultante.
Vaya misterio!
------------------
Bueno muchachos y no tan muchachos. Ya tengo la solución. (El fallo de transcripción de la revista a texto estaba en el (B8 00 5E BE)). Debería ser (B8 00 5E 8E).
Este no es un cargador TSR (residente en memoria), se encarga de ejecutar el GRYZOR.EXE.
Pero existe un pequeño problema, en el dos box .conf se monta la unidad en C, y después se accede a la carpeta GRYZOR, pero el cargador ejecuta el GRYZOR.EXE desde la ruta a:\gryzor.exe
Hechas las modificaciones pertinentes, lo tengo operativo.
Quizá la mejor solución sería, cambiar el byte incorrecto y modificar el .BAS para que la ruta de ejecución sea .\GRYZOR.EXE en la línea 590 (modificando también el checksum) , así independientemente de la carpeta donde esté el ejecutable lo va a encontrar igual.
Por si queréis trastear he utilizado el Powerbasic PB35 para DOS y el IDA 7.7.
------------------
Bueno, me dejo de tonterías y vamos a la solución práctica.
Aquí el spoiler con el .BAS modificado para que funcione como debe:

Spoiler (click para mostrar/ocultar)

10 REM -----------------------------------------
20 REM Cargador Gryzor por Victor Reyes Morales
30 REM -----------------------------------------
40 REM
50 N$ = "CGRYZ": NB = 220: NL = NB / 20: DIM BYTE(NB): 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 CP = 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(CP) = NIB1 * 16 + NIB2: CHECKSUM = CHECKSUM + BYTE(CP): CP = CP + 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 LIN = 9: K = 255
200 CLS
210 LOCATE  1, 31: COLOR 7: PRINT "Cargador GRYZOR"
220 LOCATE  3, 23: COLOR 2: PRINT "(C) Victor Reyes Morales 2023": COLOR 6
230 LOCATE  9, 20: PRINT "Activar vidas infinitas Jugador 1 (s/n)?...... s"
240 LOCATE 11, 20: PRINT "Activar vidas infinitas Jugador 2 (s/n)?...... s"
250 LOCATE 13, 20: PRINT "Activar Tiempo Infinito (s/n)?................ s"
260 LOCATE 15, 20: PRINT "Activar Inmunidad ambos jugadores (s/n)?...... s"
270 LOCATE 17, 20: PRINT "Activar modo sin enemigos (s/n)?.............. s"
280 LOCATE 19, 20: PRINT "Unidad para salvar el cargador................. b"
290 GOSUB 490
300 IF X$ = "N" OR X$ = "n" THEN BYTE(54) = K: Y$ = X$
310 GOSUB 510: GOSUB 490
320 IF X$ = "N" OR X$ = "n" THEN BYTE(60) = K: Y$ = X$
330 GOSUB 510: GOSUB 490
340 IF X$ = "N" OR X$ = "n" THEN BYTE(66) = K: Y$ = X$
350 GOSUB 510: GOSUB 490
360 IF X$ = "N" OR X$ = "n" THEN BYTE(71) = K: Y$ = X$
370 GOSUB 510: GOSUB 490
380 IF X$ = "N" OR X$ = "n" THEN BYTE(76) = K: Y$ = X$
390 GOSUB 510: GOSUB 490
400 IF X$ = CHR$ (13) THEN X$ = "b"
410 Y$ = X$: U$ = X$: GOSUB 510
420 LOCATE 22, 26: COLOR 0,3: PRINT " Pulsa <INTRO> si es correcto ": COLOR 6, 0: X$ = INPUT$(1): IF X$ <> CHR$(13) THEN RUN
430 FOR F = 0 TO NB-1: COD$ = COD$ + CHR$ (BYTE(F)): NEXT
440 OPEN "O", #1, U$+":"+N$+".COM", NB
450 PRINT #1, COD$
460 CLOSE
470 CLS
480 SYSTEM
490 Y$ = "s": LOCATE LIN, 65: COLOR 4: PRINT CHR$(17): COLOR 6: X$ = INPUT$(1)
500 RETURN
510 LOCATE LIN, 63: PRINT Y$;"  ": LIN = LIN + 2
520 RETURN
530 REM
540 DATA "0E588ED88EC0B4098D168F01CD21B408CD218D16", 2117
550 DATA "6901C70677016529C706790165298D1E7701B44B", 1588
560 DATA "B003CD21722FB855298ED8C70639439090C7066B", 2175
570 DATA "449090C6060004C3C606F632EBC606E642C38EC0", 2523
580 DATA "B8005E8ED0BC8000EA1000A22F0E1F8D167B01B4", 1915
590 DATA "09CD21CD202E5C6772797A6F722E657865000000", 1675
600 DATA "0000000D0A2A2A204520522052204F2052202A2A", 0777
610 DATA "0D0A240D0A0A496E74726F64757A636120656C20", 1424
620 DATA "6F726967696E616C204752595A4F5220656E206C", 1761
630 DATA "6120756E6964616420413A20792070756C736520", 1683
640 DATA "756E61207465636C612E2E2E2024000000000000", 1083

Título: Re: Programación en BASIC
Publicado por: kurt en Marzo 21, 2023, 17:59:20 pm

Ostras, pedazo de trabajo de investigación y de solución te has marcado. Que crack!!!

Gracias

Título: Re: Programación en BASIC
Publicado por: vreyes1981 en Marzo 21, 2023, 20:22:57 pm

Cita de: necromode en Marzo 20, 2023, 23:05:10 pm

(...) Bueno muchachos y no tan muchachos. Ya tengo la solución. (El fallo de transcripción de la revista a texto estaba en el (B8 00 5E BE)). Debería ser (B8 00 5E 8E).

 :huh: :huh: :adoracion: :adoracion:

Edito:

Confirmado que se ejecuta correctamente:

(https://i.ibb.co/gwNNBpc/Cargador.png)

¡Muchas gracias @necromode por tu ardua investigación!

Título: Re: Programación en BASIC
Publicado por: necromode en Marzo 22, 2023, 00:00:54 am

Aquí en el spoiler os dejo el cargador del PLATOON revisado y corregido extraído de la misma revista:
Tener en cuenta que el ejecutable que busca el cargador es .\o.exe

Spoiler (click para mostrar/ocultar)

10 REM -------------------------------------------
20 REM Cargador de PLATOON por Jesús Prez Sicilia
30 REM -------------------------------------------
40 REM
50 N$ = "CPLAT": NB = 200: NL = NB / 20: DIM BYTE(NB): 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 CP = 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(CP) = NIB1 *16 + NIB2: CHECKSUM = CHECKSUM + BYTE(CP): CP = CP + 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 LIN = 9: K = 255
200 LOCATE 1, 30: COLOR 7: PRINT "Cargador   P L A T O O N"
210 LOCATE 3, 23: COLOR 2: PRINT "(C) Jesús Prez Sicilia  Granada 1989": COLOR 6
220 LOCATE  9, 25: PRINT "¿ Vidas infinitas (s/n) ? ...... s"
230 LOCATE 11, 25: PRINT "¿ Moral infinita (s/n) ? ....... s"
240 LOCATE 13, 25: PRINT "¿ Disparos infinitos (s/n) ? ... s"
250 LOCATE 15, 25: PRINT "¿ Inmune a trampas (s/n) ? ..... s"
260 LOCATE 17, 25: PRINT "¿ Juego sin enemigos (s/n) ? ... s"
270 LOCATE 19, 25: PRINT "Unidad para salvar el cargador . b"
280 GOSUB 480
290 IF X$ = "N" OR X$ = "n" THEN BYTE(57) = K: BYTE(61) = K: Y$ = "n"
300 GOSUB 500: GOSUB 480
310 IF X$ = "N" OR X$ = "n" THEN BYTE(65) = K: BYTE(69) = K: Y$ = "n"
320 GOSUB 500: GOSUB 480
330 IF X$ = "N" OR X$ = "n" THEN BYTE(73) = K: Y$ = "n"
340 GOSUB 500: GOSUB 480
350 IF X$ = "N" OR X$ = "n" THEN BYTE(77) = K: Y$ = "n"
360 GOSUB 500: GOSUB 480
370 IF X$ = "N" OR X$ = "n" THEN BYTE(83) = K: BYTE(87) = K: Y$ = "n"
380 GOSUB 500: GOSUB 480
390 IF X$ = CHR$ (13) THEN X$ = "b"
400 Y$ = X$: U$ = X$: GOSUB 500
410 LOCATE 22, 26: COLOR 0,3: PRINT " Pulsa  <Intro>  si es correcto ": COLOR 6, 0: X$ = INPUT$(1): IF X$ <> CHR$(13) THEN RUN
420 FOR F = 0 TO NB-1: COD$ = COD$ + CHR$ (BYTE(F)): NEXT
430 OPEN "O", #1, U$+":"+N$+".COM", NB
440 PRINT #1, COD$
450 CLOSE
460 CLS
470 SYSTEM
480 Y$ = "s": LOCATE LIN, 60: COLOR 4: PRINT CHR$(17): COLOR 6: X$ = INPUT$(1)
490 RETURN
500 LOCATE LIN, 58: PRINT Y$;"  ": LIN = LIN + 2
510 RETURN
520 REM
530 DATA "0E58892E90018C169401892692018ED88EC08D16", 1918 : REM  /  1 /
540 DATA "9601C7069F01EA1CC706A101EA1C8D1E9F01B44B", 1993 : REM  /  2 /
550 DATA "B003CD21724AB81B228ED8BB9090891EC93E891E", 2280 : REM  /  3 /
560 DATA "CB3E891EED3E883EEC3E891E643DC7069039C300", 2156 : REM  /  4 /
570 DATA "891E6F18891E7118B8DA1C8ED88EC0B8DC218ED0", 2515 : REM  /  5 /
580 DATA "BCE80329C08BD88BD38BEA8BF58BFEEA00001B22", 2806 : REM  /  6 /
590 DATA "8D16A301B409CD210E1F8B2E90018B2692018E16", 1617 : REM  /  7 /
600 DATA "9401CD200000000000002E5C6F2E657865000000", 1003 : REM  /  8 /
610 DATA "0000002A2A2A204520522052204F2052202A2A2A", 838  : REM  /  9 /
620 DATA "0D0A240000000000000000000000000000000000", 59   : REM  / 10 /

Título: Re: Programación en BASIC
Publicado por: Crafterlock en Marzo 22, 2023, 02:08:19 am

Llevaba más de treinta años frustrado con el maldito cargador del "Platoon". No te puedes imaginar lo agradecido que estoy por este favor que nos has hecho.
¡Mil gracias @necromode! :asisehace:

Título: Re: Programación en BASIC
Publicado por: necromode en Abril 05, 2023, 00:10:44 am

30 años, ¡mae mía!

En el spoiler, a modo de preservación (igual a la revista) , el cargador del Gryzor corregido.

Spoiler (click para mostrar/ocultar)

10 REM ---------------------------------------
20 REM Cargador GRYZOR por Jesús Prez Sicilia
30 REM ---------------------------------------
40 REM
50 N$ = "CGRYZ": NB = 220: NL = NB / 20: DIM BYTE(NB): 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 CP = 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(CP) = NIB1 * 16 + NIB2: CHECKSUM = CHECKSUM + BYTE(CP): CP = CP + 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 LIN = 9: K = 255
200 CLS
210 LOCATE 1, 31: COLOR 7: PRINT "Cargador   G R Y Z O R"
220 LOCATE 3, 23: COLOR 2: PRINT "(C) Jesús Prez Sicilia  Granada 1989": COLOR 6
230 LOCATE  9, 20: PRINT "¿ Vidas infinitas Jugador 1 (s/n) ? ...... s"
240 LOCATE 11, 20: PRINT "¿ Vidas infinitas Jugador 2 (s/n) ? ...... s"
250 LOCATE 13, 20: PRINT "¿ Tiempo infinito (s/n) ? ................ s"
260 LOCATE 15, 20: PRINT "¿ Inmunidad ambos jugadores (s/n) ? ...... s"
270 LOCATE 17, 20: PRINT "¿ Juego sin indígenas (s/n) ? ............ s"
280 LOCATE 19, 20: PRINT "Unidad para salvar el cargador ........... b"
290 GOSUB 490
300 IF X$ = "N" OR X$ = "n" THEN BYTE(54) = K: Y$ = X$
310 GOSUB 510: GOSUB 490
320 IF X$ = "N" OR X$ = "n" THEN BYTE(60) = K: Y$ = X$
330 GOSUB 510: GOSUB 490
340 IF X$ = "N" OR X$ = "n" THEN BYTE(66) = K: Y$ = X$
350 GOSUB 510: GOSUB 490
360 IF X$ = "N" OR X$ = "n" THEN BYTE(71) = K: Y$ = X$
370 GOSUB 510: GOSUB 490
380 IF X$ = "N" OR X$ = "n" THEN BYTE(76) = K: Y$ = X$
390 GOSUB 510: GOSUB 490
400 IF X$ = CHR$ (13) THEN X$ = "b"
410 Y$ = X$: U$ = X$: GOSUB 510
420 LOCATE 22, 26: COLOR 0,3: PRINT " Pulsa  <INTRO>  si es correcto ": COLOR 6, 0: X$ = INPUT$(1): IF X$ <> CHR$(13) THEN RUN
430 FOR F = 0 TO NB-1: COD$ = COD$ + CHR$ (BYTE(F)): NEXT
440 OPEN "O", #1, U$+":"+N$+".COM", NB
450 PRINT #1, COD$
460 CLOSE
470 CLS
480 SYSTEM
490 Y$ = "s": LOCATE LIN, 65: COLOR 4: PRINT CHR$(17): COLOR 6: X$ = INPUT$(1)
500 RETURN
510 LOCATE LIN, 63: PRINT Y$;"  ": LIN = LIN + 2
520 RETURN
530 REM
540 DATA "0E588ED88EC0B4098D168F01CD21B408CD218D16", 2117
550 DATA "6901C70677016529C706790165298D1E7701B44B", 1588
560 DATA "B003CD21722FB855298ED8C70639439090C7066B", 2175
570 DATA "449090C6060004C3C606F632EBC606E642C38EC0", 2523
580 DATA "B8005E8ED0BC8000EA1000A22F0E1F8D167B01B4", 1915
590 DATA "09CD21CD202E5C6772797A6F722E657865000000", 1675
600 DATA "0000000D0A2A2A204520522052204F2052202A2A", 0777
610 DATA "0D0A240D0A0A496E74726F64757A636120656C20", 1424
620 DATA "6F726967696E616C204752595A4F5220656E206C", 1761
630 DATA "6120756E6964616420413A20792070756C736520", 1683
640 DATA "756E61207465636C612E2E2E2024000000000000", 1083

Título: Re: Programación en BASIC
Publicado por: SkaZZ en Abril 05, 2023, 08:29:15 am

Oh, GW-BASIC, ojalá lo hubiera visto antes. Te lo voy a pasar a QuickBasic, pues el compilador v4.5 se puede encontrar en la red o puedes también usar QB64, para que se puede compilar.

NO GOTO, NO CRY!

Título: Re: Programación en BASIC
Publicado por: Crafterlock en Abril 05, 2023, 22:53:30 pm

Yo uso el QuickBasic 1.1, con el DosBox claro. Es el que he usado toda la vida, y últimamente me muevo más por entorno Dos emulado que por Windows...  :lol:

Título: Re: Programación en BASIC
Publicado por: Crafterlock en Mayo 25, 2023, 03:13:08 am

Veamos @necromode te cuento.

No me funciona el cargador del "Platoon", y lo que no entiendo es, como indicas, que el ejecutable que busca es el o.exe, cuando no existe en el juego ningún ejecutable con ese nombre.
Entonces, si se arranca el cargador da error, y si -por probar- se le cambia el nombre al ejecutable real del juego (platoon.exe) por o.exe, al ejecutar el cargador, se cuelga.

¿Hay alguna solución, o realmente no existe un cargador que pueda con este juego?

Título: Re: Programación en BASIC
Publicado por: necromode en Mayo 25, 2023, 16:03:20 pm

Acabo de probarlo y me funciona.

Veamos:
Platoon 1986
Dosbox 0.74-3

Cargo plat.bas en el powerbasic 3.5 (o basic similar)
Run
Escojo las opciones que me interesan, para probar digo que sí a todo.
En la última opción 'unidad para salvar el cargador' escojo C que es donde dosbox se monta por defecto
Se genera cplat.com
Copio cplat.com a la carpeta del platoon
Hago una copia de platoon.exe a o.exe (esto es debido a que en el cargador está así tal cual y busca ese archivo) (veré si puedo modificarlo)
Ejecuto cplat.com contra dosbox y el se encarga de cargar o.exe que es el juego.
Y funciona (no sale ningún enemigo).

No se si estos pasos son parecidos a los tuyos.

Título: Re: Programación en BASIC
Publicado por: Scr34m en Mayo 25, 2023, 16:21:52 pm

Hola,

No lo he probado pero cambiaría esta línea:
430 OPEN "O", #1, U$+":"+N$+".COM", NB

El primer parámetro es el nombre del archivo, y el COM si es EXE creo se debería cambiar también?

Salu2

EDITO:
Me autocorrijo:
OPEN modestring, #filenum, filespec [,record size]

Con lo cuál, abrimos para salida secuencial "O".
Lo del .COM si que lo cambiaría a punto EXE, y habría que modificar la variable N que sería el nombre.
Está definido en las primeras lineas, y es el nombre del archivo cargador CPLAT...

Está claro, el cargador genera el .COM para ejecutar el juego trucado.
Para cambiar el nombre del archivo que ejecuta:

600 DATA "9401CD200000000000002E5C6F2E657865000000", 1003 : REM  /  8 /
610 DATA "0000002A2A2A204520522052204F2052202A2A2A", 838  : REM  /  9 /


Donde
"2E5C6F2E657865" es = ".\o.exe"
"2E5C706C61746F6F6E2E657865" = ".\platoon.exe"

Con lo cuál, cambiando esos bytes cambiaremos el nombre.
De todas formas tiene una comprobación de que son los datos originales, con el cálculo de SUMA y CHECKSUM.
El valor posterior a la ristra de bytes, es la suma de los bytes de esa linea DATA.

No me he metido en profundidad, pero habría que tocar varias cosas.

También habría que ver el espacio que tenemos disponible etc, pero por ahí van los tiros...

Para simplificarlo se me ocurre un simple:
COPY PLATOON.EXE O.EXE

P.D.
La de tiempo que no tocaba Basic...

Título: Re: Programación en BASIC
Publicado por: necromode en Mayo 25, 2023, 18:19:28 pm

En assembler, esta es la porción de la sección de datos original del cargador que nos interesa.
Vemos que por encima y debajo del db 'a:\o.exe' hay más datos que son referenciados/utilizados en otras partes de código.
Eso nos da un margen de 8 carácteres para el nombre del ejecutable .exe incluído.
La suma/checksum de cada línea se calcula sumando los valores hexadecimales (00+00+00, etc) de esa línea y convirtiéndolo a decimal.

seg000:018E                               start endp
seg000:018E
seg000:018E                               ; ---------------------------------------------------------------------------
seg000:0190 00 00                         word_10190 dw 0                         ; DATA XREF: start+2↑w
seg000:0190                                                                       ; start+82↑r
seg000:0192 00 00                         word_10192 dw 0                         ; DATA XREF: start+A↑w
seg000:0192                                                                       ; start+86↑r
seg000:0194 00 00                         word_10194 dw 0                         ; DATA XREF: start+6↑w
seg000:0194                                                                       ; start+8A↑r
seg000:0196 61 3A 5C 6F 2E 65 78 65 00    aAOExe db 'a:\o.exe',0                  ; DATA XREF: start+12↑o
seg000:019F 00 00                         word_1019F dw 0                         ; DATA XREF: start+16↑w
seg000:019F                                                                       ; start+22↑o
seg000:01A1 00 00                         word_101A1 dw 0                         ; DATA XREF: start+1C↑w
seg000:01A3 2A 2A 2A 20 45 20 52 20 52 20+aERROR db '*** E R R O R ***',0Dh,0Ah
seg000:01A3 4F 20 52 20 2A 2A 2A 0D 0A 24+db '$',0
seg000:01B8 00 00 00 00 00 00 00 00 00 00+db 10h dup(0), 0Dh, 0Ah
seg000:01B8 00 00 00 00 00 00 0D 0A       seg000 ends
seg000:01B8

Título: Re: Programación en BASIC
Publicado por: Crafterlock en Mayo 25, 2023, 22:17:01 pm

@necromode sigo exactamente el mismo procedimiento que describes, pero sigue sin funcionarme.

He probado con distintas versiones del juego pero ninguna carga. Cuando ejecuto el cplat.com simplemente aparece el cursor del sistema debajo y ahí se queda.

He encontrado una versión que curiosamente el .exe ya estaba cambiado a o.exe, pero en esta al ejecutar el cargador se queda la pantalla en negro y de ahí no avanza.

Me queda probar con otro DOSBox, que el que tengo es la primera versión del 0.74-3 en inglés, pero no creo que ese sea el problema, todo lo demás siempre me ha funcionado bien.

Título: Re: Programación en BASIC
Publicado por: necromode en Mayo 26, 2023, 00:07:17 am

Por descartar, se genera bien el cplat.com?, debería ser de 202 bytes.

Se me ocurre también ejecutar el Reset Options.bat en la carpeta de dosbox.

Otra opción en el foro de vogons:
DOSBox 0.74-3 Options.bat

There have been numerous threads here describing this same problem, swiftly remedied by changing output=surface to output=opengl or output=openglnb.
 output: What video system to use for output.
 Possible values: surface, overlay, opengl, openglnb, ddraw.
Procedimiento igual a este vídeo: https://www.youtube.com/watch?v=a-dr84MQvJI

Título: Re: Programación en BASIC
Publicado por: Crafterlock en Mayo 27, 2023, 00:33:48 am

¡Por fin, mil gracias @necromode!  :bravo2:
Esa ha sido la solución, cambiar el video de salida a openglnb y ha ido perfecto.
Creo que después de 34 años podré llegar a ver el final del maldito juego... :lol:

Título: Re: Programación en BASIC
Publicado por: necromode en Mayo 27, 2023, 00:37:05 am

Genial!

Título: Re: Programación en BASIC
Publicado por: Crafterlock en Mayo 27, 2023, 01:25:27 am

Un detalle que se me había pasado por alto @necromode.

El cargador solo funciona en la primera versión europea del juego, que es en CGA,
que es la versión reseñada en la revista de donde procede el cargador.

En la versión americana que trae las paletas Hércules, CGA, EGA y Tandy el cargador no funciona.

Título: Re: Programación en BASIC
Publicado por: necromode en Mayo 27, 2023, 10:07:47 am

Cierto, Cheat Engine https://www.cheatengine.org/ debería ser una posible solución.

Título: Re: Programación en BASIC
Publicado por: Crafterlock en Mayo 28, 2023, 00:50:20 am

Bueno, tampoco es algo como para estar ya buscando los trucos a piñón fijo.
La gracia radica en usar el cargador de la época.
Y a mi ya me está bien jugar la versión CGA, que es la que tuve en su día.

Gracias por todo.