Paso 13: Juntándolo todo
Este Instructable ha proporcionado todas las herramientas básicas necesarias para trabajar con azulejos y modo 4 sprites.
Es opinión de este autor que Sprite y azulejo basan juegos son más mágico y obligar a que los mejores tiradores 3D moderno porque dependían de juegos "retro" en el reproductor de mente y la imaginación para llenar los espacios en blanco. Cuando juego Zork, puedo ver la caverna subterránea en mi mente, y garantiza que la resolución de mi imaginación es mucho más alta que el Oculus Rift.
Aquí es una plantilla de código de apertura para cambiar modos y todas las subrutinas que he discutido en este texto. Todo lo que queda ahora es para que abrir la puerta a la imaginación y la aventura y escribir un gran programa.
Su búsqueda le espera...
I2C open 400,100 PC = &h42 I2C write PC,0,3,1,2,4 'Switch to mode4.mde DO WHILE ASC(a$) <> 42 : a$=INKEY$ : LOOP REM ** YOUR GREAT GAME BEGINS HERE ** Sub LoadSpr sprite,graphic,x,y,mirror,palette I2C WRITE PC,0,8,1,202,sprite,graphic,x,y,mirror,palette End Sub Sub HideSpr sprite I2C WRITE &h42,0,5,1,202,sprite,0,0 End Sub Sub Animate sprite,start,end,delay I2C WRITE PC,0,6,1,219,sprite,start,end,delay End Sub Sub MoveSpeed sprite,xdelay,ydelay,xinc,yinc I2C Write PC,0,7,1,220,sprite,xdelay,ydelay,xinc,yinc End Sub Sub LoadResource file$,cmd I2C WRITE PC,0,2,1,230 'Clear the I2C registers FOR X = 1 TO LEN(file$) 'Send filename I2C WRITE PC,0,2,x+1,ASC(MID$(file$,x,1)) : NEXT X I2C WRITE PC,0,2,1,cmd 'Initate Load 180 or 181 a$ ="": DO WHILE a$ <> "*" : a$=INKEY$ : LOOP : PAUSE 1000 End Sub SUB DisplayText textx,texty,color,text$ FOR x = 1 TO LEN(text$) : char = ASC(MID$(text$,x,1)) I2C write PC,0,6,1,200,textx+x,texty,color,char PAUSE 1 :NEXT x End Sub SUB DisplayChar charx,chary,color,char I2C write PC,0,6,1,200,charx,chary,color,char End Sub REM ** su gran juego comienza aquí ** Sub LoadSpr sprite gráfico, x, y, espejo, paleta I2C WRITE PC, 0, 1, 8, 202, sprite, gráfico, x, y, espejo, sprite de End Sub Sub HideSpr paleta I2C escribir y h42, 0, 5, 1, 202, sprite, 0, 0 End Sub
