Que tal gente. Bueno, por si no se han dado cuenta, tengo un problema complicadisimo al cual hasta ahora no le encuentro solución. Mi programa "The Pedorro Maze" (aun en fase alfa diria) me hace una cosa loquisima: juego, pierdo o gano y cuando quiero rejugar (GOTO al primer numero de linea) anda todo fantastico salvo por el pequeño detalle que no detecta mas la colision de sprites, ni con el fondo ni entre ellos.

Busqué, lei, y hasta ahora nada. Como dato aun mas curioso, si le meto un stop a la primer linea (hace un CLR nomas esa linea) y luego le doy CONT, el programa funciona perfectamente.

El BASIC 7.0 tiene algún liveupdate que me haya perdido o cosa así ?

Dejo el link del programa, corre en Commodore 128.

http://usuarios.lycos.es/exclusivestore/pedorromaze.d64

>:(
Nombrame un solo producto de Microchotosoft que no haya traído problemas y te damos un premio...  :P

Habrá algún Service Pack para el Basic 7.0 de la C-128 ??  ;D ;D ;D

es raro porque el basic de la Commodore 64 también es de Microchotosoft  ::) ::) ::)

En alguna variable te está quedando guardado un valor que se debe inicializar con el CLR. Si no lo ponés, no se inicializa. Por ahí no está en tu programa, puede ser algún registro del VDP.

Lo raro es lo siguiente: corro el CLR, y el resto de las variables queda vacias. El VDP no lo uso, esta todo en 40 cols usando el VIC, asi que por ahi dudo, capaz que algun puntero, voy a ver si encuentro un mapa de memoria que me ayude.

Mira, la direccion 53279 tiene la colision de cada sprite con el fondo.
Borralo al inicio, ponelo en 0 y proba, debe ser igual que en la 64
Tal vez no es un bug, debe ser que es asi, el basic 7 sigue sin ser una API con control total de la maquina, igual te tenes que ensuciarte las manos con los pokes

   Saludos
  MARCOS

no, creo que ya esta!
Yo habia tenido problemas con ese registro cuando programaba la C64:
Se borra cuando lo lees, fijate que vos seguramente no lo estas leyendo nunca, solo usas la colicion generada.
Me fije y en la C128 si hay un comando para leerlo, se llama BUMP(n) n es 1 o 2 segun si es colicion de sp a sp o con el fondo.
Ponele un BUMP(2) (Creo) al inicio y seguro que te va a andar

      Saludos
     MARCOS

Marcos, gracias por los consejos...lamentablemente fueron en vano jajaja

BUMP es una función que me devuelve la colision entre dos sprites (1) o de un sprite y fondo (2), onda, si chocan 2 sprites (3 y 4 por ej.) y hago PRINT BUMP (1) me devuelve 12, lo que indica que chocaron esos dos (asi dice el manual).
Le mande un poke a la direccion que me pasaste pero nada, la colision sigue sin funcionar, es raro realmente.

Marcos, gracias por los consejos...lamentablemente fueron en vano jajaja

BUMP es una función que me devuelve la colision entre dos sprites (1) o de un sprite y fondo (2), onda, si chocan 2 sprites (3 y 4 por ej.) y hago PRINT BUMP (1) me devuelve 12, lo que indica que chocaron esos dos (asi dice el manual).
Le mande un poke a la direccion que me pasaste pero nada, la colision sigue sin funcionar, es raro realmente.

Lo que pasa es que la 53279 es de solo lectura, no es una posicion de memoria standart, es un registro del VIC, no la podes borrar, para borrarla tenes que leerla, una vez que la lees se borra para la proxima vez, solo en la actualizacion de pantalla se actualiza, y la instruccion COLLISION al parrecer tampoco la lee, solo redirecciona la interrupcion. Pero hasta que no se lea (con BUMP) no se resetea.

Ahora, si vos lo probaste y no te andubo, ahi ya no se  

Tal vez cuando el sistema la resetea la pantalla no esta limpia y hay una colicion ante de que actives COLLISION, y al ya estar en estado distinto de 0, no va a saltar la interrupcion, que salta cuando pasa de 0 a otro valor

     Saludos
    MARCOS

La dirección es 53273, que es el registro de interrupciones.
53279 es el registro de lectura escritura en el que seteas si queres detectar colisiones entre sprites y caracteres

D019      53273                  VIC Interrupt Flag Register (Bit = 1: IRQ
                       Occurred)
                 7      Set on Any Enabled VIC IRQ Condition
                 3      Light-Pen Triggered IRQ Flag
                 2      Sprite to Sprite Collision IRQ Flag
                 1      Sprite to Background Collision IRQ Flag
                 0      Raster Compare IRQ Flag

D01A      53274                  IRQ Mask Register: 1 = Interrupt Enabled


D01E      53278                  Sprite to Sprite Collision Detect
D01F      53279                  Sprite to Background Collision Detect

Fijate, con un PEEK(53273) tiene que andar